56 |
'error))) |
'error))) |
57 |
nil t t t) |
nil t t t) |
58 |
|
|
59 |
|
;;; Many more tests are needed for other combinations of keyword parameters |
60 |
|
|
61 |
|
(deftest ensure-generic-function.error.1 |
62 |
|
(classify-error (ensure-generic-function)) |
63 |
|
program-error) |
64 |
|
|
65 |
|
(deftest ensure-generic-function.error.2 |
66 |
|
(classify-error (ensure-generic-function (gensym) :lambda-list)) |
67 |
|
program-error) |
68 |
|
|
69 |
|
(deftest ensure-generic-function.error.3 |
70 |
|
(classify-error (ensure-generic-function (gensym) :allow-other-keys t |
71 |
|
'("not a valid keyword") nil)) |
72 |
|
program-error) |
73 |
|
|
74 |
|
|
75 |
|
|
76 |
|
|
77 |
|
|