232 |
(deftest subsetp.error.6 |
(deftest subsetp.error.6 |
233 |
(classify-error (subsetp nil nil :bad t :allow-other-keys nil)) |
(classify-error (subsetp nil nil :bad t :allow-other-keys nil)) |
234 |
program-error) |
program-error) |
235 |
|
|
236 |
|
(deftest subsetp.error.7 |
237 |
|
(classify-error (subsetp (list 1 2) (list 3 4) :test #'identity)) |
238 |
|
program-error) |
239 |
|
|
240 |
|
(deftest subsetp.error.8 |
241 |
|
(classify-error (subsetp (list 1 2) (list 3 4) :test-not #'identity)) |
242 |
|
program-error) |
243 |
|
|
244 |
|
(deftest subsetp.error.9 |
245 |
|
(classify-error (subsetp (list 1 2) (list 3 4) :key #'cons)) |
246 |
|
program-error) |
247 |
|
|
248 |
|
(deftest subsetp.error.10 |
249 |
|
(classify-error (subsetp (list 1 2) (list 3 4) :key #'car)) |
250 |
|
type-error) |