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