The R Project SVN R

Rev

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

Rev 51265 Rev 51267
Line 819... Line 819...
819 
    ans = applyMethod(newcall, nextfun, matchedarg, env, m);
 819 
    ans = applyMethod(newcall, nextfun, matchedarg, env, m);
820 
    UNPROTECT(10);
 820 
    UNPROTECT(10);
821 
    return(ans);
 821 
    return(ans);
822 
}
 822 
}
823 
 
 823 
 
- 
 
 824 
/* primitive */
824 
SEXP attribute_hidden do_unclass(SEXP call, SEXP op, SEXP args, SEXP env)
 825 
SEXP attribute_hidden do_unclass(SEXP call, SEXP op, SEXP args, SEXP env)
825 
{
 826 
{
826 
    checkArity(op, args);
 827 
    checkArity(op, args);
- 
 
 828 
    check1arg(args, call, "x");
- 
 
 829 
 
827 
    switch(TYPEOF(CAR(args))) {
 830 
    switch(TYPEOF(CAR(args))) {
828 
    case ENVSXP:
 831 
    case ENVSXP:
829 
	errorcall(call, _("cannot unclass an environment"));
 832 
	errorcall(call, _("cannot unclass an environment"));
830 
	break;
 833 
	break;
831 
    case EXTPTRSXP:
 834 
    case EXTPTRSXP:
Line 1033... Line 1036...
1033 
static SEXP get_this_generic(SEXP args);
 1036 
static SEXP get_this_generic(SEXP args);
1034 
 
 1037 
 
1035 
SEXP attribute_hidden do_standardGeneric(SEXP call, SEXP op, SEXP args, SEXP env)
 1038 
SEXP attribute_hidden do_standardGeneric(SEXP call, SEXP op, SEXP args, SEXP env)
1036 
{
 1039 
{
1037 
    SEXP arg, value, fdef; R_stdGen_ptr_t ptr = R_get_standardGeneric_ptr();
 1040 
    SEXP arg, value, fdef; R_stdGen_ptr_t ptr = R_get_standardGeneric_ptr();
- 
 
 1041 
 
- 
 
 1042 
    checkArity(op, args);
- 
 
 1043 
    check1arg(args, call, "f");
- 
 
 1044 
 
1038 
    if(!ptr) {
 1045 
    if(!ptr) {
1039 
	warningcall(call,
 1046 
	warningcall(call,
1040 
		    _("standardGeneric called without methods dispatch enabled (will be ignored)"));
 1047 
		    _("standardGeneric called without methods dispatch enabled (will be ignored)"));
1041 
	R_set_standardGeneric_ptr(dispatchNonGeneric, NULL);
 1048 
	R_set_standardGeneric_ptr(dispatchNonGeneric, NULL);
1042 
	ptr = R_get_standardGeneric_ptr();
 1049 
	ptr = R_get_standardGeneric_ptr();