SCM_CLASS_STRING 3045 src/class.c CINIT(SCM_CLASS_STRING, "<string>"); SCM_CLASS_STRING 986 src/gauche.h #define SCM_STRINGP(obj) SCM_XTYPEP(obj, SCM_CLASS_STRING) SCM_CLASS_STRING 1124 src/gauche.h { { SCM_CLASS2TAG(SCM_CLASS_STRING) }, NULL, \ SCM_CLASS_STRING 60 src/string.c SCM_SET_CLASS(s, SCM_CLASS_STRING);