Changeset 906


Ignore:
Timestamp:
Feb 16, 2005, 6:46:19 PM (17 years ago)
Author:
bryan
Message:

non-list args in ~{..~} format directive should signal type-error.

File:
1 edited

Legend:

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

    r6 r906  
    721721                           (declare (special *format-colon-rest*))
    722722                           (unless (listp *format-arguments*)
    723                              (format-error "Argument must be a list"))
     723                             (report-bad-arg *format-arguments* 'list))
    724724                           (if (functionp start)
    725725                             (apply start stream args)
     
    740740               (*format-original-arguments* *format-arguments*))
    741741          (unless (listp *format-arguments*)
    742             (format-error "Argument must be a list"))
     742            (report-bad-arg *format-arguments* 'list))
    743743          (do-iteration-1 stream start end colon at-least-once-p)))))
    744744 
Note: See TracChangeset for help on using the changeset viewer.