Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Apr 20 13:17:46 2003 UTC | revision 1.2 by pfdietz, Mon Jun 16 11:38:15 2003 UTC | |
---|---|---|
# | Line 259 | Line 259 |
259 | #'<)) | #'<)) |
260 | (1 2 3 4 5 6)) | (1 2 3 4 5 6)) |
261 | ||
262 | (defharmless union.test-and-test-not.1 | |
263 | (union (list 1 4 8 10) (list 1 2 3 9 10 13) :test #'eql :test-not #'eql)) | |
264 | ||
265 | (defharmless union.test-and-test-not.2 | |
266 | (union (list 1 4 8 10) (list 1 2 3 9 10 13) :test-not #'eql :test #'eql)) | |
267 | ||
268 | ||
269 | ;;; Order of evaluation tests | ;;; Order of evaluation tests |
270 | ||
271 | (deftest union.order.1 | (deftest union.order.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |