From c3f89b6967800bfdb8d4462d2e91d3bc2e3796fa Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 17 Sep 2007 14:36:09 +0200 Subject: PRIMITIVE-INVOKE: Make the compiler macro degrade gracefully when a constant selector designator designates an unknown selector. darcs-hash:f6a5bf8ff9fb560b7fd991e48982163b27dc58fa --- Lisp/method-invocation.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Lisp') 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)) -- cgit v1.2.3