From 4029eb17f4fb27fd46ba88c7623dab46e0a78742 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 30 Oct 1994 18:04:20 +0000
Subject: [PATCH] Fix float-bignum-ratio to return correctly.

---
 code/float.lisp | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/code/float.lisp b/code/float.lisp
index b3c45164f..a16ebff1c 100644
--- a/code/float.lisp
+++ b/code/float.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float.lisp,v 1.12 1994/04/06 17:10:33 hallgren Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float.lisp,v 1.13 1994/10/30 18:04:20 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -714,12 +714,13 @@
 	      (cond ((/= extra 1)
 		     (assert (> extra 1)))
 		    ((oddp fraction-and-guard)
-		     (if (zerop rem)
-			 (float-and-scale
-			  (if (zerop (logand fraction-and-guard 2))
-			      fraction-and-guard
-			      (1+ fraction-and-guard)))
-			 (return (float-and-scale (1+ fraction-and-guard)))))
+		     (return
+		      (if (zerop rem)
+			  (float-and-scale
+			   (if (zerop (logand fraction-and-guard 2))
+			       fraction-and-guard
+			       (1+ fraction-and-guard)))
+			  (float-and-scale (1+ fraction-and-guard)))))
 		    (t
 		     (return (float-and-scale fraction-and-guard)))))
 	    (setq shifted-num (ash shifted-num -1))
-- 
GitLab