[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory cl-net:/tmp/cvs-serv16782

Modified Files:
	conditions.lisp 
Log Message:
Improved reporting of condition wrong-argument-count.


--- /project/movitz/cvsroot/movitz/losp/muerte/conditions.lisp	2008/04/21 19:31:54	1.28
+++ /project/movitz/cvsroot/movitz/losp/muerte/conditions.lisp	2009/07/19 18:54:32	1.29
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov 20 15:47:04 2002
 ;;;;                
-;;;; $Id: conditions.lisp,v 1.28 2008/04/21 19:31:54 ffjeld Exp $
+;;;; $Id: conditions.lisp,v 1.29 2009/07/19 18:54:32 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -179,7 +179,7 @@
     :initarg :argument-count
     :reader condition-argument-count))
   (:report (lambda (c s)
-	     (format s "Function ~S ~:A received ~D arguments."
+	     (format s "Function ~S ~:A received ~:[an incorrect number of~;~:*~D~] arguments."
 		     (funobj-name (condition-function c))
 		     (funobj-lambda-list (condition-function c))
 		     (condition-argument-count c)))))