From 199f14dbc87e26e6bcdad228b6fb0de2de3f16ce Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 19 Dec 2003 13:08:32 +0000
Subject: [PATCH] When the input argument is 0 (integer), the output of PHASE
 must be a short-float.

---
 src/lsp/numlib.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/numlib.lsp b/src/lsp/numlib.lsp
index fc3f59308..ca4aa1a49 100644
--- a/src/lsp/numlib.lsp
+++ b/src/lsp/numlib.lsp
@@ -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)