The R Project SVN R

Rev

Rev 52266 | Rev 52431 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 52266 Rev 52273
Line 251... Line 251...
251 
	      SEXP rho, SEXP callrho, SEXP defrho, SEXP *ans)
 251 
	      SEXP rho, SEXP callrho, SEXP defrho, SEXP *ans)
252 
{
 252 
{
253 
    SEXP klass, method, sxp, t, s, matchedarg, sort_list;
 253 
    SEXP klass, method, sxp, t, s, matchedarg, sort_list;
254 
    SEXP op, formals, newrho, newcall, match_obj = 0;
 254 
    SEXP op, formals, newrho, newcall, match_obj = 0;
255 
    char buf[512];
 255 
    char buf[512];
256 
    int i, j, nclass, matched, S4toS3, nprotect;
 256 
    int i, j, nclass, matched, /* S4toS3, */ nprotect;
257 
    RCNTXT *cptr;
 257 
    RCNTXT *cptr;
258 
 
 258 
 
259 
    /* Get the context which UseMethod was called from. */
 259 
    /* Get the context which UseMethod was called from. */
260 
 
 260 
 
261 
    cptr = R_GlobalContext;
 261 
    cptr = R_GlobalContext;
Line 825... Line 825...
825 
	setAttrib(CAR(args), R_ClassSymbol, R_NilValue);
 825 
	setAttrib(CAR(args), R_ClassSymbol, R_NilValue);
826 
    }
 826 
    }
827 
    return CAR(args);
 827 
    return CAR(args);
828 
}
 828 
}
829 
 
 829 
 
830 
static SEXP s_S4inherits;
 830 
/* static SEXP s_S4inherits; */
831 
 
 831 
 
832 
SEXP attribute_hidden do_inherits(SEXP call, SEXP op, SEXP args, SEXP env)
 832 
SEXP attribute_hidden do_inherits(SEXP call, SEXP op, SEXP args, SEXP env)
833 
{
 833 
{
834 
    SEXP x, klass, what, which, rval = R_NilValue /* -Wall */;
 834 
    SEXP x, klass, what, which, rval = R_NilValue /* -Wall */;
835 
    int i, j, nwhat, isvec, nclass;
 835 
    int i, j, nwhat, isvec, nclass;