From 8b78dfb8dc6c72c73a9c1732f0869e3f02281519 Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Sat, 3 May 2003 12:14:09 +0000 Subject: [PATCH] 0.8aplha.0.6: SB!KERNEL::COMPUTE-EFFECTIVE-SLOTS: compare names to names, not to slots (thanks to Gerd Moellmann for review). --- src/code/condition.lisp | 3 ++- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/code/condition.lisp b/src/code/condition.lisp index e92af31..5cdbc1a 100644 --- 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 --- 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" -- 1.7.10.4