anchor.diff:  ;; N bytes: Full node name
   ;;
   
  -(defun make-name-message (version flags full-node-name)
  -  (concatenate '(vector octet)
  -               (uint16-to-bytes (+ 7 (length full-node-name)))
  -               (vector (char-code #\n))
  -               (uint16-to-bytes version)
  -               (uint32-to-bytes flags)
  -               (string-to-bytes full-node-name)))
  +(defun write-name-message (stream version flags full-node-name)
  +  (write-uint16 (+ 7 (length full-node-name)) stream)
  +  (write-char #\n stream)
  +  (write-uint16 version stream)
  +  (write-uint32 flags stream)
  +  (write-string full-node-name stream)
  +  t)
   
   (defun read-name-message (stream)
     (handler-case
  
positive.code: ;;;
  
  (defun perform-client-handshake (stream cookie)
    (write-sequence (make-name-message +highest-version-supported+
                                       (capability-flags)
                                       (this-node))
                    stream)
    (finish-output stream)
    (let ((status (read-status-message stream)))
      (cond
  
negative.code: ;; N bytes: Full node name
  ;;
  
  (defun write-challenge-message (stream version flags challenge full-node-name)
    (write-uint16 (+ 11 (length full-node-name)) stream)
    (write-char #\n stream)
    (write-uint16 version stream)
    (write-uint32 flags stream)
    (write-uint32 challenge stream)
    (write-string full-node-name)
    t)
  
  (defun read-challenge-message (stream)
    (handler-case
  