7 |
|
|
8 |
(declaim (special *x*)) |
(declaim (special *x*)) |
9 |
|
|
10 |
|
(compile-and-load "defgeneric-method-combination-aux.lsp") |
11 |
|
|
12 |
(deftest defgeneric-method-combination.append.1 |
(deftest defgeneric-method-combination.append.1 |
13 |
(let ((*x* nil) |
(let ((*x* nil) |
14 |
(fn |
(fn |
172 |
:error) |
:error) |
173 |
|
|
174 |
(deftest defgeneric-method-combination.append.10 |
(deftest defgeneric-method-combination.append.10 |
175 |
(handler-case |
(progn |
176 |
(eval '(defgeneric dg-mc.append.10 (x) |
(eval '(defgeneric dg-mc.append.10 (x) |
177 |
(:method-combination append) |
(:method-combination append) |
178 |
(:method ((x t)) '(a)))) |
(:method ((x t)) '(a)))) |
179 |
(error () :error)) |
(handler-case |
180 |
|
(dg-mc.append.10 'x) |
181 |
|
(error () :error))) |
182 |
:error) |
:error) |
183 |
|
|
184 |
(deftest defgeneric-method-combination.append.11 |
(deftest defgeneric-method-combination.append.11 |
185 |
(handler-case |
(progn |
186 |
(eval '(defgeneric dg-mc.append.11 (x) |
(eval '(defgeneric dg-mc.append.11 (x) |
187 |
(:method-combination append) |
(:method-combination append) |
188 |
(:method nonsense ((x t)) '(a)))) |
(:method nonsense ((x t)) '(a)))) |
189 |
(error () :error)) |
(handler-case |
190 |
|
(dg-mc.append.11 0) |
191 |
|
(error () :error))) |
192 |
:error) |
:error) |
193 |
|
|
194 |
(deftest defgeneric-method-combination.append.12 |
(deftest defgeneric-method-combination.append.12 |