From 025c74ed0d842e131cfe4b642cec233a03b5418f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 1 Jun 2023 20:21:15 -0700
Subject: bugfix: mistake in pattern.

* who.tl (tree-to-template): Run-on-dot in the
pattern whch detects second level of keyword nesting.
Actually, it's not clear what this nesting is for.
When would we want a ((:p ..) ...) or whatever.
I will review this; it might be CL-WHO cruft that
has no purpose. No test case broke because of this
bug, which means it's not tested.
---
 who.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/who.tl b/who.tl
index 1ce80d7..6c2d0ac 100644
--- a/who.tl
+++ b/who.tl
@@ -209,7 +209,7 @@
       (match-case element
         (@(or @(keywordp)
               (@(keywordp) . @nil)
-              ((@(keywordp) .@nil) . @nil))
+              ((@(keywordp) . @nil) . @nil))
           ;; the syntax for a tag - process it
          (ncon [process-tag element tree-to-template]))
         ((noesc @(constantp @item))
-- 
cgit v1.2.3