Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv10838
Modified Files: functions.lisp Log Message: Made unbound-function produce an undefined-function-call error, rather than just undefined-function.
Date: Thu Jun 10 05:09:15 2004 Author: ffjeld
Index: movitz/losp/muerte/functions.lisp diff -u movitz/losp/muerte/functions.lisp:1.11 movitz/losp/muerte/functions.lisp:1.12 --- movitz/losp/muerte/functions.lisp:1.11 Fri Apr 23 08:05:35 2004 +++ movitz/losp/muerte/functions.lisp Thu Jun 10 05:09:15 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.11 2004/04/23 15:05:35 ffjeld Exp $ +;;;; $Id: functions.lisp,v 1.12 2004/06/10 12:09:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -75,14 +75,17 @@ (not (apply function args))))
(defun unbound-function (&edx edx &rest args) - (declare (ignore args)) + "This is the function that is the unbound value for function cells." + (declare (dynamic-extent args)) (let ((function-name (typecase edx (symbol edx) (compiled-function (funobj-name edx)) (t '(unknown))))) - (error 'undefined-function :name function-name))) + (error 'undefined-function-call + :name function-name + :arguments (copy-list args))))
;;; funobj object