From a0586bd6fed38914b2112c5f834bd66140758e30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Sun, 5 Feb 2023 17:13:08 -0300
Subject: Fix error when parsing double floats

---
 load.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'load.lisp')

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 #\"))
-- 
cgit v1.2.3