Improved docgen

1 files changed, 11 insertions, 1 deletions

diff --git a/argot.lisp b/argot.lisp
index f394e2a..1eb7fc5 100644
--- a/argot.lisp
+++ b/argot.lisp
@@ -133,7 +133,17 @@ and it returns VAR in that case."
                  (terpri) (terpri)
                  (loop :for (lhs pattern . more) :in parsed-rules
                        :do (write-rule-doc lhs pattern)
-                           (terpri)))))
+                           (terpri))
+                 (terpri)
+                 (princ "KEY: ") (terpri)
+                 (princ "::TOKEN::  Any ole token") (terpri)
+                 (princ "::EOF::    Explicitly match the end of the input") (terpri)
+                 (princ "{GRAMMAR}  Parse a sublist of tokens with GRAMMAR") (terpri)
+                 (princ "(a|b|..)   One of the alternavites a b ...") (terpri)
+                 (princ "PATTERN+   One or more PATTERN") (terpri)
+                 (princ "PATTERN*   Zero or more PATTERN") (terpri)
+                 (princ "<RULE>     A nonterminal symbol - naming a parse rule") (terpri)
+                 (princ "[OPT]      Zero or one of OPT"))))
        `(progn
           (defvar ,name nil)
           (setf ,name (make-instance 'grammar