subtypep-cons.lsp 10.8 KB