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