subtypep-cons.lsp 10.7 KB