X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.pure.lisp;h=f7a5e33e97d36000c37ed4161a971ef21be5b6f1;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=22fe7ccaec17cd9ee39b8f1cd378bafbd844368e;hpb=0aecc2b20142e08068c3434273500131cb13fe2d;p=sbcl.git

diff --git a/tests/mop.pure.lisp b/tests/mop.pure.lisp
index 22fe7cc..f7a5e33 100644
--- a/tests/mop.pure.lisp
+++ b/tests/mop.pure.lisp
@@ -21,5 +21,12 @@
               (sb-mop:class-direct-subclasses (find-class 'standard-object))))
 
 (assert (find (find-class 'standard-object)
-              (sb-mop:class-direct-superclasses 
+              (sb-mop:class-direct-superclasses
                (find-class 'sb-mop:funcallable-standard-object))))
+
+(dolist (name '(sb-mop:generic-function
+                sb-mop:method sb-mop:method-combination
+                sb-mop:slot-definition sb-mop:specializer))
+  (assert (find (find-class 'sb-mop:metaobject)
+                (sb-mop:class-direct-superclasses (find-class name))))
+  (assert (subtypep name 'sb-mop:metaobject)))