Skip to content
Snippets Groups Projects
Commit 9ceb956a authored by rtoy's avatar rtoy
Browse files

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!
parent 21883fde
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -334,7 +334,7 @@
:report "Continue with calculation") :report "Continue with calculation")
(new-limit () (new-limit ()
:report "Continue with calculation, update limit" :report "Continue with calculation, update limit"
(setq *intexp-maximum-exponent* power)))) (setq *intexp-maximum-exponent* (abs power)))))
(cond ((minusp power) (cond ((minusp power)
(/ (intexp base (- power)))) (/ (intexp base (- power))))
((eql base 2) ((eql base 2)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment