subtypep-array.lsp 2.61 KB