187 |
#'<)))) |
#'<)))) |
188 |
(1 4 6 10 44 101)) |
(1 4 6 10 44 101)) |
189 |
|
|
190 |
;; Check that union uses eql, not equal or eq |
;;; Check that union uses eql, not equal or eq |
191 |
|
|
192 |
(deftest union-26 |
(deftest union-26 |
193 |
(let ((x 1000) |
(let ((x 1000) |
264 |
#'<)) |
#'<)) |
265 |
(1 2 3 4 5 6)) |
(1 2 3 4 5 6)) |
266 |
|
|
267 |
|
(deftest union-32 |
268 |
|
(sort (union (list 7 9 1 5) (list 10 11 9 20 1 2) :bad t |
269 |
|
:allow-other-keys "yes") |
270 |
|
#'<) |
271 |
|
(1 2 5 7 9 10 11 20)) |
272 |
|
|
273 |
|
(deftest union-33 |
274 |
|
(sort (union (list 7 9 1 5) (list 10 11 9 20 1 2) |
275 |
|
:allow-other-keys t :also-bad t) |
276 |
|
#'<) |
277 |
|
(1 2 5 7 9 10 11 20)) |
278 |
|
|
279 |
|
(deftest union-34 |
280 |
|
(sort (union (list 1 2 3) (list 1 2 3) |
281 |
|
:allow-other-keys t :also-bad t |
282 |
|
:test #'(lambda (x y) (= x (+ y 100)))) |
283 |
|
#'<) |
284 |
|
(1 1 2 2 3 3)) |
285 |
|
|
286 |
|
|
287 |
(deftest union.error.1 |
(deftest union.error.1 |
288 |
(classify-error (union)) |
(classify-error (union)) |
289 |
program-error) |
program-error) |