From b09c2e67a5d192f72f2c2271c01fc9cbc6eb40d8 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Sun, 9 Apr 2006 03:58:13 +0000 Subject: [PATCH] 0.9.11.25: Make MAP-INTO and MAP with vectors slightly more efficient. ... use #'>= rather than #'= in BUILD-SEQUENCE-ITERATOR so the compiler can avoid a bounds check on INDEX (see also OPTIMIZATIONS, #16). --- src/compiler/seqtran.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp index 4a75395..0ce0497 100644 --- a/src/compiler/seqtran.lisp +++ b/src/compiler/seqtran.lisp @@ -161,7 +161,7 @@ (process-vector `(array-dimension ,into 0)))) (when found-vector-p (bindings `(length (min ,@(vector-lengths)))) - (tests `(= index length))) + (tests `(>= index length))) `(do (,@(bindings)) ((or ,@(tests)) ,result) (declare ,@(declarations)) diff --git a/version.lisp-expr b/version.lisp-expr index 6b4cee7..2b9ee4a 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".) -"0.9.11.24" +"0.9.11.25" -- 1.7.10.4