139 |
(deftest search-list.15 |
(deftest search-list.15 |
140 |
(let ((pat '(10)) |
(let ((pat '(10)) |
141 |
(target '(1 4 6 10 15 20))) |
(target '(1 4 6 10 15 20))) |
142 |
(search pat target :test #'>)) |
(search pat target :test #'<)) |
143 |
4) |
4) |
144 |
|
|
145 |
(deftest search-list.16 |
(deftest search-list.16 |
146 |
(let ((pat '(10)) |
(let ((pat '(10)) |
147 |
(target '(1 4 6 10 15 20))) |
(target '(1 4 6 10 15 20))) |
148 |
(search pat target :test-not #'<=)) |
(search pat target :test-not #'>=)) |
149 |
4) |
4) |
150 |
|
|
151 |
(defharmless search.test-and-test-not.1 |
(defharmless search.test-and-test-not.1 |