Changeset 15683 for trunk/source/level0/l0numbers.lisp
 Timestamp:
 Feb 4, 2013, 6:39:52 PM (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level0/l0numbers.lisp
r15649 r15683 1591 1591 (defun cis (theta) 1592 1592 "Return cos(Theta) + i sin(Theta), i.e. exp(i Theta)." 1593 (if (complexp theta) 1594 (error "Argument to CIS is complex: ~S" theta) 1595 (complex (cos theta) (sin theta)))) 1593 (cond ((complexp theta) 1594 (error "Argument to CIS is complex: ~S" theta)) 1595 ((or (typep theta 'ratio) 1596 (> (abs theta) #.(ash 1 23))) 1597 (if (typep theta 'doublefloat) 1598 (%extendedcis theta) 1599 (coerce (%extendedcis theta) '(complex singlefloat)))) 1600 (t 1601 (complex (cos theta) (sin theta))))) 1596 1602 1597 1603
Note: See TracChangeset
for help on using the changeset viewer.