anchor.diff:  
   (defun read-alive2-response (stream)
     (handler-case
  -      (let* ((tag (read-byte stream))
  -             (result (read-byte stream))
  +      (let* ((tag (cleric::read-byte stream))
  +             (result (cleric::read-byte stream))
                (creation (read-uint16 stream)))
           (cond
             ((/= tag +alive2-resp+)
  
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:            nil) ;; No nodes with that name.
            (t
             (let* ((port (read-uint16 stream))
                    (node-type (cleric::read-byte stream))
                    (protocol (cleric::read-byte stream))
                    (lowest-version-supported (read-uint16 stream))
                    (highest-version-supported (read-uint16 stream))
                    (node-name-length (read-uint16 stream))
                    (node-name (cleric::read-bytes-as-string node-name-length stream))
                    (extra-field-length (read-uint16 stream))
                    (extra-field (cleric::read-bytes extra-field-length stream)))
               (make-instance 'remote-node
                              :port port
                              :node-type (case node-type
  