Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC | revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC | |
---|---|---|
# | Line 164 | Line 164 |
164 | ;; Check that a null key argument is ignored | ;; Check that a null key argument is ignored |
165 | ||
166 | (deftest member-25 | (deftest member-25 |
167 | (handler-case | (member 'a '(c d a b e) :key nil) |
(member 'a '(c d a b e) :key nil) | ||
(error (c) c)) | ||
168 | (a b e)) | (a b e)) |
169 | ||
170 | (deftest member-26 | (deftest member-26 |
171 | (handler-case | (member 'z '(a b c d) :key nil) |
(member 'z '(a b c d) :key nil) | ||
(error (c) c)) | ||
172 | nil) | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |