X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=174e3289be1662203ddb0b263fbe2af68cd6d28f;hb=ed891a4fd882d1b9fe066ab14bcf2107aea95baa;hp=9dbd83f6d1d9f69cea88adcb182c49e5c3bbc576;hpb=4ec46046e59ce00abe3e53bce16fdfb2c4c57362;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 9dbd83f..174e328 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -1607,5 +1607,17 @@
             (declare (bug-402-d x))
             x))))
 
+;;;; non-keyword :default-initargs + :before method on shared initialize
+;;;; interacted badly with CTOR optimizations
+(defclass ctor-default-initarg-problem ()
+  ((slot :initarg slotto))
+  (:default-initargs slotto 123))
+(defmethod shared-initialize :before ((instance ctor-default-initarg-problem) slot-names &rest initargs)
+  (format t "~&Rock on: ~A~%" initargs))
+(defun provoke-ctor-default-initarg-problem ()
+  (make-instance 'ctor-default-initarg-problem))
+(handler-bind ((warning #'error))
+  (assert (= 123 (slot-value (provoke-ctor-default-initarg-problem) 'slot))))
+
 
 ;;;; success