182 |
:error) |
:error) |
183 |
|
|
184 |
(deftest defgeneric-method-combination.nconc.10 |
(deftest defgeneric-method-combination.nconc.10 |
185 |
(handler-case |
(progn |
186 |
(eval '(defgeneric dg-mc.nconc.10 (x) |
(eval '(defgeneric dg-mc.nconc.10 (x) |
187 |
(:method-combination nconc) |
(:method-combination nconc) |
188 |
(:method ((x t)) (list 'a)))) |
(:method ((x t)) (list 'a)))) |
189 |
(error () :error)) |
(handler-case |
190 |
|
(dg-mc.nconc.10 'a) |
191 |
|
(error () :error))) |
192 |
:error) |
:error) |
193 |
|
|
194 |
(deftest defgeneric-method-combination.nconc.11 |
(deftest defgeneric-method-combination.nconc.11 |
195 |
(handler-case |
(progn |
196 |
(eval '(defgeneric dg-mc.nconc.11 (x) |
(eval '(defgeneric dg-mc.nconc.11 (x) |
197 |
(:method-combination nconc) |
(:method-combination nconc) |
198 |
(:method nonsense ((x t)) (list 'a)))) |
(:method nonsense ((x t)) (list 'a)))) |
199 |
(error () :error)) |
(handler-case |
200 |
|
(dg-mc.nconc.11 0) |
201 |
|
(error () :error))) |
202 |
:error) |
:error) |
203 |
|
|
204 |
(deftest defgeneric-method-combination.nconc.12 |
(deftest defgeneric-method-combination.nconc.12 |