150 |
(assoc 10 '((1 a) (5 b) (8 c) (11 d) (12 e)) :test-not #'>=) |
(assoc 10 '((1 a) (5 b) (8 c) (11 d) (12 e)) :test-not #'>=) |
151 |
(11 d)) |
(11 d)) |
152 |
|
|
153 |
|
;;; :test & :test-not together are harmless |
154 |
|
|
155 |
|
(defharmless assoc.test-and-test-not.1 |
156 |
|
(assoc 'a '((a . 1) (b . 2)) :test #'eql :test-not #'eql)) |
157 |
|
|
158 |
|
(defharmless assoc.test-and-test-not.2 |
159 |
|
(assoc 'a '((a . 1) (b . 2)) :test-not #'eql :test #'eql)) |
160 |
|
|
161 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
162 |
|
|
163 |
(deftest assoc.order.1 |
(deftest assoc.order.1 |