From: Nikodemus S. <de...@us...> - 2005-05-29 10:37:30
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21396/tests Modified Files: mop.impure.lisp Log Message: 0.9.1.4: ENSURE-CLASS-USING-CLASS patch by Gerd Moellman, from cmucl-imp * accept a class as :METACLASS as per AMOP. Index: mop.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/mop.impure.lisp,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- mop.impure.lisp 1 Dec 2004 15:58:21 -0000 1.22 +++ mop.impure.lisp 29 May 2005 10:37:21 -0000 1.23 @@ -396,7 +396,15 @@ (:metaclass option-class)))) (assert (not result)) (assert error)) - + +;;; class as :metaclass +(assert (typep + (sb-mop:ensure-class-using-class + nil 'class-as-metaclass-test + :metaclass (find-class 'standard-class) + :name 'class-as-metaclass-test + :direct-superclasses (list (find-class 'standard-object))) + 'class)) ;;;; success (sb-ext:quit :unix-status 104) |