From 3df2ac55e233574a08b938f29f846069f3776e42 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Mon, 23 Mar 2026 07:49:34 -0300 Subject: A couple fixes and expose new --- core.lisp | 3 ++- cursor.lisp | 2 +- package.lisp | 1 + 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/core.lisp b/core.lisp index b7b204a..968a7d9 100644 --- a/core.lisp +++ b/core.lisp @@ -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 -- cgit v1.2.3