0.8aplha.0.6:

        SB!KERNEL::COMPUTE-EFFECTIVE-SLOTS: compare names to names,
        not to slots (thanks to Gerd Moellmann for review).

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index e92af31..5cdbc1a 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -326,7 +326,8 @@
   (collect ((res (copy-list (condition-classoid-slots class))))
     (dolist (sclass (cdr (condition-classoid-cpl class)))
       (dolist (sslot (condition-classoid-slots sclass))
-       (let ((found (find (condition-slot-name sslot) (res))))
+       (let ((found (find (condition-slot-name sslot) (res)
+                           :key #'condition-slot-name)))
          (cond (found
                 (setf (condition-slot-initargs found)
                       (union (condition-slot-initargs found)

diff --git a/version.lisp-expr b/version.lisp-expr
index fc63d9f..8bb8c40 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8alpha.0.5"
+"0.8alpha.0.6"