From 66fcf657d422ff41f4f84b3fb3a3627766685aa3 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski <daniel@turtleware.eu> Date: Tue, 30 May 2017 20:04:31 +0200 Subject: [PATCH] defstruct: add another error test. --- structures/structures-02.lsp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/structures/structures-02.lsp b/structures/structures-02.lsp index ded3df0e..af29e2b3 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) -- GitLab