1418 |
nil) |
nil) |
1419 |
|
|
1420 |
|
|
1421 |
|
;;; Check that all types that are classes name classes. |
1422 |
|
|
1423 |
|
;;; "Many but not all of the predefined type specifiers have |
1424 |
|
;;; a corresponding class with the same proper name as the type. |
1425 |
|
;;; These type specifiers are listed in Figure 4-8." -- section 4.3.7 |
1426 |
|
|
1427 |
|
(deftest cl-types-that-are-classes-symbols.1 |
1428 |
|
;; Collect class names that violate the condition in the |
1429 |
|
;; above quotation. |
1430 |
|
(loop |
1431 |
|
for s in *cl-types-that-are-classes-symbols* |
1432 |
|
for c = (find-class s nil) |
1433 |
|
unless (and c |
1434 |
|
(eq (class-name c) s) |
1435 |
|
(typep c 'class)) |
1436 |
|
collect s) |
1437 |
|
nil) |