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