1.0.23.26: AMOPly correct defaulting of direct superclasses

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

diff --git a/tests/mop.pure.lisp b/tests/mop.pure.lisp
index c443cef..cb60b25 100644 (file)
--- a/tests/mop.pure.lisp
+++ b/tests/mop.pure.lisp
@@ -79,3 +79,9 @@
           for class = (find-class class-name)
           for results = (test-class-slots class)
           when results do (cerror "continue" "~A" results))))
+
+;;; AMOP says these are the defaults
+(assert (equal (list (find-class 'standard-object))
+               (sb-mop:class-direct-superclasses (make-instance 'standard-class))))
+(assert (equal (list (find-class 'sb-mop:funcallable-standard-object))
+               (sb-mop:class-direct-superclasses (make-instance 'sb-mop:funcallable-standard-class))))