- (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>.