diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp index 0ac3898d0857d4a2e7db83e49a4b468a984fb92c..d800e1486a37928fee54f453f5d5d8ccbad6aeff 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 ;;;