diff options
Diffstat (limited to 'Lisp/method-invocation.lisp')
| -rw-r--r-- | Lisp/method-invocation.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 4c5abac..d851f63 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -275,7 +275,9 @@ Returns: *result* --- the return value of the method invocation. return-c-type))))))))))) -(defun retrieve-method-signature-info (class selector) +(define-cached-function retrieve-method-signature-info (class selector) + (cons (cffi:pointer-address (pointer-to class)) + (cffi:pointer-address (pointer-to selector))) (let* ((signature (primitive-invoke class :instance-method-signature-for-selector 'id |