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