[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv29966

Modified Files:
	conditions.lisp 
Log Message:
Add simple-condition-format-control and
simple-condition-format-arguments readers.


--- /project/movitz/cvsroot/movitz/losp/muerte/conditions.lisp	2006/04/07 21:51:53	1.18
+++ /project/movitz/cvsroot/movitz/losp/muerte/conditions.lisp	2006/04/28 23:21:59	1.19
@@ -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.18 2006/04/07 21:51:53 ffjeld Exp $
+;;;; $Id: conditions.lisp,v 1.19 2006/04/28 23:21:59 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -59,7 +59,11 @@
 		      (condition-format-control condition)
 		      (condition-format-arguments condition))))))
 
-(define-condition simple-condition (condition) ())
+(define-condition simple-condition (condition)
+  ((format-control
+    :reader simple-condition-format-control)
+   (format-arguments
+    :reader simple-condition-format-arguments)))
 (define-condition serious-condition () ())
 (define-condition error (serious-condition) ())
 (define-condition warning () ())