projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Let OFFSET-CONFLICTS-IN-SB check multiple offsets at a time
[sbcl.git]
/
tests
/
defstruct.impure.lisp
diff --git
a/tests/defstruct.impure.lisp
b/tests/defstruct.impure.lisp
index
9bfc78c
..
08b27d9
100644
(file)
--- a/
tests/defstruct.impure.lisp
+++ b/
tests/defstruct.impure.lisp
@@
-1141,7
+1141,7
@@
redefinition."
(let ((sb-ext:*evaluator-mode* :compile))
(handler-bind ((warning #'error))
(eval `(let ()
(let ((sb-ext:*evaluator-mode* :compile))
(handler-bind ((warning #'error))
(eval `(let ()
- (defstruct destruct-no-warning-not-at-toplevel bar))))))
+ (defstruct defstruct-no-warning-not-at-toplevel bar))))))
(with-test (:name :bug-941102)
(let ((test `((defstruct bug-941102)
(with-test (:name :bug-941102)
(let ((test `((defstruct bug-941102)
@@
-1153,3
+1153,8
@@
redefinition."
(multiple-value-bind (warn2 fail2) (ctu:file-compile test)
(assert (not warn2))
(assert (not fail2)))))
(multiple-value-bind (warn2 fail2) (ctu:file-compile test)
(assert (not warn2))
(assert (not fail2)))))
+
+(with-test (:name (defstruct :constant-slot-names))
+ (defstruct defstruct-constant-slot-names t)
+ (assert (= 3 (defstruct-constant-slot-names-t
+ (make-defstruct-constant-slot-names :t 3)))))