(adjoin item list :key fn)
== (if (member (fn item) list :key fn) list (cons item list));.
Is that buggy? Shouldn't it be
(adjoin item list :key fn)
== (if (member (funcall fn item) list :key fn) list (cons item list));?
Norbert
Indeed. The mistake is actually explicitly mentioned in CLtL2, but
apparently the correction didn't make it into ANSI CL.
Pascal
--
My website: http://p-cos.net
Common Lisp Document Repository: http://cdr.eurolisp.org
Closer to MOP & ContextL: http://common-lisp.net/project/closer/