rule name expander bindings should be ignorable not ignored

1 files changed, 1 insertions, 1 deletions

diff --git a/argot.lisp b/argot.lisp
index f41e6c3..e82ef95 100644
--- a/argot.lisp
+++ b/argot.lisp
@@ -121,7 +121,7 @@ and it returns VAR in that case."
                      ((consp action)
                       (list initarg `(lambda (,bindings-var)
                                        (let ,bindings
-                                         (declare (ignore ,lhs))
+                                         (declare (ignorable ,lhs))
                                          ,action))))))
              (rule-includer (name lhs pattern &optional check action bindings)
                `(include-rule