Skip to content
Snippets Groups Projects
Commit 8c4be138 authored by rtoy's avatar rtoy
Browse files

(format nil "~9,,,-7E" pi) was not printing any significant digits.

Make sure the position arg to flonum-to-string is non-negative in this
case.
parent d471e7c1
No related branches found
No related tags found
No related merge requests found
......@@ -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.104 2005/06/14 15:59:14 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.105 2005/06/15 12:45:00 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1451,9 +1451,10 @@ radix-R. If you have a power-list then pass it in as PL."
(if (and width (> width 1))
(let ((w (multiple-value-list
(flonum-to-digits x
(+ (1- width)
(if (and scale (minusp scale))
scale 0))
(max 0
(+ (1- width)
(if (and scale (minusp scale))
scale 0)))
t)))
(f (multiple-value-list
(flonum-to-digits x (- (+ (or fmin 0)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment