Commit 17569cc4 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld
Browse files

Improved reporting of condition wrong-argument-count.

parent f946c373

losp/muerte/conditions.lisp

+2 −2
Original line number Diff line number Diff line
@@ -10,7 +10,7 @@ 
;;;; Author:        Frode Vatvedt Fjeld <frodef@acm.org>

;;;; Created at:    Wed Nov 20 15:47:04 2002

;;;;                

;;;; $Id: conditions.lisp,v 1.27 2008/04/17 19:32:27 ffjeld Exp $

;;;; $Id: conditions.lisp,v 1.28 2008/04/21 19:31:54 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)))))