src/codegen-proto.lisp: Fix printing of `if`/`else if' ladders.

[sod] / src / method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 8501a021bd9edc579f6f6108a712fdbb0e2340dd..e4aaae36d8df7ce300cb29b253051ef9d784f19d 100644 (file)
--- 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))
                (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))
 
 (defmethod method-entry-slot-name ((entry method-entry))
   (let* ((method (method-entry-effective-method entry))