X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=4fb59114a432b7ab9e5e19024f46091ba8447dab;hb=dbe82b489260b2ef76e916d0aeaee8b3850f5f52;hp=6f4ba71bc1553344ca917755c8c01c46a7e90a56;hpb=9c71b0ad73bd4597d3130553bfbe70c172fe0501;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 6f4ba71..4fb5911 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -877,7 +877,8 @@
 (macrolet ((def (name element-type)
              `(defun ,name (&rest sequences)
                 (declare (dynamic-extent sequences)
-                         (optimize speed))
+                         (optimize speed)
+                         (optimize (sb!c::insert-array-bounds-checks 0)))
                 (let* ((lengths (mapcar #'length sequences))
                        (result (make-array (the integer (apply #'+ lengths))
                                            :element-type ',element-type))