let who_conflicts conflicts_packages univ pkg =
if (Hashtbl.length conflicts_packages) = 0 then
warning "Either there are no conflicting packages in the universe or you
CudfAdd.init_conflicts was not invoked before calling CudfAdd.who_conflicts";
let i = Cudf.uid_by_package univ pkg in
List.map (Cudf.package_by_uid univ) (get_package_list conflicts_packages i)