X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=4c4ec20b5e1a8b3ee14e292b05e04d3bd10ec9c6;hb=0f275066654d7412ede836567fb5423c9ddc957d;hp=340ce5313b62b093f5e305cea7c7cba65929283e;hpb=e4c6f7338e2ca63cef6f82fbd8f88bc9264c292e;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index 340ce53..4c4ec20 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -329,7 +329,7 @@
                   (truly-the ,result-spec
                    (initialize-vector ,alloc-form
                                       ,@(map 'list (lambda (elt)
-                                                     `(the ,elt-spec ,elt))
+                                                     `(the ,elt-spec ',elt))
                                              contents)))))))
           ;; any other :INITIAL-CONTENTS
           (initial-contents