X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=852199e4a7816e722ea00441dd5a46ac85d36ad0;hb=f7faed97898dd0e94a18b0d1fca03aaa0fe24ab0;hp=69bc2959197ca7ea5446a233580923e72f9324b4;hpb=8f31e3b32926c61b13240c447637d4bb9af10cdc;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 69bc295..852199e 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -676,7 +676,9 @@
                                                    (where-from :defined)))
                       (:include leaf))
   ;; the value of the constant
-  (value (missing-arg) :type t))
+  (value (missing-arg) :type t)
+  ;; Boxed TN for this constant, if any.
+  (boxed-tn nil :type (or null tn)))
 (defprinter (constant :identity t)
   value)