ScmByte 299 src/gauche.h #define SCM_CLASS2TAG(klass) ((ScmByte*)(klass) + 3) ScmByte 303 src/gauche.h ScmByte *tag; /* private. should be accessed ScmByte 312 src/gauche.h #define SCM_SET_CLASS(obj, k) (SCM_OBJ(obj)->tag = (ScmByte*)(k) + 3) ScmByte 323 src/gauche.h ScmByte *tag; /* private */ ScmByte 1333 src/gauche.h void (*Putb)(ScmByte b, ScmPort *p); ScmByte 505 src/string.c return (ScmByte)SCM_STRING_BODY_START(b)[offset];