From b2e591f163383494eea0bbc29bfe9d2f4b393523 Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 14 Aug 2023 21:09:59 -0700 Subject: updating docgen --- argot.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'argot.lisp') diff --git a/argot.lisp b/argot.lisp index e95fe3f..eb8944d 100644 --- a/argot.lisp +++ b/argot.lisp @@ -134,7 +134,6 @@ and it returns VAR in that case." (princ "ADDITIONAL NOTES:") (terpri) (loop :for (lhs _p _v _c _a note) :in parsed-rules - ;:for lhs-name := (symbol-name lhs) :when note :do (format *standard-output* "~15a ~a~%" lhs @@ -142,10 +141,10 @@ and it returns VAR in that case." (princ "------------------------------------------") (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 "token Any ole token") (terpri) + (princ "eof Explicitly match the end of the input") (terpri) + (princ "{LANGUAGE} Parse a sublist of tokens with LANGUAGE") (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 " A nonterminal symbol - naming a parse rule") (terpri) -- cgit v1.2.3