X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=6d1d03c21f04eccbdc3350d789216728ef0c8533;hb=844ecf93b004399bf575e700d8b2865edd517c08;hp=84bfea7f25b3b33eee7be2a52a564de46e168c8d;hpb=a7a4ca961ef0f587a2549bd9433eef7ddb845ab7;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 84bfea7..6d1d03c 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -706,12 +706,14 @@ Examples:
 (defun clear-constant-info ()
   (maphash (lambda (k v)
              (declare (ignore k))
-             (setf (leaf-info v) nil))
+             (setf (leaf-info v) nil)
+             (setf (constant-boxed-tn v) nil))
            *constants*)
   (maphash (lambda (k v)
              (declare (ignore k))
              (when (constant-p v)
-               (setf (leaf-info v) nil)))
+               (setf (leaf-info v) nil)
+               (setf (constant-boxed-tn v) nil)))
            *free-vars*)
   (values))