1.0.14.13: Rewrite non-standard LOOP syntax

        * Using XCL as the host compiler did not work due to a FOR/WHILE/FOR
          sequence (which is not defined in the spec, though supported by
          most implementations). Reported by Peter Graves.

diff --git a/src/compiler/xref.lisp b/src/compiler/xref.lisp
index 48d2a54..53dbaaf 100644 (file)
--- 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))

diff --git a/version.lisp-expr b/version.lisp-expr
index 58cf8a0..d3b6f95 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.14.12"
+"1.0.14.13"