diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2026-03-23 07:49:34 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2026-03-23 07:49:34 -0300 |
| commit | 3df2ac55e233574a08b938f29f846069f3776e42 (patch) | |
| tree | b0ca97029205c6a832948bc377b55f061f25044c | |
| parent | d08d5b232d74f3a75a833b231c4ef5e80870c993 (diff) | |
| download | monparser-3df2ac55e233574a08b938f29f846069f3776e42.tar.gz monparser-3df2ac55e233574a08b938f29f846069f3776e42.zip | |
A couple fixes and expose new
| -rw-r--r-- | core.lisp | 3 | ||||
| -rw-r--r-- | cursor.lisp | 2 | ||||
| -rw-r--r-- | package.lisp | 1 |
3 files changed, 4 insertions, 2 deletions
@@ -84,6 +84,7 @@ :message "No matches.")) ((and all (cursor-has-data? (result-place (first result)))) (make-failure :place (result-place (first result)) - :message "Input not exausted.")) + :message "Input not exausted." + :priority 1)) (t (make-parsing :place (result-place (first result)) :tree (reverse (mapcar (lambda (x) (parsing-tree x)) result)))))))) diff --git a/cursor.lisp b/cursor.lisp index a4cc100..60c3279 100644 --- a/cursor.lisp +++ b/cursor.lisp @@ -13,7 +13,7 @@ (defun cursor-at-start? (cursor) (= (cursor-start cursor) (cursor-end cursor))) -(declaim (ftype (function (cursor) standard-char) cursor-peek)) +(declaim (ftype (function (cursor) character) cursor-peek)) (defun cursor-peek (cursor) (char (cursor-data cursor) (cursor-end cursor))) diff --git a/package.lisp b/package.lisp index 124c75b..3e8b8e2 100644 --- a/package.lisp +++ b/package.lisp @@ -10,6 +10,7 @@ #:failure-p #:failure-message #:fail + #:new #:unit #:one-of #:comp |