Handle :ALLOCATION of condition slots correctly
[sbcl.git] / src / code / condition.lisp
index a6ccb12..89ae144 100644 (file)
                      :initform-p ',initform-p
                      :documentation ',documentation
                      :initform ,(when initform-p
-                                  `#'(lambda () ,initform)))))))
+                                  `#'(lambda () ,initform))
+                     :allocation ',allocation)))))
 
       (dolist (option options)
         (unless (consp option)