Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv3520
Modified Files: special-operators.lisp Log Message: Altered a call to movitz-macro-expander-make-function in accordance with new naming scheme.
Date: Mon Feb 2 09:54:29 2004 Author: ffjeld
Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.3 movitz/special-operators.lisp:1.4 --- movitz/special-operators.lisp:1.3 Fri Jan 16 14:25:04 2004 +++ movitz/special-operators.lisp Mon Feb 2 09:54:29 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.3 2004/01/16 19:25:04 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.4 2004/02/02 14:54:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -442,7 +442,7 @@ (translate-program ,expansion-var :cl :muerte.cl))))))) (setf (movitz-compiler-macro-function operator-name nil) (movitz-macro-expander-make-function expander - :name (gensym (format nil "~A-compiler-macro-" name)) + :name name :type :compiler-macro)))))))) (compiler-values ()))