X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=c0205452502c2764ef439f0829a80a15cd4466e4;hb=670010e3f3dcd62efaf23f61abdc73950edb88c6;hp=6822ef22ea3d987b5fd0a9fb4d1aba8eb59c33d5;hpb=98a76d4426660876dec6649b1e228d2e5b47f579;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 6822ef2..c020545 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -52,7 +52,7 @@
 	   (sb!c::compiler-note
 	    "implementation limitation: ~
              Non-toplevel DEFSTRUCT constructors are slow.")
-	   (let ((layout (gensym "LAYOUT")))
+	   (with-unique-names (layout)
 	     `(let ((,layout (info :type :compiler-layout ',name)))
 		(unless (typep (layout-info ,layout) 'defstruct-description)
 		  (error "Class is not a structure class: ~S" ',name))