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

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))