SCM_CLASS_FLAGS   540 src/gauche.h   #define SCM_CLASS_APPLICABLE_P(obj) (SCM_CLASS_FLAGS(obj)&SCM_CLASS_APPLICABLE)
SCM_CLASS_FLAGS   542 src/gauche.h   #define SCM_CLASS_CATEGORY(obj)  (SCM_CLASS_FLAGS(obj)&3)