X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=8253e8e74222bfc432c70d1281305fe1b0b38880;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=2d9d4057e09a8d5421a1f111b20dc30de19debcd;hpb=f181ad9ffeeadf341b6a16c3591eadf0c1e3fa61;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 2d9d405..8253e8e 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -871,8 +871,9 @@
   ;; xref information for this functional (only used for functions with an
   ;; XEP)
   (xref () :type list)
-  ;; True if this functional was created from an inline expansion
-  (inline-expanded nil :type boolean))
+  ;; True if this functional was created from an inline expansion. This
+  ;; is either T, or the GLOBAL-VAR for which it is an expansion.
+  (inline-expanded nil))
 (defprinter (functional :identity t)
   %source-name
   %debug-name