Changeset 906

Timestamp:

Feb 16, 2005, 10:46:19 AM (20 years ago)

Author:

bryan

Message:

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

File:

• trunk/ccl/lib/format.lisp (modified) (2 diffs)

trunk/ccl/lib/format.lisp

@@ -721 +721 @@
                            (declare (special *format-colon-rest*))
                            (unless (listp *format-arguments*)
-                             (format-error "Argument must be a list"))
+                             (report-bad-arg *format-arguments* 'list))
                            (if (functionp start)
                              (apply start stream args)
@@ -740 +740 @@
                (*format-original-arguments* *format-arguments*))
           (unless (listp *format-arguments*)
-            (format-error "Argument must be a list"))
+            (report-bad-arg *format-arguments* 'list))
           (do-iteration-1 stream start end colon at-least-once-p)))))