diff options
Diffstat (limited to 'Lisp/compiler-macros.lisp')
-rw-r--r-- | Lisp/compiler-macros.lisp | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/Lisp/compiler-macros.lisp b/Lisp/compiler-macros.lisp index 5ee8082..2ed4b0d 100644 --- a/Lisp/compiler-macros.lisp +++ b/Lisp/compiler-macros.lisp @@ -66,11 +66,9 @@ (define-compiler-macro invoke (&whole form receiver message-start &rest message-components) (multiple-value-bind (method-name args) - (split-method-call (if (and (consp message-start) - (eq (first message-start) 'quote)) - (second message-start) - message-start) - message-components) - (if (constantp method-name) - `(invoke-by-name ,receiver (selector ',method-name) ,@args) + (split-method-call message-start message-components) + (if (and (listp method-name) + (every #'constantp method-name)) + `(invoke-by-name ,receiver (selector ',(mapcar #'eval method-name)) + ,@args) form))) |