From 730b094d8fa24d6dbc0a3a9c44b778af9f9cd6b5 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 23 Jul 2005 14:13:40 +0000
Subject: [PATCH] Added subtype test that came up in gcl cvs HEAD

---
 ansi-tests/subtypep-array.lsp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ansi-tests/subtypep-array.lsp b/ansi-tests/subtypep-array.lsp
index 32a7216e..31dd86bc 100644
--- a/ansi-tests/subtypep-array.lsp
+++ b/ansi-tests/subtypep-array.lsp
@@ -120,6 +120,9 @@
 		collect (list type1 type2))))
   nil)
 
+(deftest subtypep.array.10
+  (subtypep* '(array t nil) 'integer)
+  nil t)
 
 
 ;;;; Tests on the definitions of various vector types
-- 
GitLab