From: Alexey D. <ade...@co...> - 2003-05-03 09:56:25
|
Hello, Look at this function from src/code/condition.lisp: (defun compute-effective-slots (class) (collect ((res (copy-list (condition-class-slots class)))) (dolist (sclass (condition-class-cpl class)) (dolist (sslot (condition-class-slots sclass)) (let ((found (find (condition-slot-name sslot) (res)))) ; !!! [...]))) (res))) Is it correct? Shouldn't :KEY #'CONDITION-SLOT-NAME be added to the call of FIND? -- Regards, Alexey Dejneka "Alas, the spheres of truth are less transparent than those of illusion." -- L.E.J. Brouwer |
From: Gerd M. <ger...@t-...> - 2003-05-03 11:19:41
|
Alexey Dejneka <ade...@co...> writes: > (let ((found (find (condition-slot-name sslot) (res)))) ; !!! > > Is it correct? Shouldn't :KEY #'CONDITION-SLOT-NAME be added to the > call of FIND? Definitely. I'll fix it in CMUCL. |