158 |
:error) |
:error) |
159 |
|
|
160 |
(deftest defgeneric-method-combination.min.10 |
(deftest defgeneric-method-combination.min.10 |
161 |
(handler-case |
(progn |
162 |
(eval '(defgeneric dg-mc.min.10 (x) |
(eval '(defgeneric dg-mc.min.10 (x) |
163 |
(:method-combination min) |
(:method-combination min) |
164 |
(:method ((x t)) 0))) |
(:method ((x t)) 0))) |
165 |
(error () :error)) |
(handler-case |
166 |
|
(dg-mc.min.10 'a) |
167 |
|
(error () :error))) |
168 |
:error) |
:error) |
169 |
|
|
170 |
(deftest defgeneric-method-combination.min.11 |
(deftest defgeneric-method-combination.min.11 |
171 |
(handler-case |
(progn |
172 |
(eval '(defgeneric dg-mc.min.11 (x) |
(eval '(defgeneric dg-mc.min.11 (x) |
173 |
(:method-combination min) |
(:method-combination min) |
174 |
(:method nonsense ((x t)) 0))) |
(:method nonsense ((x t)) 0))) |
175 |
(error () :error)) |
(handler-case |
176 |
|
(dg-mc.min.11 0) |
177 |
|
(error () :error))) |
178 |
:error) |
:error) |
179 |
|
|
180 |
(deftest defgeneric-method-combination.min.12 |
(deftest defgeneric-method-combination.min.12 |