diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 18:34:04 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-16 18:34:04 +0200 |
commit | 164950db293f283e5d1be7a9d6262ef1a331f359 (patch) | |
tree | 1e986f8022b74a7e18f0a34d2be9bcfbe6d54262 /Lisp/method-invocation.lisp | |
parent | 3cbca8870fcbbd8adbe7f5e580c7f0ae98086f8d (diff) |
Add classes for tagged pointers.
darcs-hash:93dc7a7ee851ab3947332487b00b990143b81e46
Diffstat (limited to 'Lisp/method-invocation.lisp')
-rw-r--r-- | Lisp/method-invocation.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index a9e9336..826cc29 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -182,6 +182,7 @@ Returns: *result* --- the return value of the method invocation. (defun primitive-invoke (receiver method-name return-type &rest args) + "An invocation mechanism with ad-hoc argument conversion." (with-foreign-string-pool (register-temporary-string) (with-foreign-object-pool (register-temporary-object) (let ((return-c-type (case return-type |