Fix make-array transforms.

[sbcl.git] / tests / mop-23.impure.lisp

diff --git a/tests/mop-23.impure.lisp b/tests/mop-23.impure.lisp
index 45d4ac8..8080afe 100644 (file)
--- 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!"))