Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Mon Jun 16 11:38:15 2003 UTC | revision 1.4 by pfdietz, Sun Jul 27 15:30:39 2003 UTC | |
---|---|---|
# | Line 59 | Line 59 |
59 | ||
60 | (deftest assoc.12 | (deftest assoc.12 |
61 | (assoc #\e '(("abefd" . 1) ("aevgd" . 2) ("edada" . 3)) | (assoc #\e '(("abefd" . 1) ("aevgd" . 2) ("edada" . 3)) |
62 | :key #'(lambda (x) (char x 1))) | :key #'(lambda (x) (schar x 1))) |
63 | ("aevgd" . 2)) | ("aevgd" . 2)) |
64 | ||
65 | (deftest assoc.13 | (deftest assoc.13 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |