X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.pure.lisp;h=cb60b2545f17578ae8128f5cea1c6c4f3788cd45;hb=6d36f2d6954cb79e3c88fef33fe0c3ad63deaea8;hp=c443ceffcefee5345ea1879bdfba28b396686a9b;hpb=99df968112602d07a4b91492ab45367df27ee8ac;p=sbcl.git

diff --git a/tests/mop.pure.lisp b/tests/mop.pure.lisp
index c443cef..cb60b25 100644
--- 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))))