152 |
(multiple-value-list (funcall fn '(a b c))))) |
(multiple-value-list (funcall fn '(a b c))))) |
153 |
() (a b c) (1 2 3 4 5 6) ((b))) |
() (a b c) (1 2 3 4 5 6) ((b))) |
154 |
|
|
155 |
|
(deftest defgeneric-method-combination.append.9 |
156 |
|
(handler-case |
157 |
|
(let ((fn (eval '(defgeneric dg-mc.append.9 (x) |
158 |
|
(:method-combination append))))) |
159 |
|
(funcall fn '(a))) |
160 |
|
(error () :error)) |
161 |
|
:error) |
162 |
|
|
163 |
|
(deftest defgeneric-method-combination.append.10 |
164 |
|
(handler-case |
165 |
|
(eval '(defgeneric dg-mc.append.10 (x) |
166 |
|
(:method-combination append) |
167 |
|
(:method ((x t)) '(a)))) |
168 |
|
(error () :error)) |
169 |
|
:error) |
170 |
|
|
171 |
|
(deftest defgeneric-method-combination.append.11 |
172 |
|
(handler-case |
173 |
|
(eval '(defgeneric dg-mc.append.11 (x) |
174 |
|
(:method-combination append) |
175 |
|
(:method nonsense ((x t)) '(a)))) |
176 |
|
(error () :error)) |
177 |
|
:error) |
178 |
|
|
179 |
|
(deftest defgeneric-method-combination.append.12 |
180 |
|
(let ((fn (eval '(defgeneric dg-mc.append.12 (x) |
181 |
|
(:method-combination append) |
182 |
|
(:method :around ((x t)) '(a)) |
183 |
|
(:method append ((x integer)) x))))) |
184 |
|
(handler-case (funcall fn '(b)) |
185 |
|
(error () :error))) |
186 |
|
:error) |