X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop-23.impure.lisp;h=8080afe2b3467e77769a69a9a3b5bc2dfbd9c85c;hb=518493eab883e50237043153c0d45b245e929c7d;hp=45d4ac80d24a072798997094390bb97f2896a86e;hpb=665eea819b61f87f401ff0a9ff82f6cbdcc5c636;p=sbcl.git

diff --git a/tests/mop-23.impure.lisp b/tests/mop-23.impure.lisp
index 45d4ac8..8080afe 100644
--- a/tests/mop-23.impure.lisp
+++ b/tests/mop-23.impure.lisp
@@ -53,3 +53,12 @@
                    (assert (equal (foo (make-instance 'sub :a 4))
                                   '(4 nil))))
                  "Called a method!Called a method!"))
+
+(defclass super ()
+  ((b :initform 3)
+   (a :initarg :a)))
+
+(assert (string= (with-output-to-string (*trace-output*)
+                   (assert (equal (foo (make-instance 'sub :a 5))
+                                  '(5 t))))
+                 "Called a method!Called a method!"))