[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	conditions.lisp 
Log Message:
Add conditions package-error and file-error.


--- /project/movitz/cvsroot/movitz/losp/muerte/conditions.lisp	2007/03/12 21:53:40	1.24
+++ /project/movitz/cvsroot/movitz/losp/muerte/conditions.lisp	2008/04/08 21:42:08	1.25
@@ -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.24 2007/03/12 21:53:40 ffjeld Exp $
+;;;; $Id: conditions.lisp,v 1.25 2008/04/08 21:42:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -188,6 +188,18 @@
 	     (declare (ignore c))
 	     (format s "Division by zero."))))
 
+(define-condition package-error (error)
+  ((package
+    :initarg :package
+    :initform nil
+    :reader package-error-package)))
+
+(define-condition file-error (error)
+  ((pathname
+    :initarg :pathname
+    :initform nil
+    :reader file-error-pathname)))
+
 (defun make-condition (type &rest slot-initializations)
   (declare (dynamic-extent slot-initializations))
   (apply 'make-instance type slot-initializations))