X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ferror.lisp;h=9086a9416d37acd7a7da466cc314999d5d34afa2;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=e7019824b65cbc06811ec472a4ab2e40b121ee90;hpb=f1f283e6bee12b7d70bcec52aa226d0532a490fb;p=sbcl.git

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