X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=a248cdb9c69b1bbbd681a76dc0da6b7a50a7c095;hb=3eae72c237cbf119bfc4e8e6e9dd213d45eb6eed;hp=2c1f50e42513420dd9254fc0e04bcd572cdff860;hpb=386781eeedff86ae01bb53fae7e253a03e2cb19c;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 2c1f50e..a248cdb 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -1753,5 +1753,16 @@
                                 (sb-int:reference-condition-references c)
                                 :test #'equal)
                     :ok))))))
+
+(defclass remove-default-initargs-test ()
+  ((x :initarg :x :initform 42)))
+(defclass remove-default-initatgs-test ()
+  ((x :initarg :x :initform 42))
+  (:default-initargs :x 0))
+(defclass remove-default-initargs-test ()
+  ((x :initarg :x :initform 42)))
+(with-test (:name :remove-default-initargs)
+  (assert (= 42 (slot-value (make-instance 'remove-default-initargs-test)
+                            'x))))
 
 ;;;; success