175 |
(let ((pat "m") |
(let ((pat "m") |
176 |
(target '"adgmnpq")) |
(target '"adgmnpq")) |
177 |
(search pat target :test-not #'char>=)) |
(search pat target :test-not #'char>=)) |
|
4) |
|
178 |
|
4) |
179 |
|
|
180 |
|
;;; Specialized strings |
181 |
|
|
182 |
|
(deftest search-string.19 |
183 |
|
(do-special-strings |
184 |
|
(s "a" nil) |
185 |
|
(assert (eql (search s "xyza123apqr") 3)) |
186 |
|
(assert (eql (search s "xyza1a3apqr" :start2 4) 5)) |
187 |
|
(assert (eql (search s "xyza123apqr" :from-end t) 7))) |
188 |
|
nil) |
189 |
|
|
190 |
|
(deftest search-string.20 |
191 |
|
(do-special-strings |
192 |
|
(s "xababcdefabc123ababc18" nil) |
193 |
|
(assert (eql (search "abc" s) 3)) |
194 |
|
(assert (eql (search "abc" s :start2 4) 9)) |
195 |
|
(assert (eql (search "abc" s :from-end t) 17))) |
196 |
|
nil) |
197 |
|
|