/[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.35 by toy, Wed Jan 8 23:28:47 2003 UTC revision 1.36 by toy, Fri Jan 10 17:19:22 2003 UTC
# Line 401  Line 401 
401                 ;; subtracting 1 from it, and converting it to                 ;; subtracting 1 from it, and converting it to
402                 ;; double-float is accurate.                 ;; double-float is accurate.
403                 (if (= (integer-length top)                 (if (= (integer-length top)
404                                 (integer-length bot))                        (integer-length bot))
405                     (coerce (%log1p (coerce (- number 1) 'double-float))                     (coerce (%log1p (coerce (- number 1) 'double-float))
406                             'single-float)                             'single-float)
407                     (coerce (- (log2 top) (log2 bot)) 'single-float)))))                     (coerce (- (log top) (log bot)) 'single-float)))))
408          (((foreach single-float double-float))          (((foreach single-float double-float))
409           ;; Is (log -0) -infinity (libm.a) or -infinity + i*pi (Kahan)?           ;; Is (log -0) -infinity (libm.a) or -infinity + i*pi (Kahan)?
410           ;; Since this doesn't seem to be an implementation issue           ;; Since this doesn't seem to be an implementation issue

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

  ViewVC Help
Powered by ViewVC 1.1.5