X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ferror.lisp;h=9086a9416d37acd7a7da466cc314999d5d34afa2;hb=18dc0069cd514c976042766ab9a785c970fe1603;hp=72709413ce3e617ea4dc99986f771767e8067875;hpb=33c86f6bca21d79cacc4efe98fd4ac425e1186ab;p=sbcl.git

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