Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16608 Modified Files: functions.lisp Log Message: Added a continuation to unbound-function. Date: Tue Jul 13 15:41:48 2004 Author: ffjeld Index: movitz/losp/muerte/functions.lisp diff -u movitz/losp/muerte/functions.lisp:1.14 movitz/losp/muerte/functions.lisp:1.15 --- movitz/losp/muerte/functions.lisp:1.14 Wed Jul 7 10:37:43 2004 +++ movitz/losp/muerte/functions.lisp Tue Jul 13 15:41:48 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Tue Mar 12 22:58:54 2002 ;;;; -;;;; $Id: functions.lisp,v 1.14 2004/07/07 17:37:43 ffjeld Exp $ +;;;; $Id: functions.lisp,v 1.15 2004/07/13 22:41:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -83,9 +83,11 @@ (compiled-function (funobj-name edx)) (t '(unknown))))) - (error 'undefined-function-call - :name function-name - :arguments (copy-list args)))) + (with-simple-restart (continue "Return NIL from ~S." function-name) + (error 'undefined-function-call + :name function-name + :arguments (copy-list args)))) + nil) ;;; funobj object