Merge branch 'master' of ssh://git.b9.com/home/gitpub/kmrcl

[kmrcl.git] / macros.lisp

diff --git a/macros.lisp b/macros.lisp
index bf47c63bb005f95e00fbe86f043e37aa296658c9..c448b92e2c5ed4817bdf644d42edd5b0762a210f 100644 (file)
--- a/macros.lisp
+++ b/macros.lisp
@@ -155,7 +155,7 @@
   `(/ (+ ,@args) ,(length args)))
 
 (defmacro with-gensyms (syms &body body)
   `(/ (+ ,@args) ,(length args)))
 
 (defmacro with-gensyms (syms &body body)

-  `(let ,(mapcar #'(lambda (s) `(,s (gensym)))
+  `(let ,(mapcar #'(lambda (s) `(,s (gensym ,(format nil "~A-" s))))

           syms)
      ,@body))
 
           syms)
      ,@body))