167 |
:error) |
:error) |
168 |
|
|
169 |
(deftest defgeneric-method-combination.and.10 |
(deftest defgeneric-method-combination.and.10 |
170 |
(handler-case |
(progn |
171 |
(eval '(defgeneric dg-mc.and.10 (x) |
(eval '(defgeneric dg-mc.and.10 (x) |
172 |
(:method-combination and) |
(:method-combination and) |
173 |
(:method ((x t)) t))) |
(:method ((x t)) t))) |
174 |
(error () :error)) |
(handler-case |
175 |
|
(dg-mc.and.10 'a) |
176 |
|
(error () :error))) |
177 |
:error) |
:error) |
178 |
|
|
179 |
(deftest defgeneric-method-combination.and.11 |
(deftest defgeneric-method-combination.and.11 |
180 |
(handler-case |
(progn |
181 |
(eval '(defgeneric dg-mc.and.11 (x) |
(eval '(defgeneric dg-mc.and.11 (x) |
182 |
(:method-combination and) |
(:method-combination and) |
183 |
(:method nonsense ((x t)) t))) |
(:method nonsense ((x t)) t))) |
184 |
(error () :error)) |
(handler-case |
185 |
|
(dg-mc.and.11 0) |
186 |
|
(error () :error))) |
187 |
:error) |
:error) |
188 |
|
|
189 |
(deftest defgeneric-method-combination.and.12 |
(deftest defgeneric-method-combination.and.12 |
195 |
(handler-case (funcall fn 'x) |
(handler-case (funcall fn 'x) |
196 |
(error () :error))) |
(error () :error))) |
197 |
:error) |
:error) |
|
|
|
|
|
|
|
|
|
|
|
|