Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ansi-test
ansi-test
Commits
66fcf657
Commit
66fcf657
authored
May 30, 2017
by
Daniel Kochmański
Browse files
defstruct: add another error test.
parent
31666834
Changes
1
Hide whitespace changes
Inline
Side-by-side
structures/structures-02.lsp
View file @
66fcf657
...
...
@@ -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)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment