projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.17.23: respect displacement indices 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
439371b
..
de97aa9
100644
(file)
--- 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)))
: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)
(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)))
(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)))))
(eql right-end end))
string
(subseq (the simple-string string) left-end right-end)))))