Changeset 12162


Ignore:
Timestamp:
May 30, 2009, 1:17:53 PM (10 years ago)
Author:
gz
Message:

r12161 from trunk (error message fix)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx-basic.lisp

    r12114 r12162  
    564564       (destructuring-bind (provided max)
    565565           (cdr reason)
    566          (format stream "~d argument~p were provided, but at most ~d ~a accepted~&  by " provided provided max (if (eql max 1) "is" "are"))))
     566         (format stream "~d argument~:p ~:*~[were~;was~:;were~] provided, but at most ~d ~:*~[are~;is~:;are~] accepted~&  by " provided max)))
    567567      (:toofew
    568568       (destructuring-bind (provided min)
    569569           (cdr reason)
    570          (format stream "~d argument~p were provided, but at least ~d ~a required~&  by " provided provided min (if (eql min 1) "is" "are") )))
     570         (format stream "~d argument~:p ~:*~[were~;was~:;were~] provided, but at least ~d ~:*~[are~;is~:;are~] required~&  by " provided min)))
    571571      (:odd-keywords
    572572       (let* ((tail (cadr reason)))
Note: See TracChangeset for help on using the changeset viewer.