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