compiler's type deriver.
392: slot-accessor for subclass misses obsoleted superclass
+ (fixed in sbcl-0.9.7.9)
- (defclass super ()
- ((x :initform 0 :accessor x-of)))
- (defclass sub (super) ())
+393: Wrong error from methodless generic function
+ (DEFGENERIC FOO (X))
+ (FOO 1 2)
+ gives NO-APPLICABLE-METHOD rather than an argument count error.
- (defmethod shared-initialize :after ((i super) slots &rest init)
- (incf (x-of i)))
-
- (defvar *super* (make-instance 'super))
- (defvar *sub* (make-instance 'sub))
-
- (x-of *super*) ; => 1 ...ok
- (x-of *sub*) ; => 1 ...ok
-
- (make-instances-obsolete 'super)
-
- (x-of *sub*) ; => 1 ...ooops!
- (x-of *super*) ; => 2 ...ok
- (x-of *sub*) ; => 2 ...got it now
-
- (make-instances-obsolete 'super)
-
- (x-of *sub*) ; => 2 ...ooops, i did it again...
- (slot-value *sub* 'x) ; => 3 ...ok but a bit late
+394: (SETF CLASS-NAME)/REINITIALIZE-INSTANCE bug
+ (found by PFD ansi-tests)
+ in sbcl-0.9.7.15, (SETF (CLASS-NAME <class>) 'NIL) causes
+ (FIND-CLASS NIL) to return a #<STANDARD-CLASS NIL>.