pub unsafe extern "C" fn SETCAD4R(e: SEXP, y: SEXP) -> SEXP