164 |
(multiple-value-list (funcall fn '(a b c))))) |
(multiple-value-list (funcall fn '(a b c))))) |
165 |
() (a b c) (1 2 3 4 5 6) ((b))) |
() (a b c) (1 2 3 4 5 6) ((b))) |
166 |
|
|
167 |
|
(deftest defgeneric-method-combination.nconc.9 |
168 |
|
(handler-case |
169 |
|
(let ((fn (eval '(defgeneric dg-mc.nconc.9 (x) |
170 |
|
(:method-combination nconc))))) |
171 |
|
(funcall fn (list 'a))) |
172 |
|
(error () :error)) |
173 |
|
:error) |
174 |
|
|
175 |
|
(deftest defgeneric-method-combination.nconc.10 |
176 |
|
(handler-case |
177 |
|
(eval '(defgeneric dg-mc.nconc.10 (x) |
178 |
|
(:method-combination nconc) |
179 |
|
(:method ((x t)) (list 'a)))) |
180 |
|
(error () :error)) |
181 |
|
:error) |
182 |
|
|
183 |
|
(deftest defgeneric-method-combination.nconc.11 |
184 |
|
(handler-case |
185 |
|
(eval '(defgeneric dg-mc.nconc.11 (x) |
186 |
|
(:method-combination nconc) |
187 |
|
(:method nonsense ((x t)) (list 'a)))) |
188 |
|
(error () :error)) |
189 |
|
:error) |
190 |
|
|
191 |
|
(deftest defgeneric-method-combination.nconc.12 |
192 |
|
(let ((fn (eval '(defgeneric dg-mc.nconc.12 (x) |
193 |
|
(:method-combination nconc) |
194 |
|
(:method :around ((x t)) (list 'a)) |
195 |
|
(:method nconc ((x integer)) x))))) |
196 |
|
(handler-case (funcall fn (list 'b)) |
197 |
|
(error () :error))) |
198 |
|
:error) |