(float-sign y pi))
(float-sign y (/ pi 2)))
(%atan2 y x))))
- (number-dispatch ((y number) (x number))
+ (number-dispatch ((y real) (x real))
((double-float
(foreach double-float single-float fixnum bignum ratio))
(atan2 y (coerce x 'double-float)))
((complex)
(complex-atan y)))))
-;; It seems that everyone has a C version of sinh, cosh, and
-;; tanh. Let's use these for reals because the original
-;; implementations based on the definitions lose big in round-off
-;; error. These bad definitions also mean that sin and cos for
-;; complex numbers can also lose big.
+;;; It seems that every target system has a C version of sinh, cosh,
+;;; and tanh. Let's use these for reals because the original
+;;; implementations based on the definitions lose big in round-off
+;;; error. These bad definitions also mean that sin and cos for
+;;; complex numbers can also lose big.
(defun sinh (number)
#!+sb-doc
;;;;
;;;; The original CMU CL code requested:
;;;; Please send any bug reports, comments, or improvements to
-;;;; Raymond Toy at toy@rtp.ericsson.se.
+;;;; Raymond Toy at <email address deleted during 2002 spam avalanche>.
;;; FIXME: In SBCL, the floating point infinity constants like
;;; SB!EXT:DOUBLE-FLOAT-POSITIVE-INFINITY aren't available as