692 |
:displaced-index-offset 3 |
:displaced-index-offset 3 |
693 |
:element-type (array-element-type s1)))) |
:element-type (array-element-type s1)))) |
694 |
(position #\c s2 :from-end t)) |
(position #\c s2 :from-end t)) |
695 |
6) |
10) |
696 |
|
|
697 |
(deftest position-string.33 |
(deftest position-string.33 |
698 |
(do-special-strings |
(do-special-strings |
707 |
(s "abcdabcdabcd" nil) |
(s "abcdabcdabcd" nil) |
708 |
(let* ((c #\c) |
(let* ((c #\c) |
709 |
(pos (position c s :from-end t))) |
(pos (position c s :from-end t))) |
710 |
(assert (eql pos 2) () "Last position of ~A in ~A is ~A" c s pos))) |
(assert (eql pos 10) () "Last position of ~A in ~A is ~A" c s pos))) |
711 |
nil) |
nil) |
712 |
|
|
713 |
(defharmless position.test-and-test-not.1 |
(defharmless position.test-and-test-not.1 |