217 |
(position-if-not #'symbolp a :from-end t))) |
(position-if-not #'symbolp a :from-end t))) |
218 |
nil 0 nil 4) |
nil 0 nil 4) |
219 |
|
|
220 |
|
(deftest position-if-not-vector.14 |
221 |
|
(let* ((v1 #(x x x a b 1 d a b 2 d y y y y y)) |
222 |
|
(v2 (make-array '(8) :displaced-to v1 |
223 |
|
:displaced-index-offset 3))) |
224 |
|
(values (position-if-not #'symbolp v2) |
225 |
|
(position-if-not #'symbolp v2 :from-end t))) |
226 |
|
2 6) |
227 |
|
|
228 |
;;; Bit vector tests |
;;; Bit vector tests |
229 |
|
|
230 |
(deftest position-if-not-bit-vector.1 |
(deftest position-if-not-bit-vector.1 |
452 |
(position-if-not (complement #'digit-char-p) a :from-end t)))) |
(position-if-not (complement #'digit-char-p) a :from-end t)))) |
453 |
nil 0 nil 4) |
nil 0 nil 4) |
454 |
|
|
455 |
|
(deftest position-if-not-string.14 |
456 |
|
(do-special-strings |
457 |
|
(s "12345a6 78b90" nil) |
458 |
|
(let ((pos (position-if-not (complement #'alpha-char-p) s))) |
459 |
|
(assert (eql pos 5) () "First alpha char in ~A is at position ~A" s pos))) |
460 |
|
nil) |
461 |
|
|
462 |
|
(deftest position-if-not-string.15 |
463 |
|
(do-special-strings |
464 |
|
(s "12345a6 78b90" nil) |
465 |
|
(let ((pos (position-if-not (complement #'alpha-char-p) s :from-end t))) |
466 |
|
(assert (eql pos 11) () "Last alpha char in ~A is at position ~A" s pos))) |
467 |
|
nil) |
468 |
|
|
469 |
(deftest position-if-not.order.1 |
(deftest position-if-not.order.1 |
470 |
(let ((i 0) a b c d e f) |
(let ((i 0) a b c d e f) |
471 |
(values |
(values |