347 |
(classify-error (set-exclusive-or (list 1 2) (list 3 4) :key #'car)) |
(classify-error (set-exclusive-or (list 1 2) (list 3 4) :key #'car)) |
348 |
type-error) |
type-error) |
349 |
|
|
350 |
|
(deftest set-exclusive-or.error.11 |
351 |
|
(classify-error (set-exclusive-or (list 1 2 3) (list* 4 5 6))) |
352 |
|
type-error) |
353 |
|
|
354 |
|
(deftest set-exclusive-or.error.12 |
355 |
|
(classify-error (set-exclusive-or (list* 1 2 3) (list 4 5 6))) |
356 |
|
type-error) |
357 |
|
|
358 |
|
|
359 |
;;; Randomized test |
;;; Randomized test |
360 |
|
|
710 |
(classify-error (nset-exclusive-or (list 1 2) (list 3 4) :key #'car)) |
(classify-error (nset-exclusive-or (list 1 2) (list 3 4) :key #'car)) |
711 |
type-error) |
type-error) |
712 |
|
|
713 |
|
(deftest nset-exclusive-or.error.11 |
714 |
|
(classify-error (nset-exclusive-or (list 1 2 3) (list* 4 5 6))) |
715 |
|
type-error) |
716 |
|
|
717 |
|
(deftest nset-exclusive-or.error.12 |
718 |
|
(classify-error (nset-exclusive-or (list* 1 2 3) (list 4 5 6))) |
719 |
|
type-error) |