Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv28372/tests
Fix bug in SB-PCL::COMPUTE-CLASS-SLOTS, exposed by CHANGE-CLASS.
... test case
... this bug fix means that we no longer have to walk the
inherits vector looking for class slots from
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -d -r1.80 -r1.81
--- clos.impure.lisp 7 Jun 2006 19:08:31 -0000 1.80
+++ clos.impure.lisp 13 Jul 2006 10:03:38 -0000 1.81
@@ -1290,6 +1290,15 @@
(defmethod class-as-specializer-test2 ((x ,(find-class 'class-as-specializer-test)))
(assert (eq 'bar (class-as-specializer-test2 (make-instance 'class-as-specializer-test))))
+;;; CHANGE-CLASS and tricky allocation.
+(defclass foo ()
+ ((a :allocation :class :initform 1)))
+(defclass bar (foo) ())
+(defvar *bar* (make-instance 'bar))
+(defclass baz ()
+ ((a :allocation :instance :initform 2)))
+(change-class *bar* 'baz)
+(assert (= (slot-value *bar* 'a) 1))
Sign up for the SourceForge newsletter: