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

diff --git a/tests/mop.pure.lisp b/tests/mop.pure.lisp
index c443cef..b35f47d 100644
--- a/tests/mop.pure.lisp
+++ b/tests/mop.pure.lisp
@@ -79,3 +79,17 @@
           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))))
+
+(with-test (:name :bug-936513)
+  ;; This used to fail as ENSURE-GENERIC-FUNCTION wanted a list specifying
+  ;; the method combination, and didn't accept the actual object
+  (let ((mc (sb-pcl:find-method-combination #'make-instance 'standard nil)))
+    (ensure-generic-function 'make-instance :method-combination mc))
+  ;; Let's make sure the list works too...
+  (ensure-generic-function 'make-instance :method-combination '(standard)))