From: Stas Boukarev 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) ())