[Sbcl-commits] CVS: sbcl/src/compiler seqtran.lisp,1.84,1.85

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv29487/src/compiler

Modified Files:
	seqtran.lisp 
Log Message:
1.0.12.12: sequence optimizations: SUBSEQ, part 2

* New function: STRING-SUBSEQ*, and a compile-time dispatch to it with
  the element-type or simplicity is uncertain.

* Slightly better VECTOR-SUBSEQ*.


Index: seqtran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/seqtran.lisp,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -d -r1.84 -r1.85
--- seqtran.lisp	1 Dec 2007 17:05:40 -0000	1.84
+++ seqtran.lisp	1 Dec 2007 18:06:11 -0000	1.85
@@ -805,6 +805,8 @@
                                                        'start)
                                               'result 0 'size element-type)
               result))))
+      ((csubtypep type (specifier-type 'string))
+       '(string-subseq* seq start end))
       (t
        '(vector-subseq* seq start end)))))