diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2026-01-15 01:55:29 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2026-01-15 01:55:29 -0300 |
| commit | f753bfdffbd7ce0975b97ad44098b857f25c39a9 (patch) | |
| tree | 1c6e82febdadc583eb86da2f38625d4f508a47c7 /extra.lisp | |
| parent | 9566e92321a1ed29a7f5903a3ba4ab16de3783b9 (diff) | |
| download | monparser-f753bfdffbd7ce0975b97ad44098b857f25c39a9.tar.gz monparser-f753bfdffbd7ce0975b97ad44098b857f25c39a9.zip | |
Improve usability
Diffstat (limited to 'extra.lisp')
| -rw-r--r-- | extra.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -4,7 +4,7 @@ (or (char= it #\Space) (not (graphic-char-p it)))) -(declaim (ftype (function (parser integer integer) parser) repeat)) +(declaim (ftype (function (parser integer &optional integer) parser) repeat)) (defun repeat (p min &optional (max 0)) (if (> min 0) (comp ((x p) @@ -29,11 +29,11 @@ `(comp ,(reverse binding-list) ,(cons 'list (reverse name-list))))) -(declaim (ftype (function (parser parser parser) parser) within)) -(defun within (left p right) +(declaim (ftype (function (parser parser &optional parser) parser) within)) +(defun within (left p &optional right) (comp ((_ left) (cell p) - (_ right)) + (_ (or right left))) cell)) (declaim (ftype (function (parser parser) parser) interlinked)) |