subtypep-function.lsp 559 Bytes