X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.impure.lisp;h=a248cdb9c69b1bbbd681a76dc0da6b7a50a7c095;hb=f2db6743b1fadeea9e72cb583d857851c87efcd4;hp=4b0f1db2a23554fa3749f31974f3e96472048dfe;hpb=091c101153942c9452a05ce0ec72f31a22608d9f;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 4b0f1db..a248cdb 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -1743,5 +1743,26 @@
   (assert (eq :defined-method
               (sb-int:info :function
                            :where-from 'i-dont-want-to-be-clobbered-2))))
+
+(with-test (:name :bogus-parameter-specializer-name-error)
+  (assert (eq :ok
+              (handler-case
+                  (eval `(defmethod #:fii ((x "a string")) 'string))
+                (sb-int:reference-condition (c)
+                  (when (member '(:ansi-cl :macro defmethod)
+                                (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