Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv4911 Modified Files: basic-macros.lisp Log Message: Have find-class compiler-macro accept optional environment arg. --- /project/movitz/cvsroot/movitz/losp/muerte/basic-macros.lisp 2005/08/28 20:53:13 1.65 +++ /project/movitz/cvsroot/movitz/losp/muerte/basic-macros.lisp 2006/04/10 11:51:03 1.66 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.65 2005/08/28 20:53:13 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.66 2006/04/10 11:51:03 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -914,9 +914,9 @@ (error "Array backquote not implemented.")) (t (list 'quote form)))) -(define-compiler-macro find-class (&whole form &environment env symbol &optional (errorp t)) - (declare (ignore errorp)) - (if (not (movitz:movitz-constantp symbol env)) +(define-compiler-macro find-class (&whole form &environment env symbol &optional (errorp t) (environment nil envp)) + (declare (ignore errorp environment)) + (if (or envp (not (movitz:movitz-constantp symbol env))) form (let* ((type (movitz:movitz-eval symbol env)) (movitz-type (movitz-program type))