let add_fd (evpair:fname_and_fd) (fd_other:fname_and_fd) (callback:fname_and_fd->fname_and_fd->unit) = 
  let (fname,fd) = evpair in
    fdset := (fd::!fdset);
    Hashtbl.replace cbtable fd (callback,(evpair,fd_other))