Changeset 14151

Timestamp:

Aug 5, 2010, 11:17:08 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

Restore r13769.

File:

• trunk/source/level-0/l0-float.lisp (modified) (1 diff)

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

@@ -840 +840 @@
            (%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))))))