aboutsummaryrefslogtreecommitdiff
path: root/argot.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'argot.lisp')
-rw-r--r--argot.lisp9
1 files changed, 4 insertions, 5 deletions
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 "<RULE> A nonterminal symbol - naming a parse rule") (terpri)