41 |
nil) |
nil) |
42 |
|
|
43 |
(deftest defgeneric.error.4 |
(deftest defgeneric.error.4 |
44 |
(classify-error (defgeneric defgeneric-error-fn.4 (x x))) |
(classify-error (defgeneric defgeneric-error-fn.4 (x y) |
45 |
|
(:argument-precedence-order x y x))) |
46 |
program-error) |
program-error) |
47 |
|
|
48 |
(deftest defgeneric.error.5 |
(deftest defgeneric.error.5 |
65 |
(error () :good)) |
(error () :good)) |
66 |
:good) |
:good) |
67 |
|
|
|
|
|
68 |
|
(deftest defgeneric.error.8 |
69 |
|
(classify-error (defgeneric defgeneric-error-fn.8 (x y) |
70 |
|
(:argument-precedence-order x))) |
71 |
|
program-error) |