projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.10.14:
[sbcl.git]
/
src
/
code
/
string.lisp
diff --git
a/src/code/string.lisp
b/src/code/string.lisp
index
e638523
..
b1fe487
100644
(file)
--- a/
src/code/string.lisp
+++ b/
src/code/string.lisp
@@
-23,7
+23,7
@@
(t
(error 'simple-type-error
:datum x
(t
(error 'simple-type-error
:datum x
- :expected-type 'stringable
+ :expected-type 'string-designator
:format-control "~S cannot be coerced to a string."
:format-arguments (list x)))))
:format-control "~S cannot be coerced to a string."
:format-arguments (list x)))))
@@
-37,13
+37,7
@@
;;; strings in the unasterisked versions and using this in the
;;; transforms conditional on SAFETY>SPEED,SPACE).
(defun %check-vector-sequence-bounds (vector start end)
;;; strings in the unasterisked versions and using this in the
;;; transforms conditional on SAFETY>SPEED,SPACE).
(defun %check-vector-sequence-bounds (vector start end)
- (declare (type vector vector)
- (type index start)
- (type (or index null) end))
- (let ((length (length vector)))
- (if (<= 0 start (or end length) length)
- (or end length)
- (signal-bounding-indices-bad-error string start end))))
+ (%check-vector-sequence-bounds vector start end))
(eval-when (:compile-toplevel)
;;; WITH-ONE-STRING is used to set up some string hacking things. The
(eval-when (:compile-toplevel)
;;; WITH-ONE-STRING is used to set up some string hacking things. The