[Sbcl-commits] CVS: sbcl/src/code string.lisp,1.15,1.16

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

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

Modified Files:
	string.lisp 
Log Message:
1.0.17.22: respect fill-pointers when trimming strings (regression 1.0.12.23)

 * Revealed by ansi-tests.


Index: string.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/string.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- string.lisp	10 Dec 2007 05:35:11 -0000	1.15
+++ string.lisp	3 Jun 2008 15:27:21 -0000	1.16
@@ -423,9 +423,9 @@
                                               :test #'char=)))
                                (1+ index))
                             (declare (fixnum index)))
-                          (length string))))
+                          end)))
       (if (and (eql left-end 0)
-               (eql right-end (length string)))
+               (eql right-end end))
           string
           (subseq (the simple-string string) left-end right-end)))))