Use CHAR= instead of CHAR-EQUAL in SPACE-CHAR-P.