From 9ceb956a6341f9ebe21df79f39b584eda2ce9729 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 11 Dec 2009 00:28:36 +0000 Subject: [PATCH] Oops. When we continue from the intexp-limit-error condition and set a new limit, we want to take the absolute value of the power! --- code/irrat.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/irrat.lisp b/code/irrat.lisp index ddcb43a45..c78db707b 100644 --- a/code/irrat.lisp +++ b/code/irrat.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.59 2009/03/18 01:24:52 rtoy Rel $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.60 2009/12/11 00:28:36 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -334,7 +334,7 @@ :report "Continue with calculation") (new-limit () :report "Continue with calculation, update limit" - (setq *intexp-maximum-exponent* power)))) + (setq *intexp-maximum-exponent* (abs power))))) (cond ((minusp power) (/ (intexp base (- power)))) ((eql base 2) -- GitLab