Changeset 10013


Ignore:
Timestamp:
Jul 12, 2008, 7:07:41 PM (11 years ago)
Author:
gz
Message:

Fix bug in complex cos

File:
1 edited

Legend:

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

    r5029 r10013  
    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.