mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-10 11:12:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

When the input argument is 0 (integer), the output of PHASE must be a short-float.

Browse source
This commit is contained in:
jjgarcia 2003-12-19 13:08:32 +00:00
parent 0772b295cc
commit 199f14dbc8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/numlib.lsp
View file

@ -54,7 +54,7 @@ Returns the absolute value of NUMBER."
Returns the angle part (in radians) of the polar representation of NUMBER.
Returns zero for non-complex numbers."
(if (zerop x)
(float 0 (realpart x))
(if (eq x 0) 0.0 (float 0 (realpart x)))
(atan (imagpart x) (realpart x))))
(defun signum (x)