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.

1 files changed, 1 insertions, 1 deletions

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))