Changeset 14935

Timestamp:

Aug 9, 2011, 2:20:02 AM (9 years ago)

Author:

rme

Message:

Complain if ~<...~:> doesn't get any arguments. Fixes ticket:3.

File:

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

trunk/source/lib/format.lisp

@@ -981 +981 @@
       (format-check-simple prefix)
       (format-check-simple suffix)
+      (unless *format-arguments*
+        (setq *format-index* start)
+        (format-error "Missing argument"))
       (let ((args (if (not atsign)
                     ; This piece of garbage is needed to avoid double length counting from (formatter ...) things