subtypep.lsp 5.17 KB