Parent Directory | Revision Log | Patch
revision 1.7 by pfdietz, Sat Jan 18 12:49:35 2003 UTC | revision 1.8 by pfdietz, Fri Jan 24 04:22:54 2003 UTC | |
---|---|---|
# | Line 195 | Line 195 |
195 | do (progn | do (progn |
196 | (setf x (* x x)) | (setf x (* x x)) |
197 | (setf y (* y y)))) | (setf y (* y y)))) |
198 | (not (not | (notnot-mv |
199 | (or | (or |
200 | (eqt x y) ;; if bignums are eq, the test is worthless | (eqt x y) ;; if bignums are eq, the test is worthless |
201 | (eql (length | (eql (length |
202 | (nunion-with-copy (list x) (list x))) | (nunion-with-copy (list x) (list x))) |
203 | 1))))) | 1)))) |
204 | t) | t) |
205 | ||
206 | (deftest nunion-27 | (deftest nunion-27 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |