0.7.12.47:

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

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index f8ef5b0..0ed58c2 100644 (file)
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -79,9 +79,7 @@
            (unless (= n-args 1)
              (error "wrong number of args to FUNCTION:~% ~S" exp))
            (let ((name (second exp)))
-             (if (and (or (atom name)
-                           (and (consp name)
-                                (eq (car name) 'setf)))
+             (if (and (legal-fun-name-p name)
                        (not (consp (let ((sb!c:*lexenv* lexenv))
                                      (sb!c:lexenv-find name funs)))))
                  (fdefinition name)