Changeset 9401 for branches

Timestamp:

May 7, 2008, 9:13:43 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

report-argument-mismatch: grammar nit-picking

File:

• branches/ia32/level-1/l1-error-system.lisp (modified) (1 diff)

branches/ia32/level-1/l1-error-system.lisp

@@ -217 +217 @@
                     "few")))
         (if too-many
-          (format s "Too many arguments in call to ~s:~&~d arguments provided, at most ~d accepted. " fn scaled-nargs max)
-          (format s "Too few arguments in call to ~s:~&~d arguments provided, at least ~d required. " fn  scaled-nargs min))))))
+          (format s "Too many arguments in call to ~s:~&~d argument~:p provided, at most ~d accepted. " fn scaled-nargs max)
+          (format s "Too few arguments in call to ~s:~&~d argument~:p provided, at least ~d required. " fn  scaled-nargs min))))))