263 |
#'<)) |
#'<)) |
264 |
(1 2 3 4 5 6)) |
(1 2 3 4 5 6)) |
265 |
|
|
266 |
|
(deftest nunion-32 |
267 |
|
(sort (nunion (list 7 9 1 5) (list 10 11 9 20 1 2) :bad t |
268 |
|
:allow-other-keys "yes") |
269 |
|
#'<) |
270 |
|
(1 2 5 7 9 10 11 20)) |
271 |
|
|
272 |
|
(deftest nunion-33 |
273 |
|
(sort (nunion (list 7 9 1 5) (list 10 11 9 20 1 2) |
274 |
|
:allow-other-keys t :also-bad t) |
275 |
|
#'<) |
276 |
|
(1 2 5 7 9 10 11 20)) |
277 |
|
|
278 |
|
(deftest nunion-34 |
279 |
|
(sort (nunion (list 1 2 3) (list 1 2 3) |
280 |
|
:allow-other-keys t :also-bad t |
281 |
|
:test #'(lambda (x y) (= x (+ y 100)))) |
282 |
|
#'<) |
283 |
|
(1 1 2 2 3 3)) |
284 |
|
|
285 |
(deftest nunion.error.1 |
(deftest nunion.error.1 |
286 |
(classify-error (nunion)) |
(classify-error (nunion)) |
287 |
program-error) |
program-error) |