diff options
| -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 |