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 a3e9b65..51bd1a3 100644 (file)
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -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))