X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/944caf84ede14c9915c657dcfb61f1fbc1ff0cdb..678b6c0f7fe1d62abdf249b173a8a922c4e5c1d3:/src/method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 36237d6..e0d8742 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -86,7 +86,7 @@
 	       :reader method-entry-chain-head)
    (chain-tail :initarg :chain-tail :type sod-class
 	       :reader method-entry-chain-tail)
-   (role :initarg :role :type (or :keyword null) :reader method-entry-role))
+   (role :initarg :role :type (or keyword null) :reader method-entry-role))
   (:documentation
    "An entry point into an effective method.
 
@@ -333,6 +333,8 @@
 
   (let* ((message (codegen-message codegen))
 	 (message-type (sod-message-type message))
+	 (message-class (sod-message-class message))
+	 (method (codegen-method codegen))
 	 (return-type (c-type-subtype message-type))
 	 (raw-args (sod-message-argument-tail message))
 	 (arguments (if (varargs-message-p message)
@@ -345,7 +347,12 @@
     (codegen-pop-function codegen (temporary-function)
 			  (c-type (fun (lisp return-type)
 				       ("me" (* (class super)))
-				       . arguments)))))
+				       . arguments))
+			  "Delegation-chain trampoline ~:_~
+			   for `~A.~A' ~:_on `~A'."
+			  (sod-class-nickname message-class)
+			  (sod-message-name message)
+			  (effective-method-class method))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Method entry protocol.