Just Launched: You can now import projects and releases from Google Code onto SourceForge
We are excited to release new functionality to enable a 1-click import from Google Code onto the Allura platform on SourceForge. You can import tickets, wikis, source, releases, and more with a few simple steps. Read More
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)))) ; !!!
Is it correct? Shouldn't :KEY #'CONDITION-SLOT-NAME be added to the
call of FIND?
"Alas, the spheres of truth are less transparent than those of
illusion." -- L.E.J. Brouwer
Alexey Dejneka <adejneka@...> 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.