subtypep-float.lsp 11 KB