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