From: Stas Boukarev <stassats@gmail.com>
Date: Fri, 8 Nov 2013 20:26:44 +0000 (+0400)
Subject: Don't warn when #'(setf fun) is used in the presence of a setf-macro.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=711f75f20284c41f53485fda882fc7cc9e8e930f;p=sbcl.git

Don't warn when #'(setf fun) is used in the presence of a setf-macro.

Warn only when defining such a function, not when using it.

Reported by Douglas Katzman.
---

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index b2bd2e7..10e2ddd 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -222,7 +222,6 @@
                          context))
         ((:function nil)
          (check-fun-name name)
-         (note-if-setf-fun-and-macro name)
          (let ((expansion (fun-name-inline-expansion name))
                (inlinep (info :function :inlinep name)))
            (setf (gethash name *free-funs*)
diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index c0f5b0a..2fe23b1 100644
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -1430,7 +1430,13 @@
        (and
         (defun (setf test-984) ())
         nil)
-     (style-warning () t))))
+     (style-warning () t)))
+  (assert
+   (handler-case
+       (and
+        (compile nil `(lambda () #'(setf test-984)))
+        t)
+     (warning () nil))))
 
 (with-test (:name :compile-setf-function)
   (defun (setf compile-setf) ())