subtypep-real.lsp 5.43 KB