Index: /trunk/source/lib/numbers.lisp
===================================================================
--- /trunk/source/lib/numbers.lisp	(revision 14445)
+++ /trunk/source/lib/numbers.lisp	(revision 14446)
@@ -49,10 +49,5 @@
 
 (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)