+ let invalidate _ =
+ let l = HT.fold (fun k (o,g,gl) acc -> (k,(o,Some (g,gl)))::acc) cacheOfCookedObjects [] in
+ unchecked_list :=
+ HExtlib.list_uniq ~eq:(fun (x,_) (y,_) -> UriManager.eq x y)
+ (List.sort (fun (x,_) (y,_) -> UriManager.compare x y) (l @ !unchecked_list));
+ frozen_list := [];
+ HT.clear cacheOfCookedObjects;
+ ;;
+