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

diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index 4bd83cb..6a02139 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -118,7 +118,8 @@ in effect."
             (or (cdr (assoc precision *precision-mode-alist*))
                 (error "unknown precision mode: ~S" precision))))
     ;; FIXME: This apparently doesn't work on Darwin
-    #!-darwin (setf (floating-point-modes) modes))
+    #!-(and darwin ppc)
+    (setf (floating-point-modes) modes))
   (values))
 
 (defun get-floating-point-modes ()