[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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))