Changeset 14446

Timestamp:

Nov 22, 2010, 2:25:38 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

The Darwin PPC ports seem confused about what double-float-nan is, so
define it from bits.

File:

• trunk/source/lib/numbers.lisp (modified) (1 diff)

trunk/source/lib/numbers.lisp

@@ -49 +49 @@
 
 (defconstant double-float-nan
-  #.(let ((invalid (get-fpu-mode :invalid)))
-      (unwind-protect
-           (progn
-             (set-fpu-mode :invalid nil)
-             (+ double-float-positive-infinity double-float-negative-infinity))
-        (set-fpu-mode :invalid invalid))))
+  #.(make-float-from-fixnums #x8000 0 #x3ff 1))
 
 (defun parse-float (str len off)