summaryrefslogtreecommitdiff
path: root/load.lisp
diff options
context:
space:
mode:
authorJuan Manuel Tomás <jtomas1815@gmail.com>2023-02-05 17:13:08 -0300
committerJuan Manuel Tomás <jtomas1815@gmail.com>2023-02-05 17:13:08 -0300
commita0586bd6fed38914b2112c5f834bd66140758e30 (patch)
tree099c0841685e381463708088167fe93e33fd4cf9 /load.lisp
parent0a845037e0381f7d2cd9450170a8150b4d6400b0 (diff)
downloadjson-a0586bd6fed38914b2112c5f834bd66140758e30.tar.gz
json-a0586bd6fed38914b2112c5f834bd66140758e30.zip
Fix error when parsing double floats
Diffstat (limited to 'load.lisp')
-rw-r--r--load.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/load.lisp b/load.lisp
index c808774..a58e4a2 100644
--- a/load.lisp
+++ b/load.lisp
@@ -22,7 +22,7 @@
nothing)))
(read-from-string
(str:from-list
- (remove nil (append base (cons dot fraction) (cons e exponent))))))))
+ (remove nil (append base (cons dot fraction) (cons (when e #\d) exponent))))))))
(defparameter string-literal
(comp ((_ (unit #\"))