pub unsafe extern "C" fn OBJECT(x: SEXP) -> c_int