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