Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14848/src/compiler
Modified Files:
Tag: character_branch
seqtran.lisp
Log Message:
0.8.13.77.character.11:
"It's an early bath for you"
Probably fix (in at least one sense of the word) performance on
BENCH-STRINGS.
... also note ppcization of work so far. (Thanks, Julian
Squires and Patrik Nordebo)
Index: seqtran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/seqtran.lisp,v
retrieving revision 1.53.4.1
retrieving revision 1.53.4.2
diff -u -d -r1.53.4.1 -r1.53.4.2
--- seqtran.lisp 25 Aug 2004 20:26:25 -0000 1.53.4.1
+++ seqtran.lisp 2 Sep 2004 14:43:34 -0000 1.53.4.2
@@ -749,12 +749,8 @@
;;; * :TEST 'CHAR= or :TEST #'CHAR=
;;; * :TEST 'EQL or :TEST #'EQL
;;; * :FROM-END NIL (or :FROM-END non-NIL, with a little ingenuity)
-;;;
-;;; also, it should be noted that there's nothing much in this
-;;; transform (as opposed to the ones for REPLACE and CONCATENATE)
-;;; that particularly limits it to SIMPLE-BASE-STRINGs.
(deftransform search ((pattern text &key (start1 0) (start2 0) end1 end2)
- (simple-base-string simple-base-string &rest t)
+ (simple-string simple-string &rest t)
*
:policy (> speed (max space safety)))
`(block search
|