1.0.17.22: respect fill-pointers when trimming strings (regression 1.0.12.23)

[sbcl.git] / src / code / string.lisp

diff --git a/src/code/string.lisp b/src/code/string.lisp
index dede948..439371b 100644 (file)
--- a/src/code/string.lisp
+++ b/src/code/string.lisp
@@ -423,9 +423,9 @@ new string COUNT long filled with the fill character."
                                               :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)))))