From 89b25db087ce7e8d25e489ca0ac134cc69432727 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Fri, 10 Jan 2003 17:19:22 +0000
Subject: [PATCH] Fix typo in computing log of rational where the numerator and
 denominator are different lengths.  Should be log, not log2.

---
 code/irrat.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/irrat.lisp b/code/irrat.lisp
index 831b566ce..0916998b7 100644
--- a/code/irrat.lisp
+++ b/code/irrat.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.35 2003/01/08 23:28:47 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat.lisp,v 1.36 2003/01/10 17:19:22 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -401,10 +401,10 @@
 	       ;; subtracting 1 from it, and converting it to
 	       ;; double-float is accurate.
 	       (if (= (integer-length top)
-			       (integer-length bot))
+		      (integer-length bot))
 		   (coerce (%log1p (coerce (- number 1) 'double-float))
 			   'single-float)
-		   (coerce (- (log2 top) (log2 bot)) 'single-float)))))
+		   (coerce (- (log top) (log bot)) 'single-float)))))
 	(((foreach single-float double-float))
 	 ;; Is (log -0) -infinity (libm.a) or -infinity + i*pi (Kahan)?
 	 ;; Since this doesn't seem to be an implementation issue
-- 
GitLab