anchor.diff:  ;;; EPMD API
   ;;;
   
  -(defun epmd-publish (&optional (node-name "lispnode"))
  +(defun epmd-publish ()
     (if *epmd-socket*
       (error 'already-registered-on-epmd)
       (restart-case
  
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:       (start-listening-on-socket ()
          :report "Start listening on a socket."
          (start-listening)
          (epmd-publish)))))
  
  (defun epmd-published-p ()
    (not (null *epmd-socket*)))
  