/[gcl]/gcl/ansi-tests/cons-test-21.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-21.lsp

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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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