[Sbcl-commits] CVS: sbcl BUGS,1.427,1.428 NEWS,1.664,1.665 version.lisp-expr,1.1905,1.1906

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16270

Modified Files:
	BUGS NEWS version.lisp-expr 
Log Message:
0.8.16.43: Fixes for various CLOS/MOP bugs
            * Correct canonization of DEFCLASS slot options (also move
               checking to macroexpansion time of DEFCLASS, and do
               some trivial reorganization of the defclass.lisp to
               make the diff bigger then it really is.) (reported
               by Bruno Haible)
            * (SETF FIND-CLASS) with new-value that is a
               FORWARD-REFERENCED-CLASS. (reported by Bruno Haible)
            * CLASS-PROTOTYPE signals an error if the class is not yet
               finalized; also clean up some of the class-prototype
               machinery a bit. (reported by Bruno Haible)
            * ALLOCATE-INSTANCE for BUILT-IN-CLASS now a) exists b)
               signals an error.
            * Add tests & record an as-of-yet-unfixed bug.


Index: BUGS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/BUGS,v
retrieving revision 1.427
retrieving revision 1.428
diff -u -d -r1.427 -r1.428
--- BUGS	16 Nov 2004 18:47:46 -0000	1.427
+++ BUGS	19 Nov 2004 15:13:51 -0000	1.428
@@ -1579,5 +1579,15 @@
   pprinter and only truncated at output?  (So that indenting by 1/2
   then 3/2 would indent by two spaces, not one?)
 
-351: suboptimal error handling/reporting when compiling (PUSH (LET ...)) 
-  (fixed in 0.8.16.37)
+352: forward-referenced-class trouble
+ reported by Bruno Haible on sbcl-devel
+   (defclass c (a) ())
+   (setf (class-name (find-class 'a)) 'b)
+   (defclass a () (x))
+   (defclass b () (y))
+   (make-instance 'c)
+ Expected: an instance of c, with a slot named x
+ Got: debugger invoked on a SIMPLE-ERROR in thread 78906:
+        While computing the class precedence list of the class named C.
+        The class named B is a forward referenced class.
+        The class named B is a direct superclass of the class named C.

Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.664
retrieving revision 1.665
diff -u -d -r1.664 -r1.665
--- NEWS	17 Nov 2004 14:24:41 -0000	1.664
+++ NEWS	19 Nov 2004 15:13:52 -0000	1.665
@@ -25,6 +25,14 @@
     types.
   * fixed bug #308: non-graphic characters now all have names, as
     required.  (reported by Bruno Haible)
+  * bug fix: (SETF FIND-CLASS) using a FORWARD-REFERENCED-CLASS as the
+    new value now works. (reported by Bruno Haible)
+  * bug fix: correct canonicalization of multiple non-standard slot
+    options in DEFCLASS as per AMOP 5.4.2. (reported by Bruno Haible)
+  * bug fix: SB-MOP:CLASS-PROTOTYPE now signals an error if the class
+    is not yet finalized, as required by AMOP. (reported by Bruno Haible)
+  * bug fix: SB-MOP:ALLOCATE-INSTANCE method for instances of BUILT-IN-CLASS
+    now exists, an signals an error.
   * bug fix: duplicate LOOP variable bindings now signal PROGRAM-ERROR
     during macroexpansion for non-iteration variables as well. (reported 
     by Bruno Haible for CMUCL)

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.1905
retrieving revision 1.1906
diff -u -d -r1.1905 -r1.1906
--- version.lisp-expr	17 Nov 2004 14:24:52 -0000	1.1905
+++ version.lisp-expr	19 Nov 2004 15:13:52 -0000	1.1906
@@ -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.8.16.42"
+"0.8.16.43"