diff options
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 |