diff --git a/structures/structures-02.lsp b/structures/structures-02.lsp index ded3df0eab48039d39aa7cdfaf293d69cb743ff3..af29e2b363078d85dd056eaac3890fe5dac12a59 100644 --- a/structures/structures-02.lsp +++ b/structures/structures-02.lsp @@ -511,3 +511,14 @@ (:predicate struct-test.error.3)))")) simple-error) t) + +;;; If named option is supplied, then 0th element is vector type (a +;;; symbol), not the 1st one. +(deftest defstruct.error.4 + (signals-error + (eval (read-from-string + "(defstruct (struct-test.error.4 (:type (vector single-float)) + (:predicate struct-test.error.4) + :named))")) + simple-error) + t)