257 |
(adjoin (copy-seq "aaa") '(aaa "AAA" "aaa" #\a) |
(adjoin (copy-seq "aaa") '(aaa "AAA" "aaa" #\a) |
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 |
262 |
|
(adjoin 'a '(b c) :bad t :allow-other-keys t) |
263 |
|
(a b c)) |
264 |
|
|
265 |
|
(deftest adjoin-other-keys-2 |
266 |
|
(adjoin 'a '(b c) :allow-other-keys t :foo t) |
267 |
|
(a b c)) |
268 |
|
|
269 |
|
(deftest adjoin-repeat-key |
270 |
|
(adjoin 'a '(b c) :test #'eq :test (complement #'eq)) |
271 |
|
(a b c)) |
272 |
|
|
273 |
|
(deftest adjoin.error.1 |
274 |
|
(classify-error (adjoin)) |
275 |
|
program-error) |
276 |
|
|
277 |
|
(deftest adjoin.error.2 |
278 |
|
(classify-error (adjoin 'a)) |
279 |
|
program-error) |
280 |
|
|
281 |
|
(deftest adjoin.error.3 |
282 |
|
(classify-error (adjoin 'a '(b c) :bad t)) |
283 |
|
program-error) |
284 |
|
|
285 |
|
(deftest adjoin.error.4 |
286 |
|
(classify-error (adjoin 'a '(b c) :allow-other-keys nil :bad t)) |
287 |
|
program-error) |
288 |
|
|
289 |
|
(deftest adjoin.error.5 |
290 |
|
(classify-error (adjoin 'a '(b c) 1 2)) |
291 |
|
program-error) |
292 |
|
|
293 |
|
(deftest adjoin.error.6 |
294 |
|
(classify-error (adjoin 'a '(b c) :test)) |
295 |
|
program-error) |