From: Alexey D. <ade...@us...> - 2004-02-18 03:13:24
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28948/src/compiler Modified Files: stack.lisp Log Message: 0.8.7.55: * Fix typo in FIX-NLE-BLOCK-STACKS: s/exit-var/exit-lvar/ (thanks to sexp from #lisp). Index: stack.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/stack.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- stack.lisp 14 Jan 2004 04:42:53 -0000 1.10 +++ stack.lisp 18 Feb 2004 03:04:10 -0000 1.11 @@ -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) |