From: Christophe R. <cr...@us...> - 2003-03-31 15:21:32
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1:/tmp/cvs-serv14610/tests Modified Files: mop.impure.lisp Log Message: 0.pre8.21: Merge patch from Gerd Moellmann (sbcl-devel 2003-03-29) to make FIND-CLASS (SB-PCL:FIND-CLASS as was) available earlier in the MOP methods (requested by KMR sbcl-devel 2003-03-28) ... (SETF FIND-CLASS) in UPDATE-CLASS. Index: mop.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/mop.impure.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- mop.impure.lisp 31 Mar 2003 12:19:28 -0000 1.10 +++ mop.impure.lisp 31 Mar 2003 15:20:52 -0000 1.11 @@ -134,5 +134,17 @@ (assert (null *e-c-u-c-arg-order*)) (defclass e-c-u-c-arg-order () ()) (assert (eq *e-c-u-c-arg-order* t)) + +;;; verify that FIND-CLASS works after FINALIZE-INHERITANCE +(defclass automethod-class (standard-class) ()) +(defmethod validate-superclass ((c1 automethod-class) (c2 standard-class)) + t) +(defmethod finalize-inheritance :after ((x automethod-class)) + (format t "~&~S ~S~%" x (find-class (class-name x)))) +(defclass automethod-object () () + (:metaclass automethod-class)) +(defvar *automethod-object* (make-instance 'automethod-object)) +(assert (typep *automethod-object* 'automethod-object)) + ;;;; success (sb-ext:quit :unix-status 104) |