X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.impure.lisp;h=f4c181d83048af5d5dc2f90a43c9748935b958e8;hb=e1905b479292158bd2bacdebb81e27b4da041097;hp=765d222a6b407f3a10e4743eb0ceedf93c52ad5f;hpb=09702467ab16baab34dc209606d9d07af38eaedd;p=sbcl.git diff --git a/tests/mop.impure.lisp b/tests/mop.impure.lisp index 765d222..f4c181d 100644 --- a/tests/mop.impure.lisp +++ b/tests/mop.impure.lisp @@ -515,7 +515,7 @@ ;;; ensure-class got its treatment of :metaclass wrong. (ensure-class 'better-be-standard-class :direct-superclasses '(standard-object) - :metaclass 'standard-class + :metaclass 'standard-class :metaclass 'funcallable-standard-class) (assert (eq (class-of (find-class 'better-be-standard-class)) (find-class 'standard-class)))