X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=d7d1f437945c47cfdbade90abcd4df40d434cfbe;hb=ec066d84dd46611428943d152749b3891a3f4b7c;hp=777ee4a0c17c3138d086b815edf84e20400dab1a;hpb=e3f68bde025bd0602cf554e1eaf5935aaa74662a;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 777ee4a..d7d1f43 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -472,6 +472,8 @@
 			    (1- source-index)))
 	     ((= target-index (the fixnum (1- target-start))) target-sequence)
 	   (declare (fixnum target-index source-index))
+	   ;; disable bounds checking
+	   (declare (optimize (safety 0)))
 	   (setf (aref target-sequence target-index)
 		 (aref source-sequence source-index))))
        (do ((target-index target-start (1+ target-index))
@@ -480,6 +482,8 @@
 		(= source-index (the fixnum source-end)))
 	    target-sequence)
 	 (declare (fixnum target-index source-index))
+	 ;; disable bounds checking
+	 (declare (optimize (safety 0)))
 	 (setf (aref target-sequence target-index)
 	       (aref source-sequence source-index)))))