X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstring.lisp;h=b1fe4875422e62b715120c47153d585826fc772b;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=e6385234cc172694ce2329aac31a5bf84fae292e;hpb=b34c64b50e8ade72fabb565a38841c4710ee8f40;p=sbcl.git

diff --git a/src/code/string.lisp b/src/code/string.lisp
index e638523..b1fe487 100644
--- a/src/code/string.lisp
+++ b/src/code/string.lisp
@@ -23,7 +23,7 @@
 	(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)))))
 
@@ -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)
-  (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