src/: Write `NULL' for a null pointer, rather than plain `0'.
[sod] / src / method-impl.lisp
index 8501a02..e4aaae3 100644 (file)
                (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))