From 8197ef56f02105dfe825b976f5bf74285a767b42 Mon Sep 17 00:00:00 2001 From: Brian Downing Date: Thu, 26 Oct 2006 03:55:20 +0000 Subject: [PATCH] 0.9.18.4: Fix non-x86 builds. * Make :precision :53-bit in *saved-floating-point-modes* conditional upon #!+x86. --- src/code/float-trap.lisp | 3 ++- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp index 23c5e76..dca6771 100644 --- a/src/code/float-trap.lisp +++ b/src/code/float-trap.lisp @@ -160,7 +160,8 @@ sets the floating point modes to their current values (and thus is a no-op)." (defvar *saved-floating-point-modes* '(:traps (:overflow #!-netbsd :invalid :divide-by-zero) :rounding-mode :nearest :current-exceptions nil - :accrued-exceptions nil :fast-mode nil :precision :53-bit)) + :accrued-exceptions nil :fast-mode nil + #!+x86 :precision #!+x86 :53-bit)) (defun float-cold-init-or-reinit () (apply #'set-floating-point-modes *saved-floating-point-modes*)) diff --git a/version.lisp-expr b/version.lisp-expr index cab40b0..160bbd4 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.18.3" +"0.9.18.4" -- 1.7.10.4