/[gcl]/gcl/ansi-tests/numbers-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/numbers-aux.lsp

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

revision 1.10 by pfdietz, Mon Sep 1 19:13:25 2003 UTC revision 1.11 by pfdietz, Fri Sep 5 11:55:24 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
8    (defun eqlzt (x y)
9      "Return T if (eql x y) or if both are zero of the same type."
10      (cond
11       ((complexp x)
12        (and (complexp y)
13             (eqlzt (realpart x) (realpart y))
14             (eqlzt (imagpart x) (imagpart y))))
15       ((zerop x)
16        (eqlt (abs x) (abs y)))
17       (t (eqlt x y))))
18    
19  (defun numbers-are-compatible (x y)  (defun numbers-are-compatible (x y)
20    (cond    (cond
21     ((complexp x)     ((complexp x)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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