let
all_constraints table pkgname =
try
(
Hashtbl
.find table pkgname)
with
Not_found
->
[]