[Openmcl-cvs-notifications] r14151 - /trunk/source/level-0/l0-float.lisp

[rme at clozure.com]

Author: rme
Date: Thu Aug  5 13:17:08 2010
New Revision: 14151

Log:
Restore r13769.

Modified:
    trunk/source/level-0/l0-float.lisp

Modified: trunk/source/level-0/l0-float.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-0/l0-float.lisp (original)
+++ trunk/source/level-0/l0-float.lisp Thu Aug  5 13:17:08 2010
@@ -839,6 +839,10 @@
            #+64-bit-target
            (%single-float-expt (%short-float b) (%short-float e))
            ))
+	((typep (realpart e) 'double-float)
+	 ;; Avoid intermediate single-float result from LOG
+	 (let ((promoted-base (* 1d0 b)))
+	   (exp (* e (log promoted-base)))))
         (t (exp (* e (log b))))))
 =

 =