changed type specifier for coercing ratio to float

As the ".. printer uses *read-default-float-format* to guide the choice
of exponent markers when printing floating-point numbers .."
(see: http://www.lispworks.com/documentation/HyperSpec/Body/v_rd_def.htm#STread-default-float-formatST),
using *read-default-float-format* when coercing ratios to floats avoids
printing of exponent markers when *read-default-float-format* is set to
something different then single-float.