From: Robert Smith <quad@symbo1ics.com>
Date: Sat, 27 Apr 2013 22:20:54 +0000 (-0700)
Subject: Make sure READ-FLOAT returns a float.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=810ba67366500782914f1bb9b306cf81c5960b67;p=jscl.git

Make sure READ-FLOAT returns a float.

Make sure READ-FLOAT returns a float during cross-compilation. (This strategy just embeds a float into the calculation as opposed to an explicit conversion.)
---

diff --git a/src/read.lisp b/src/read.lisp
index c99604a..b2d8b65 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -229,7 +229,8 @@
             (incf index))))
       (unless (= index size) (return))
       ;; Everything went ok, we have a float
-      (/ (* sign (expt 10 (* exponent-sign exponent)) number) divisor))))
+      ;; XXX: Use FLOAT when implemented.
+      (/ (* sign (expt 10.0d0 (* exponent-sign exponent)) number) divisor))))
 
 
 (defun !parse-integer (string junk-allow)