Changeset 14448


Ignore:
Timestamp:
Nov 23, 2010, 12:00:10 AM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/numbers.lisp

    r14447 r14448  
    4949
    5050(defconstant double-float-nan
    51   #.(make-float-from-fixnums #x8000 0 #x7ff 1))
     51  #.(let ((invalid (get-fpu-mode :invalid)))
     52      (unwind-protect
     53           (progn
     54             (set-fpu-mode :invalid nil)
     55             (+ double-float-positive-infinity double-float-negative-infinity))
     56        (set-fpu-mode :invalid invalid))))
    5257
    5358(defun parse-float (str len off) 
Note: See TracChangeset for help on using the changeset viewer.