244 |
:error) |
:error) |
245 |
|
|
246 |
(deftest defgeneric-method-combination.progn.10 |
(deftest defgeneric-method-combination.progn.10 |
247 |
(handler-case |
(progn |
248 |
(eval '(defgeneric dg-mc.progn.10 (x) |
(eval '(defgeneric dg-mc.progn.10 (x) |
249 |
(:method-combination progn) |
(:method-combination progn) |
250 |
(:method ((x t)) 0))) |
(:method ((x t)) 0))) |
251 |
(error () :error)) |
(handler-case |
252 |
|
(dg-mc.progn.10 'a) |
253 |
|
(error () :error))) |
254 |
:error) |
:error) |
255 |
|
|
256 |
(deftest defgeneric-method-combination.progn.11 |
(deftest defgeneric-method-combination.progn.11 |
257 |
(handler-case |
(progn |
258 |
(eval '(defgeneric dg-mc.progn.11 (x) |
(eval '(defgeneric dg-mc.progn.11 (x) |
259 |
(:method-combination progn) |
(:method-combination progn) |
260 |
(:method nonsense ((x t)) 0))) |
(:method nonsense ((x t)) 0))) |
261 |
(error () :error)) |
(handler-case |
262 |
|
(dg-mc.progn.11 0) |
263 |
|
(error () :error))) |
264 |
:error) |
:error) |
265 |
|
|
266 |
(deftest defgeneric-method-combination.progn.12 |
(deftest defgeneric-method-combination.progn.12 |