142 |
(multiple-value-list (funcall fn #c(9 8))) |
(multiple-value-list (funcall fn #c(9 8))) |
143 |
(multiple-value-list (funcall fn '(a b c))))) |
(multiple-value-list (funcall fn '(a b c))))) |
144 |
() (a b c) (1 2 3 4 5 6) (b)) |
() (a b c) (1 2 3 4 5 6) (b)) |
145 |
|
|
146 |
|
(deftest defgeneric-method-combination.or.9 |
147 |
|
(handler-case |
148 |
|
(let ((fn (eval '(defgeneric dg-mc.or.9 (x) |
149 |
|
(:method-combination or))))) |
150 |
|
(funcall fn (list 'a))) |
151 |
|
(error () :error)) |
152 |
|
:error) |
153 |
|
|
154 |
|
(deftest defgeneric-method-combination.or.10 |
155 |
|
(handler-case |
156 |
|
(eval '(defgeneric dg-mc.or.10 (x) |
157 |
|
(:method-combination or) |
158 |
|
(:method ((x t)) 0))) |
159 |
|
(error () :error)) |
160 |
|
:error) |
161 |
|
|
162 |
|
(deftest defgeneric-method-combination.or.11 |
163 |
|
(handler-case |
164 |
|
(eval '(defgeneric dg-mc.or.11 (x) |
165 |
|
(:method-combination or) |
166 |
|
(:method nonsense ((x t)) 0))) |
167 |
|
(error () :error)) |
168 |
|
:error) |
169 |
|
|
170 |
|
(deftest defgeneric-method-combination.or.12 |
171 |
|
(let ((fn (eval '(defgeneric dg-mc.or.12 (x) |
172 |
|
(:method-combination or) |
173 |
|
(:method :around ((x t)) t) |
174 |
|
(:method or ((x integer)) x))))) |
175 |
|
(handler-case (funcall fn 'a) |
176 |
|
(error () :error))) |
177 |
|
:error) |