Function R_compute_identical 

#[unsafe(no_mangle)]
pub extern "C" fn R_compute_identical(
    x: Sexp,
    y: Sexp,
    _flags: c_int,
) -> c_int