Function Safe-Exp

Part of:

package cl-mathstats
( safe-exp < x > )

Eliminates floating point underflow for the exponential function.
Instead, it just returns 0.0d0