From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Tue, 5 Jun 2007 20:18:43 +0000 (+0000)
Subject: 1.0.6.27: make FD-SOUT slightly faster
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=774a70ca3ac3dc701bc3986fcb73eb72b976c117;p=sbcl.git

1.0.6.27: make FD-SOUT slightly faster

	* Eliminate spurious call to FIND; POSITION gives us enough info.
---

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"