summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/method-invocation.lisp7
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))