assocのkey引数の取り扱いにバグがある． #436
Description
(assoc 'b '(((a) 1) ((b) 2)) :key #'car)
-> ((b) 2)
となるべきところ,
eusgl$ (assoc 'b '(((a) 1) ((b) 2)) :key #'car)
->nil
となる．現状では，
eusgl$ (assoc 'b '(((a) 1) ((b) 2)) :key #'caar)
->((b) 2)
とよけいにcarを与える必要があり，間違っている．
eus/lisp/c/lists.cのSUPERASSOC
の
if (key==NIL) temp=ccar(target);
else temp=call1(ctx,key,target);
のところが，
if (key==NIL) temp=ccar(target);
else temp=call1(ctx,key,ccar(target));
となれば，大丈夫なはず．