98
98
/* Also defined in libguile/objects.c */
99
99
#define SCM_CLASS_OF(x) SCM_STRUCT_VTABLE (x)
100
100
#define SCM_ACCESSORS_OF(x) (SCM_PACK (SCM_STRUCT_VTABLE_DATA (x)[scm_si_getters_n_setters]))
105
103
(SCM_STRUCTP (x) && SCM_STRUCT_VTABLE_FLAGS (x) & SCM_CLASSF_METACLASS)