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

diff --git a/src/code/string.lisp b/src/code/string.lisp
index f5aa2fa..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)))))