From e21e48c03214e0d0fffba7306e3cbf20e5422279 Mon Sep 17 00:00:00 2001 From: Alexey Dejneka Date: Wed, 18 Feb 2004 03:04:09 +0000 Subject: [PATCH] 0.8.7.55: * Fix typo in FIX-NLE-BLOCK-STACKS: s/exit-var/exit-lvar/ (thanks to sexp from #lisp). --- src/compiler/stack.lisp | 4 ++-- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/compiler/stack.lisp b/src/compiler/stack.lisp index 275cf22..02839bf 100644 --- 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 --- 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" -- 1.7.10.4