X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffloat-trap.lisp;h=fcb29d0f41a6d363fa4b31c02912de9d65acd6fa;hb=84271f268f29364b57bfeb1b37642311eb8ab910;hp=c2e44e584f1431069df588f45865db866511fda3;hpb=5037c9ac22cbab91eb3cf1ee6261c8589e17e81d;p=sbcl.git

diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index c2e44e5..fcb29d0 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -100,7 +100,8 @@
       (if fast-mode
 	  (setq modes (logior float-fast-bit modes))
 	  (setq modes (logand (lognot float-fast-bit) modes))))
-    (setf (floating-point-modes) modes))
+    ;; FIXME: This apparently doesn't work on Darwin
+    #!-darwin (setf (floating-point-modes) modes))
 
   (values))