diff --git a/ansi-tests/universe.lsp b/ansi-tests/universe.lsp index c9ee5be3c922db92fc2f67e130b00faeaeda6ff5..6d48cb4fac430e57aee505b9cd293fafd53c1870 100644 --- a/ansi-tests/universe.lsp +++ b/ansi-tests/universe.lsp @@ -250,6 +250,12 @@ for d in *array-dimensions* collect (make-array d :element-type tp))) + ;; More typed arrays + (loop for i from 1 to 64 + append + (list (make-array 10 :element-type `(unsigned-byte ,i)) + (make-array 10 :element-type `(signed-byte ,i)))) + ;; adjustable arrays (loop for d in *array-dimensions*