subtypep-real.lsp 5.47 KB