when testing reals. Added a define-type-predicate for REAL, so SOURCE- TRANSFORM-NUMERIC-TYPEP can use it.