From e04918e60ca56d0ab24eff72ef675a08c961e335 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Mon, 31 Oct 2022 06:58:00 -0300 Subject: Adjust code to changes in monparser --- json.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/json.lisp b/json.lisp index 2bc94db..cb94985 100644 --- a/json.lisp +++ b/json.lisp @@ -6,17 +6,17 @@ (char= x #\+)))))) (natural (one-or-more (unit #'digit-char-p)))) (cons sign natural)))) - (comp ((base (any signed-digits - (fail "Malformed number."))) + (comp ((base (either signed-digits + (fail "Malformed number."))) (dot (zero-or-one (unit (lambda (x) (char= x #\.))))) (fraction (if dot - (any (one-or-more (unit #'digit-char-p)) - (fail "Malformed fractional part.")) - (new nil))) + (either (one-or-more (unit #'digit-char-p)) + (fail "Malformed fractional part.")) + nothing)) (e (zero-or-one (unit (lambda (x) (or (char= x #\e) (char= x #\E)))))) (exponent (if e - (any signed-digits - (fail "Malformed exponent part.")) - (new nil)))) + (either signed-digits + (fail "Malformed exponent part.")) + nothing))) (list 'number base fraction exponent)))) -- cgit v1.2.3