Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv7403
Modified Files: with-unique-names.lisp Log Message: Replaced (string prefix) with (format nil "~A" prefix), which is more general. I can't see why anybody would want to take advantage of this, but I can't see any reason *not* to let them either.
Date: Fri May 13 23:18:23 2005 Author: pscott
Index: cl-utilities/with-unique-names.lisp diff -u cl-utilities/with-unique-names.lisp:1.1.1.1 cl-utilities/with-unique-names.lisp:1.2 --- cl-utilities/with-unique-names.lisp:1.1.1.1 Mon May 9 23:26:29 2005 +++ cl-utilities/with-unique-names.lisp Fri May 13 23:18:23 2005 @@ -10,7 +10,7 @@ (if (consp binding) binding (list binding binding)) - `(,var (gensym ,(string prefix))))) + `(,var (gensym ,(format nil "~A" prefix))))) bindings) ,@body))