Added function to test whether two floating-point types are the same.
Added function to test whether two floating-point types are the same.

clasp-developers/SICL,vtomole/SICL,vtomole/SICL,clasp-developers/SICL,vtomole/SICL,vtomole/SICL,clasp-developers/SICL,clasp-developers/SICL