CMUCL commit: src/compiler (ctype.lisp)

[Raymond Toy]

    Date: Thursday, May 27, 2010 @ 19:43:16
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler

Modified: ctype.lisp

Too many args to NOTE-LOSSAGE message in
FIND-OPTIONAL-DISPATCH-TYPES.


------------+
 ctype.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/compiler/ctype.lisp
diff -u src/compiler/ctype.lisp:1.37 src/compiler/ctype.lisp:1.38
--- src/compiler/ctype.lisp:1.37	Tue Apr 20 13:57:46 2010
+++ src/compiler/ctype.lisp	Thu May 27 19:43:16 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/ctype.lisp,v 1.37 2010-04-20 17:57:46 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/ctype.lisp,v 1.38 2010-05-27 23:43:16 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -667,7 +667,7 @@
 		(intl:ngettext "Definition has ~R ~A arg, but ~A has ~R."
 			       "Definition has ~R ~A args, but ~A has ~R."
 			       x)
-		x what x where y))))
+		x what where y))))
       ;; TRANSLATORS:  Usage is "Definition has <n> FIXED args but <where> <m>"
       ;; TRANSLATORS:  Translate FIXED above appropriately.
       (frob min (length req) (intl:gettext "fixed"))