Changeset 14446


Ignore:
Timestamp:
Nov 22, 2010, 10:25:38 PM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

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

    r13327 r14446  
    4949
    5050(defconstant double-float-nan
    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))))
     51  #.(make-float-from-fixnums #x8000 0 #x3ff 1))
    5752
    5853(defun parse-float (str len off) 
Note: See TracChangeset for help on using the changeset viewer.