Changeset 11644


Ignore:
Timestamp:
Jan 23, 2009, 1:20:53 PM (11 years ago)
Author:
gz
Message:

Require two clauses in ~:[

File:
1 edited

Legend:

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

    r11158 r11644  
    672672    (when (or parms colon atsign)
    673673      (format-error "Flags or parameters not allowed"))
    674     (unless (eq command #\])
    675       (format-nextchar))
     674    (when (eq command #\])
     675      (format-error "Two clauses separated by ~~; are required for ~~:["))
     676    (format-nextchar)
    676677    (if (pop-format-arg)
    677       (if (eq command #\;)
    678         (multiple-value-bind (prev tilde parms colon atsign)
    679                              (format-find-command '(#\]))
    680           (when (or colon atsign parms)
    681             (format-error "Flags or parameters not allowed"))
    682           (sub-format stream prev tilde)))
     678      (multiple-value-bind (prev tilde parms colon atsign)
     679          (format-find-command '(#\]))
     680        (when (or colon atsign parms)
     681          (format-error "Flags or parameters not allowed"))
     682        (sub-format stream prev tilde))
    683683      (progn
    684684        (sub-format stream prev tilde)
    685         (unless (eq command #\])
    686           (format-find-command '(#\])))))))
     685        (format-find-command '(#\]))))))
    687686
    688687
Note: See TracChangeset for help on using the changeset viewer.