5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(unless #| (fboundp 'class-precedence-list) |# nil |
(eval-when (:load-toplevel :compile-toplevel :execute) |
9 |
(defgeneric class-precedence-list (x) |
(unless #| (fboundp 'class-precedence-list) |# nil |
10 |
(:method-combination list) |
(report-and-ignore-errors |
11 |
. |
(defgeneric class-precedence-list (x) |
12 |
#.(loop for s in *cl-types-that-are-classes-symbols* |
(:method-combination list) |
13 |
collect |
. |
14 |
`(:method list ((x ,s)) ',s)))) |
#.(loop for s in *cl-types-that-are-classes-symbols* |
15 |
|
collect |
16 |
|
`(:method list ((x ,s)) ',s)))))) |
17 |
|
|
18 |
(defmacro def-cpl-test (objform expected-cpl &optional name) |
(defmacro def-cpl-test (objform expected-cpl &optional name) |
19 |
(let* ((ordered (loop for e = expected-cpl then (cdr e) |
(let* ((ordered (loop for e = expected-cpl then (cdr e) |