X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..9ec578d9fe450b7e7f9030dc9d930185593aa991:/src/method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 8909fc9..51bd1a3 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -131,9 +131,9 @@
   (:documentation
    "Return the argument tail for the message with `:ellipsis' substituted.
 
-   As with SOD-MESSAGE-ARGUMENT-TAIL, no `me' argument is prepended.
-   However, an :ELLIPSIS is replaced by an argument of type `va_list', named
-   `sod__ap'."))
+   As with `sod-message-argument-tail', no `me' argument is prepended.
+   However, an `:ellipsis' is replaced by an argument of type `va_list',
+   named `sod__ap'."))
 
 (export 'sod-method-function-type)
 (defgeneric sod-method-function-type (method)
@@ -258,7 +258,7 @@
   (let* ((message (sod-method-message direct-method))
 	 (class (sod-method-class direct-method))
 	 (function (sod-method-function-name direct-method))
-	 (arguments (cons (format nil "&sod__obj.~A.~A"
+	 (arguments (cons (format nil "&sod__obj->~A.~A"
 				  (sod-class-nickname
 				   (sod-class-chain-head class))
 				  (sod-class-nickname class))