Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC | revision 1.2 by pfdietz, Sat Jun 14 15:10:40 2003 UTC | |
---|---|---|
# | Line 178 | Line 178 |
178 | (eqt x y)))) | (eqt x y)))) |
179 | (3 . a)) | (3 . a)) |
180 | ||
181 | (deftest rassoc.26 | |
182 | (rassoc 10 '((a . 1) (b . 5) (c . 10) (d . 15) (e . 40)) | |
183 | :test #'<) | |
184 | (d . 15)) | |
185 | ||
186 | (deftest rassoc.27 | |
187 | (rassoc 10 '((a . 1) (b . 5) (c . 10) (d . 15) (e . 40)) | |
188 | :test-not #'>=) | |
189 | (d . 15)) | |
190 | ||
191 | ;;; Order of argument evaluation | ;;; Order of argument evaluation |
192 | ||
193 | (deftest rassoc.order.1 | (deftest rassoc.order.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |