From 5b0be258009220af661ba877b17c3ebf33972409 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 10 Oct 2007 14:02:36 +0200 Subject: FIND-SELECTOR: Make ERRORP default to T. darcs-hash:629ac814cc7f7427b1b1cbe71448a670c37c0171 --- Lisp/compiler-macros.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Lisp/compiler-macros.lisp') diff --git a/Lisp/compiler-macros.lisp b/Lisp/compiler-macros.lisp index 3ffba63..c68828c 100644 --- a/Lisp/compiler-macros.lisp +++ b/Lisp/compiler-macros.lisp @@ -28,7 +28,7 @@ (eq 'load-time-value (car method-name))))) `(primitive-invoke ,receiver (load-time-value (handler-case - (find-selector ,method-name t) + (find-selector ,method-name) (serious-condition () (warn (make-condition @@ -52,7 +52,7 @@ `(invoke-by-name ,receiver (load-time-value (handler-case - (find-selector ,method-name t) + (find-selector ,method-name) (serious-condition () (warn (make-condition 'simple-style-warning @@ -78,7 +78,7 @@ `(invoke-by-name ,receiver (load-time-value (handler-case - (find-selector ',method-name t) + (find-selector ',method-name) (serious-condition () (warn (make-condition 'simple-style-warning -- cgit v1.2.3