X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=41964ad7358435dd30de5ebbe82e364605a0ec5d;hb=5745b5a5b2e3b967bf3876b4306f31b3c78495fa;hp=8253e8e74222bfc432c70d1281305fe1b0b38880;hpb=30e65b004ace56e530469a364c35a6f5f5d686eb;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 8253e8e..41964ad 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -248,8 +248,9 @@
   (flag nil)
   ;; some kind of info used by the back end
   (info nil)
-  ;; what macroexpansions happened "in" this block, used for xref
-  (macroexpands nil :type list)
+  ;; what macroexpansions and source transforms happened "in" this block, used
+  ;; for xref
+  (xrefs nil :type list)
   ;; Cache the physenv of a block during lifetime analysis. :NONE if
   ;; no cached value has been stored yet.
   (physenv-cache :none :type (or null physenv (member :none))))