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

[Frode Vatvedt Fjeld]

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 at 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 ()))