Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sat Aug 2 20:01:44 2003 UTC | revision 1.4 by pfdietz, Mon Aug 18 13:23:42 2003 UTC | |
---|---|---|
# | Line 37 | Line 37 |
37 | (6 . c)) | (6 . c)) |
38 | ||
39 | (deftest assoc-if.4 | (deftest assoc-if.4 |
40 | (assoc-if #'null '((a . b) nil (c . d) (nil . e) (f . g))) | (assoc-if #'null '((a . b) nil (c . d) (nil . e) (f . g))) |
41 | (nil . e)) | (nil . e)) |
42 | ||
43 | (deftest assoc-if.5 | |
44 | (let () (assoc-if #'null '((a . b) nil (c . d) (nil . e) (f . g)))) | |
45 | (nil . e)) | |
46 | ||
47 | ||
48 | ;;; Order of argument evaluation | ;;; Order of argument evaluation |
49 | ||
50 | (deftest assoc-if.order.1 | (deftest assoc-if.order.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |