[Sbcl-commits] CVS: sbcl/src/code late-type.lisp,1.123,1.124

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22800/src/code

Modified Files:
	late-type.lisp 
Log Message:
0.9.5.82:
	Commit band-aid fix for compiler float / ROUND-NUMERIC-BOUND
	problem, and document the real problem


Index: late-type.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/late-type.lisp,v
retrieving revision 1.123
retrieving revision 1.124
diff -u -d -r1.123 -r1.124
--- late-type.lisp	12 Oct 2005 16:44:24 -0000	1.123
+++ late-type.lisp	21 Oct 2005 12:21:24 -0000	1.124
@@ -2118,7 +2118,8 @@
                          nil))
                     (t
                      (if (<= most-negative-single-float cx most-positive-single-float)
-                         (coerce cx format)
+                         ;; FIXME: bug #389
+                         (coerce cx (or format 'single-float))
                          nil)))))
              (if (consp x) (list res) res)))))
       nil))