[cl-utilities-cvs] CVS update: cl-utilities/with-unique-names.lisp

[Peter Scott]

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)
     , at body))