summaryrefslogtreecommitdiff
path: root/libguile/goops.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-11-20 13:42:13 +0100
committerAndy Wingo <wingo@pobox.com>2009-11-26 00:25:07 +0100
commitc06e3eb0c23926b02af5269bb956ad0fdd275187 (patch)
tree1418901499a8fcbdb04693360279321de5f44fe8 /libguile/goops.c
parent9022ff183c44976b7f28503f9f78c523b578846a (diff)
downloadguile-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.c8
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"),