Changeset 10208 for release/1.2


Ignore:
Timestamp:
Jul 26, 2008, 4:41:32 PM (11 years ago)
Author:
rme
Message:

Merge r10013 (bug in complex cos).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.2/source/level-0/l0-float.lisp

    r5029 r10208  
    703703           (i (imagpart x)))
    704704      (complex (* (cos r) (cosh i))
    705                (* (sin r) (sinh i))))
     705               (- (* (sin r) (sinh i)))))
    706706    (if (typep x 'double-float)
    707707      (%double-float-cos! x (%make-dfloat))
Note: See TracChangeset for help on using the changeset viewer.