From 810ba67366500782914f1bb9b306cf81c5960b67 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 27 Apr 2013 15:20:54 -0700 Subject: [PATCH] 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.) --- src/read.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4