1.0.6.20: add INSERT-ARRAY-BOUNDS-CHECKS declaration to WITH-PUSH-CHAR

	* Part of the fun of having good abstractions is being able to
	  throw all caution to the wind inside the abstraction.  This
	  gives another little speedup on printing floats.

diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp
index 1aff0b9..259f3d7 100644 (file)
--- 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))

diff --git a/version.lisp-expr b/version.lisp-expr
index 2a5ae01..d30f135 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.6.19"
+"1.0.6.20"