CMUCL commit: src/code (irrat.lisp)

[Raymond Toy]

    Date: Thursday, December 10, 2009 @ 19:28:36
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: irrat.lisp

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!


------------+
 irrat.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/code/irrat.lisp
diff -u src/code/irrat.lisp:1.59 src/code/irrat.lisp:1.60
--- src/code/irrat.lisp:1.59	Tue Mar 17 21:24:52 2009
+++ src/code/irrat.lisp	Thu Dec 10 19:28:36 2009
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/irrat.lisp,v 1.59 2009-03-18 01:24:52 rtoy Rel $")
+  "$Header: /project/cmucl/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)