[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv32527

Modified Files:
	special-operators-cl.lisp 
Log Message:
Fix a compiler bug wrt. compiling lexical jumps across dynamic bindings.


--- /project/movitz/cvsroot/movitz/special-operators-cl.lisp	2007/02/20 20:33:30	1.50
+++ /project/movitz/cvsroot/movitz/special-operators-cl.lisp	2007/03/19 21:09:26	1.51
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 24 16:31:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: special-operators-cl.lisp,v 1.50 2007/02/20 20:33:30 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.51 2007/03/19 21:09:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -78,7 +78,7 @@
 					`((:locally (:pushl (:edi (:edi-offset dynamic-env)))))
 				      `((:pushl :esp)))
 				    (compiler-call #'compile-form ; binding value
-				      :with-stack-used (incf stack-used)
+                                     :with-stack-used (incf stack-used)
 				      :env init-env
 				      :defaults all
 				      :form init-form
@@ -136,8 +136,7 @@
 				     (:multiple-values :eax)
 				     (t init-register))
 				   final-form))))))
-	  (setf (stack-used local-env)
-	    (stack-used init-env))
+	  (setf (stack-used local-env) stack-used)
 	  (flet ((compile-body ()
 		   (if (= 0 (num-specials local-env))
 		       (compiler-call #'compile-implicit-progn