0.8.7.55:

        * Fix typo in FIX-NLE-BLOCK-STACKS: s/exit-var/exit-lvar/
          (thanks to sexp from #lisp).

diff --git a/src/compiler/stack.lisp b/src/compiler/stack.lisp
index 275cf22..02839bf 100644 (file)
--- a/src/compiler/stack.lisp
+++ b/src/compiler/stack.lisp
@@ -155,8 +155,8 @@
           (when (and exit-lvar
                      (eq exit-lvar (car start-stack)))
             (when *check-consistency*
-              (aver (not (memq exit-var entry-stack))))
-            (push exit-var entry-stack))
+              (aver (not (memq exit-lvar entry-stack))))
+            (push exit-lvar entry-stack))
           (when *check-consistency*
             (aver (subsetp start-stack entry-stack)))
           (setf (ir2-block-start-stack 2block) entry-stack)

diff --git a/version.lisp-expr b/version.lisp-expr
index 29e7c66..a3322d6 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".)
-"0.8.7.54"
+"0.8.7.55"