X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcondition.impure.lisp;h=7eab70ac401e3083a04691de89cb9731f9d7e547;hb=db0110475c0db5dc3cb1bb12de0b0c475880899e;hp=2b6303bea3758b1fe92874cfa9ea8c5b52b0bc74;hpb=9c0c32bf94b510ea0f7bed34a91d0ddf3ea909fc;p=sbcl.git

diff --git a/tests/condition.impure.lisp b/tests/condition.impure.lisp
index 2b6303b..7eab70a 100644
--- a/tests/condition.impure.lisp
+++ b/tests/condition.impure.lisp
@@ -256,3 +256,17 @@
     (test :compile+make-instance
       (make-instance
        'condition-with-non-constant-default-initarg))))
+
+;;; bug-1049404
+
+(define-condition condition-with-class-allocation ()
+  ((count :accessor condition-with-class-allocation-count
+          :initform 0
+          :allocation :class)))
+
+(with-test (:name (:condition-with-class-allocation :bug-1049404))
+  (loop repeat 5 do
+           (incf (condition-with-class-allocation-count
+                  (make-condition 'condition-with-class-allocation))))
+  (assert (= 5 (condition-with-class-allocation-count
+                (make-condition 'condition-with-class-allocation)))))