diff options
| author | Stas Boukarev <stassats@gmail.com> | 2024-09-09 16:37:06 +0300 |
|---|---|---|
| committer | Stas Boukarev <stassats@gmail.com> | 2024-09-09 16:38:12 +0300 |
| commit | bbb26c73f3420930697b3e81184762f5d4c3d2e7 (patch) | |
| tree | 4659cb89fdd31147a578f2aac853ec15ef5c315d /tests/seq.pure.lisp | |
| parent | 1feba143a92815d725aa73f578a484352a82d766 (diff) | |
sequence-lvar-dimensions: a cons has at least 1 element.
Diffstat (limited to 'tests/seq.pure.lisp')
| -rw-r--r-- | tests/seq.pure.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp index 51c72d880..41d01a001 100644 --- a/tests/seq.pure.lisp +++ b/tests/seq.pure.lisp @@ -931,4 +931,9 @@ (assert-type (lambda (x) (concatenate 'list '(1 2 3) x)) + cons) + (assert-type + (lambda (x) + (declare (cons x)) + (concatenate 'list x x)) cons)) |