258 |
:test-not (complement #'equal) :key nil) |
:test-not (complement #'equal) :key nil) |
259 |
(aaa "AAA" "aaa" #\a)) |
(aaa "AAA" "aaa" #\a)) |
260 |
|
|
261 |
(deftest adjoin-other-keys-1 |
(deftest adjoin.allow-other-keys.1 |
262 |
(adjoin 'a '(b c) :bad t :allow-other-keys t) |
(adjoin 'a '(b c) :bad t :allow-other-keys t) |
263 |
(a b c)) |
(a b c)) |
264 |
|
|
265 |
(deftest adjoin-other-keys-2 |
(deftest adjoin.allow-other-keys.2 |
266 |
(adjoin 'a '(b c) :allow-other-keys t :foo t) |
(adjoin 'a '(b c) :allow-other-keys t :foo t) |
267 |
(a b c)) |
(a b c)) |
268 |
|
|
269 |
|
(deftest adjoin.allow-other-keys.3 |
270 |
|
(adjoin 'a '(b c) :allow-other-keys t) |
271 |
|
(a b c)) |
272 |
|
|
273 |
|
(deftest adjoin.allow-other-keys.4 |
274 |
|
(adjoin 'a '(b c) :allow-other-keys nil) |
275 |
|
(a b c)) |
276 |
|
|
277 |
|
(deftest adjoin.allow-other-keys.5 |
278 |
|
(adjoin 'a '(b c) :allow-other-keys t :allow-other-keys nil 'bad t) |
279 |
|
(a b c)) |
280 |
|
|
281 |
(deftest adjoin-repeat-key |
(deftest adjoin-repeat-key |
282 |
(adjoin 'a '(b c) :test #'eq :test (complement #'eq)) |
(adjoin 'a '(b c) :test #'eq :test (complement #'eq)) |
283 |
(a b c)) |
(a b c)) |