method 2327 src/class.c ScmObj Scm_AddMethod(ScmGeneric *gf, ScmMethod *method) method 2332 src/class.c if (method->generic && method->generic != gf) method 2334 src/class.c method, method->generic); method 2335 src/class.c if (!SCM_FALSEP(Scm_Memq(SCM_OBJ(method), gf->methods))) method 2338 src/class.c method, gf); method 2339 src/class.c method->generic = gf; method 2341 src/class.c pair = Scm_Cons(SCM_OBJ(method), gf->methods); method 2347 src/class.c if (SCM_PROCEDURE_REQUIRED(method) == SCM_PROCEDURE_REQUIRED(mm) method 2348 src/class.c && SCM_PROCEDURE_OPTIONAL(method) == SCM_PROCEDURE_OPTIONAL(mm)) { method 2349 src/class.c ScmClass **sp1 = method->specializers; method 2352 src/class.c for (i=0; i<SCM_PROCEDURE_REQUIRED(method); i++) { method 2355 src/class.c if (i == SCM_PROCEDURE_REQUIRED(method)) { method 2356 src/class.c SCM_SET_CAR(mp, SCM_OBJ(method)); method 2385 src/class.c ScmObj Scm_DeleteMethod(ScmGeneric *gf, ScmMethod *method) method 2389 src/class.c if (!method->generic || method->generic != gf) return SCM_UNDEFINED; method 2394 src/class.c if (SCM_EQ(SCM_CAR(mp), SCM_OBJ(method))) { method 2396 src/class.c method->generic = NULL; method 2399 src/class.c if (SCM_EQ(SCM_CADR(mp), SCM_OBJ(method))) { method 2401 src/class.c method->generic = NULL; method 119 src/gauche/class.h SCM_EXTERN ScmObj Scm_AddMethod(ScmGeneric *gf, ScmMethod *method); method 120 src/gauche/class.h SCM_EXTERN ScmObj Scm_DeleteMethod(ScmGeneric *gf, ScmMethod *method); method 86 src/moplib.c ScmObj method; method 89 src/moplib.c method = (method_scm); method 92 src/moplib.c if (!Scm_TypeP(method, SCM_CLASS_METHOD)) method 93 src/moplib.c Scm_Error("method required, but got %S", method); method 94 src/moplib.c m = SCM_METHOD(method);