diff --git a/code/float.lisp b/code/float.lisp index b3c45164f3ef2be2975f712474a30d21eb90ca50..a16ebff1cc840c4b8723e21f61f92f229a93f6a2 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))