Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC | revision 1.2 by pfdietz, Mon Jun 16 11:38:15 2003 UTC | |
---|---|---|
# | Line 166 | Line 166 |
166 | t))))) | t))))) |
167 | t) | t) |
168 | ||
169 | (defharmless set-exclusive-or.test-and-test-not.1 | |
170 | (set-exclusive-or (list 1 2 3 4) (list 1 7 3 8) | |
171 | :test #'eql :test-not #'eql)) | |
172 | ||
173 | (defharmless set-exclusive-or.test-and-test-not.2 | |
174 | (set-exclusive-or (list 1 2 3 4) (list 1 7 3 8) | |
175 | :test-not #'eql :test #'eql)) | |
176 | ||
177 | ||
178 | ;;; Order of argument evaluation tests | ;;; Order of argument evaluation tests |
179 | ||
180 | (deftest set-exclusive-or.order.1 | (deftest set-exclusive-or.order.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |