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 |
|
(deftest position-if-not.order.1 |
448 |
|
(let ((i 0) a b c d e f) |
449 |
|
(values |
450 |
|
(position-if-not |
451 |
|
(progn (setf a (incf i)) (complement #'zerop)) |
452 |
|
(progn (setf b (incf i)) '(3 1 8 2 1 2 3 4)) |
453 |
|
:from-end (setf c (incf i)) |
454 |
|
:start (progn (setf d (incf i)) 1) |
455 |
|
:end (progn (setf e (incf i)) 6) |
456 |
|
:key (progn (setf f (incf i)) #'1-)) |
457 |
|
i a b c d e f)) |
458 |
|
4 6 1 2 3 4 5 6) |
459 |
|
|
460 |
|
(deftest position-if-not.order.2 |
461 |
|
(let ((i 0) a b c d e f) |
462 |
|
(values |
463 |
|
(position-if-not |
464 |
|
(progn (setf a (incf i)) (complement #'zerop)) |
465 |
|
(progn (setf b (incf i)) '(3 1 8 2 1 2 3 4)) |
466 |
|
:key (progn (setf c (incf i)) #'1-) |
467 |
|
:end (progn (setf d (incf i)) 6) |
468 |
|
:start (progn (setf e (incf i)) 1) |
469 |
|
:from-end (setf f (incf i))) |
470 |
|
i a b c d e f)) |
471 |
|
4 6 1 2 3 4 5 6) |
472 |
|
|
473 |
;;; Keyword tests |
;;; Keyword tests |
474 |
|
|
475 |
(deftest position-if-not.allow-other-keys.1 |
(deftest position-if-not.allow-other-keys.1 |