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-serv10243/tests
Allow specializer objects as specializers in DEFMETHOD
... be a little bit more defensive when generating declarations
for the method function.
... peer suspiciously at the special case for SLOT-OBJECT, but
leave it alone for now.
RCS file: /cvsroot/sbcl/sbcl/tests/mop.impure.lisp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- mop.impure.lisp 17 Jul 2006 12:28:14 -0000 1.32
+++ mop.impure.lisp 19 Jul 2006 11:13:02 -0000 1.33
@@ -486,4 +486,18 @@
(defclass foo () ())
(reinitialize-instance (find-class 'foo) :name '(a b))
+;;; classes (including anonymous ones) and eql-specializers should be
+;;; allowed to be specializers.
+ (make-instance 'standard-class
+ :direct-superclasses (list (find-class 'standard-object))))
+ (make-instance *anonymous-class*))
+(eval `(defmethod method-on-anonymous-class ((obj ,*anonymous-class*)) 41))
+(assert (eql (method-on-anonymous-class *object-of-anonymous-class*) 41))
+(eval `(defmethod method-on-anonymous-class
+ ((obj ,(intern-eql-specializer *object-of-anonymous-class*)))
+(assert (eql (method-on-anonymous-class *object-of-anonymous-class*) 42))
Sign up for the SourceForge newsletter: