[movitz-cvs] CVS update: movitz/losp/muerte/conditions.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv1525

Modified Files:
	conditions.lisp 
Log Message:
Added a reporter.

Date: Sun Apr 18 19:17:36 2004
Author: ffjeld

Index: movitz/losp/muerte/conditions.lisp
diff -u movitz/losp/muerte/conditions.lisp:1.5 movitz/losp/muerte/conditions.lisp:1.6
--- movitz/losp/muerte/conditions.lisp:1.5	Thu Apr 15 11:11:44 2004
+++ movitz/losp/muerte/conditions.lisp	Sun Apr 18 19:17:36 2004
@@ -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.5 2004/04/15 15:11:44 ffjeld Exp $
+;;;; $Id: conditions.lisp,v 1.6 2004/04/18 23:17:36 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -94,7 +94,11 @@
     :reader type-error-expected-type)
    (datum
     :initarg :datum
-    :reader type-error-datum)))
+    :reader type-error-datum))
+  (:report (lambda (c s)
+	     (format s "The object ~S is not of type ~S."
+		     (type-error-datum c)
+		     (type-error-expected-type c)))))
 
 (define-condition control-error (error) ())