Inherit FP modes for new threads on Windows.

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

diff --git a/src/code/error.lisp b/src/code/error.lisp
index 7270941..9086a94 100644 (file)
--- 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)
   ()