anchor.diff:           (extra-field-length (length extra))
            (message-length (+ 13 node-name-length extra-field-length)))
       (concatenate 'vector
  -                 (uint16-to-bytes message-length)
  +                 (cleric::uint16-to-bytes message-length)
                    (vector +alive2-req+)
  -                 (uint16-to-bytes port)
  +                 (cleric::uint16-to-bytes port)
                    (vector +node-type-hidden+
                            +protocol-tcpip4+)
  -                 (uint16-to-bytes +lowest-version-supported+)
  -                 (uint16-to-bytes +highest-version-supported+)
  -                 (uint16-to-bytes node-name-length)
  -                 (string-to-bytes node-name)
  -                 (uint16-to-bytes extra-field-length)
  +                 (cleric::uint16-to-bytes +lowest-version-supported+)
  +                 (cleric::uint16-to-bytes +highest-version-supported+)
  +                 (cleric::uint16-to-bytes node-name-length)
  +                 (cleric::string-to-bytes node-name)
  +                 (cleric::uint16-to-bytes extra-field-length)
                    extra)))
   
   
  
positive.code: 
  (defun make-port-please2-request (node-name)
    (concatenate 'vector
                 (uint16-to-bytes (1+ (length node-name)))
                 (vector +port-please2-req+)
                 (string-to-bytes node-name)))
  
  
  ;;;
  
negative.code: 
  (defun read-alive2-response (stream)
    (handler-case
        (let* ((tag (cleric::read-byte stream))
               (result (cleric::read-byte stream))
               (creation (read-uint16 stream)))
          (cond
            ((/= tag +alive2-resp+)
  