fix without_fpe C macro

Closes #317.

src/h/impl/math_fenv.h

@@ -54,7 +54,7 @@
 
 #ifdef HAVE_FENV_H
 # define ECL_WITHOUT_FPE_BEGIN do { fenv_t env; feholdexcept(&env);
-# define ECL_WITHOUT_FPE_END } while (0)
+# define ECL_WITHOUT_FPE_END        fesetenv(&env); } while (0)
 #else
 # define FE_INVALID 1
 # define FE_DIVBYZERO 2

src/lsp/top.lsp

@@ -398,7 +398,6 @@ The top-level loop of ECL. It is called by default when ECL is invoked."
       (in-package "CL-USER")
 
       (unless (or *lisp-initialized* (null process-command-line))
-        (si:trap-fpe :last t)
         (process-command-args)
         (format t "ECL (Embeddable Common-Lisp) ~A (git:~D)"
                 (lisp-implementation-version)