X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=9b77313262445b66265419c4c0d8e397338161b9;hb=d76c81b0ca4dcfc99f0cd805f5c20493fa80b2b6;hp=5f1a28dac1ac87ce582dfc2a4eaa6b231c6af4a6;hpb=9d7bfe2e755ab75fa31603f1ce86d66b349bf030;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index 5f1a28d..9b77313 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -626,10 +626,7 @@
 				   (element-type '*)
 				   unsafe?
 				   fail-inline?)
-  (let ((size (gensym "SIZE-"))
-	(defaulted-end (gensym "DEFAULTED-END-"))
-	(data (gensym "DATA-"))
-	(cumulative-offset (gensym "CUMULATIVE-OFFSET-")))
+  (with-unique-names (size defaulted-end data cumulative-offset)
     `(let* ((,size (array-total-size ,array))
 	    (,defaulted-end
 	      (cond (,end