diff options
author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2022-10-31 06:58:00 -0300 |
---|---|---|
committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2022-10-31 06:58:00 -0300 |
commit | e04918e60ca56d0ab24eff72ef675a08c961e335 (patch) | |
tree | bf52c97de08771154d08ec8464c15f2dbfe120a2 | |
parent | ea1ef4c6ad6788bafe232f91d9a1bf03d48e4ff3 (diff) | |
download | json-e04918e60ca56d0ab24eff72ef675a08c961e335.tar.gz json-e04918e60ca56d0ab24eff72ef675a08c961e335.zip |
Adjust code to changes in monparser
-rw-r--r-- | json.lisp | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -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)))) |