diff options
Diffstat (limited to 'parzival.lisp')
| -rw-r--r-- | parzival.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/parzival.lisp b/parzival.lisp index 334fedd..bedc86f 100644 --- a/parzival.lisp +++ b/parzival.lisp @@ -393,6 +393,11 @@ the character C." (append XS YS)" (<<map (lambda (ys) (append xs ys)) parser)) + +(defun <<map-to (value parser) + (<<map (lambda (ignore) (declare (ignore ignore)) value) + parser)) + ;;; PARSING SEQUENCES (defun <<cons (head-parser tail-parser) @@ -561,3 +566,6 @@ the character C." (defun ignorable-symbol-p (symb) "Returns true if a symbol name starts with _" (eql #\_ (elt (symbol-name symb) 0))) + + + |