anchor.diff:                  (let ((c (conn conn)))
                     (usocket:socket-close (tcp-conn conn))
                     (setf exit? t)))
  -                ((chanl:recv tc)
  -                   (encode-value +ping-instance+ conn))))
  -               while (not exit?)))))
  +               ((chanl:recv tc)
  +                 (encode-value +ping-instance+ conn))))
  +         while (not exit?)))))
  
positive.code:         (c (conn conn)))
      (encode-value gdr conn)
      (let* ((size (* 1 (read-int c)))
             (buf (make-array size :element-type '(unsigned-byte 8))))
        (read-sequence buf c :end size)
        buf)))
  
  
negative.code:       (setf (query-channel conn) query-channel)
        (setf (read-loop-thread conn) read-loop-thread))
      conn))
  
  (defun make-sized-buffer (size)
    (make-array size :element-type '(unsigned-byte 8)))
  
  (defgeneric connect (connection &key)
    (:documentation "Makes an initialization request to Zookeeper."))
  