anchor.diff:              (read-cb
                ;; we got a non-draining callback, let the read-cb know that we
                ;; have data without emptying the read buffer
  -             (funcall read-cb socket nil))
  +             (funcall read-cb socket tcp-stream))
               (drain-read
                ;; no callback associated, and we're asking to drain, to clean out
                ;; the evbuffer without calling a cb
  
positive.code:     (set-socket-timeouts bev read-timeout write-timeout :socket-is-bufferevent t)
  
      ;; allow the data pointer/socket class to be referenced directly by the bev
      (attach-data-to-pointer bev (list :data-pointer data-pointer :socket socket))
  
      ;; connect the socket
      (incf *outgoing-connection-count*)
  
negative.code:    callback system to run user-specified anonymous callbacks on read events."
    (let* ((bev-data (deref-data-from-pointer bev))
           (socket (getf bev-data :socket))
           (tcp-stream (getf bev-data :stream))
           (callbacks (get-callbacks data-pointer))
           (read-cb (getf callbacks :read-cb))
           (event-cb (getf callbacks :event-cb))
  