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