[movitz-cvs] CVS update: movitz/special-operators-cl.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv23840

Modified Files:
	special-operators-cl.lisp 
Log Message:
*** empty log message ***
Date: Thu Dec  9 23:45:37 2004
Author: ffjeld

Index: movitz/special-operators-cl.lisp
diff -u movitz/special-operators-cl.lisp:1.38 movitz/special-operators-cl.lisp:1.39
--- movitz/special-operators-cl.lisp:1.38	Tue Nov 23 17:12:25 2004
+++ movitz/special-operators-cl.lisp	Thu Dec  9 23:45:36 2004
@@ -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.38 2004/11/23 16:12:25 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.39 2004/12/09 22:45:36 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -313,7 +313,7 @@
 				   `((:locally (:call (:edi ,(bt:slot-offset 'movitz-run-time-context
 									     'dynamic-variable-install))))
 				     (:locally (:movl :esp (:edi (:edi-offset dynamic-env))))))
-				 (if (not recompile-body-p)
+				 (if (or nil (not recompile-body-p))
 				     body-code
 				   (progn #+ignore (warn "recompile..") ; XXX
 					  (compile-body)))
@@ -659,7 +659,6 @@
 	 (lexical-catch-tag-variable (gensym "tagbody-lexical-catch-tag-"))
 	 (label-set-name (gensym "label-set-"))
 	 (tagbody-env (make-instance 'tagbody-env
-			:label-set-name label-set-name
 			:uplink env
 			:funobj funobj
 			:save-esp-variable save-esp-variable