pub unsafe extern "C" fn R_ExecWithCleanup(
    fun: Option<unsafe extern "C" fn(arg1: *mut c_void) -> SEXP>,
    data: *mut c_void,
    cleanfun: Option<unsafe extern "C" fn(arg1: *mut c_void)>,
    cleandata: *mut c_void
) -> SEXP