subtypep-cons.lsp 8.38 KB