CMUCL commit: intl-branch src/compiler (meta-vmdef.lisp)

[Raymond Toy]

    Date: Thursday, March 4, 2010 @ 19:06:05
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler
     Tag: intl-branch

Modified: meta-vmdef.lisp

Pluralize a string.


-----------------+
 meta-vmdef.lisp |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)


Index: src/compiler/meta-vmdef.lisp
diff -u src/compiler/meta-vmdef.lisp:1.9.48.3 src/compiler/meta-vmdef.lisp:1.9.48.4
--- src/compiler/meta-vmdef.lisp:1.9.48.3	Fri Feb 26 16:34:58 2010
+++ src/compiler/meta-vmdef.lisp	Thu Mar  4 19:06:05 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/meta-vmdef.lisp,v 1.9.48.3 2010-02-26 21:34:58 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/meta-vmdef.lisp,v 1.9.48.4 2010-03-05 00:06:05 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1414,7 +1414,9 @@
 					(eq (car x) :constant)))
 			       types)
 		 num)
-	(error _"Expected ~D ~:[result~;argument~] type~P: ~S."
+	(error (intl:ngettext "Expected ~D ~:[result~;argument~] type: ~S."
+			      "Expected ~D ~:[result~;argument~] types: ~S."
+			      (length types))
 	       num load-p types num)))
     
     (when more-op