170 |
:error) |
:error) |
171 |
|
|
172 |
(deftest defgeneric-method-combination.list.10 |
(deftest defgeneric-method-combination.list.10 |
173 |
(handler-case |
(progn |
174 |
(eval '(defgeneric dg-mc.list.10 (x) |
(eval '(defgeneric dg-mc.list.10 (x) |
175 |
(:method-combination list) |
(:method-combination list) |
176 |
(:method ((x t)) (list 'a)))) |
(:method ((x t)) (list 'a)))) |
177 |
(error () :error)) |
(handler-case |
178 |
|
(dg-mc.list.10 'a) |
179 |
|
(error () :error))) |
180 |
:error) |
:error) |
181 |
|
|
182 |
(deftest defgeneric-method-combination.list.11 |
(deftest defgeneric-method-combination.list.11 |
183 |
(handler-case |
(progn |
184 |
(eval '(defgeneric dg-mc.list.11 (x) |
(eval '(defgeneric dg-mc.list.11 (x) |
185 |
(:method-combination list) |
(:method-combination list) |
186 |
(:method nonsense ((x t)) (list 'a)))) |
(:method nonsense ((x t)) (list 'a)))) |
187 |
(error () :error)) |
(handler-case |
188 |
|
(dg-mc.list.11 0) |
189 |
|
(error () :error))) |
190 |
:error) |
:error) |
191 |
|
|
192 |
(deftest defgeneric-method-combination.list.12 |
(deftest defgeneric-method-combination.list.12 |