X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-format.lisp;h=a5ef5e6eb44cded3f631e9a782ac514db774ed6a;hb=8754394dc238f6932935bf46490b2206c2a33344;hp=641971216e37051c0c2a68f66d2283a8b6a34dc7;hpb=dafa18aa6bd65fe2129a32b0e827141684bb159a;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index 6419712..a5ef5e6 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -622,14 +622,6 @@
                   (when (and d (zerop d)) (setq tpoint nil))
                   (when w
                     (decf spaceleft flen)
-                    ;; See CLHS 22.3.3.2.  "If the parameter d is
-                    ;; omitted, ... [and] if the fraction to be
-                    ;; printed is zero then a single zero digit should
-                    ;; appear after the decimal point."  So we need to
-                    ;; subtract one from here because we're going to
-                    ;; add an extra 0 digit later. [rtoy]
-                    (when (and (zerop number) (null d))
-                      (decf spaceleft))
                     (when lpoint
                       (if (or (> spaceleft 0) tpoint)
                           (decf spaceleft)
@@ -646,10 +638,6 @@
                                (if atsign (write-char #\+ stream)))
                            (when lpoint (write-char #\0 stream))
                            (write-string fstr stream)
-                           (when (and (zerop number) (null d))
-                             ;; It's later and we're adding the zero
-                             ;; digit.
-                             (write-char #\0 stream))
                            (write-char (if marker
                                            marker
                                            (format-exponent-marker number))