From 3d80122b46549deb087e5b57c3eda676eb94d4d7 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 2 Feb 2004 23:57:15 +0000
Subject: [PATCH] Added more arrays with specialized array element types.

---
 ansi-tests/universe.lsp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ansi-tests/universe.lsp b/ansi-tests/universe.lsp
index c9ee5be3..6d48cb4f 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*
-- 
GitLab