From 774a70ca3ac3dc701bc3986fcb73eb72b976c117 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Tue, 5 Jun 2007 20:18:43 +0000 Subject: [PATCH] 1.0.6.27: make FD-SOUT slightly faster * Eliminate spurious call to FIND; POSITION gives us enough info. --- src/code/fd-stream.lisp | 10 ++-------- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 9 deletions(-) diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index ed1140d..7f27a08 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -555,14 +555,8 @@ (simple-array character) string) thing - (and (find #\newline thing :start start :end end) - ;; FIXME why do we need both calls? - ;; Is find faster forwards than - ;; position is backwards? - (position #\newline thing - :from-end t - :start start - :end end))))) + (position #\newline thing :from-end t + :start start :end end)))) (if (and (typep thing 'base-string) (eq (fd-stream-external-format stream) :latin-1)) (ecase (fd-stream-buffering stream) diff --git a/version.lisp-expr b/version.lisp-expr index 659238c..6814777 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.26" +"1.0.6.27" -- 1.7.10.4