/[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.60.2.3 by rtoy, Wed Feb 10 01:28:48 2010 UTC revision 1.60.2.4 by rtoy, Wed Feb 10 14:07:36 2010 UTC
# Line 332  Line 332 
332                 :base base                 :base base
333                 :power power)                 :power power)
334        (continue ()        (continue ()
335          :report "Continue with calculation")          :report (lambda (condition stream)
336                      (declare (ignore condition))
337                      (write-string _"Continue with calculation" stream)))
338        (new-limit ()        (new-limit ()
339          :report "Continue with calculation, update limit"          :report (lambda (condition stream)
340                      (declare (ignore condition))
341                      (write-string _"Continue with calculation, update limit" stream))
342          (setq *intexp-maximum-exponent* (abs power)))))          (setq *intexp-maximum-exponent* (abs power)))))
343    (cond ((minusp power)    (cond ((minusp power)
344           (/ (intexp base (- power))))           (/ (intexp base (- power))))

Legend:
Removed from v.1.60.2.3  
changed lines
  Added in v.1.60.2.4

  ViewVC Help
Powered by ViewVC 1.1.5