diff --git a/ansi-tests/declaration.lsp b/ansi-tests/declaration.lsp index e3f7b9e91ca95164f2644648e43657cc0d4c52a3..5ee823f723cebb84a25c4cc6c98d24f6df7fa79f 100644 --- a/ansi-tests/declaration.lsp +++ b/ansi-tests/declaration.lsp @@ -21,7 +21,7 @@ nil) nil) -;;; For the error tests, see the page in the CLHS for TYPE. +;;; For the error tests, see the page in the CLHS for TYPE: ;;; "A symbol cannot be both the name of a type and the name ;;; of a declaration. Defining a symbol as the name of a class, ;;; structure, condition, or type, when the symbol has been @@ -61,7 +61,7 @@ (deftest declaration.9 (let ((sym (gensym))) - (eval `(defstruct ,sym a b c) error) + (eval `(defstruct ,sym a b c)) (eval `(signals-error-always (proclaim '(declaration ,sym)) error))) t t)