Changeset 15401

Timestamp:

May 31, 2012, 1:46:01 AM (12 years ago)

Author:

Gary Byers

Message:

FORMAT-FIXED-AUX: if FLONUM-TO-STRING-WIDTH isn't positive and we
don't have an overflow char, set FLONUM-TO-STRING-WIDTH to NIL before
calling FLONUM-TO-STRING. Some randomly-generated test case that I
didn't save - something like (format nil "~1₄f" some-float) -
would otherwise go into an infinite loop.

File:

• trunk/source/lib/format.lisp (modified) (1 diff)

trunk/source/lib/format.lisp

@@ -1810 +1810 @@
             (dotimes (i w) (write-char ovf stream))
             (return-from format-fixed-aux))
-          (setq spaceleft nil w nil)))
+          (setq spaceleft nil w nil flonum-to-string-width nil)))
       (multiple-value-bind (str before-pt after-pt)
                            (flonum-to-string abs-number