subtypep.lsp 16.2 KB