anchor.diff:        (start-listening-on-socket ()
           :report "Start listening on a socket."
           (start-listening)
  -        (epmd-publish node-name)))))
  +        (epmd-publish)))))
   
   (defun epmd-published-p ()
     (not (null *epmd-socket*)))
  
positive.code:                              (usocket:connection-refused-error ()
                                 (error 'epmd-unreachable-error))))
                     (epmd (usocket:socket-stream socket)))
                (write-sequence (make-alive2-request node-name (listening-port))
                                epmd)
                (finish-output epmd)
                (let ((creation (read-alive2-response epmd)))
  
negative.code: ;;; EPMD API
  ;;;
  
  (defun epmd-publish ()
    (if *epmd-socket*
      (error 'already-registered-on-epmd)
      (restart-case
  