Changeset 547


Ignore:
Timestamp:
Feb 16, 2004, 2:41:04 AM (21 years ago)
Author:
Gary Byers
Message:

ACOS of DOUBLE-FLOAT wants to (%MAKE-DFLOAT) the result. Again. Still.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-0/l0-float.lisp

    r534 r547  
    700700       (if (and (<= -1.0d0 x)
    701701                (<= x 1.0d0))
    702          (%double-float-acos! x (%make-sfloat))
     702         (%double-float-acos! x (%make-dfloat))
    703703         (- double-float-half-pi (asin x)))))
    704704    ((short-float rational)
Note: See TracChangeset for help on using the changeset viewer.