projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.8.4:
[sbcl.git]
/
src
/
compiler
/
stack.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*
(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)
(when *check-consistency*
(aver (subsetp start-stack entry-stack)))
(setf (ir2-block-start-stack 2block) entry-stack)