From: Juho Snellman Date: Sun, 3 Feb 2008 18:36:18 +0000 (+0000) Subject: 1.0.14.13: Rewrite non-standard LOOP syntax X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9669ea3219874406e66f3dca4554325d5e5b6318;p=sbcl.git 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 --- 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 --- 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"