[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	defmacro-bootstrap.lisp 
Log Message:
Rename to defmacro/run-time and defmacro/compile-time


--- /project/movitz/cvsroot/movitz/losp/muerte/defmacro-bootstrap.lisp	2008/03/17 08:00:21	1.1
+++ /project/movitz/cvsroot/movitz/losp/muerte/defmacro-bootstrap.lisp	2008/04/12 16:23:28	1.2
@@ -7,14 +7,14 @@
 ;;;; Created at:    Wed Nov  8 18:44:57 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: defmacro-bootstrap.lisp,v 1.1 2008/03/17 08:00:21 ffjeld Exp $
+;;;; $Id: defmacro-bootstrap.lisp,v 1.2 2008/04/12 16:23:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
 (provide :muerte/defmacro-bootstrap)
 
-(muerte::defmacro-compile-time muerte.cl:defmacro (name lambda-list &body macro-body)
-  (`(muerte::defmacro-compile-time ,name ,lambda-list ,macro-body)))
+(muerte::defmacro/compile-time muerte.cl:defmacro (name lambda-list &body macro-body)
+  (`(muerte::defmacro/compile-time ,name ,lambda-list ,macro-body)))
 
 (muerte.cl:defmacro muerte.cl:in-package (name)
   `(progn
@@ -25,13 +25,13 @@
 
 (defmacro defmacro/cross-compilation (name lambda-list &body body)
   `(progn
-     (defmacro-compile-time ,name ,lambda-list ,body)
+     (defmacro/compile-time ,name ,lambda-list ,body)
      ',name))
 
 (defmacro defmacro (name lambda-list &body body)
   `(defmacro/cross-compilation ,name ,lambda-list , at body))
 
-(defmacro defmacro/runtime (name lambda-list &body body)
+(defmacro defmacro/run-time (name lambda-list &body body)
   (multiple-value-bind (real-body declarations docstring)
       (movitz::parse-docstring-declarations-and-body body 'cl:declare)
     (let* ((block-name (compute-function-block-name name))