X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstring.lisp;fp=src%2Fcode%2Fstring.lisp;h=de97aa906b1b6812ca58f361d6eef111888f14f8;hb=8ee41eac134a552e07e966dd16d681e8216147fc;hp=439371bddd0d1086d3e5e4b7be4fd45d018dc3ad;hpb=2d9524f6c89f3cf6794b5bd262778fff856a7777;p=sbcl.git

diff --git a/src/code/string.lisp b/src/code/string.lisp
index 439371b..de97aa9 100644
--- a/src/code/string.lisp
+++ b/src/code/string.lisp
@@ -414,7 +414,7 @@ new string COUNT long filled with the fill character."
                                              :test #'char=)))
                               index)
                            (declare (fixnum index)))
-                         0))
+                         start))
            (right-end (if right-p
                           (do ((index (1- (the fixnum end)) (1- index)))
                               ((or (< index left-end)
@@ -424,7 +424,7 @@ new string COUNT long filled with the fill character."
                                (1+ index))
                             (declare (fixnum index)))
                           end)))
-      (if (and (eql left-end 0)
+      (if (and (eql left-end start)
                (eql right-end end))
           string
           (subseq (the simple-string string) left-end right-end)))))