[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	compiler.lisp 
Log Message:
Rearranged movitz-macro-expander-make-function slightly, so it will
generate gensym names (for compile) based on name and type.

Date: Mon Feb  2 09:53:38 2004
Author: ffjeld

Index: movitz/compiler.lisp
diff -u movitz/compiler.lisp:1.6 movitz/compiler.lisp:1.7
--- movitz/compiler.lisp:1.6	Mon Feb  2 08:05:25 2004
+++ movitz/compiler.lisp	Mon Feb  2 09:53:38 2004
@@ -8,7 +8,7 @@
 ;;;; Created at:    Wed Oct 25 12:30:49 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: compiler.lisp,v 1.6 2004/02/02 13:05:25 ffjeld Exp $
+;;;; $Id: compiler.lisp,v 1.7 2004/02/02 14:53:38 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -132,14 +132,11 @@
       (write (movitz-funobj-name object) :stream stream)))
   object)
 
-(defun movitz-macro-expander-make-function (lambda-form
-				       &key (name (gensym "macro-expander-"))
-					    (type :unknown))
+(defun movitz-macro-expander-make-function (lambda-form &key name (type :unknown))
   "Make a lambda-form that is a macro-expander into a proper function."
-  (declare (ignore type))
-  (check-type name symbol)
   (if *compiler-compile-macro-expanders*
-      (compile name lambda-form)
+      (compile (gensym (format nil "~A-expander-~@[~A-~]" type name))
+	       lambda-form)
     (coerce lambda-form 'function)))
 
 (defun make-compiled-funobj (&rest args)