Changeset 12161


Ignore:
Timestamp:
May 30, 2009, 5:20:22 AM (10 years ago)
Author:
rme
Message:

REPORT-COMPILE-TIME-ARGUMENT-MISMATCH: Ensure subject/verb agreement in
some error messages via FORMAT hair.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r12071 r12161  
    558558       (destructuring-bind (provided max)
    559559           (cdr reason)
    560          (format stream "~d argument~p were provided, but at most ~d ~a accepted~&  by " provided provided max (if (eql max 1) "is" "are"))))
     560         (format stream "~d argument~:p ~:*~[were~;was~:;were~] provided, but at most ~d ~:*~[are~;is~:;are~] accepted~&  by " provided max)))
    561561      (:toofew
    562562       (destructuring-bind (provided min)
    563563           (cdr reason)
    564          (format stream "~d argument~p were provided, but at least ~d ~a required~&  by " provided provided min (if (eql min 1) "is" "are") )))
     564         (format stream "~d argument~:p ~:*~[were~;was~:;were~] provided, but at least ~d ~:*~[are~;is~:;are~] required~&  by " provided min)))
    565565      (:odd-keywords
    566566       (let* ((tail (cadr reason)))
Note: See TracChangeset for help on using the changeset viewer.