let add_to_package_list h n p = try let l = Hashtbl.find h n in l := p :: !l with Not_found -> Hashtbl.add h n (ref [p])