/[cmucl]/src/code/irrat.lisp
ViewVC logotype

Diff of /src/code/irrat.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by rtoy, Wed May 3 19:39:56 2006 UTC revision 1.45 by rtoy, Mon May 15 23:56:11 2006 UTC
# Line 186  Line 186 
186  ;;; of power are calculated as positive integers, and inverted if negative.  ;;; of power are calculated as positive integers, and inverted if negative.
187  ;;;  ;;;
188  (defun intexp (base power)  (defun intexp (base power)
189      ;; Handle the special case of 1^power.  Maxima sometimes does this,
190      ;; and there's no need to cause a continuable error in this case.
191      ;; Should we also handle (-1)^power?
192      (when (eql base 1)
193        (return-from intexp base))
194    
195    (when (> (abs power) *intexp-maximum-exponent*)    (when (> (abs power) *intexp-maximum-exponent*)
196      (cerror "Continue with calculation."      (cerror "Continue with calculation."
197              "The absolute value of ~S exceeds ~S."              "The absolute value of ~S exceeds ~S."

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

  ViewVC Help
Powered by ViewVC 1.1.5