X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=macros.lisp;fp=macros.lisp;h=c448b92e2c5ed4817bdf644d42edd5b0762a210f;hp=bf47c63bb005f95e00fbe86f043e37aa296658c9;hb=f24004941eccdabb71485163d4bdf63ceea8dbf9;hpb=12026eac09e773e83887a6073d5a034979ce7043

diff --git a/macros.lisp b/macros.lisp
index bf47c63..c448b92 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -155,7 +155,7 @@
   `(/ (+ ,@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))