0.9.4.57:

[sbcl.git] / tests / mop.pure.lisp

diff --git a/tests/mop.pure.lisp b/tests/mop.pure.lisp
index 5cb1167..f7a5e33 100644 (file)
--- 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)))