diff options
author | Andy Wingo <wingo@pobox.com> | 2009-11-20 13:42:13 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-11-26 00:25:07 +0100 |
commit | c06e3eb0c23926b02af5269bb956ad0fdd275187 (patch) | |
tree | 1418901499a8fcbdb04693360279321de5f44fe8 /libguile/goops.c | |
parent | 9022ff183c44976b7f28503f9f78c523b578846a (diff) | |
download | guile-c06e3eb0c23926b02af5269bb956ad0fdd275187.tar.gz |
generic method cache begone
* libguile/goops.h (SCM_GENERIC_METHOD_CACHE)
(SCM_SET_GENERIC_METHOD_CACHE, scm_si_generic_cache)
* libguile/goops.c (create_standard_classes): Remove slot for generic
method cache. Yay!
Diffstat (limited to 'libguile/goops.c')
-rw-r--r-- | libguile/goops.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index aee8ee280..96d03a3da 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -61,11 +61,6 @@ #define SPEC_OF(x) SCM_SLOT (x, scm_si_specializers) -#define SCM_CMETHOD_CODE(cmethod) SCM_CDR (cmethod) -#define SCM_CMETHOD_FORMALS(cmethod) SCM_CAR (SCM_CMETHOD_CODE (cmethod)) -#define SCM_CMETHOD_BODY(cmethod) SCM_CDR (SCM_CMETHOD_CODE (cmethod)) -#define SCM_CMETHOD_ENV(cmethod) SCM_CAR (cmethod) - /* Port classes */ #define SCM_IN_PCLASS_INDEX 0 #define SCM_OUT_PCLASS_INDEX SCM_I_MAX_PORT_TYPE_COUNT @@ -2348,14 +2343,13 @@ create_standard_classes (void) SCM amethod_slots = scm_list_1 (scm_list_3 (scm_from_locale_symbol ("slot-definition"), k_init_keyword, k_slot_definition)); - SCM gf_slots = scm_list_5 (scm_from_locale_symbol ("methods"), + SCM gf_slots = scm_list_4 (scm_from_locale_symbol ("methods"), scm_list_3 (scm_from_locale_symbol ("n-specialized"), k_init_value, SCM_INUM0), scm_list_3 (scm_from_locale_symbol ("extended-by"), k_init_value, SCM_EOL), - scm_from_locale_symbol ("%cache"), scm_from_locale_symbol ("effective-methods")); SCM setter_slots = scm_list_1 (sym_setter); SCM egf_slots = scm_list_1 (scm_list_3 (scm_from_locale_symbol ("extends"), |