gencgc: More precise conservatism for pointers to boxed pages.

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

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