X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffloat-trap.lisp;h=4bd83cb3aeaac9fe7122536131d6a14159a40f9f;hb=cb427254703b615dc5d1e46a3dd8db7a8a9e6d55;hp=897d3109f571907e07c41060346bc6550c03cef3;hpb=ce495da534fd7e2d5452124c210436209115c298;p=sbcl.git

diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index 897d310..4bd83cb 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -158,7 +158,7 @@ sets the floating point modes to their current values (and thus is a no-op)."
 ;;; disabled by default. Joe User can explicitly enable them if
 ;;; desired.
 (defvar *saved-floating-point-modes*
-  '(:traps (:overflow #!-netbsd :invalid :divide-by-zero)
+  '(:traps (:overflow #!-(or netbsd ppc) :invalid :divide-by-zero)
     :rounding-mode :nearest :current-exceptions nil
     :accrued-exceptions nil :fast-mode nil
     #!+x86 :precision #!+x86 :53-bit))