An actual running implementation, which makes code that compiles.

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 8909fc9..51bd1a3 100644 (file)
--- 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))