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)