From b57f6029c505b50eb9bfa97784627076ed4242f6 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Thu, 5 Jan 2012 22:04:44 -0800
Subject: [PATCH] The SIGFPE with no exceptions clause really only applies when
 we're not running on solaris/x86.

---
 src/code/float-trap.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index 0ac3898d0..d800e1486 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -299,10 +299,10 @@
 	     ;; actually save the status word of the FPU.  The
 	     ;; operands also seem to be missing.  Signal a general
 	     ;; arithmetic error.
-	     #+solaris
+	     #+(and x86 solaris)
 	     (error 'arithmetic-error :operands operands)
-	     #-solaris
-	     (error (intl:gettext "SIGFPE with no exceptions currently enabled?")))))))
+	     #-(and x86 solaris)
+	     (error _"SIGFPE with no exceptions currently enabled?"))))))
 
 ;;; WITH-FLOAT-TRAPS-MASKED  --  Public
 ;;;
-- 
GitLab