Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |