[Ecls-list] BUG: floating point underflow in TAN

[Eric Marsden]

Hi,

,----
| > (tan (coerce (/ pi 4) 'single-float))
| #<a FLOATING-POINT-UNDERFLOW>
| Broken at EVAL.No restarts available.
| Broken at TAN.
| >> :pop
| Top level.
| > (tan (coerce (/ pi 4) 'short-float))
| #<a FLOATING-POINT-UNDERFLOW>
| Broken at EVAL.No restarts available.
| Broken at TAN.
`----

ECL compiled from CVS on Linux/AMD64.

-- 
Eric Marsden