200 |
(handler-case (funcall fn '(b)) |
(handler-case (funcall fn '(b)) |
201 |
(error () :error))) |
(error () :error))) |
202 |
:error) |
:error) |
203 |
|
|
204 |
|
(deftest defgeneric-method-combination.append.13 |
205 |
|
(progn |
206 |
|
(eval '(defgeneric dg-mc.append.13 (x) |
207 |
|
(:method-combination append) |
208 |
|
(:method append ((x dgmc-class-01)) (list 'foo)) |
209 |
|
(:method append ((x dgmc-class-02)) (list 'bar)) |
210 |
|
(:method nonsense ((x dgmc-class-03)) (list 'bad)))) |
211 |
|
(values |
212 |
|
(dg-mc.append.13 (make-instance 'dgmc-class-01)) |
213 |
|
(dg-mc.append.13 (make-instance 'dgmc-class-02)) |
214 |
|
(handler-case |
215 |
|
(dg-mc.append.13 (make-instance 'dgmc-class-03)) |
216 |
|
(error () :caught)) |
217 |
|
(handler-case |
218 |
|
(dg-mc.append.13 (make-instance 'dgmc-class-04)) |
219 |
|
(error () :caught)) |
220 |
|
(handler-case |
221 |
|
(dg-mc.append.13 (make-instance 'dgmc-class-07)) |
222 |
|
(error () :caught)))) |
223 |
|
(foo) |
224 |
|
(bar foo) |
225 |
|
:caught |
226 |
|
:caught |
227 |
|
:caught) |