anchor.diff:      ;; 1 byte:  Result            [0 means OK, >0 means ERROR]
       ;; 2 bytes: Creation          [?]
       (handler-case
  -	(let* ((alive2-response (read-bytes 4 epmd))
  -	       (tag (aref alive2-response 0))
  -	       (result (aref alive2-response 1))
  -	       (creation (bytes-to-uint16 (subseq alive2-response 2))))
  -	  (declare (ignore creation))
  -	  (cond
  -	    ((/= tag +alive2-resp+)
  -	     (error 'unexpected-message-tag-error
  -		    :tag tag
  -		    :expected-tags (list +alive2-resp+)))
  -	    ((/= 0 result)
  -	     (error 'epmd-response-error))
  -	    (t
  -	     socket)))
  +        (let* ((alive2-response (read-bytes 4 epmd))
  +               (tag (aref alive2-response 0))
  +               (result (aref alive2-response 1))
  +               (creation (bytes-to-uint16 (subseq alive2-response 2))))
  +          (declare (ignore creation))
  +          (cond
  +            ((/= tag +alive2-resp+)
  +             (error 'unexpected-message-tag-error
  +                    :tag tag
  +                    :expected-tags (list +alive2-resp+)))
  +            ((/= 0 result)
  +             (error 'epmd-response-error))
  +            (t
  +             socket)))
         (end-of-file () (error 'connection-closed-error))) ))
   
   (defun epmd-unpublish (socket)
  
positive.code: 
  (defun epmd-publish (port &optional (node-name "lispnode"))
    (let* ((socket (handler-case
  		     (usocket:socket-connect "localhost" +epmd-port+
  					     :element-type '(unsigned-byte 8))
  		   (usocket:connection-refused-error ()
  		     (error 'epmd-unreachable-error))))
  	 (epmd (usocket:socket-stream socket)))
      ;;;; ALIVE2_REQ ;;;;
      ;; 2 bytes: Total length of following message in bytes
      ;; 1 byte:  'x'               [ALIVE2_REQ message]
  
negative.code:     ;; 1 byte:  'z'            [PORT_PLEASE2_REQ message]
      ;; N bytes: Node name
      (let* ((message-length (1+ (length node-name)))
             (port-please2-req (concatenate 'vector
                                            (uint16-to-bytes message-length)
                                            (vector +port-please2-req+)
                                            (string-to-bytes node-name))))
        (write-sequence port-please2-req epmd)
        (finish-output epmd))
      ;;;; PORT2_RESP ;;;;
  