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 #\"))