diff --git a/ansi-tests/subtypep-array.lsp b/ansi-tests/subtypep-array.lsp index 32a7216efa7ec3eae52c34791235d8c0f4c06895..31dd86bc7e6cf4faadeef0d64231b278b869ee7c 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