From 803f04aee3860545b0743808fb53f05d2a42bc37 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 29 Jul 2023 08:41:50 -0700
Subject: rule name expander bindings should be ignorable not ignored

---
 argot.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3