ignoreing unused vars in action lambdas

1 files changed, 3 insertions, 1 deletions

diff --git a/argot.lisp b/argot.lisp
index e47643b..5423fb1 100644
--- a/argot.lisp
+++ b/argot.lisp
@@ -92,7 +92,9 @@ and it returns VAR in that case."
                                          (funcall ,action ,lhs)))))
                      ((consp action)
                       (list :action `(lambda (,bindings-var)
-                                       (let ,bindings ,action))))))
+                                       (let ,bindings
+                                         (declare (ignore ,lhs))
+                                         ,action))))))
              (rule-includer (name lhs pattern &optional action bindings)
                `(include-rule
                  ,name