SCM_CLASS_SLOT_ACCESSOR 1243 src/class.c if (!SCM_XTYPEP(SCM_CDR(p), SCM_CLASS_SLOT_ACCESSOR)) SCM_CLASS_SLOT_ACCESSOR 2985 src/class.c BINIT(SCM_CLASS_SLOT_ACCESSOR,"<slot-accessor>", slot_accessor_slots); SCM_CLASS_SLOT_ACCESSOR 69 src/gauche/class.h #define SCM_SLOT_ACCESSOR_P(obj) SCM_XTYPEP(obj, SCM_CLASS_SLOT_ACCESSOR) SCM_CLASS_SLOT_ACCESSOR 78 src/gauche/class.h { name, { {SCM_CLASS2TAG(SCM_CLASS_SLOT_ACCESSOR)}, \ SCM_CLASS_SLOT_ACCESSOR 102 src/gauche/class.h #define SCM_ACCESSOR_METHOD_P(obj) SCM_ISA(obj, SCM_CLASS_SLOT_ACCESSOR)