278 |
(deftest member.error.14 |
(deftest member.error.14 |
279 |
(classify-error (locally (member 'a t) t)) |
(classify-error (locally (member 'a t) t)) |
280 |
type-error) |
type-error) |
281 |
|
|
282 |
|
(deftest member.error.15 |
283 |
|
(classify-error (member 'a '(a b c) :test #'identity)) |
284 |
|
program-error) |
285 |
|
|
286 |
|
(deftest member.error.16 |
287 |
|
(classify-error (member 'a '(a b c) :test-not #'identity)) |
288 |
|
program-error) |
289 |
|
|
290 |
|
(deftest member.error.17 |
291 |
|
(classify-error (member 'a '(a b c) :key #'cons)) |
292 |
|
program-error) |