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