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

Modified Files: special-operators-cl.lisp Log Message: Added usage of with-host-environment.

Date: Fri Feb 13 17:08:33 2004 Author: ffjeld

Index: movitz/special-operators-cl.lisp diff -u movitz/special-operators-cl.lisp:1.9 movitz/special-operators-cl.lisp:1.10 --- movitz/special-operators-cl.lisp:1.9 Thu Feb 12 16:57:12 2004 +++ movitz/special-operators-cl.lisp Fri Feb 13 17:08:33 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.9 2004/02/12 21:57:12 ffjeld Exp $ +;;;; $Id: special-operators-cl.lisp,v 1.10 2004/02/13 22:08:33 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -839,7 +839,6 @@ (destructuring-bind (situations &body body) (cdr form) (when (member :compile-toplevel situations) -;;; (warn "EVAL-WHEN from ~S" body) ;;; (warn "EVAL-WHEN: ~S" `(progn ,@(movitz::translate-program body :muerte.cl :cl ;;; :when :eval ;;; :remove-double-quotes-p t))) @@ -847,9 +846,10 @@ (dolist (toplevel-form (translate-program body :muerte.cl :cl :when :eval :remove-double-quotes-p t)) - (if *compiler-compile-eval-whens* - (funcall (compile () `(lambda () ,toplevel-form))) - (eval toplevel-form))))) + (with-host-environment () + (if *compiler-compile-eval-whens* + (funcall (compile () `(lambda () ,toplevel-form))) + (eval toplevel-form)))))) (if (or (member :execute situations) (and (member :load-toplevel situations) top-level-p))