Changeset 11808


Ignore:
Timestamp:
Mar 10, 2009, 3:38:29 PM (10 years ago)
Author:
gz
Message:

In ~F and ~G: k can be negative, also use param names used in cltl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/format.lisp

    r11807 r11808  
    23262326       (format-require-type w '(or null (integer 0)) "w (first parameter)")
    23272327       (format-require-type d '(or null (integer 0)) "d (second parameter)")
    2328        (format-require-type k '(or null (integer 0)) "k (third parameter)")
    2329        (format-require-type ovf '(or null character) "ovf (fourth parameter)")
    2330        (format-require-type pad '(or null character) "pad (fifth parameter)"))
     2328       (format-require-type k '(or null integer) "k (third parameter)")
     2329       (format-require-type ovf '(or null character) "overflowchar (fourth parameter)")
     2330       (format-require-type pad '(or null character) "padchar (fifth parameter)"))
    23312331     (pop-format-arg))
    23322332    ((#\E #\G)
     
    23352335       (format-require-type w '(or null (integer 0)) "w (first parameter)")
    23362336       (format-require-type d '(or null (integer 0)) "d (second parameter)")
    2337        (format-require-type e '(or null (integer 0)) "d (third parameter)")
    2338        (format-require-type k '(or null (integer 0)) "k (fourth parameter)")
    2339        (format-require-type ovf '(or null character) "ovf (fifth parameter)")
    2340        (format-require-type pad '(or null character) "pad (sixth parameter)")
    2341        (format-require-type marker '(or null character) "marker (seventh parameter)"))
     2337       (format-require-type e '(or null (integer 0)) "e (third parameter)")
     2338       (format-require-type k '(or null integer) "k (fourth parameter)")
     2339       (format-require-type ovf '(or null character) "overflowchar (fifth parameter)")
     2340       (format-require-type pad '(or null character) "padchar (sixth parameter)")
     2341       (format-require-type marker '(or null character) "exponentchar (seventh parameter)"))
    23422342     (pop-format-arg))
    23432343    ((#\$)
Note: See TracChangeset for help on using the changeset viewer.