X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=8c19059ac421f7dbcdaaf5d7469c2806b630720c;hb=444d2072bc52e60a41af62ee22e343e76109212f;hp=ae934684ebe9fd914bc30ab96e78dcbce114a9ff;hpb=88e9e177e7ca72d660a3335d63895a1e0f71a5f8;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index ae93468..8c19059 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -529,8 +529,8 @@
                      :initform-p ',initform-p
                      :documentation ',documentation
                      :initform
-                     ,(if (constantp initform)
-                          `',(eval initform)
+                     ,(if (sb!xc:constantp initform)
+                          `',(constant-form-value initform)
                           `#'(lambda () ,initform)))))))
 
       (dolist (option options)
@@ -553,8 +553,8 @@
              (let ((val (second initargs)))
                (setq default-initargs
                      (list* `',(first initargs)
-                            (if (constantp val)
-                                `',(eval val)
+                            (if (sb!xc:constantp val)
+                                `',(constant-form-value val)
                                 `#'(lambda () ,val))
                             default-initargs)))))
           (t