[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	more-macros.lisp 
Log Message:
Added trivial locally macro. Also a mock-up load compiler-macro.


--- /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp	2005/08/26 19:39:26	1.29
+++ /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp	2006/04/10 11:54:52	1.30
@@ -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.29 2005/08/26 19:39:26 ffjeld Exp $
+;;;; $Id: more-macros.lisp,v 1.30 2006/04/10 11:54:52 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -431,3 +431,12 @@
 (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)
+  "hm..."
+  (assert (movitz:movitz-constantp filespec) (filespec)
+    "Can't load a non-constant filename: ~S" filespec)
+  (warn "load-compile: ~S" filespec)
+  `(funcall ',(movitz:movitz-compile-file (format nil "losp/ansi-tests/~A" filespec))))
+
+(defmacro locally (&body body)
+  `(let () , at body))