X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=10e2ddd7c08115c6fb4d00c0ed7faf647c26c70e;hb=711f75f20284c41f53485fda882fc7cc9e8e930f;hp=b2bd2e7aa20026b864a3592c41d4143be60f1a64;hpb=99e23fa74844ef606b7f3f33768eab6466c9dfef;p=sbcl.git

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*)