anchor.diff:          (c (conn conn)))
       (encode-value gdr conn)
       (let* ((size (* 1 (read-int c)))
  -           (buf (make-array size :element-type '(unsigned-byte 8))))
  +           (buf (make-sized-buffer size)))
         (read-sequence buf c :end size)
         buf)))
   
  
positive.code:       (setf (query-channel conn) query-channel)
        (setf (read-loop-thread conn) read-loop-thread))
      conn))
  
  (defgeneric connect (connection &key)
    (:documentation "Makes an initialization request to Zookeeper."))
  
negative.code:         (c (conn conn)))
      (encode-value gdr conn)
      (let* ((size (* 1 (read-int c)))
             (buf (make-sized-buffer size)))
        (read-sequence buf c :end size)
        buf)))
  
  