[movitz-cvs] CVS update: movitz/special-operators.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv25165

Modified Files:
	special-operators.lisp 
Log Message:
Added special operator compiler-macro-call, that really does nothing
except ensure that the operator is in fact a compiler-macro.

Date: Sat Jul 17 05:17:35 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.29 movitz/special-operators.lisp:1.30
--- movitz/special-operators.lisp:1.29	Fri Jul 16 18:49:23 2004
+++ movitz/special-operators.lisp	Sat Jul 17 05:17:35 2004
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.29 2004/07/17 01:49:23 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.30 2004/07/17 12:17:35 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1051,6 +1051,15 @@
   (destructuring-bind (operator &rest arguments)
       (cdr form)
     (compiler-call #'compile-apply-symbol
+      :forward all
+      :form (cons operator arguments))))
+
+(define-special-operator muerte::compiler-macro-call (&all all &form form &env env)
+  (destructuring-bind (operator &rest arguments)
+      (cdr form)
+    (assert (movitz-compiler-macro-function operator env) ()
+      "There is no compiler-macro ~S." operator)
+    (compiler-call #'compile-compiler-macro-form
       :forward all
       :form (cons operator arguments))))