Eliminated redundant type testing.

Eliminated redundant type testing.

Argument type testing in NUMBER-EQUAL was repeated when FLOAT-EQUAL or
COMPLEX-EQUAL were called. Similarly, type testing was repeated when
FLOAT-EQUAL was called from COMPLEX-EQUAL. To remove these redundant
tests, auxiliary functions %FLOAT-EQUAL and %COMPLEX-EQUAL were
created that do not test the types of the arguments. These functions
are called directly from NUMBER-EQUAL, COMPLEX-EQUAL or FLOAT-EQUAL
where the type tests are performed, eliminating redundant type
testing.