444 |
(position-if-not (complement #'digit-char-p) a :from-end t)))) |
(position-if-not (complement #'digit-char-p) a :from-end t)))) |
445 |
nil 0 nil 4) |
nil 0 nil 4) |
446 |
|
|
447 |
|
;;; Keyword tests |
448 |
|
|
449 |
|
(deftest position-if-not.allow-other-keys.1 |
450 |
|
(position-if-not #'zerop '(0 0 3 2 0 1) :allow-other-keys t) |
451 |
|
2) |
452 |
|
|
453 |
|
(deftest position-if-not.allow-other-keys.2 |
454 |
|
(position-if-not #'zerop '(0 0 3 2 0 1) :allow-other-keys nil) |
455 |
|
2) |
456 |
|
|
457 |
|
(deftest position-if-not.allow-other-keys.3 |
458 |
|
(position-if-not #'zerop '(0 0 1 2 3 0) :allow-other-keys t :bad t) |
459 |
|
2) |
460 |
|
|
461 |
|
(deftest position-if-not.allow-other-keys.4 |
462 |
|
(position-if-not #'zerop '(0 0 1 2 3 0) :bad t :allow-other-keys t) |
463 |
|
2) |
464 |
|
|
465 |
|
(deftest position-if-not.allow-other-keys.5 |
466 |
|
(position-if-not #'zerop '(0 0 1 2 3 0) :bad t :allow-other-keys t :key #'1-) |
467 |
|
0) |
468 |
|
|
469 |
|
(deftest position-if-not.keywords.6 |
470 |
|
(position-if-not #'zerop '(0 0 1 2 3 0) :key #'1- :key #'identity) |
471 |
|
0) |
472 |
|
|
473 |
|
(deftest position-if-not.allow-other-keys.7 |
474 |
|
(position-if-not #'zerop '(0 0 1 2 3 0) :bad t :allow-other-keys t |
475 |
|
:allow-other-keys nil) |
476 |
|
2) |
477 |
|
|
478 |
|
(deftest position-if-not.allow-other-keys.8 |
479 |
|
(position-if-not #'zerop '(0 0 1 2 3 0) :allow-other-keys t :bad t |
480 |
|
:allow-other-keys nil) |
481 |
|
2) |
482 |
|
|
483 |
|
(deftest position-if-not.allow-other-keys.9 |
484 |
|
(position-if-not #'zerop '(0 0 1 2 3 0) :allow-other-keys t |
485 |
|
:allow-other-keys nil :bad t) |
486 |
|
2) |
487 |
|
|
488 |
|
|
489 |
;;; Error tests |
;;; Error tests |
490 |
|
|
491 |
(deftest position-if-not.error.1 |
(deftest position-if-not.error.1 |