X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=caca67a0ea60f4ba4a911df171c87200d10e9f8d;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=a6ccb128a8b241dfcf54b80f802a3c5878a92bb3;hpb=9c0c32bf94b510ea0f7bed34a91d0ddf3ea909fc;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index a6ccb12..caca67a 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -446,8 +446,6 @@
                        (dolist (initarg (condition-slot-initargs slot) nil)
                          (when (functionp (third (assoc initarg e-def-initargs)))
                            (return t))))
-               ;; TODO temp
-               (assert (not (member slot (condition-classoid-hairy-slots class))))
                (push slot (condition-classoid-hairy-slots class)))))))
       (when (boundp '*define-condition-hooks*)
         (dolist (fun *define-condition-hooks*)
@@ -535,7 +533,8 @@
                      :initform-p ',initform-p
                      :documentation ',documentation
                      :initform ,(when initform-p
-                                  `#'(lambda () ,initform)))))))
+                                  `#'(lambda () ,initform))
+                     :allocation ',allocation)))))
 
       (dolist (option options)
         (unless (consp option)