/[gcl]/gcl/lsp/gcl_numlib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_numlib.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by camm, Sun Sep 18 02:46:35 2005 UTC revision 1.7 by camm, Tue Nov 1 12:15:39 2005 UTC
# Line 80  Line 80 
80    
81    
82  (defun phase (x)  (defun phase (x)
83         (atan (imagpart x) (realpart x)))    (if (= 0 x) 0.0
84           (atan (imagpart x) (realpart x))))
85    
86  (defun signum (x) (if (zerop x) x (/ x (abs x))))  (defun signum (x) (if (zerop x) x (/ x (abs x))))
87    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26