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