subtypep-float.lsp 11.5 KB