[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-serv2551

Modified Files:
	conditions.lisp 
Log Message:
Added condition undefined-function-call as a subclass of undefined-function.

Date: Thu Jun 10 05:07:02 2004
Author: ffjeld

Index: movitz/losp/muerte/conditions.lisp
diff -u movitz/losp/muerte/conditions.lisp:1.6 movitz/losp/muerte/conditions.lisp:1.7
--- movitz/losp/muerte/conditions.lisp:1.6	Sun Apr 18 16:17:36 2004
+++ movitz/losp/muerte/conditions.lisp	Thu Jun 10 05:07:02 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.6 2004/04/18 23:17:36 ffjeld Exp $
+;;;; $Id: conditions.lisp,v 1.7 2004/06/10 12:07:02 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -79,6 +79,15 @@
   (:report (lambda (c s)
 	     (format s "Undefined function ~S."
 		     (cell-error-name c)))))
+
+(define-condition undefined-function-call (undefined-function)
+  ((arguments
+    :initarg :arguments
+    :reader undefined-function-call-arguments))
+  (:report (lambda (c s)
+	     (format s "Undefined function ~S called with arguments ~:S."
+		     (cell-error-name c)
+		     (undefined-function-call-arguments c)))))
 		  
 (define-condition unbound-variable (cell-error)
   ()