From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 12 Dec 2007 11:58:03 +0000 (+0000)
Subject: 1.0.12.29: optimize POSITION & FIND families for strings
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6298db769e00670920b3d5d2e2dc5426f9d64786;p=sbcl.git

1.0.12.29: optimize POSITION & FIND families for strings

  * If the string is simple, and the element type is know the old code
    does well already. Add a dispatch for (SIMPLE-ARRAY CHARACTER (*))
    to the out-of-line versions on unicode builds.

  * To keep code size down to something reasonable, remove the
    dispatch for SIMPLE-VECTOR: presumably POSITION & FIND are much
    more common on strings of uncertain type, then random vectors.
---

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index a51435d..b49f616 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -2178,8 +2178,9 @@
                                             (frob sequence t)
                                             (frob sequence nil))))
                        (typecase sequence
-                         (simple-vector (frob2))
-                         (simple-base-string (frob2))
+                         #!+sb-unicode
+                         ((simple-array character (*)) (frob2))
+                         ((simple-array base-char (*)) (frob2))
                          (t (vector*-frob sequence))))
                    (declare (type (or index null) p))
                    (values f (and p (the index (- p offset)))))))))
diff --git a/version.lisp-expr b/version.lisp-expr
index 1fc778e..66e285d 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.12.28"
+"1.0.12.29"