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@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) ()