X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.pure.lisp;h=f7a5e33e97d36000c37ed4161a971ef21be5b6f1;hb=65e947c7a90df88e0691e664f3387ccb35d390d9;hp=5cb1167971707dc2c5366dc6e0a946526210a276;hpb=1a405defbd26ca767e71494b67127fcc00a8af12;p=sbcl.git

diff --git a/tests/mop.pure.lisp b/tests/mop.pure.lisp
index 5cb1167..f7a5e33 100644
--- a/tests/mop.pure.lisp
+++ b/tests/mop.pure.lisp
@@ -23,3 +23,10 @@
 (assert (find (find-class 'standard-object)
               (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)))