Changeset 15401


Ignore:
Timestamp:
May 31, 2012, 8:46:01 AM (7 years ago)
Author:
gb
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 "~14f" some-float) -
would otherwise go into an infinite loop.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/format.lisp

    r14935 r15401  
    18101810            (dotimes (i w) (write-char ovf stream))
    18111811            (return-from format-fixed-aux))
    1812           (setq spaceleft nil w nil)))
     1812          (setq spaceleft nil w nil flonum-to-string-width nil)))
    18131813      (multiple-value-bind (str before-pt after-pt)
    18141814                           (flonum-to-string abs-number
Note: See TracChangeset for help on using the changeset viewer.