29 |
(a b c . d) |
(a b c . d) |
30 |
,(make-array '(10)) |
,(make-array '(10)) |
31 |
"ancadas" #\w))) |
"ancadas" #\w))) |
32 |
(not (every |
(notnot-mv |
33 |
#'(lambda (x) |
(every |
34 |
(let ((result (catch-type-error (member-if #'listp x)))) |
#'(lambda (x) |
35 |
(or (eqt result 'type-error) |
(let ((result (catch-type-error (member-if #'listp x)))) |
36 |
(progn |
(or (eqt result 'type-error) |
37 |
(format t "~%On ~S: returned ~%~S" x result) |
(progn |
38 |
nil)))) |
(format t "~%On ~S: returned ~%~S" x result) |
39 |
test-inputs))) |
nil)))) |
40 |
nil) |
test-inputs))) |
41 |
|
t) |
42 |
|
|
43 |
(deftest member-if-5 |
(deftest member-if-5 |
44 |
(member-if #'identity '(1 2 3 4 5) :key #'evenp) |
(member-if #'identity '(1 2 3 4 5) :key #'evenp) |
197 |
(deftest member-if-not.error.7 |
(deftest member-if-not.error.7 |
198 |
(classify-error (member-if-not #'null '(a b c) 1 2)) |
(classify-error (member-if-not #'null '(a b c) 1 2)) |
199 |
program-error) |
program-error) |
|
|
|
|
|
|