X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fxref.lisp;h=53dbaafc197577c03efbaf091c3cd7e1872b3ef3;hb=9b1fade83db8453b75b8c7380eb12ce41b5b889c;hp=48d2a5497511bf89e134562b528f66b87bf4d90a;hpb=65dc8d30b1f8389faa549af10e72b9e677bec5d3;p=sbcl.git

diff --git a/src/compiler/xref.lisp b/src/compiler/xref.lisp
index 48d2a54..53dbaaf 100644
--- a/src/compiler/xref.lisp
+++ b/src/compiler/xref.lisp
@@ -25,10 +25,9 @@
                ;; Note that this code can get executed several times
                ;; for the same block, if the functional is referenced
                ;; from multiple XEPs.
-               (loop for ctran = start then (node-next node)
+               (loop for ctran = start then (node-next (ctran-next ctran))
                      while ctran
-                     for node = (ctran-next ctran)
-                     do (record-node-xrefs node functional))
+                     do (record-node-xrefs (ctran-next ctran) functional))
                ;; Properly record the deferred macroexpansion information
                ;; that's been stored in the block.
                (dolist (xref-data (block-macroexpands block))