1.0.6.27: make FD-SOUT slightly faster

* Eliminate spurious call to FIND; POSITION gives us enough info.
akovalenko · Jun 5, 2007 · 774a70c · 774a70c
1 parent 7db258e
commit 774a70c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 9 deletions.
diff --git 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
@@ -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"