/[gcl]/gcl/ansi-tests/minus.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/minus.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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