X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ferror.lisp;h=e7019824b65cbc06811ec472a4ab2e40b121ee90;hb=36d9136bc698c1c23accaf5cc324cc286dbb62e5;hp=72709413ce3e617ea4dc99986f771767e8067875;hpb=33c86f6bca21d79cacc4efe98fd4ac425e1186ab;p=sbcl.git

diff --git a/src/code/error.lisp b/src/code/error.lisp
index 7270941..e701982 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -52,8 +52,9 @@
          (error 'simple-type-error
                 :datum datum
                 :expected-type '(or symbol string)
-                :format-control "bad argument to ~S: ~S"
-                :format-arguments (list fun-name datum)))))
+                :format-control "Condition designator ~s is not of type ~s."
+                :format-arguments (list datum
+                                        '(or symbol string))))))
 
 (define-condition layout-invalid (type-error)
   ()