some functions signal floating point exceptions

byulparan · Feb 4, 2018 · 9c3a9c0 · 9c3a9c0
1 parent 0e3da28
commit 9c3a9c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/examples.lisp b/examples/examples.lisp
@@ -15,7 +15,7 @@
    For non SBCL this wraps body in a progn."
   `(trivial-main-thread:call-in-main-thread
     (lambda () 
-      #+sbcl (sb-int:with-float-traps-masked (:invalid :divide-by-zero)
+      #+sbcl (sb-int:with-float-traps-masked (:invalid :divide-by-zero :overflow)
 	       ,@body)
       #+ccl (unwind-protect (progn
 			       (ccl:set-fpu-mode :invalid nil)