294 |
(classify-error (set-difference nil nil :bad t :allow-other-keys nil)) |
(classify-error (set-difference nil nil :bad t :allow-other-keys nil)) |
295 |
program-error) |
program-error) |
296 |
|
|
297 |
|
(deftest set-difference.error.7 |
298 |
|
(classify-error (set-difference (list 1 2) (list 3 4) :test #'identity)) |
299 |
|
program-error) |
300 |
|
|
301 |
|
(deftest set-difference.error.8 |
302 |
|
(classify-error (set-difference (list 1 2) (list 3 4) :test-not #'identity)) |
303 |
|
program-error) |
304 |
|
|
305 |
|
(deftest set-difference.error.9 |
306 |
|
(classify-error (set-difference (list 1 2) (list 3 4) :key #'cons)) |
307 |
|
program-error) |
308 |
|
|
309 |
|
(deftest set-difference.error.10 |
310 |
|
(classify-error (set-difference (list 1 2) (list 3 4) :key #'car)) |
311 |
|
type-error) |
312 |
|
|
313 |
|
|
314 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
315 |
;;; nset-difference |
;;; nset-difference |
316 |
|
|
595 |
(deftest nset-difference.error.6 |
(deftest nset-difference.error.6 |
596 |
(classify-error (nset-difference nil nil :bad t :allow-other-keys nil)) |
(classify-error (nset-difference nil nil :bad t :allow-other-keys nil)) |
597 |
program-error) |
program-error) |
598 |
|
|
599 |
|
(deftest nset-difference.error.7 |
600 |
|
(classify-error (nset-difference (list 1 2) (list 3 4) :test #'identity)) |
601 |
|
program-error) |
602 |
|
|
603 |
|
(deftest nset-difference.error.8 |
604 |
|
(classify-error (nset-difference (list 1 2) (list 3 4) :test-not #'identity)) |
605 |
|
program-error) |
606 |
|
|
607 |
|
(deftest nset-difference.error.9 |
608 |
|
(classify-error (nset-difference (list 1 2) (list 3 4) :key #'cons)) |
609 |
|
program-error) |
610 |
|
|
611 |
|
(deftest nset-difference.error.10 |
612 |
|
(classify-error (nset-difference (list 1 2) (list 3 4) :key #'car)) |
613 |
|
type-error) |