From: Nathan Froyd Date: Tue, 5 Jun 2007 02:13:19 +0000 (+0000) Subject: 1.0.6.20: add INSERT-ARRAY-BOUNDS-CHECKS declaration to WITH-PUSH-CHAR X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c0ddb38a1b638c32f3c691995227408bdbb476d1;p=sbcl.git 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 --- 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 --- 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"