Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC | revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC | |
---|---|---|
# | Line 190 | Line 190 |
190 | t) | t) |
191 | ||
192 | (deftest union-22 | (deftest union-22 |
193 | (handler-case | (let ((x (copy-list '(1 2 3 4 5 6 7))) |
194 | (let ((x (copy-list '(1 2 3 4 5 6 7))) | (y (copy-list '(10 19 5 3 17 1001 2)))) |
195 | (y (copy-list '(10 19 5 3 17 1001 2)))) | (let ((result (union-with-check-and-key x y nil))) |
196 | (let ((result (union-with-check-and-key x y nil))) | (check-union x y result))) |
(check-union x y result))) | ||
(error (c) c)) | ||
197 | t) | t) |
198 | ||
199 | (deftest union-23 | (deftest union-23 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |