let record_only_pairs_expected loc sexp =
  let msg =
    loc ^
      "_of_sexp: record conversion: only pairs expected, their first element must be an atom" in
  of_sexp_error msg sexp