X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/167524b5890cdbf4a832b1766a328f6d8a1f8f04..d6bb2ccd1acd7d3ed72e26d7d9a2ec6f72d96e1a:/src/method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 8501a02..e4aaae3 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -337,7 +337,7 @@ (defmethod method-entry-function-name
 		(sod-class-nickname message-class)
 		(sod-message-name message)
 		(sod-class-nickname chain-head))
-	0)))
+	*null-pointer*)))
 
 (defmethod method-entry-slot-name ((entry method-entry))
   (let* ((method (method-entry-effective-method entry))