From 574c28d355a2a626be7c3e591bdcd5036391da48 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 23 Apr 2004 12:33:39 +0000 Subject: [PATCH] Oops. FLONUM-TO-STRING is still used by FORMAT. (Should replace this with FLONUM-TO-DIGITS someday?) --- code/print.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/code/print.lisp b/code/print.lisp index 549279aaa..c86fbb340 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.92 2004/04/22 21:31:14 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.93 2004/04/23 12:33:39 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1384,7 +1384,6 @@ (defvar *digits* "0123456789") -#+(or) (defun flonum-to-string (x &optional width fdigits scale fmin) (cond ((zerop x) ;;zero is a special case which float-string cannot handle @@ -1404,7 +1403,6 @@ fdigits scale fmin)))))) -#+(or) (defun float-string (fraction exponent precision width fdigits scale fmin) (let ((r fraction) (s 1) (m- 1) (m+ 1) (k 0) (digits 0) (decpnt 0) (cutoff nil) (roundup nil) u low high -- GitLab