Don't write Lisp symbol names in uppercase: use `...' instead.

[sod] / src / parser / parser-proto.lisp

diff --git a/src/parser/parser-proto.lisp b/src/parser/parser-proto.lisp
index 5a10b77..879db4c 100644 (file)
--- a/src/parser/parser-proto.lisp
+++ b/src/parser/parser-proto.lisp
@@ -467,14 +467,14 @@
 
 (export 'list)
 (defparse list ((&rest keys) parser &optional (sep nil sepp))
-  "Like MANY, but simply returns a list of the parser results."
+  "Like `many', but simply returns a list of the parser results."
   (with-gensyms (acc)
     `(parse (many (,acc nil (cons it ,acc) :final (nreverse ,acc) ,@keys)
              ,parser ,@(and sepp (list sep))))))
 
 (export 'skip-many)
 (defparse skip-many ((&rest keys) parser &optional (sep nil sepp))
-  "Like MANY, but ignores the results."
+  "Like `many', but ignores the results."
   `(parse (many (nil nil nil ,@keys)
            ,parser ,@(and sepp (list sep)))))