Create JSCL package to keep the symbols in the host implementation

[jscl.git] / src / read.lisp

diff --git a/src/read.lisp b/src/read.lisp
index 9d0ec46..3c352b3 100644 (file)
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -324,7 +324,7 @@
       (unless (= index size) (return))
       ;; Everything went ok, we have a float
       ;; XXX: Use FLOAT when implemented.
-      (/ (* sign (expt 10.0 (* exponent-sign exponent)) number) divisor))))
+      (/ (* sign (expt 10.0 (* exponent-sign exponent)) number) divisor 1.0))))
 
 (defun !parse-integer (string junk-allow)
   (block nil