X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-extensions.lisp;h=259f3d7ed4e264a00cdf5a68b06050f380e0b3a6;hb=ee90e535c985f697c71d839083aed16710f846fd;hp=1aff0b98640f4bec07d5a42e14d2b86865f045f2;hpb=8437549fb42bdbfe9baad0e3595c5a52178ee5b9;p=sbcl.git

diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp
index 1aff0b9..259f3d7 100644
--- a/src/code/target-extensions.lisp
+++ b/src/code/target-extensions.lisp
@@ -94,6 +94,7 @@ applications.")
                 (type (integer 0 ,(1- sb!xc:array-dimension-limit)) ,pointer)
                 (type (simple-array ,element-type (*)) ,string))
        (flet ((push-char (char)
+                (declare (optimize (sb!c::insert-array-bounds-checks 0)))
                 (when (= ,pointer ,size)
                   (let ((old ,string))
                     (setf ,size (* 2 (+ ,size 2))