Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Fri Sep 5 03:18:53 2003 UTC | revision 1.3 by pfdietz, Fri Sep 5 11:55:24 2003 UTC | |
---|---|---|
# | Line 61 | Line 61 |
61 | (float 1.0s0 (realpart neg))) | (float 1.0s0 (realpart neg))) |
62 | (or (/= neg (- 0 x)) | (or (/= neg (- 0 x)) |
63 | (and (not (zerop (realpart x))) | (and (not (zerop (realpart x))) |
64 | (not (eql neg (- 0 x)))))) | (not (eqlzt neg (- 0 x)))))) |
65 | collect x) | collect x) |
66 | nil) | nil) |
67 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |