[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	error.lisp 
Log Message:
Added cerror.


--- /project/movitz/cvsroot/movitz/losp/muerte/error.lisp	2007/02/06 20:02:01	1.5
+++ /project/movitz/cvsroot/movitz/losp/muerte/error.lisp	2007/03/11 22:42:01	1.6
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Sep  1 00:49:11 2001
 ;;;;                
-;;;; $Id: error.lisp,v 1.5 2007/02/06 20:02:01 ffjeld Exp $
+;;;; $Id: error.lisp,v 1.6 2007/03/11 22:42:01 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -59,3 +59,9 @@
 (defun formatted-error (type format-control &rest format-arguments)
   (declare (dynamic-extent format-arguments))
   (error type :format-control format-control :format-arguments format-arguments))
+
+(defun cerror (continue-format-control datum &rest arguments)
+  (declare (dynamic-extent arguments))
+  (with-simple-restart (continue "~?" continue-format-control arguments)
+    (apply 'error datum arguments))
+  nil)