484 |
(nil #\6) |
(nil #\6) |
485 |
(#\6))) |
(#\6))) |
486 |
|
|
487 |
|
|
488 |
|
;;; Keyword tests |
489 |
|
|
490 |
|
(deftest find-if-not.allow-other-keys.1 |
491 |
|
(find-if-not #'oddp '(1 2 3 4 5) :bad t :allow-other-keys t) |
492 |
|
2) |
493 |
|
|
494 |
|
(deftest find-if-not.allow-other-keys.2 |
495 |
|
(find-if-not #'oddp '(1 2 3 4 5) :allow-other-keys t :also-bad t) |
496 |
|
2) |
497 |
|
|
498 |
|
;;; The leftmost of two :allow-other-keys arguments is the one that matters. |
499 |
|
(deftest find-if-not.allow-other-keys.3 |
500 |
|
(find-if-not #'oddp '(1 2 3 4 5) |
501 |
|
:allow-other-keys t |
502 |
|
:allow-other-keys nil |
503 |
|
:bad t) |
504 |
|
2) |
505 |
|
|
506 |
|
(deftest find-if-not.keywords.4 |
507 |
|
(find-if-not #'oddp '(1 2 3 4 5) :key #'identity :key #'1+) |
508 |
|
2) |
509 |
|
|
510 |
|
(deftest find-if-not.allow-other-keys.5 |
511 |
|
(find-if-not #'null '(nil a b c nil) :allow-other-keys nil) |
512 |
|
a) |
513 |
|
|
514 |
;;; Error tests |
;;; Error tests |
515 |
|
|
516 |
(deftest find-if-not.error.1 |
(deftest find-if-not.error.1 |