X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=0ed58c287743255851708545b50649929b0a88ca;hb=a3ab89c1db0dd9bfb911532ca134be16f16c4c1b;hp=f8ef5b0bccab8ff03939912a23e9156f7c977eeb;hpb=a260738d7a71680079d972b102b4e4db4e8dc3ae;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index f8ef5b0..0ed58c2 100644
--- 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)