[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv29923

Modified Files:
	more-macros.lisp 
Log Message:
Have the silly load implementation be a macro rather than
compiler-macro, since there's no function to back it up.


--- /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp	2006/04/28 21:18:48	1.31
+++ /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp	2006/04/28 23:21:32	1.32
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Jun  7 15:05:57 2002
 ;;;;                
-;;;; $Id: more-macros.lisp,v 1.31 2006/04/28 21:18:48 ffjeld Exp $
+;;;; $Id: more-macros.lisp,v 1.32 2006/04/28 23:21:32 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -431,7 +431,7 @@
 (define-unimplemented-macro with-open-file)
 (define-unimplemented-macro restart-case)
 
-(define-compiler-macro load (filespec &key verbose print if-does-not-exist external-format)
+(defmacro load (filespec &key verbose print if-does-not-exist external-format)
   "hm..."
   (assert (movitz:movitz-constantp filespec) (filespec)
     "Can't load a non-constant filename: ~S" filespec)