Function: floatp
Return t if OBJECT is a floating point number.
(fn OBJECT)