X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefmacro.lisp;h=c80dcba8a095638965322cdc6742c8ada99e01c2;hb=670010e3f3dcd62efaf23f61abdc73950edb88c6;hp=ac2702f9868b7b22f09f2bf96faeb48a8ac12ab5;hpb=dc84ceb894fdbe315f82dd8336f3ba894435a669;p=sbcl.git

diff --git a/src/code/defmacro.lisp b/src/code/defmacro.lisp
index ac2702f..c80dcba 100644
--- a/src/code/defmacro.lisp
+++ b/src/code/defmacro.lisp
@@ -23,8 +23,7 @@
     (when (special-operator-p name)
       (error "The special operator ~S can't be redefined as a macro."
              name))
-    (let ((whole (gensym "WHOLE-"))
-	  (environment (gensym "ENV-")))
+    (with-unique-names (whole environment)
       (multiple-value-bind (new-body local-decs doc)
 	  (parse-defmacro lambda-list whole body name 'defmacro
 			  :environment environment)