subtypep-function.lsp 525 Bytes