diff --git a/code/print.lisp b/code/print.lisp index 80a1553f71873f84dae7c2c49c8b1d786a5d545c..dd2d11998b7405490d7e0bc4a6059e516ad9e466 100644 --- a/code/print.lisp +++ b/code/print.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/print.lisp,v 1.69 1998/03/26 13:08:55 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.70 1998/04/03 03:37:02 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1488,9 +1488,10 @@ (let* ((ex (round (* exponent (log 2l0 10)))) (x (if (minusp ex) (if (float-denormalized-p x) - (* x 1.0l18 (expt 10.0l0 (- (- ex) - #-long-float 16 - #+long-float 18))) + #-long-float + (* x 1.0l16 (expt 10.0l0 (- (- ex) 16))) + #+long-float + (* x 1.0l18 (expt 10.0l0 (- (- ex) 18))) (* x 10.0l0 (expt 10.0l0 (- (- ex) 1)))) (/ x 10.0l0 (expt 10.0l0 (1- ex)))))) (do ((d 10.0l0 (* d 10.0l0))