let force_compute_all_calldeps ()=
  if Db.Value.is_computed () then
    Project.clear
      ~only:(Project.Selection.singleton Db.Value.self Kind.Select_Dependencies)
      ();
  !Db.Value.compute ()