Function check_list_shape 

fn check_list_shape(
    sexp: SEXP,
    expected_len: usize,
    len: impl FnOnce() -> usize,
) -> Result<(), SexpError>