anchor.diff:  ;; 2 bytes: Listening port
   ;; 1 byte:  72                [hidden node (not Erlang node)]
   ;; 1 byte:  0                 [protocol: tcp/ip v4]
  +;; 2 bytes: 5                 [highest version supported]
   ;; 2 bytes: 5                 [lowest version supported]
  -;; 2 bytes: 5                 [highest version supported]
   ;; 2 bytes: Length of node name
   ;; N bytes: Node name
   ;; 2 bytes: Length of the Extra field
  
positive.code:                                   (otherwise
                                     (error 'malformed-response-error)))
                                  :protocol protocol
                                  :lowest-version lowest-version-supported
                                  :highest-version highest-version-supported
                                  :name node-name
                                  :host host
                                  :extra-field extra-field) )))))
  
negative.code:     (write-uint16 port fs)
      (write-byte +node-type-hidden+ fs)
      (write-byte +protocol-tcpip4+ fs)
      (write-uint16 +highest-version-supported+ fs)
      (write-uint16 +lowest-version-supported+ fs)
      (write-uint16 node-name-length fs)
      (write-string node-name fs)
      (write-uint16 extra-field-length fs)
  