[bug#51903] cmn license etc

[bil]

Please do not repair code you don't understand.  First,
sbcl issues a warning, not an error.  The warning is
asinine -- find (in the original form) returns a list;
I check whether it is nil before setting a portion of it.
If you change the find statement to add :key #'car, you've
changed it from memq to assq (in Scheme nomenclature) --
these are not the same thing.  Your test of running
(cmn treble c4 q) did not hit the code in question, so
it tested nothing.  All you've done is add a bug to
my code.