X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=macros.lisp;h=c448b92e2c5ed4817bdf644d42edd5b0762a210f;hb=10d5d074eb995ba586abbde88460480379fa2b16;hp=bf47c63bb005f95e00fbe86f043e37aa296658c9;hpb=baa9f58d849dfeee2fa14c5889d42a626c88699e;p=kmrcl.git

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