X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-defstruct.lisp;h=e9b5b607102bd4c2f669320a5aee58e97580c8fb;hb=670010e3f3dcd62efaf23f61abdc73950edb88c6;hp=71c9c68d038650e57c5a4ec149bbb39a03501aa7;hpb=98a76d4426660876dec6649b1e228d2e5b47f579;p=sbcl.git

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 71c9c68..e9b5b60 100644
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -535,7 +535,7 @@
 	 ,x
 	 ,(compiler-layout-or-lose class-name)))
       ((vector)
-       (let ((xx (gensym "X")))
+       (with-unique-names (xx)
 	 `(let ((,xx ,x))
 	    (declare (type vector ,xx))
 	    ,@(when (dd-named dd)
@@ -550,7 +550,7 @@
 		     :format-arguments (list ',class-name ,xx)))))
 	    (values))))
       ((list)
-       (let ((xx (gensym "X")))
+       (with-unique-names (xx)
 	 `(let ((,xx ,x))
 	    (declare (type list ,xx))
 	    ,@(when (dd-named dd)