subtypep.lsp 11 KB