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