SCM_TAG 187 src/gauche.h #define SCM_PTRP(obj) (SCM_TAG(obj) == 0) SCM_TAG 237 src/gauche.h #define SCM_INTP(obj) (SCM_TAG(obj) == 1) SCM_TAG 292 src/gauche.h #define SCM_HOBJP(obj) (SCM_PTRP(obj)&&SCM_TAG(SCM_OBJ(obj)->tag)==3) SCM_TAG 747 src/gauche.h #define SCM_PAIRP(obj) (SCM_PTRP(obj)&&SCM_TAG(SCM_OBJ(obj)->tag)!=0x03)