Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv8742
Modified Files: conditions.lisp Log Message: Minor edit.
Date: Fri Jul 23 08:35:45 2004 Author: ffjeld
Index: movitz/losp/muerte/conditions.lisp diff -u movitz/losp/muerte/conditions.lisp:1.10 movitz/losp/muerte/conditions.lisp:1.11 --- movitz/losp/muerte/conditions.lisp:1.10 Wed Jul 21 18:01:31 2004 +++ movitz/losp/muerte/conditions.lisp Fri Jul 23 08:35:45 2004 @@ -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.10 2004/07/22 01:01:31 ffjeld Exp $ +;;;; $Id: conditions.lisp,v 1.11 2004/07/23 15:35:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -105,7 +105,8 @@ :initarg :datum :reader type-error-datum)) (:report (lambda (c s) - (format s "The object `~S' is not of type ~S." + (format s "The object ~Z `~S' is not of type ~S." + (type-error-datum c) (type-error-datum c) (type-error-expected-type c)))))