263 |
#'<)) |
#'<)) |
264 |
(1 2 3 4 5 6)) |
(1 2 3 4 5 6)) |
265 |
|
|
266 |
|
(deftest nunion.error.1 |
267 |
|
(classify-error (nunion)) |
268 |
|
program-error) |
269 |
|
|
270 |
|
(deftest nunion.error.2 |
271 |
|
(classify-error (nunion nil)) |
272 |
|
program-error) |
273 |
|
|
274 |
|
(deftest nunion.error.3 |
275 |
|
(classify-error (nunion nil nil :bad t)) |
276 |
|
program-error) |
277 |
|
|
278 |
|
(deftest nunion.error.4 |
279 |
|
(classify-error (nunion nil nil :key)) |
280 |
|
program-error) |
281 |
|
|
282 |
|
(deftest nunion.error.5 |
283 |
|
(classify-error (nunion nil nil 1 2)) |
284 |
|
program-error) |
285 |
|
|
286 |
|
(deftest nunion.error.6 |
287 |
|
(classify-error (nunion nil nil :bad t :allow-other-keys nil)) |
288 |
|
program-error) |