Changeset 14448

Timestamp:

Nov 22, 2010, 4:00:10 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Revert r14446 and r14447, which broke everything but darwinppc32,
apparently.

File:

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

trunk/source/lib/numbers.lisp

@@ -49 +49 @@
 
 (defconstant double-float-nan
-  #.(make-float-from-fixnums #x8000 0 #x7ff 1))
+  #.(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))))
 
 (defun parse-float (str len off)