0.pre8.66:

	Fix some more condition slots bugs
	... don't duplicate slots from the current class; only examine the rest
		of the condition's CPL.

diff --git a/NEWS b/NEWS
index bb57798..db164bb 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -1650,6 +1650,9 @@ changes in sbcl-0.8.0 relative to sbcl-0.7.14
     Baumann)
   * SB-MOP:ENSURE-CLASS-USING-CLASS now takes its arguments in the
     specified-by-AMOP order of (CLASS NAME &REST ARGS &KEY).
+  * SB-MOP:COMPUTE-EFFECTIVE-SLOT-DEFINITION now takes the
+    required-by-AMOP NAME argument, as well as CLASS and
+    DIRECT-SLOT-DEFINITIONS.  (thanks to Kevin Rosenberg)
   * fixed bug 20: DEFMETHOD can define methods using names that are
     not the proper names of classes to designate class specializers.
   * bug fix: INTERACTIVE-STREAM-P now works on streams associated with
@@ -1672,6 +1675,8 @@ changes in sbcl-0.8.0 relative to sbcl-0.7.14
     ** DEFCLASS of forward-referenced classes with another
        forward-referenced class in the superclasses list no longer
        causes an error;
+    ** condition slots are now initialized once each, not multiple
+       times;  (thanks to Gerd Moellmann)
 
 planned incompatible changes in 0.8.x:
   * (not done yet, but planned:) When the profiling interface settles

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 5feeb73..46721e8 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -324,7 +324,7 @@
 ;;; ANSI-compliant, fixing it would also be good.:-)
 (defun compute-effective-slots (class)
   (collect ((res (copy-list (condition-classoid-slots class))))
-    (dolist (sclass (condition-classoid-cpl class))
+    (dolist (sclass (cdr (condition-classoid-cpl class)))
       (dolist (sslot (condition-classoid-slots sclass))
        (let ((found (find (condition-slot-name sslot) (res))))
          (cond (found

diff --git a/version.lisp-expr b/version.lisp-expr
index faff0e9..42321ff 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre8.65"
+"0.pre8.66"