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

diff --git a/src/compiler/stack.lisp b/src/compiler/stack.lisp
index 275cf22..65b51e6 100644
--- a/src/compiler/stack.lisp
+++ b/src/compiler/stack.lisp
@@ -65,6 +65,7 @@
          (new-end end)
          (cleanup (block-end-cleanup block))
          (found-similar-p nil))
+    (declare (ignore #-nil cleanup))
     (dolist (succ (block-succ block))
       #+nil
       (when (and (< block succ)
@@ -155,8 +156,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)