Skip to content
Snippets Groups Projects
Commit 66fcf657 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

defstruct: add another error test.

parent 31666834
No related branches found
No related tags found
No related merge requests found
......@@ -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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment