EQUALP.17

[Bruno H. <br...@cl...>]

Hi Paul,

The new EQUALP.17 test fails on clisp:
  (loop for i = (random 1000000) ...)
generates integers that have more precision than a short-float can accomodate.
In clisp,
  (loop for i = (random 131072) ...)
works because clisp's short-floats have 16+1 mantissa bits.

ANSI CL HyperSpec/Body/typ_short-flo_m_long-float.html#short-float
actually guarantees you only 13 bits of precision, i.e. the test needs to be
changed to
  (loop for i = (random 8192) ...)

Bruno