diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-10 14:02:36 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-10-10 14:02:36 +0200 |
commit | 5b0be258009220af661ba877b17c3ebf33972409 (patch) | |
tree | f4c0d6c3744473d009d258927d5484edb1a99328 /Lisp/compiler-macros.lisp | |
parent | f71611e1995b2645a183a52e221fccfcca64d2e0 (diff) |
FIND-SELECTOR: Make ERRORP default to T.
darcs-hash:629ac814cc7f7427b1b1cbe71448a670c37c0171
Diffstat (limited to 'Lisp/compiler-macros.lisp')
-rw-r--r-- | Lisp/compiler-macros.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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 |