0.9.0.38:

[sbcl.git] / src / code / early-extensions.lisp

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index 0062a7b..7ae0061 100644 (file)
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -650,7 +650,7 @@
   (unless (legal-fun-name-p name)
     (error 'simple-type-error
           :datum name
-          :expected-type '(or symbol list)
+          :expected-type '(or symbol (cons (member setf) (cons symbol null)))
           :format-control "invalid function name: ~S"
           :format-arguments (list name))))