diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 17:27:49 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 17:27:49 +0200 |
commit | 4bf7ff0fac043bbe1516e00fdd3567ed38fe6ff4 (patch) | |
tree | 060b10832dba766ec739c40a5262651bc5613aa2 /Lisp/method-invocation.lisp | |
parent | 0b07278c11c0ecb073356b15f1ed5e8781583d0c (diff) |
Define an external interface, properly document FIND-OBJC-CLASS.
darcs-hash:2e4424a65b72a13e3cfa26d07dce945bc35ba8e1
Diffstat (limited to 'Lisp/method-invocation.lisp')
-rw-r--r-- | Lisp/method-invocation.lisp | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 3cc927b..63f3e24 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -2,7 +2,15 @@ ;;; (@* "Method invocation") -(defun objcl-invoke-class-method (receiver method-name &rest args) +(defun invoke (receiver message-start &rest message-components) + "FIXME" + (flet ((message-component->string (component) + ())) + (do ((message-string ()))))) + + +(defun invoke-by-name (receiver method-name &rest args) + "FIXME" (let* ((arglist (arglist-intersperse-types (mapcar #'lisp->obj-data args))) (return-value (apply-macro '%objcl-invoke-class-method @@ -10,7 +18,8 @@ method-name (length args) arglist))) - (format t "~&Invoking [~A].~%" method-name) + (when *trace-method-calls* + (format t "~&Invoking [~A].~%" method-name)) (unwind-protect (let ((value (let ((*skip-retaining* (or *skip-retaining* @@ -23,7 +32,7 @@ #+nil -(defun objcl-invoke-class-method (receiver method-name &rest args) +(defun invoke-instance-method-by-name (receiver method-name &rest args) (let* ((arglist (arglist-intersperse-types (mapcar #'lisp->obj-data args))) (return-value (apply-macro '%objcl-invoke-instance-method |