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