X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=BUGS;h=7bbd84c02f1fc181458a205e7ccde7783ecadef1;hb=0f807aea814ad6eddea7824675da1ed2ff9cba86;hp=ab0e74b5cc819f460a74afd2554dfd2d33fad275;hpb=0294a70162840bfdcc76dfde58e379f4295d7c13;p=sbcl.git

diff --git a/BUGS b/BUGS
index ab0e74b..7bbd84c 100644
--- a/BUGS
+++ b/BUGS
@@ -2092,27 +2092,14 @@ WORKAROUND:
   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>.