X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fstack.lisp;h=02839bf983c167fe144a95c822e98936f7d4402d;hb=93b89755004549ed5f20d1938fd6e54ee20650b2;hp=275cf2240041edf71d2bef49140db0231ca2d332;hpb=64ec717cf13c44fb4571c1fd7fbd508551ecfe01;p=sbcl.git

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)