X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefmacro.lisp;h=2bc701b4a00b42bbb4da8a99591ef91c1ae24342;hb=97e52e46f9bcb054eec35a9c326db75993441ca1;hp=b93621ba1a0e884ba4cedd3d94fecaa398d7a12a;hpb=e317c20422b048971da71d04d0c2faddee7de64d;p=sbcl.git

diff --git a/src/code/defmacro.lisp b/src/code/defmacro.lisp
index b93621b..2bc701b 100644
--- a/src/code/defmacro.lisp
+++ b/src/code/defmacro.lisp
@@ -42,6 +42,8 @@
             ;; old note (ca. 1985, maybe:-): "Eventually %%DEFMACRO
             ;; should deal with clearing old compiler information for
             ;; the functional value."
+            ,@(unless set-args-p
+                '((declare (ignore lambda-list))))
             (ecase (info :function :kind name)
               ((nil))
               (:function