21 |
nil) |
nil) |
22 |
nil) |
nil) |
23 |
|
|
24 |
;;; For the error tests, see the page in the CLHS for TYPE. |
;;; For the error tests, see the page in the CLHS for TYPE: |
25 |
;;; "A symbol cannot be both the name of a type and the name |
;;; "A symbol cannot be both the name of a type and the name |
26 |
;;; of a declaration. Defining a symbol as the name of a class, |
;;; of a declaration. Defining a symbol as the name of a class, |
27 |
;;; structure, condition, or type, when the symbol has been |
;;; structure, condition, or type, when the symbol has been |
61 |
|
|
62 |
(deftest declaration.9 |
(deftest declaration.9 |
63 |
(let ((sym (gensym))) |
(let ((sym (gensym))) |
64 |
(eval `(defstruct ,sym a b c) error) |
(eval `(defstruct ,sym a b c)) |
65 |
(eval `(signals-error-always (proclaim '(declaration ,sym)) |
(eval `(signals-error-always (proclaim '(declaration ,sym)) |
66 |
error))) |
error))) |
67 |
t t) |
t t) |