X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=76a8c438983c1406f00fe52c9d765866f49b2278;hb=d76c81b0ca4dcfc99f0cd805f5c20493fa80b2b6;hp=b09d1f0c91b5cee4187ac6ded3de1d9306cd9a7c;hpb=148e3820ad314a9b59d0133c1d60eaac4af9118b;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index b09d1f0..76a8c43 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -414,8 +414,7 @@ GET-SETF-EXPANSION directly."
   (unless (symbolp access-fn)
     (error "DEFINE-SETF-EXPANDER access-function name ~S is not a symbol."
 	   access-fn))
-  (let ((whole (gensym "WHOLE-"))
-	(environment (gensym "ENV-")))
+  (with-unique-names (whole environment)
     (multiple-value-bind (body local-decs doc)
 	(parse-defmacro lambda-list whole body access-fn
 			'sb!xc:define-setf-expander