(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))