let arch_filter archlist par =
  try
    let (_,s) = (assoc "architecture" par) in
    List.mem s archlist
  with Not_found -> false