Commit e21e48c0 authored by Alexey Dejneka's avatar Alexey Dejneka
Browse files

0.8.7.55: 

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

src/compiler/stack.lisp

+2 −2
Original line number Diff line number Diff line
@@ -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)

version.lisp-expr

+1 −1
Original line number Diff line number Diff line
@@ -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"