0.8.8.8:

[sbcl.git] / src / code / string.lisp

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