let parse_architectures buildarchlist (_loc,s) =
  let matchsource sourcearchlist buildarchlist = 
    List.exists (fun arch ->
      List.exists(fun source ->
        Architecture.src_matches_arch source arch
      ) sourcearchlist
    ) buildarchlist
  in
  let sourcearchlist = Packages.lexbuf_wrapper Packages_parser.archlist_top (_loc,s) in
  if buildarchlist = [] then sourcearchlist
  else if matchsource sourcearchlist buildarchlist then sourcearchlist
  else raise (Packages.IgnorePackage "")