X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop-23.impure.lisp;h=8080afe2b3467e77769a69a9a3b5bc2dfbd9c85c;hb=31f68584d0732dc0d17f379773e5f87f1e5a78ad;hp=04d9cf56f29ef4ea9d20e0a4ad63ae5c8ddf9577;hpb=71922347ca66f2a3ad4c55092ccb3ad86a14c754;p=sbcl.git diff --git a/tests/mop-23.impure.lisp b/tests/mop-23.impure.lisp index 04d9cf5..8080afe 100644 --- a/tests/mop-23.impure.lisp +++ b/tests/mop-23.impure.lisp @@ -54,8 +54,8 @@ '(4 nil)))) "Called a method!Called a method!")) -(defclass super () - ((b :initform 3) +(defclass super () + ((b :initform 3) (a :initarg :a))) (assert (string= (with-output-to-string (*trace-output*)