- Timestamp:
- Jul 26, 2008, 4:41:32 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/level-0/l0-float.lisp
r5029 r10208 703 703 (i (imagpart x))) 704 704 (complex (* (cos r) (cosh i)) 705 ( * (sin r) (sinh i))))705 (- (* (sin r) (sinh i))))) 706 706 (if (typep x 'double-float) 707 707 (%double-float-cos! x (%make-dfloat))
Note: See TracChangeset
for help on using the changeset viewer.