anchor.diff:    (let ((gdr (make-instance 'get-children-request :path path :watch nil))
           (c (conn conn)))
       (encode-value gdr conn)
  -    (let* ((size (* 1 (read-int c)))
  +    (let* ((size (read-int c))
              (buf (make-sized-buffer size)))
         (read-sequence buf c :end size)
         buf)))
  
positive.code: 
  (defclass zk-connection ()
    ((conn :accessor conn :initarg :conn)
     (tcp- :accessor tcp-conn :initarg :tcp-conn)
     (read-loop-thread :accessor read-loop-thread :initarg :read-loop-thread)
     (stop-channel :accessor stop-channel :initarg :stop-channel)
     (query-channel :accessor query-channel :initarg :query-channel)))
  
negative.code:   (let ((gdr (make-instance 'get-data-request :path path :watch nil))
          (c (conn conn)))
      (encode-value gdr conn)
      (let* ((size (read-int c))
             (buf (make-sized-buffer size)))
        (read-sequence buf c :end size)
        buf)))
  