diff options
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/method-invocation.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index cfefc8c..0426d38 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -276,7 +276,12 @@ Returns: *result* --- the return value of the method invocation. (not (and (listp method-name) (eq 'load-time-value (car method-name))))) `(primitive-invoke ,receiver - (load-time-value (selector ,method-name)) + (load-time-value (handler-case + (selector ,method-name) + (serious-condition () + ;; XXX May want to issue a + ;; warning here. + ,method-name))) ,return-type ,@args) form)) |