X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/a469422e9be4244c098a309e78aa3b761cf0a5ec..30eb3c686a1bb2cea791798324c2eea08ffc341d:/src/method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 034768a..ac662ca 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -484,6 +484,7 @@ (defun make-trampoline (codegen super body)
 					   :pointer :null)))
     (codegen-push codegen)
     (ensure-ilayout-var codegen super)
+    (deliver-call codegen :void "SOD__IGNORE" "sod__obj")
     (when (keyword-message-p message)
       (if (eq *keyword-struct-disposition* :null)
 	  (deliver-call codegen :void "SOD__IGNORE" *sod-key-pointer*)