/* Generated automatically from libchar.scm.  DO NOT EDIT */
#define LIBGAUCHE_BODY 
#include <gauche.h>
#include <gauche/code.h>

#line 37 "libchar.scm"
#include <gauche/vminsn.h>
#include <gauche/char_attr.h>
#include <gauche/priv/charP.h>
#include <ctype.h>


static ScmObj libcharcharP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharcharP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharcharP, SCM_MAKE_INT(SCM_VM_CHARP), NULL);


static ScmObj libcharchar_3dP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_3dP, NULL, NULL);


static ScmObj libcharchar_LTP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_LTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_LTP, NULL, NULL);


static ScmObj libcharchar_GTP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_GTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_GTP, NULL, NULL);


static ScmObj libcharchar_LT_3dP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_LT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_LT_3dP, NULL, NULL);


static ScmObj libcharchar_GT_3dP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_GT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_GT_3dP, NULL, NULL);


static ScmObj libcharchar_ci_3dP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_ci_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_ci_3dP, NULL, NULL);


static ScmObj libcharchar_ci_LTP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_ci_LTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_ci_LTP, NULL, NULL);


static ScmObj libcharchar_ci_GTP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_ci_GTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_ci_GTP, NULL, NULL);


static ScmObj libcharchar_ci_LT_3dP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_ci_LT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_ci_LT_3dP, NULL, NULL);


static ScmObj libcharchar_ci_GT_3dP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_ci_GT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_ci_GT_3dP, NULL, NULL);


static ScmObj libcharchar_alphabeticP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_alphabeticP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_alphabeticP, NULL, NULL);


static ScmObj libcharchar_numericP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_numericP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_numericP, NULL, NULL);


static ScmObj libcharchar_whitespaceP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_whitespaceP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_whitespaceP, NULL, NULL);


static ScmObj libcharchar_upper_caseP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_upper_caseP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_upper_caseP, NULL, NULL);


static ScmObj libcharchar_lower_caseP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_lower_caseP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_lower_caseP, NULL, NULL);


static ScmObj libcharchar_TOinteger(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_TOinteger__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_TOinteger, NULL, NULL);


static ScmObj libcharinteger_TOchar(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharinteger_TOchar__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharinteger_TOchar, NULL, NULL);


static ScmObj libcharchar_upcase(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_upcase__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_upcase, NULL, NULL);


static ScmObj libcharchar_downcase(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_downcase__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_downcase, NULL, NULL);


static ScmObj libchardigit_TOinteger(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchardigit_TOinteger__STUB, 1, 3,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchardigit_TOinteger, NULL, NULL);


static ScmObj libcharinteger_TOdigit(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharinteger_TOdigit__STUB, 1, 4,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharinteger_TOdigit, NULL, NULL);


static ScmObj libcharucs_TOchar(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharucs_TOchar__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharucs_TOchar, NULL, NULL);


static ScmObj libcharchar_TOucs(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_TOucs__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_TOucs, NULL, NULL);


static ScmObj libchargauche_character_encoding(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchargauche_character_encoding__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchargauche_character_encoding, NULL, NULL);


static ScmObj libcharsupported_character_encodings(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharsupported_character_encodings__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharsupported_character_encodings, NULL, NULL);


static ScmObj libcharsupported_character_encodingP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharsupported_character_encodingP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharsupported_character_encodingP, NULL, NULL);


static ScmObj libcharchar_title_caseP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_title_caseP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_title_caseP, NULL, NULL);


static ScmObj libcharchar_titlecase(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_titlecase__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_titlecase, NULL, NULL);


static ScmObj libcharchar_foldcase(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_foldcase__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_foldcase, NULL, NULL);


static ScmObj libcharchar_general_category(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_general_category__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_general_category, NULL, NULL);

static void char_set_add(ScmCharSet* cs,ScmObj chars);

static ScmObj libcharchar_setP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_setP__STUB, 1, 0,1, SCM_FALSE,0, libcharchar_setP, NULL, NULL);


static ScmObj libcharchar_set(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_set__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_set, NULL, NULL);


static ScmObj libcharchar_set_copy(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_set_copy__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_set_copy, NULL, NULL);


static ScmObj libcharchar_set_freeze(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_set_freeze__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_set_freeze, NULL, NULL);


static ScmObj libcharchar_set_freezeX(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_set_freezeX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_set_freezeX, NULL, NULL);


static ScmObj libcharread_char_set(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharread_char_set__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharread_char_set, NULL, NULL);


static ScmObj libcharchar_set_containsP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_set_containsP__STUB, 2, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_set_containsP, NULL, NULL);


static ScmObj libcharchar_set_complementX(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_set_complementX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_set_complementX, NULL, NULL);


static ScmObj libcharchar_set_immutableP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libcharchar_set_immutableP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libcharchar_set_immutableP, NULL, NULL);


static ScmObj libchar_25char_set_equalP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchar_25char_set_equalP__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchar_25char_set_equalP, NULL, NULL);


static ScmObj libchar_25char_set_LT_3dP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchar_25char_set_LT_3dP__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchar_25char_set_LT_3dP, NULL, NULL);


static ScmObj libchar_25char_set_add_charsX(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchar_25char_set_add_charsX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchar_25char_set_add_charsX, NULL, NULL);


static ScmObj libchar_25char_set_add_rangeX(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libchar_25char_set_add_rangeX__STUB, 3, 0,SCM_FALSE,libchar_25char_set_add_rangeX, NULL, NULL);


static ScmObj libchar_25char_set_addX(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchar_25char_set_addX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchar_25char_set_addX, NULL, NULL);


static ScmObj libchar_25char_set_ranges(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchar_25char_set_ranges__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchar_25char_set_ranges, NULL, NULL);


static ScmObj libchar_25char_set_predefined(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchar_25char_set_predefined__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchar_25char_set_predefined, NULL, NULL);


static ScmObj libchar_25char_set_case_foldX(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchar_25char_set_case_foldX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchar_25char_set_case_foldX, NULL, NULL);


static ScmObj libchar_25char_set_dump(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libchar_25char_set_dump__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libchar_25char_set_dump, NULL, NULL);

#if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
#define SCM_CGEN_CONST /*empty*/
#else
#define SCM_CGEN_CONST const
#endif
static SCM_CGEN_CONST struct scm__scRec {
  ScmString d1561[129];
} scm__sc SCM_UNUSED = {
  {   /* ScmString d1561 */
      SCM_STRING_CONST_INITIALIZER("char\077", 5, 5),
      SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
      SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
      SCM_STRING_CONST_INITIALIZER("libchar.scm", 11, 11),
      SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
      SCM_STRING_CONST_INITIALIZER("scheme", 6, 6),
      SCM_STRING_CONST_INITIALIZER("char=\077", 6, 6),
      SCM_STRING_CONST_INITIALIZER("c1", 2, 2),
      SCM_STRING_CONST_INITIALIZER("c2", 2, 2),
      SCM_STRING_CONST_INITIALIZER("rest", 4, 4),
      SCM_STRING_CONST_INITIALIZER("chars", 5, 5),
      SCM_STRING_CONST_INITIALIZER("char<\077", 6, 6),
      SCM_STRING_CONST_INITIALIZER("char>\077", 6, 6),
      SCM_STRING_CONST_INITIALIZER("char<=\077", 7, 7),
      SCM_STRING_CONST_INITIALIZER("char>=\077", 7, 7),
      SCM_STRING_CONST_INITIALIZER("char-ci=\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("char-ci<\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("char-ci>\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("char-ci<=\077", 10, 10),
      SCM_STRING_CONST_INITIALIZER("char-ci>=\077", 10, 10),
      SCM_STRING_CONST_INITIALIZER("char-alphabetic\077", 16, 16),
      SCM_STRING_CONST_INITIALIZER("c", 1, 1),
      SCM_STRING_CONST_INITIALIZER("char-numeric\077", 13, 13),
      SCM_STRING_CONST_INITIALIZER("char-whitespace\077", 16, 16),
      SCM_STRING_CONST_INITIALIZER("char-upper-case\077", 16, 16),
      SCM_STRING_CONST_INITIALIZER("char-lower-case\077", 16, 16),
      SCM_STRING_CONST_INITIALIZER("char->integer", 13, 13),
      SCM_STRING_CONST_INITIALIZER("integer->char", 13, 13),
      SCM_STRING_CONST_INITIALIZER("char-upcase", 11, 11),
      SCM_STRING_CONST_INITIALIZER("char-downcase", 13, 13),
      SCM_STRING_CONST_INITIALIZER("digit->integer", 14, 14),
      SCM_STRING_CONST_INITIALIZER("ch", 2, 2),
      SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
      SCM_STRING_CONST_INITIALIZER("radix", 5, 5),
      SCM_STRING_CONST_INITIALIZER("extended-range\077", 15, 15),
      SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
      SCM_STRING_CONST_INITIALIZER("integer->digit", 14, 14),
      SCM_STRING_CONST_INITIALIZER("n", 1, 1),
      SCM_STRING_CONST_INITIALIZER("basechar1", 9, 9),
      SCM_STRING_CONST_INITIALIZER("basechar2", 9, 9),
      SCM_STRING_CONST_INITIALIZER("ucs->char", 9, 9),
      SCM_STRING_CONST_INITIALIZER("char->ucs", 9, 9),
      SCM_STRING_CONST_INITIALIZER("gauche-character-encoding", 25, 25),
      SCM_STRING_CONST_INITIALIZER("supported-character-encodings", 29, 29),
      SCM_STRING_CONST_INITIALIZER("supported-character-encoding\077", 29, 29),
      SCM_STRING_CONST_INITIALIZER("encoding", 8, 8),
      SCM_STRING_CONST_INITIALIZER("char-title-case\077", 16, 16),
      SCM_STRING_CONST_INITIALIZER("char-titlecase", 14, 14),
      SCM_STRING_CONST_INITIALIZER("char-foldcase", 13, 13),
      SCM_STRING_CONST_INITIALIZER("char-general-category", 21, 21),
      SCM_STRING_CONST_INITIALIZER("Lu", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Ll", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Lt", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Lm", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Lo", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Mn", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Mc", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Me", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Nd", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Nl", 2, 2),
      SCM_STRING_CONST_INITIALIZER("No", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Pc", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Pd", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Ps", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Pe", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Pi", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Pf", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Po", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Sm", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Sc", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Sk", 2, 2),
      SCM_STRING_CONST_INITIALIZER("So", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Zs", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Zl", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Zp", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Cc", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Cf", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Cs", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Co", 2, 2),
      SCM_STRING_CONST_INITIALIZER("Cn", 2, 2),
      SCM_STRING_CONST_INITIALIZER("*char-code-max*", 15, 15),
      SCM_STRING_CONST_INITIALIZER("char-set\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("char-set", 8, 8),
      SCM_STRING_CONST_INITIALIZER("char-set-copy", 13, 13),
      SCM_STRING_CONST_INITIALIZER("cs", 2, 2),
      SCM_STRING_CONST_INITIALIZER("char-set-freeze", 15, 15),
      SCM_STRING_CONST_INITIALIZER("char-set-freeze!", 16, 16),
      SCM_STRING_CONST_INITIALIZER("char-set-size", 13, 13),
      SCM_STRING_CONST_INITIALIZER("range", 5, 5),
      SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
      SCM_STRING_CONST_INITIALIZER("%char-set-ranges", 16, 16),
      SCM_STRING_CONST_INITIALIZER("for-each", 8, 8),
      SCM_STRING_CONST_INITIALIZER("error", 5, 5),
      SCM_STRING_CONST_INITIALIZER("posix-bracket", 13, 13),
      SCM_STRING_CONST_INITIALIZER("read-char-set", 13, 13),
      SCM_STRING_CONST_INITIALIZER("port", 4, 4),
      SCM_STRING_CONST_INITIALIZER("char-set-contains\077", 18, 18),
      SCM_STRING_CONST_INITIALIZER("char-set-complement!", 20, 20),
      SCM_STRING_CONST_INITIALIZER("char-set-complement", 19, 19),
      SCM_STRING_CONST_INITIALIZER("char-set-immutable\077", 19, 19),
      SCM_STRING_CONST_INITIALIZER("char-set-hash", 13, 13),
      SCM_STRING_CONST_INITIALIZER("too many arguments for", 22, 22),
      SCM_STRING_CONST_INITIALIZER("lambda", 6, 6),
      SCM_STRING_CONST_INITIALIZER("bound", 5, 5),
      SCM_STRING_CONST_INITIALIZER("fold", 4, 4),
      SCM_STRING_CONST_INITIALIZER("^", 1, 1),
      SCM_STRING_CONST_INITIALIZER("val", 3, 3),
      SCM_STRING_CONST_INITIALIZER("modulo", 6, 6),
      SCM_STRING_CONST_INITIALIZER("hash", 4, 4),
      SCM_STRING_CONST_INITIALIZER("+", 1, 1),
      SCM_STRING_CONST_INITIALIZER("car", 3, 3),
      SCM_STRING_CONST_INITIALIZER("cdr", 3, 3),
      SCM_STRING_CONST_INITIALIZER("with-module", 11, 11),
      SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
      SCM_STRING_CONST_INITIALIZER("%char-set-equal\077", 16, 16),
      SCM_STRING_CONST_INITIALIZER("x", 1, 1),
      SCM_STRING_CONST_INITIALIZER("y", 1, 1),
      SCM_STRING_CONST_INITIALIZER("%char-set<=\077", 12, 12),
      SCM_STRING_CONST_INITIALIZER("%char-set-add-chars!", 20, 20),
      SCM_STRING_CONST_INITIALIZER("%char-set-add-range!", 20, 20),
      SCM_STRING_CONST_INITIALIZER("from", 4, 4),
      SCM_STRING_CONST_INITIALIZER("to", 2, 2),
      SCM_STRING_CONST_INITIALIZER("%char-set-add!", 14, 14),
      SCM_STRING_CONST_INITIALIZER("dst", 3, 3),
      SCM_STRING_CONST_INITIALIZER("src", 3, 3),
      SCM_STRING_CONST_INITIALIZER("%char-set-predefined", 20, 20),
      SCM_STRING_CONST_INITIALIZER("num", 3, 3),
      SCM_STRING_CONST_INITIALIZER("%char-set-case-fold!", 20, 20),
      SCM_STRING_CONST_INITIALIZER("%char-set-dump", 14, 14),
  },
};
static struct scm__rcRec {
  ScmCompiledCode d1570[5];
  ScmWord d1569[90];
  ScmPair d1563[476] SCM_ALIGN_PAIR;
  ScmObj d1562[192];
} scm__rc SCM_UNUSED = {
  {   /* ScmCompiledCode d1570 */
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1569[0])), 10,
            2, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[308]),
            SCM_OBJ(&scm__rc.d1570[1]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* char-set-size */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1569[10])), 16,
            20, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[313]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* char-set-complement */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1569[26])), 8,
            10, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[345]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1569[34])), 14,
            11, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[391]),
            SCM_OBJ(&scm__rc.d1570[4]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* char-set-hash */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1569[48])), 42,
            16, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[396]),
            SCM_FALSE, SCM_FALSE),
  },
  {   /* ScmWord d1569 */
    /* (char-set-size #f) */
    0x000010ea    /*   0 (LREF-UNBOX 1 0) */,
    0x0000000d    /*   1 (PUSH) */,
    0x00000076    /*   2 (LREF0-CDR) */,
    0x0000000d    /*   3 (PUSH) */,
    0x0000006a    /*   4 (LREF0-CAR) */,
    0x000000b3    /*   5 (NUMSUB2) */,
    0x000010bc    /*   6 (NUMADDI 1) */,
    0x000000b2    /*   7 (NUMADD2) */,
    0x0000103a    /*   8 (LSET 1 0) */,
    0x00000014    /*   9 (RET) */,
    /* char-set-size */
    0x00000007    /*   0 (CONSTI-PUSH 0) */,
    0x00001017    /*   1 (LOCAL-ENV 1) */,
    0x000010e7    /*   2 (BOX 1) */,
    0x0000200e    /*   3 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[10]) + 14),
    0x00000016    /*   5 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1570[0])) /* #<compiled-code (char-set-size #f)@0x7f9c39c3ac60> */,
    0x0000100f    /*   7 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[10]) + 12),
    0x0000004c    /*   9 (LREF10-PUSH) */,
    0x0000105f    /*  10 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%char-set-ranges.39af6e60> */,
    0x00002062    /*  12 (PUSH-GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#for-each.39af4620> */,
    0x000000ea    /*  14 (LREF-UNBOX 0 0) */,
    0x00000014    /*  15 (RET) */,
    /* char-set-complement */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[26]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set-copy.3952c300> */,
    0x00001063    /*   5 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set-complement!.3952c340> */,
    0x00000014    /*   7 (RET) */,
    /* (char-set-hash #f) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[34]) + 9),
    0x0000006b    /*   2 (LREF1-CAR) */,
    0x000000b6    /*   3 (LREF-VAL0-NUMADD2 0 0) */,
    0x0000000d    /*   4 (PUSH) */,
    0x00000077    /*   5 (LREF1-CDR) */,
    0x000000b2    /*   6 (NUMADD2) */,
    0x00001062    /*   7 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash.395d30e0> */,
    0x0000000d    /*   9 (PUSH) */,
    0x0000004d    /*  10 (LREF11-PUSH) */,
    0x00002060    /*  11 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#modulo.395d32e0> */,
    0x00000014    /*  13 (RET) */,
    /* char-set-hash */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]) + 7),
    0x00000001    /*   3 (CONST) */,
    SCM_WORD(SCM_UNDEFINED) /* 536870911 */,
    0x00000013    /*   5 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]) + 8),
    0x0000006a    /*   7 (LREF0-CAR) */,
    0x0000000d    /*   8 (PUSH) */,
    0x0000003d    /*   9 (LREF0) */,
    0x00000022    /*  10 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]) + 15),
    0x00000003    /*  12 (CONSTN) */,
    0x00000013    /*  13 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]) + 16),
    0x00000076    /*  15 (LREF0-CDR) */,
    0x00002018    /*  16 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  17 (LREF0) */,
    0x00000022    /*  18 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]) + 22),
    0x00000013    /*  20 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]) + 30),
    0x0000200e    /*  22 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]) + 30),
    0x00000006    /*  24 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[101])) /* "too many arguments for" */,
    0x00000006    /*  26 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[385])) /* (lambda (cs :optional (bound 536870911)) (fold (^ (range val) (modulo (hash (+ val (car range) (cdr range))) bound)) 0 ((with-module gauche.internal %char-set-ranges) cs))) */,
    0x0000205f    /*  28 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.395ce3e0> */,
    0x00000016    /*  30 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1570[3])) /* #<compiled-code (char-set-hash #f)@0x7f9c39825b40> */,
    0x0000000d    /*  32 (PUSH) */,
    0x00000007    /*  33 (CONSTI-PUSH 0) */,
    0x0000100e    /*  34 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]) + 39),
    0x0000004d    /*  36 (LREF11-PUSH) */,
    0x0000105f    /*  37 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%char-set-ranges.395df700> */,
    0x00003063    /*  39 (PUSH-GREF-TAIL-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#fold.395d3400> */,
    0x00000014    /*  41 (RET) */,
  },
  {   /* ScmPair d1563 */
       { SCM_NIL, SCM_NIL },
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(48U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[2])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[3])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[5])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])},
       { SCM_OBJ(&scm__rc.d1563[7]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[4]), SCM_OBJ(&scm__rc.d1563[8])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[10])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[11])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[12])},
       { SCM_MAKE_INT(65U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[14])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[15])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[17])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[18])},
       { SCM_OBJ(&scm__rc.d1563[19]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[16]), SCM_OBJ(&scm__rc.d1563[20])},
       { SCM_MAKE_INT(67U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[22])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[23])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[25])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[26])},
       { SCM_OBJ(&scm__rc.d1563[27]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[24]), SCM_OBJ(&scm__rc.d1563[28])},
       { SCM_MAKE_INT(69U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[30])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[31])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[33])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[34])},
       { SCM_OBJ(&scm__rc.d1563[35]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[32]), SCM_OBJ(&scm__rc.d1563[36])},
       { SCM_MAKE_INT(71U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[38])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[39])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[41])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[42])},
       { SCM_OBJ(&scm__rc.d1563[43]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[40]), SCM_OBJ(&scm__rc.d1563[44])},
       { SCM_MAKE_INT(73U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[46])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[49])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[50])},
       { SCM_OBJ(&scm__rc.d1563[51]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[48]), SCM_OBJ(&scm__rc.d1563[52])},
       { SCM_MAKE_INT(94U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[54])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[55])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[57])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[58])},
       { SCM_OBJ(&scm__rc.d1563[59]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[56]), SCM_OBJ(&scm__rc.d1563[60])},
       { SCM_MAKE_INT(96U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[62])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[63])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[65])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[66])},
       { SCM_OBJ(&scm__rc.d1563[67]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[64]), SCM_OBJ(&scm__rc.d1563[68])},
       { SCM_MAKE_INT(98U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[70])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[71])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[73])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[74])},
       { SCM_OBJ(&scm__rc.d1563[75]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[72]), SCM_OBJ(&scm__rc.d1563[76])},
       { SCM_MAKE_INT(100U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[78])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[79])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[81])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[82])},
       { SCM_OBJ(&scm__rc.d1563[83]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[80]), SCM_OBJ(&scm__rc.d1563[84])},
       { SCM_MAKE_INT(102U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[87])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[89])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[90])},
       { SCM_OBJ(&scm__rc.d1563[91]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[88]), SCM_OBJ(&scm__rc.d1563[92])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(105U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[95])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[96])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[98])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[99])},
       { SCM_OBJ(&scm__rc.d1563[100]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[97]), SCM_OBJ(&scm__rc.d1563[101])},
       { SCM_MAKE_INT(106U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[103])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[104])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[106])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[107])},
       { SCM_OBJ(&scm__rc.d1563[108]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[105]), SCM_OBJ(&scm__rc.d1563[109])},
       { SCM_MAKE_INT(107U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[111])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[112])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[114])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[115])},
       { SCM_OBJ(&scm__rc.d1563[116]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[117])},
       { SCM_MAKE_INT(110U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[119])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[120])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[122])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[123])},
       { SCM_OBJ(&scm__rc.d1563[124]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[121]), SCM_OBJ(&scm__rc.d1563[125])},
       { SCM_MAKE_INT(111U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[127])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[128])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[130])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[131])},
       { SCM_OBJ(&scm__rc.d1563[132]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[129]), SCM_OBJ(&scm__rc.d1563[133])},
       { SCM_MAKE_INT(113U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[135])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[136])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[138])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[139])},
       { SCM_OBJ(&scm__rc.d1563[140]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[137]), SCM_OBJ(&scm__rc.d1563[141])},
       { SCM_MAKE_INT(115U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[143])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[144])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[146])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[147])},
       { SCM_OBJ(&scm__rc.d1563[148]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[145]), SCM_OBJ(&scm__rc.d1563[149])},
       { SCM_MAKE_INT(118U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[151])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[152])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[154])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[155])},
       { SCM_OBJ(&scm__rc.d1563[156]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[153]), SCM_OBJ(&scm__rc.d1563[157])},
       { SCM_MAKE_INT(119U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[159])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[160])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[162])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[163])},
       { SCM_OBJ(&scm__rc.d1563[164]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[161]), SCM_OBJ(&scm__rc.d1563[165])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[167])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[168])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[169])},
       { SCM_MAKE_INT(122U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[171])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[172])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[174])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[175])},
       { SCM_OBJ(&scm__rc.d1563[176]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[173]), SCM_OBJ(&scm__rc.d1563[177])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[179])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[180])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[181])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[182])},
       { SCM_MAKE_INT(133U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[184])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[185])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[187])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[188])},
       { SCM_OBJ(&scm__rc.d1563[189]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[186]), SCM_OBJ(&scm__rc.d1563[190])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(142U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[193])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[196])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[197])},
       { SCM_OBJ(&scm__rc.d1563[198]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[195]), SCM_OBJ(&scm__rc.d1563[199])},
       { SCM_MAKE_INT(146U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[201])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[202])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[204])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[205])},
       { SCM_OBJ(&scm__rc.d1563[206]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[203]), SCM_OBJ(&scm__rc.d1563[207])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[209])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[210])},
       { SCM_OBJ(&scm__rc.d1563[211]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[213])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[214])},
       { SCM_OBJ(&scm__rc.d1563[215]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(155U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[218])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[219])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[221])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[222])},
       { SCM_OBJ(&scm__rc.d1563[223]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[220]), SCM_OBJ(&scm__rc.d1563[224])},
       { SCM_MAKE_INT(158U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[226])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[227])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[229])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[230])},
       { SCM_OBJ(&scm__rc.d1563[231]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[228]), SCM_OBJ(&scm__rc.d1563[232])},
       { SCM_MAKE_INT(160U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[234])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[235])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[237])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[238])},
       { SCM_OBJ(&scm__rc.d1563[239]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[236]), SCM_OBJ(&scm__rc.d1563[240])},
       { SCM_MAKE_INT(161U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[242])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[243])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[245])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[246])},
       { SCM_OBJ(&scm__rc.d1563[247]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[244]), SCM_OBJ(&scm__rc.d1563[248])},
       { SCM_MAKE_INT(163U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[250])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[251])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[253])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[254])},
       { SCM_OBJ(&scm__rc.d1563[255]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[252]), SCM_OBJ(&scm__rc.d1563[256])},
       { SCM_MAKE_INT(214U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[258])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[259])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[261])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[262])},
       { SCM_OBJ(&scm__rc.d1563[263]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[260]), SCM_OBJ(&scm__rc.d1563[264])},
       { SCM_MAKE_INT(216U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[266])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[267])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[269])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[270])},
       { SCM_OBJ(&scm__rc.d1563[271]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[268]), SCM_OBJ(&scm__rc.d1563[272])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(221U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[275])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[276])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[278])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[279])},
       { SCM_OBJ(&scm__rc.d1563[280]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[277]), SCM_OBJ(&scm__rc.d1563[281])},
       { SCM_MAKE_INT(223U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[283])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[284])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[286])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[287])},
       { SCM_OBJ(&scm__rc.d1563[288]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[285]), SCM_OBJ(&scm__rc.d1563[289])},
       { SCM_MAKE_INT(224U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[291])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[292])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[294])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[295])},
       { SCM_OBJ(&scm__rc.d1563[296]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[293]), SCM_OBJ(&scm__rc.d1563[297])},
       { SCM_FALSE, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[299])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(228U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[302])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[303])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[305]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[304]), SCM_OBJ(&scm__rc.d1563[306])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(226U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[309])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[310])},
       { SCM_OBJ(&scm__rc.d1563[311]), SCM_OBJ(&scm__rc.d1563[306])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(232U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[315])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[316])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[318])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[319])},
       { SCM_OBJ(&scm__rc.d1563[320]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[317]), SCM_OBJ(&scm__rc.d1563[321])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[323])},
       { SCM_MAKE_INT(235U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[325])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[326])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[328])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[329])},
       { SCM_OBJ(&scm__rc.d1563[330]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[327]), SCM_OBJ(&scm__rc.d1563[331])},
       { SCM_MAKE_INT(238U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[333])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[334])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[336])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[337])},
       { SCM_OBJ(&scm__rc.d1563[338]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[335]), SCM_OBJ(&scm__rc.d1563[339])},
       { SCM_MAKE_INT(240U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[341])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[342])},
       { SCM_OBJ(&scm__rc.d1563[343]), SCM_OBJ(&scm__rc.d1563[306])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(242U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[346])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[347])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[349])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[350])},
       { SCM_OBJ(&scm__rc.d1563[351]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[348]), SCM_OBJ(&scm__rc.d1563[352])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[354])},
       { SCM_OBJ(&scm__rc.d1563[355]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[356])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[357])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[359])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[301])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[301])},
       { SCM_OBJ(&scm__rc.d1563[362]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[361]), SCM_OBJ(&scm__rc.d1563[363])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[364])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[365])},
       { SCM_OBJ(&scm__rc.d1563[366]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[367])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[368]), SCM_OBJ(&scm__rc.d1563[369])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[370])},
       { SCM_OBJ(&scm__rc.d1563[371]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[360]), SCM_OBJ(&scm__rc.d1563[372])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[373])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[375])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[376])},
       { SCM_OBJ(&scm__rc.d1563[377]), SCM_OBJ(&scm__rc.d1563[274])},
       { SCM_OBJ(&scm__rc.d1563[378]), SCM_NIL},
       { SCM_MAKE_INT(0), SCM_OBJ(&scm__rc.d1563[379])},
       { SCM_OBJ(&scm__rc.d1563[374]), SCM_OBJ(&scm__rc.d1563[380])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[381])},
       { SCM_OBJ(&scm__rc.d1563[382]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[358]), SCM_OBJ(&scm__rc.d1563[383])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[384])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[299])},
       { SCM_MAKE_INT(246U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[387])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[388])},
       { SCM_OBJ(&scm__rc.d1563[389]), SCM_OBJ(&scm__rc.d1563[306])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(245U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[392])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[393])},
       { SCM_OBJ(&scm__rc.d1563[394]), SCM_OBJ(&scm__rc.d1563[306])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[397])},
       { SCM_MAKE_INT(251U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[399])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[400])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[402])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[403])},
       { SCM_OBJ(&scm__rc.d1563[404]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[401]), SCM_OBJ(&scm__rc.d1563[405])},
       { SCM_MAKE_INT(254U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[407])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[408])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[410])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[411])},
       { SCM_OBJ(&scm__rc.d1563[412]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[409]), SCM_OBJ(&scm__rc.d1563[413])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[10])},
       { SCM_MAKE_INT(257U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[416])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[417])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[419])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[420])},
       { SCM_OBJ(&scm__rc.d1563[421]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[418]), SCM_OBJ(&scm__rc.d1563[422])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[424])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[425])},
       { SCM_MAKE_INT(260U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[427])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[428])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[431])},
       { SCM_OBJ(&scm__rc.d1563[432]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[429]), SCM_OBJ(&scm__rc.d1563[433])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[435])},
       { SCM_MAKE_INT(274U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[437])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[438])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[440])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[441])},
       { SCM_OBJ(&scm__rc.d1563[442]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[439]), SCM_OBJ(&scm__rc.d1563[443])},
       { SCM_MAKE_INT(275U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[445])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[446])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[376])},
       { SCM_OBJ(&scm__rc.d1563[448]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[447]), SCM_OBJ(&scm__rc.d1563[449])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(276U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[452])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[453])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[455])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
       { SCM_OBJ(&scm__rc.d1563[457]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[454]), SCM_OBJ(&scm__rc.d1563[458])},
       { SCM_MAKE_INT(278U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[460])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[461])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[463])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[464])},
       { SCM_OBJ(&scm__rc.d1563[465]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[462]), SCM_OBJ(&scm__rc.d1563[466])},
       { SCM_MAKE_INT(280U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[468])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[469])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[471])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[472])},
       { SCM_OBJ(&scm__rc.d1563[473]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[470]), SCM_OBJ(&scm__rc.d1563[474])},
  },
  {   /* ScmObj d1562 */
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
  },
};
static ScmObj libcharcharP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_CHARP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char=?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 66 "libchar.scm"
while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)==(c2));goto SCM_STUB_RETURN;}break;}else if((c1)==(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(SCM_CHAR_VALUE(SCM_CAR(chars)));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char<?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 68 "libchar.scm"
while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)<(c2));goto SCM_STUB_RETURN;}break;}else if((c1)<(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(SCM_CHAR_VALUE(SCM_CAR(chars)));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_GTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char>?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 70 "libchar.scm"
while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)>(c2));goto SCM_STUB_RETURN;}break;}else if((c1)>(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(SCM_CHAR_VALUE(SCM_CAR(chars)));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char<=?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 72 "libchar.scm"
while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)<=(c2));goto SCM_STUB_RETURN;}break;}else if((c1)<=(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(SCM_CHAR_VALUE(SCM_CAR(chars)));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char>=?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 74 "libchar.scm"
while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)>=(c2));goto SCM_STUB_RETURN;}break;}else if((c1)>=(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(SCM_CHAR_VALUE(SCM_CAR(chars)));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_ci_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char-ci=?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 95 "libchar.scm"
{c1=(Scm_CharFoldcase(c1));c2=(Scm_CharFoldcase(c2));while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)==(c2));goto SCM_STUB_RETURN;}break;}else if((c1)==(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(Scm_CharFoldcase(SCM_CHAR_VALUE(SCM_CAR(chars))));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_ci_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char-ci<?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 97 "libchar.scm"
{c1=(Scm_CharFoldcase(c1));c2=(Scm_CharFoldcase(c2));while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)<(c2));goto SCM_STUB_RETURN;}break;}else if((c1)<(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(Scm_CharFoldcase(SCM_CHAR_VALUE(SCM_CAR(chars))));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_ci_GTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char-ci>?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 99 "libchar.scm"
{c1=(Scm_CharFoldcase(c1));c2=(Scm_CharFoldcase(c2));while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)>(c2));goto SCM_STUB_RETURN;}break;}else if((c1)>(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(Scm_CharFoldcase(SCM_CHAR_VALUE(SCM_CAR(chars))));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_ci_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char-ci<=?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 101 "libchar.scm"
{c1=(Scm_CharFoldcase(c1));c2=(Scm_CharFoldcase(c2));while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)<=(c2));goto SCM_STUB_RETURN;}break;}else if((c1)<=(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(Scm_CharFoldcase(SCM_CHAR_VALUE(SCM_CAR(chars))));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_ci_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c1_scm;
  ScmChar c1;
  ScmObj c2_scm;
  ScmChar c2;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("char-ci>=?");
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c1_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c1_scm)) Scm_Error("character required, but got %S", c1_scm);
  c1 = SCM_CHAR_VALUE(c1_scm);
  c2_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(c2_scm)) Scm_Error("character required, but got %S", c2_scm);
  c2 = SCM_CHAR_VALUE(c2_scm);
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
int SCM_RESULT;

#line 103 "libchar.scm"
{c1=(Scm_CharFoldcase(c1));c2=(Scm_CharFoldcase(c2));while(1){if (!(SCM_PAIRP(chars))){{SCM_RESULT=((c1)>=(c2));goto SCM_STUB_RETURN;}break;}else if((c1)>=(c2)){if (!(SCM_CHARP(SCM_CAR(chars)))){{Scm_TypeError("char","character",SCM_CAR(chars));}}c1=(c2);c2=(Scm_CharFoldcase(SCM_CHAR_VALUE(SCM_CAR(chars))));chars=(SCM_CDR(chars));} else {{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_alphabeticP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-alphabetic?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_CharAlphabeticP(c));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_numericP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-numeric?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_CharNumericP(c));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_whitespaceP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-whitespace?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
int SCM_RESULT;

#line 108 "libchar.scm"
{SCM_RESULT=(((SCM_CHAR_ASCII_P(c))&&(isspace(c)))||(
SCM_CHAR_EXTRA_WHITESPACE(c)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_upper_caseP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-upper-case?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_CharUppercaseP(c));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_lower_caseP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-lower-case?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_CharLowercaseP(c));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_TOinteger(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char->integer");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
long SCM_RESULT;

#line 114 "libchar.scm"
{SCM_RESULT=(((signed long )(c)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}

static ScmObj libcharinteger_TOchar(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  int c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("integer->char");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_INTEGERP(c_scm)) Scm_Error("C integer required, but got %S", c_scm);
  c = Scm_GetInteger(c_scm);
  {
{
ScmChar SCM_RESULT;

#line 116 "libchar.scm"
{SCM_RESULT=(((ScmChar )(c)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_CHAR(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_upcase(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-upcase");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
ScmChar SCM_RESULT;
{SCM_RESULT=(Scm_CharUpcase(c));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_CHAR(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_downcase(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-downcase");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
ScmChar SCM_RESULT;
{SCM_RESULT=(Scm_CharDowncase(c));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_CHAR(SCM_RESULT));
}
  }
}

static ScmObj libchardigit_TOinteger(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj ch_scm;
  ScmChar ch;
  ScmObj radix_scm;
  ScmSmallInt radix;
  ScmObj extended_rangeP_scm;
  int extended_rangeP;
  ScmObj SCM_SUBRARGS[5];
  SCM_ENTER_SUBR("digit->integer");
  if (SCM_ARGCNT >= 4
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<5; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  ch_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(ch_scm)) Scm_Error("character required, but got %S", ch_scm);
  ch = SCM_CHAR_VALUE(ch_scm);
  if (SCM_ARGCNT > 1+1) {
    radix_scm = SCM_SUBRARGS[1];
  } else {
    radix_scm = SCM_MAKE_INT(10U);
  }
  if (!SCM_INTP(radix_scm)) Scm_Error("small integer required, but got %S", radix_scm);
  radix = SCM_INT_VALUE(radix_scm);
  if (SCM_ARGCNT > 2+1) {
    extended_rangeP_scm = SCM_SUBRARGS[2];
  } else {
    extended_rangeP_scm = SCM_FALSE;
  }
  if (!SCM_BOOLP(extended_rangeP_scm)) Scm_Error("boolean required, but got %S", extended_rangeP_scm);
  extended_rangeP = SCM_BOOL_VALUE(extended_rangeP_scm);
  {
{
ScmObj SCM_RESULT;

#line 124 "libchar.scm"
{int r;
if (((radix)<(SCM_RADIX_MIN))||((radix)>(SCM_RADIX_MAX))){{
Scm_Error("radix must be an integer between %d and %d, but got %d",SCM_RADIX_MIN,SCM_RADIX_MAX,radix);}}
#line 128 "libchar.scm"
if ((extended_rangeP)&&((radix)>(10))){{
Scm_Error("for extended range, radix can't exceed 10",radix);}}
r=(Scm_DigitToInt(ch,radix,extended_rangeP));
{SCM_RESULT=((((r)>=(0))?(SCM_MAKE_INT(r)):(SCM_FALSE)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharinteger_TOdigit(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n_scm;
  ScmSmallInt n;
  ScmObj radix_scm;
  ScmSmallInt radix;
  ScmObj basechar1_scm;
  ScmChar basechar1;
  ScmObj basechar2_scm;
  ScmChar basechar2;
  ScmObj SCM_SUBRARGS[7];
  SCM_ENTER_SUBR("integer->digit");
  if (SCM_ARGCNT >= 5
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<7; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n_scm = SCM_SUBRARGS[0];
  if (!SCM_INTP(n_scm)) Scm_Error("small integer required, but got %S", n_scm);
  n = SCM_INT_VALUE(n_scm);
  if (SCM_ARGCNT > 1+1) {
    radix_scm = SCM_SUBRARGS[1];
  } else {
    radix_scm = SCM_MAKE_INT(10U);
  }
  if (!SCM_INTP(radix_scm)) Scm_Error("small integer required, but got %S", radix_scm);
  radix = SCM_INT_VALUE(radix_scm);
  if (SCM_ARGCNT > 2+1) {
    basechar1_scm = SCM_SUBRARGS[2];
  } else {
    basechar1_scm = SCM_MAKE_CHAR(48);
  }
  if (!SCM_CHARP(basechar1_scm)) Scm_Error("character required, but got %S", basechar1_scm);
  basechar1 = SCM_CHAR_VALUE(basechar1_scm);
  if (SCM_ARGCNT > 3+1) {
    basechar2_scm = SCM_SUBRARGS[3];
  } else {
    basechar2_scm = SCM_MAKE_CHAR(97);
  }
  if (!SCM_CHARP(basechar2_scm)) Scm_Error("character required, but got %S", basechar2_scm);
  basechar2 = SCM_CHAR_VALUE(basechar2_scm);
  {
{
ScmObj SCM_RESULT;

#line 135 "libchar.scm"
{ScmChar r;
if (((radix)<(SCM_RADIX_MIN))||((radix)>(SCM_RADIX_MAX))){{
Scm_Error("radix must be an integer between %d and %d, but got %d",SCM_RADIX_MIN,SCM_RADIX_MAX,radix);}}
#line 139 "libchar.scm"
r=(Scm_IntToDigit(n,radix,basechar1,basechar2));
{SCM_RESULT=((((r)==(SCM_CHAR_INVALID))?(SCM_FALSE):(SCM_MAKE_CHAR(r))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharucs_TOchar(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj n_scm;
  int n;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("ucs->char");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  n_scm = SCM_SUBRARGS[0];
  if (!SCM_INTEGERP(n_scm)) Scm_Error("C integer required, but got %S", n_scm);
  n = Scm_GetInteger(n_scm);
  {
{
ScmObj SCM_RESULT;

#line 143 "libchar.scm"
{ScmChar ch=Scm_UcsToChar(n);
{SCM_RESULT=((((ch)==(SCM_CHAR_INVALID))?(SCM_FALSE):(SCM_MAKE_CHAR(ch))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_TOucs(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char->ucs");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
ScmObj SCM_RESULT;

#line 147 "libchar.scm"
{int ucs=Scm_CharToUcs(c);
{SCM_RESULT=((((ucs)<(0))?(SCM_FALSE):(Scm_MakeInteger(ucs))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libchargauche_character_encoding(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("gauche-character-encoding");
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_CharEncodingName());goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharsupported_character_encodings(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("supported-character-encodings");
  {
{
ScmObj SCM_RESULT;

#line 153 "libchar.scm"
{SCM_RESULT=(Scm_CStringArrayToList(Scm_SupportedCharacterEncodings(),-1,0));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharsupported_character_encodingP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj encoding_scm;
  const char * encoding;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("supported-character-encoding?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  encoding_scm = SCM_SUBRARGS[0];
  if (!SCM_STRINGP(encoding_scm)) Scm_Error("const C string required, but got %S", encoding_scm);
  encoding = SCM_STRING_CONST_CSTRING(encoding_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_SupportedCharacterEncodingP(encoding));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_title_caseP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-title-case?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_CharTitlecaseP(c));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_titlecase(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-titlecase");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
ScmChar SCM_RESULT;
{SCM_RESULT=(Scm_CharTitlecase(c));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_CHAR(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_foldcase(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-foldcase");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
ScmChar SCM_RESULT;
{SCM_RESULT=(Scm_CharFoldcase(c));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_CHAR(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_general_category(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj c_scm;
  ScmChar c;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-general-category");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  c_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
  c = SCM_CHAR_VALUE(c_scm);
  {
{
ScmObj SCM_RESULT;

#line 164 "libchar.scm"
switch (Scm_CharGeneralCategory(c)) {
case SCM_CHAR_CATEGORY_Lu : {{SCM_RESULT=(scm__rc.d1562[78]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Ll : {{SCM_RESULT=(scm__rc.d1562[79]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Lt : {{SCM_RESULT=(scm__rc.d1562[80]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Lm : {{SCM_RESULT=(scm__rc.d1562[81]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Lo : {{SCM_RESULT=(scm__rc.d1562[82]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Mn : {{SCM_RESULT=(scm__rc.d1562[83]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Mc : {{SCM_RESULT=(scm__rc.d1562[84]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Me : {{SCM_RESULT=(scm__rc.d1562[85]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Nd : {{SCM_RESULT=(scm__rc.d1562[86]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Nl : {{SCM_RESULT=(scm__rc.d1562[87]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_No : {{SCM_RESULT=(scm__rc.d1562[88]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Pc : {{SCM_RESULT=(scm__rc.d1562[89]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Pd : {{SCM_RESULT=(scm__rc.d1562[90]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Ps : {{SCM_RESULT=(scm__rc.d1562[91]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Pe : {{SCM_RESULT=(scm__rc.d1562[92]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Pi : {{SCM_RESULT=(scm__rc.d1562[93]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Pf : {{SCM_RESULT=(scm__rc.d1562[94]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Po : {{SCM_RESULT=(scm__rc.d1562[95]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Sm : {{SCM_RESULT=(scm__rc.d1562[96]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Sc : {{SCM_RESULT=(scm__rc.d1562[97]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Sk : {{SCM_RESULT=(scm__rc.d1562[98]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_So : {{SCM_RESULT=(scm__rc.d1562[99]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Zs : {{SCM_RESULT=(scm__rc.d1562[100]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Zl : {{SCM_RESULT=(scm__rc.d1562[101]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Zp : {{SCM_RESULT=(scm__rc.d1562[102]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Cc : {{SCM_RESULT=(scm__rc.d1562[103]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Cf : {{SCM_RESULT=(scm__rc.d1562[104]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Cs : {{SCM_RESULT=(scm__rc.d1562[105]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Co : {{SCM_RESULT=(scm__rc.d1562[106]);goto SCM_STUB_RETURN;}break;}
case SCM_CHAR_CATEGORY_Cn : {{SCM_RESULT=(scm__rc.d1562[107]);goto SCM_STUB_RETURN;}break;}default: {
Scm_Panic("Scm_CharGeneralCategory returns unknown value for character %d",c);
#line 197 "libchar.scm"
{SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}break;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static void char_set_add(ScmCharSet* cs,ScmObj chars){ScmObj cise__1568;{
#line 209 "libchar.scm"
SCM_FOR_EACH(cise__1568,chars) {{ScmObj ch=SCM_CAR(cise__1568);
if (!(SCM_CHARP(ch))){{Scm_Error("character required, but got %S",ch);}}
Scm_CharSetAddRange(cs,SCM_CHAR_VALUE(ch),SCM_CHAR_VALUE(ch));}}}}
static ScmObj libcharchar_setP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-set?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_CHARSETP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_set(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("char-set");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
  chars = (chars_scm);
  {
{
ScmCharSet* SCM_RESULT;

#line 217 "libchar.scm"
{ScmCharSet* cs=SCM_CHARSET(Scm_MakeEmptyCharSet());
char_set_add(cs,chars);
{SCM_RESULT=(cs);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_set_copy(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-set-copy");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_CharSetCopy(cs));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_set_freeze(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-set-freeze");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_CharSetFreeze(cs));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_set_freezeX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-set-freeze!");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_CharSetFreezeX(cs));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharread_char_set(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj error_scm = SCM_TRUE;
  int error;
  ScmObj posix_bracket_scm = SCM_TRUE;
  int posix_bracket;
  ScmObj SCM_SUBRARGS[1];
  ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
  SCM_ENTER_SUBR("read-char-set");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  if (Scm_Length(SCM_OPTARGS) % 2)
    Scm_Error("keyword list not even: %S", SCM_OPTARGS);
  while (!SCM_NULLP(SCM_OPTARGS)) {
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[132])) {
      error_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[133])) {
      posix_bracket_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  if (!SCM_BOOLP(error_scm)) Scm_Error("boolean required, but got %S", error_scm);
  error = SCM_BOOL_VALUE(error_scm);
  if (!SCM_BOOLP(posix_bracket_scm)) Scm_Error("boolean required, but got %S", posix_bracket_scm);
  posix_bracket = SCM_BOOL_VALUE(posix_bracket_scm);
  {
{
ScmObj SCM_RESULT;

#line 233 "libchar.scm"
{SCM_RESULT=(Scm_CharSetRead(port,NULL,error,posix_bracket));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_set_containsP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj ch_scm;
  ScmChar ch;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("char-set-contains?");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  ch_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARP(ch_scm)) Scm_Error("character required, but got %S", ch_scm);
  ch = SCM_CHAR_VALUE(ch_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_CharSetContains(cs,ch));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_set_complementX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-set-complement!");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_CharSetComplement(cs));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libcharchar_set_immutableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("char-set-immutable?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  {
{
int SCM_RESULT;

#line 243 "libchar.scm"
{SCM_RESULT=(SCM_CHAR_SET_IMMUTABLE_P(cs));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libchar_25char_set_equalP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmCharSet* x;
  ScmObj y_scm;
  ScmCharSet* y;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("%char-set-equal?");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(x_scm)) Scm_Error("char-set required, but got %S", x_scm);
  x = SCM_CHARSET(x_scm);
  y_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARSETP(y_scm)) Scm_Error("char-set required, but got %S", y_scm);
  y = SCM_CHARSET(y_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_CharSetEq(x,y));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libchar_25char_set_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj x_scm;
  ScmCharSet* x;
  ScmObj y_scm;
  ScmCharSet* y;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("%char-set<=?");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  x_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(x_scm)) Scm_Error("char-set required, but got %S", x_scm);
  x = SCM_CHARSET(x_scm);
  y_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARSETP(y_scm)) Scm_Error("char-set required, but got %S", y_scm);
  y = SCM_CHARSET(y_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_CharSetLE(x,y));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj libchar_25char_set_add_charsX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj chars_scm;
  ScmObj chars;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("%char-set-add-chars!");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  chars_scm = SCM_SUBRARGS[1];
  if (!SCM_LISTP(chars_scm)) Scm_Error("list required, but got %S", chars_scm);
  chars = (chars_scm);
  {
{
ScmCharSet* SCM_RESULT;

#line 258 "libchar.scm"
char_set_add(cs,chars);

#line 258 "libchar.scm"
{SCM_RESULT=(cs);goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libchar_25char_set_add_rangeX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj from_scm;
  ScmObj from;
  ScmObj to_scm;
  ScmObj to;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("%char-set-add-range!");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  from_scm = SCM_SUBRARGS[1];
  from = (from_scm);
  to_scm = SCM_SUBRARGS[2];
  to = (to_scm);
  {
{
ScmObj SCM_RESULT;

#line 261 "libchar.scm"
{long f=-1;long t=-1;
if (SCM_INTP(from)){f=(SCM_INT_VALUE(from));}else if(
SCM_CHARP(from)){f=(SCM_CHAR_VALUE(from));}
if ((f)<(0)){{SCM_TYPE_ERROR(from,"character or positive exact integer");}}
if ((f)>(SCM_CHAR_MAX)){{
Scm_Error("'from' argument out of range: %S",from);}}
if (SCM_INTP(to)){t=(SCM_INT_VALUE(to));}else if(
SCM_CHARP(to)){t=(SCM_CHAR_VALUE(to));}
if ((t)<(0)){{SCM_TYPE_ERROR(to,"character or positive exact integer");}}
if ((t)>(SCM_CHAR_MAX)){{
Scm_Error("'to' argument out of range: %S",to);}}
{SCM_RESULT=(Scm_CharSetAddRange(cs,((ScmChar )(f)),((ScmChar )(t))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libchar_25char_set_addX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj dst_scm;
  ScmCharSet* dst;
  ScmObj src_scm;
  ScmCharSet* src;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("%char-set-add!");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  dst_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(dst_scm)) Scm_Error("char-set required, but got %S", dst_scm);
  dst = SCM_CHARSET(dst_scm);
  src_scm = SCM_SUBRARGS[1];
  if (!SCM_CHARSETP(src_scm)) Scm_Error("char-set required, but got %S", src_scm);
  src = SCM_CHARSET(src_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_CharSetAdd(dst,src));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libchar_25char_set_ranges(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%char-set-ranges");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_CharSetRanges(cs));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libchar_25char_set_predefined(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj num_scm;
  ScmSmallInt num;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%char-set-predefined");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  num_scm = SCM_SUBRARGS[0];
  if (!SCM_INTP(num_scm)) Scm_Error("small integer required, but got %S", num_scm);
  num = SCM_INT_VALUE(num_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_GetStandardCharSet(num));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libchar_25char_set_case_foldX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%char-set-case-fold!");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_CharSetCaseFold(cs));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmObj libchar_25char_set_dump(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj cs_scm;
  ScmCharSet* cs;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%char-set-dump");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  cs_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARSETP(cs_scm)) Scm_Error("char-set required, but got %S", cs_scm);
  cs = SCM_CHARSET(cs_scm);
  {

#line 281 "libchar.scm"
Scm_CharSetDump(cs,SCM_CUROUT);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}

static ScmCompiledCode *toplevels[] = {
 NULL /*termination*/
};
void Scm_Init_libchar() {
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* char? */
  scm__rc.d1562[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1])),TRUE); /* obj */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[1]);
  scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* source-info */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[4]), scm__rc.d1562[2]);
  scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[4])),TRUE); /* bind-info */
  scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* scheme */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[0]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[3]);
  scm__rc.d1562[5] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[9]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char?")), SCM_OBJ(&libcharcharP__STUB), SCM_BINDING_INLINABLE);
  libcharcharP__STUB.common.info = scm__rc.d1562[5];
  scm__rc.d1562[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* char=? */
  scm__rc.d1562[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* c1 */
  scm__rc.d1562[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* c2 */
  scm__rc.d1562[9] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9]))); /* :rest */
  scm__rc.d1562[10] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[10])),TRUE); /* chars */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[10]), scm__rc.d1562[10]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[11]), scm__rc.d1562[9]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[12]), scm__rc.d1562[8]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[13]), scm__rc.d1562[7]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[16]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[17]), scm__rc.d1562[6]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[18]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[19]), scm__rc.d1562[3]);
  scm__rc.d1562[11] = Scm_MakeExtendedPair(scm__rc.d1562[6], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[21]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char=?")), SCM_OBJ(&libcharchar_3dP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_3dP__STUB.common.info = scm__rc.d1562[11];
  scm__rc.d1562[12] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11])),TRUE); /* char<? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[24]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[25]), scm__rc.d1562[12]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[26]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[27]), scm__rc.d1562[3]);
  scm__rc.d1562[13] = Scm_MakeExtendedPair(scm__rc.d1562[12], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[29]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char<?")), SCM_OBJ(&libcharchar_LTP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_LTP__STUB.common.info = scm__rc.d1562[13];
  scm__rc.d1562[14] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* char>? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[32]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[33]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[34]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[35]), scm__rc.d1562[3]);
  scm__rc.d1562[15] = Scm_MakeExtendedPair(scm__rc.d1562[14], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[37]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char>?")), SCM_OBJ(&libcharchar_GTP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_GTP__STUB.common.info = scm__rc.d1562[15];
  scm__rc.d1562[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[13])),TRUE); /* char<=? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[40]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[41]), scm__rc.d1562[16]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[42]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[43]), scm__rc.d1562[3]);
  scm__rc.d1562[17] = Scm_MakeExtendedPair(scm__rc.d1562[16], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[45]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char<=?")), SCM_OBJ(&libcharchar_LT_3dP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_LT_3dP__STUB.common.info = scm__rc.d1562[17];
  scm__rc.d1562[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* char>=? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[48]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[49]), scm__rc.d1562[18]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[50]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[51]), scm__rc.d1562[3]);
  scm__rc.d1562[19] = Scm_MakeExtendedPair(scm__rc.d1562[18], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[53]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char>=?")), SCM_OBJ(&libcharchar_GT_3dP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_GT_3dP__STUB.common.info = scm__rc.d1562[19];
  scm__rc.d1562[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* char-ci=? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[56]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[57]), scm__rc.d1562[20]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[58]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[59]), scm__rc.d1562[3]);
  scm__rc.d1562[21] = Scm_MakeExtendedPair(scm__rc.d1562[20], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[61]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-ci=?")), SCM_OBJ(&libcharchar_ci_3dP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_ci_3dP__STUB.common.info = scm__rc.d1562[21];
  scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* char-ci<? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[64]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[65]), scm__rc.d1562[22]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[66]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[67]), scm__rc.d1562[3]);
  scm__rc.d1562[23] = Scm_MakeExtendedPair(scm__rc.d1562[22], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[69]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-ci<?")), SCM_OBJ(&libcharchar_ci_LTP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_ci_LTP__STUB.common.info = scm__rc.d1562[23];
  scm__rc.d1562[24] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17])),TRUE); /* char-ci>? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[72]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[73]), scm__rc.d1562[24]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[74]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[75]), scm__rc.d1562[3]);
  scm__rc.d1562[25] = Scm_MakeExtendedPair(scm__rc.d1562[24], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[77]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-ci>?")), SCM_OBJ(&libcharchar_ci_GTP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_ci_GTP__STUB.common.info = scm__rc.d1562[25];
  scm__rc.d1562[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* char-ci<=? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[80]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[81]), scm__rc.d1562[26]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[82]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[83]), scm__rc.d1562[3]);
  scm__rc.d1562[27] = Scm_MakeExtendedPair(scm__rc.d1562[26], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[85]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-ci<=?")), SCM_OBJ(&libcharchar_ci_LT_3dP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_ci_LT_3dP__STUB.common.info = scm__rc.d1562[27];
  scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* char-ci>=? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[88]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[89]), scm__rc.d1562[28]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[90]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[91]), scm__rc.d1562[3]);
  scm__rc.d1562[29] = Scm_MakeExtendedPair(scm__rc.d1562[28], SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[93]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-ci>=?")), SCM_OBJ(&libcharchar_ci_GT_3dP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_ci_GT_3dP__STUB.common.info = scm__rc.d1562[29];
  scm__rc.d1562[30] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* char-alphabetic? */
  scm__rc.d1562[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* c */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[94]), scm__rc.d1562[31]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[97]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[98]), scm__rc.d1562[30]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[99]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[100]), scm__rc.d1562[3]);
  scm__rc.d1562[32] = Scm_MakeExtendedPair(scm__rc.d1562[30], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[102]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-alphabetic?")), SCM_OBJ(&libcharchar_alphabeticP__STUB), 0);
  libcharchar_alphabeticP__STUB.common.info = scm__rc.d1562[32];
  scm__rc.d1562[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* char-numeric? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[105]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[106]), scm__rc.d1562[33]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[107]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[108]), scm__rc.d1562[3]);
  scm__rc.d1562[34] = Scm_MakeExtendedPair(scm__rc.d1562[33], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[110]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-numeric?")), SCM_OBJ(&libcharchar_numericP__STUB), 0);
  libcharchar_numericP__STUB.common.info = scm__rc.d1562[34];
  scm__rc.d1562[35] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[23])),TRUE); /* char-whitespace? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[113]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[114]), scm__rc.d1562[35]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[115]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[116]), scm__rc.d1562[3]);
  scm__rc.d1562[36] = Scm_MakeExtendedPair(scm__rc.d1562[35], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[118]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-whitespace?")), SCM_OBJ(&libcharchar_whitespaceP__STUB), 0);
  libcharchar_whitespaceP__STUB.common.info = scm__rc.d1562[36];
  scm__rc.d1562[37] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),TRUE); /* char-upper-case? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[121]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[122]), scm__rc.d1562[37]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[123]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[124]), scm__rc.d1562[3]);
  scm__rc.d1562[38] = Scm_MakeExtendedPair(scm__rc.d1562[37], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[126]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-upper-case?")), SCM_OBJ(&libcharchar_upper_caseP__STUB), 0);
  libcharchar_upper_caseP__STUB.common.info = scm__rc.d1562[38];
  scm__rc.d1562[39] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* char-lower-case? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[129]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[130]), scm__rc.d1562[39]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[131]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[132]), scm__rc.d1562[3]);
  scm__rc.d1562[40] = Scm_MakeExtendedPair(scm__rc.d1562[39], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[134]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-lower-case?")), SCM_OBJ(&libcharchar_lower_caseP__STUB), 0);
  libcharchar_lower_caseP__STUB.common.info = scm__rc.d1562[40];
  scm__rc.d1562[41] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* char->integer */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[137]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[138]), scm__rc.d1562[41]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[139]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[140]), scm__rc.d1562[3]);
  scm__rc.d1562[42] = Scm_MakeExtendedPair(scm__rc.d1562[41], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[142]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char->integer")), SCM_OBJ(&libcharchar_TOinteger__STUB), SCM_BINDING_INLINABLE);
  libcharchar_TOinteger__STUB.common.info = scm__rc.d1562[42];
  scm__rc.d1562[43] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* integer->char */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[145]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[146]), scm__rc.d1562[43]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[147]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[148]), scm__rc.d1562[3]);
  scm__rc.d1562[44] = Scm_MakeExtendedPair(scm__rc.d1562[43], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[150]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("integer->char")), SCM_OBJ(&libcharinteger_TOchar__STUB), SCM_BINDING_INLINABLE);
  libcharinteger_TOchar__STUB.common.info = scm__rc.d1562[44];
  scm__rc.d1562[45] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28])),TRUE); /* char-upcase */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[153]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[154]), scm__rc.d1562[45]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[155]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[156]), scm__rc.d1562[3]);
  scm__rc.d1562[46] = Scm_MakeExtendedPair(scm__rc.d1562[45], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[158]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-upcase")), SCM_OBJ(&libcharchar_upcase__STUB), 0);
  libcharchar_upcase__STUB.common.info = scm__rc.d1562[46];
  scm__rc.d1562[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),TRUE); /* char-downcase */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[161]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[162]), scm__rc.d1562[47]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[163]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[164]), scm__rc.d1562[3]);
  scm__rc.d1562[48] = Scm_MakeExtendedPair(scm__rc.d1562[47], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[166]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-downcase")), SCM_OBJ(&libcharchar_downcase__STUB), 0);
  libcharchar_downcase__STUB.common.info = scm__rc.d1562[48];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[49] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),TRUE); /* digit->integer */
  scm__rc.d1562[50] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* ch */
  scm__rc.d1562[51] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32]))); /* :optional */
  scm__rc.d1562[52] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* radix */
  scm__rc.d1562[53] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* extended-range? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[167]), scm__rc.d1562[53]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[168]), scm__rc.d1562[52]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[169]), scm__rc.d1562[51]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[170]), scm__rc.d1562[50]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[173]), scm__rc.d1562[2]);
  scm__rc.d1562[54] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* gauche */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[174]), scm__rc.d1562[49]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[175]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[176]), scm__rc.d1562[3]);
  scm__rc.d1562[55] = Scm_MakeExtendedPair(scm__rc.d1562[49], SCM_OBJ(&scm__rc.d1563[170]), SCM_OBJ(&scm__rc.d1563[178]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("digit->integer")), SCM_OBJ(&libchardigit_TOinteger__STUB), SCM_BINDING_INLINABLE);
  libchardigit_TOinteger__STUB.common.info = scm__rc.d1562[55];
  scm__rc.d1562[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[36])),TRUE); /* integer->digit */
  scm__rc.d1562[57] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[37])),TRUE); /* n */
  scm__rc.d1562[58] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[38])),TRUE); /* basechar1 */
  scm__rc.d1562[59] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[39])),TRUE); /* basechar2 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[179]), scm__rc.d1562[59]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[180]), scm__rc.d1562[58]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[181]), scm__rc.d1562[52]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[182]), scm__rc.d1562[51]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[183]), scm__rc.d1562[57]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[186]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[187]), scm__rc.d1562[56]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[188]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[189]), scm__rc.d1562[3]);
  scm__rc.d1562[60] = Scm_MakeExtendedPair(scm__rc.d1562[56], SCM_OBJ(&scm__rc.d1563[183]), SCM_OBJ(&scm__rc.d1563[191]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("integer->digit")), SCM_OBJ(&libcharinteger_TOdigit__STUB), SCM_BINDING_INLINABLE);
  libcharinteger_TOdigit__STUB.common.info = scm__rc.d1562[60];
  scm__rc.d1562[61] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[40])),TRUE); /* ucs->char */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[192]), scm__rc.d1562[57]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[195]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[196]), scm__rc.d1562[61]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[197]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[198]), scm__rc.d1562[3]);
  scm__rc.d1562[62] = Scm_MakeExtendedPair(scm__rc.d1562[61], SCM_OBJ(&scm__rc.d1563[192]), SCM_OBJ(&scm__rc.d1563[200]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("ucs->char")), SCM_OBJ(&libcharucs_TOchar__STUB), 0);
  libcharucs_TOchar__STUB.common.info = scm__rc.d1562[62];
  scm__rc.d1562[63] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[41])),TRUE); /* char->ucs */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[203]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[204]), scm__rc.d1562[63]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[205]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[206]), scm__rc.d1562[3]);
  scm__rc.d1562[64] = Scm_MakeExtendedPair(scm__rc.d1562[63], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[208]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char->ucs")), SCM_OBJ(&libcharchar_TOucs__STUB), 0);
  libcharchar_TOucs__STUB.common.info = scm__rc.d1562[64];
  scm__rc.d1562[65] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[42])),TRUE); /* gauche-character-encoding */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[209]), scm__rc.d1562[65]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[210]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[211]), scm__rc.d1562[3]);
  scm__rc.d1562[66] = Scm_MakeExtendedPair(scm__rc.d1562[65], SCM_NIL, SCM_OBJ(&scm__rc.d1563[212]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("gauche-character-encoding")), SCM_OBJ(&libchargauche_character_encoding__STUB), 0);
  libchargauche_character_encoding__STUB.common.info = scm__rc.d1562[66];
  scm__rc.d1562[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[43])),TRUE); /* supported-character-encodings */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[213]), scm__rc.d1562[67]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[214]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[215]), scm__rc.d1562[3]);
  scm__rc.d1562[68] = Scm_MakeExtendedPair(scm__rc.d1562[67], SCM_NIL, SCM_OBJ(&scm__rc.d1563[216]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("supported-character-encodings")), SCM_OBJ(&libcharsupported_character_encodings__STUB), 0);
  libcharsupported_character_encodings__STUB.common.info = scm__rc.d1562[68];
  scm__rc.d1562[69] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[44])),TRUE); /* supported-character-encoding? */
  scm__rc.d1562[70] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[45])),TRUE); /* encoding */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[217]), scm__rc.d1562[70]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[220]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[221]), scm__rc.d1562[69]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[222]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[223]), scm__rc.d1562[3]);
  scm__rc.d1562[71] = Scm_MakeExtendedPair(scm__rc.d1562[69], SCM_OBJ(&scm__rc.d1563[217]), SCM_OBJ(&scm__rc.d1563[225]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("supported-character-encoding?")), SCM_OBJ(&libcharsupported_character_encodingP__STUB), 0);
  libcharsupported_character_encodingP__STUB.common.info = scm__rc.d1562[71];
  scm__rc.d1562[72] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[46])),TRUE); /* char-title-case? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[228]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[229]), scm__rc.d1562[72]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[230]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[231]), scm__rc.d1562[3]);
  scm__rc.d1562[73] = Scm_MakeExtendedPair(scm__rc.d1562[72], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[233]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-title-case?")), SCM_OBJ(&libcharchar_title_caseP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_title_caseP__STUB.common.info = scm__rc.d1562[73];
  scm__rc.d1562[74] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[47])),TRUE); /* char-titlecase */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[236]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[237]), scm__rc.d1562[74]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[238]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[239]), scm__rc.d1562[3]);
  scm__rc.d1562[75] = Scm_MakeExtendedPair(scm__rc.d1562[74], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[241]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-titlecase")), SCM_OBJ(&libcharchar_titlecase__STUB), 0);
  libcharchar_titlecase__STUB.common.info = scm__rc.d1562[75];
  scm__rc.d1562[76] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48])),TRUE); /* char-foldcase */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[244]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[245]), scm__rc.d1562[76]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[246]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[247]), scm__rc.d1562[3]);
  scm__rc.d1562[77] = Scm_MakeExtendedPair(scm__rc.d1562[76], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[249]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-foldcase")), SCM_OBJ(&libcharchar_foldcase__STUB), 0);
  libcharchar_foldcase__STUB.common.info = scm__rc.d1562[77];
  scm__rc.d1562[78] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[50])),TRUE); /* Lu */
  scm__rc.d1562[79] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[51])),TRUE); /* Ll */
  scm__rc.d1562[80] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[52])),TRUE); /* Lt */
  scm__rc.d1562[81] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[53])),TRUE); /* Lm */
  scm__rc.d1562[82] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[54])),TRUE); /* Lo */
  scm__rc.d1562[83] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[55])),TRUE); /* Mn */
  scm__rc.d1562[84] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[56])),TRUE); /* Mc */
  scm__rc.d1562[85] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[57])),TRUE); /* Me */
  scm__rc.d1562[86] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[58])),TRUE); /* Nd */
  scm__rc.d1562[87] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[59])),TRUE); /* Nl */
  scm__rc.d1562[88] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[60])),TRUE); /* No */
  scm__rc.d1562[89] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[61])),TRUE); /* Pc */
  scm__rc.d1562[90] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[62])),TRUE); /* Pd */
  scm__rc.d1562[91] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[63])),TRUE); /* Ps */
  scm__rc.d1562[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[64])),TRUE); /* Pe */
  scm__rc.d1562[93] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[65])),TRUE); /* Pi */
  scm__rc.d1562[94] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[66])),TRUE); /* Pf */
  scm__rc.d1562[95] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[67])),TRUE); /* Po */
  scm__rc.d1562[96] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[68])),TRUE); /* Sm */
  scm__rc.d1562[97] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[69])),TRUE); /* Sc */
  scm__rc.d1562[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[70])),TRUE); /* Sk */
  scm__rc.d1562[99] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[71])),TRUE); /* So */
  scm__rc.d1562[100] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[72])),TRUE); /* Zs */
  scm__rc.d1562[101] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[73])),TRUE); /* Zl */
  scm__rc.d1562[102] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[74])),TRUE); /* Zp */
  scm__rc.d1562[103] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[75])),TRUE); /* Cc */
  scm__rc.d1562[104] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[76])),TRUE); /* Cf */
  scm__rc.d1562[105] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[77])),TRUE); /* Cs */
  scm__rc.d1562[106] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[78])),TRUE); /* Co */
  scm__rc.d1562[107] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[79])),TRUE); /* Cn */
  scm__rc.d1562[108] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[49])),TRUE); /* char-general-category */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[252]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[253]), scm__rc.d1562[108]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[254]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[255]), scm__rc.d1562[3]);
  scm__rc.d1562[109] = Scm_MakeExtendedPair(scm__rc.d1562[108], SCM_OBJ(&scm__rc.d1563[94]), SCM_OBJ(&scm__rc.d1563[257]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-general-category")), SCM_OBJ(&libcharchar_general_category__STUB), SCM_BINDING_INLINABLE);
  libcharchar_general_category__STUB.common.info = scm__rc.d1562[109];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[80])),TRUE); /* *char-code-max* */
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[110]), Scm_MakeInteger(SCM_CHAR_MAX), SCM_BINDING_CONST);

  scm__rc.d1562[111] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[81])),TRUE); /* char-set? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[260]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[261]), scm__rc.d1562[111]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[262]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[263]), scm__rc.d1562[3]);
  scm__rc.d1562[112] = Scm_MakeExtendedPair(scm__rc.d1562[111], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[265]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-set?")), SCM_OBJ(&libcharchar_setP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_setP__STUB.common.info = scm__rc.d1562[112];
  scm__rc.d1562[113] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[82])),TRUE); /* char-set */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[268]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[269]), scm__rc.d1562[113]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[270]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[271]), scm__rc.d1562[3]);
  scm__rc.d1562[114] = Scm_MakeExtendedPair(scm__rc.d1562[113], SCM_OBJ(&scm__rc.d1563[11]), SCM_OBJ(&scm__rc.d1563[273]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-set")), SCM_OBJ(&libcharchar_set__STUB), 0);
  libcharchar_set__STUB.common.info = scm__rc.d1562[114];
  scm__rc.d1562[115] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[83])),TRUE); /* char-set-copy */
  scm__rc.d1562[116] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[84])),TRUE); /* cs */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[274]), scm__rc.d1562[116]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[277]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[278]), scm__rc.d1562[115]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[279]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[280]), scm__rc.d1562[3]);
  scm__rc.d1562[117] = Scm_MakeExtendedPair(scm__rc.d1562[115], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[282]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-set-copy")), SCM_OBJ(&libcharchar_set_copy__STUB), 0);
  libcharchar_set_copy__STUB.common.info = scm__rc.d1562[117];
  scm__rc.d1562[118] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[85])),TRUE); /* char-set-freeze */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[285]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[286]), scm__rc.d1562[118]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[287]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[288]), scm__rc.d1562[3]);
  scm__rc.d1562[119] = Scm_MakeExtendedPair(scm__rc.d1562[118], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[290]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-set-freeze")), SCM_OBJ(&libcharchar_set_freeze__STUB), 0);
  libcharchar_set_freeze__STUB.common.info = scm__rc.d1562[119];
  scm__rc.d1562[120] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[86])),TRUE); /* char-set-freeze! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[293]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[294]), scm__rc.d1562[120]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[295]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[296]), scm__rc.d1562[3]);
  scm__rc.d1562[121] = Scm_MakeExtendedPair(scm__rc.d1562[120], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[298]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-set-freeze!")), SCM_OBJ(&libcharchar_set_freezeX__STUB), 0);
  libcharchar_set_freezeX__STUB.common.info = scm__rc.d1562[121];
  scm__rc.d1562[122] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[87])),TRUE); /* char-set-size */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[300]), scm__rc.d1562[122]);
  scm__rc.d1562[123] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[88])),TRUE); /* range */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[301]), scm__rc.d1562[123]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[304]), scm__rc.d1562[2]);
  scm__rc.d1562[124] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[89])),TRUE); /* unused-args */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[305]), scm__rc.d1562[124]);
  scm__rc.d1562[125] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[300]), SCM_OBJ(&scm__rc.d1563[301]), SCM_OBJ(&scm__rc.d1563[307]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[308]), scm__rc.d1562[125]);
  scm__rc.d1562[127] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[90])),TRUE); /* %char-set-ranges */
  scm__rc.d1562[126] = Scm_MakeIdentifier(scm__rc.d1562[127], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%char-set-ranges */
  scm__rc.d1562[129] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[91])),TRUE); /* for-each */
  scm__rc.d1562[130] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[54]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
  scm__rc.d1562[128] = Scm_MakeIdentifier(scm__rc.d1562[129], SCM_MODULE(scm__rc.d1562[130]), SCM_NIL); /* gauche#for-each */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[311]), scm__rc.d1562[2]);
  scm__rc.d1562[131] = Scm_MakeExtendedPair(scm__rc.d1562[122], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[312]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[313]), scm__rc.d1562[131]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1570[1]))->name = scm__rc.d1562[122];/* char-set-size */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[10]))[11] = SCM_WORD(scm__rc.d1562[126]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[10]))[13] = SCM_WORD(scm__rc.d1562[128]);
  ScmObj G1571 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1570[1]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[122]) /* char-set-size */, G1571,0);

  scm__rc.d1562[132] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92]))); /* :error */
  scm__rc.d1562[133] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[93]))); /* :posix-bracket */
  scm__rc.d1562[134] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[94])),TRUE); /* read-char-set */
  scm__rc.d1562[135] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[95])),TRUE); /* port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[314]), scm__rc.d1562[135]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[317]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[318]), scm__rc.d1562[134]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[319]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[320]), scm__rc.d1562[3]);
  scm__rc.d1562[136] = Scm_MakeExtendedPair(scm__rc.d1562[134], SCM_OBJ(&scm__rc.d1563[314]), SCM_OBJ(&scm__rc.d1563[322]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-char-set")), SCM_OBJ(&libcharread_char_set__STUB), 0);
  libcharread_char_set__STUB.common.info = scm__rc.d1562[136];
  scm__rc.d1562[137] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[96])),TRUE); /* char-set-contains? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[323]), scm__rc.d1562[50]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[324]), scm__rc.d1562[116]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[327]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[328]), scm__rc.d1562[137]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[329]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[330]), scm__rc.d1562[3]);
  scm__rc.d1562[138] = Scm_MakeExtendedPair(scm__rc.d1562[137], SCM_OBJ(&scm__rc.d1563[324]), SCM_OBJ(&scm__rc.d1563[332]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-set-contains?")), SCM_OBJ(&libcharchar_set_containsP__STUB), SCM_BINDING_INLINABLE);
  libcharchar_set_containsP__STUB.common.info = scm__rc.d1562[138];
  scm__rc.d1562[139] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[97])),TRUE); /* char-set-complement! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[335]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[336]), scm__rc.d1562[139]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[337]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[338]), scm__rc.d1562[3]);
  scm__rc.d1562[140] = Scm_MakeExtendedPair(scm__rc.d1562[139], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[340]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-set-complement!")), SCM_OBJ(&libcharchar_set_complementX__STUB), 0);
  libcharchar_set_complementX__STUB.common.info = scm__rc.d1562[140];
  scm__rc.d1562[141] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[98])),TRUE); /* char-set-complement */
  scm__rc.d1562[142] = Scm_MakeIdentifier(scm__rc.d1562[115], SCM_MODULE(scm__rc.d1562[130]), SCM_NIL); /* gauche#char-set-copy */
  scm__rc.d1562[143] = Scm_MakeIdentifier(scm__rc.d1562[139], SCM_MODULE(scm__rc.d1562[130]), SCM_NIL); /* gauche#char-set-complement! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[343]), scm__rc.d1562[2]);
  scm__rc.d1562[144] = Scm_MakeExtendedPair(scm__rc.d1562[141], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[344]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[345]), scm__rc.d1562[144]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1570[2]))->name = scm__rc.d1562[141];/* char-set-complement */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[26]))[4] = SCM_WORD(scm__rc.d1562[142]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[26]))[6] = SCM_WORD(scm__rc.d1562[143]);
  ScmObj G1572 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1570[2]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[141]) /* char-set-complement */, G1572,0);

  scm__rc.d1562[145] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[99])),TRUE); /* char-set-immutable? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[348]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[349]), scm__rc.d1562[145]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[350]), scm__rc.d1562[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[351]), scm__rc.d1562[3]);
  scm__rc.d1562[146] = Scm_MakeExtendedPair(scm__rc.d1562[145], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[353]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("char-set-immutable?")), SCM_OBJ(&libcharchar_set_immutableP__STUB), 0);
  libcharchar_set_immutableP__STUB.common.info = scm__rc.d1562[146];
  scm__rc.d1562[147] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[100])),TRUE); /* char-set-hash */
  scm__rc.d1562[148] = Scm_MakeIntegerU(536870911U);
  scm__rc.d1562[149] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[102])),TRUE); /* lambda */
  scm__rc.d1562[150] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[103])),TRUE); /* bound */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[354]), scm__rc.d1562[148]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[355]), scm__rc.d1562[150]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[357]), scm__rc.d1562[51]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[358]), scm__rc.d1562[116]);
  scm__rc.d1562[151] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[104])),TRUE); /* fold */
  scm__rc.d1562[152] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[105])),TRUE); /* ^ */
  scm__rc.d1562[153] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[106])),TRUE); /* val */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[359]), scm__rc.d1562[153]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[360]), scm__rc.d1562[123]);
  scm__rc.d1562[154] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[107])),TRUE); /* modulo */
  scm__rc.d1562[155] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[108])),TRUE); /* hash */
  scm__rc.d1562[156] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[109])),TRUE); /* + */
  scm__rc.d1562[157] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[110])),TRUE); /* car */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[361]), scm__rc.d1562[157]);
  scm__rc.d1562[158] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[111])),TRUE); /* cdr */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[362]), scm__rc.d1562[158]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[365]), scm__rc.d1562[153]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[366]), scm__rc.d1562[156]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[368]), scm__rc.d1562[155]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[369]), scm__rc.d1562[150]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[371]), scm__rc.d1562[154]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[374]), scm__rc.d1562[152]);
  scm__rc.d1562[159] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[112])),TRUE); /* with-module */
  scm__rc.d1562[160] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[113])),TRUE); /* gauche.internal */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[375]), scm__rc.d1562[127]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[376]), scm__rc.d1562[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[377]), scm__rc.d1562[159]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[382]), scm__rc.d1562[151]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[385]), scm__rc.d1562[149]);
  scm__rc.d1562[162] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92])),TRUE); /* error */
  scm__rc.d1562[161] = Scm_MakeIdentifier(scm__rc.d1562[162], SCM_MODULE(scm__rc.d1562[130]), SCM_NIL); /* gauche#error */
  scm__rc.d1562[163] = Scm_MakeIdentifier(scm__rc.d1562[155], SCM_MODULE(scm__rc.d1562[130]), SCM_NIL); /* gauche#hash */
  scm__rc.d1562[164] = Scm_MakeIdentifier(scm__rc.d1562[154], SCM_MODULE(scm__rc.d1562[130]), SCM_NIL); /* gauche#modulo */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[386]), scm__rc.d1562[147]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[389]), scm__rc.d1562[2]);
  scm__rc.d1562[165] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[386]), SCM_OBJ(&scm__rc.d1563[360]), SCM_OBJ(&scm__rc.d1563[390]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[391]), scm__rc.d1562[165]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[34]))[8] = SCM_WORD(scm__rc.d1562[163]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[34]))[12] = SCM_WORD(scm__rc.d1562[164]);
  scm__rc.d1562[166] = Scm_MakeIdentifier(scm__rc.d1562[151], SCM_MODULE(scm__rc.d1562[130]), SCM_NIL); /* gauche#fold */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[394]), scm__rc.d1562[2]);
  scm__rc.d1562[167] = Scm_MakeExtendedPair(scm__rc.d1562[147], SCM_OBJ(&scm__rc.d1563[358]), SCM_OBJ(&scm__rc.d1563[395]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[396]), scm__rc.d1562[167]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1570[4]))->name = scm__rc.d1562[147];/* char-set-hash */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]))[4] = SCM_WORD(scm__rc.d1562[148]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]))[29] = SCM_WORD(scm__rc.d1562[161]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]))[38] = SCM_WORD(scm__rc.d1562[126]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1569[48]))[40] = SCM_WORD(scm__rc.d1562[166]);
  ScmObj G1576 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1570[4]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[147]) /* char-set-hash */, G1576,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[168] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[114])),TRUE); /* %char-set-equal? */
  scm__rc.d1562[169] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[115])),TRUE); /* x */
  scm__rc.d1562[170] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[116])),TRUE); /* y */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[397]), scm__rc.d1562[170]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[398]), scm__rc.d1562[169]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[401]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[402]), scm__rc.d1562[168]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[403]), scm__rc.d1562[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[404]), scm__rc.d1562[3]);
  scm__rc.d1562[171] = Scm_MakeExtendedPair(scm__rc.d1562[168], SCM_OBJ(&scm__rc.d1563[398]), SCM_OBJ(&scm__rc.d1563[406]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%char-set-equal?")), SCM_OBJ(&libchar_25char_set_equalP__STUB), 0);
  libchar_25char_set_equalP__STUB.common.info = scm__rc.d1562[171];
  scm__rc.d1562[172] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[117])),TRUE); /* %char-set<=? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[409]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[410]), scm__rc.d1562[172]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[411]), scm__rc.d1562[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[412]), scm__rc.d1562[3]);
  scm__rc.d1562[173] = Scm_MakeExtendedPair(scm__rc.d1562[172], SCM_OBJ(&scm__rc.d1563[398]), SCM_OBJ(&scm__rc.d1563[414]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%char-set<=?")), SCM_OBJ(&libchar_25char_set_LT_3dP__STUB), 0);
  libchar_25char_set_LT_3dP__STUB.common.info = scm__rc.d1562[173];
  scm__rc.d1562[174] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[118])),TRUE); /* %char-set-add-chars! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[415]), scm__rc.d1562[116]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[418]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[419]), scm__rc.d1562[174]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[420]), scm__rc.d1562[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[421]), scm__rc.d1562[3]);
  scm__rc.d1562[175] = Scm_MakeExtendedPair(scm__rc.d1562[174], SCM_OBJ(&scm__rc.d1563[415]), SCM_OBJ(&scm__rc.d1563[423]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%char-set-add-chars!")), SCM_OBJ(&libchar_25char_set_add_charsX__STUB), 0);
  libchar_25char_set_add_charsX__STUB.common.info = scm__rc.d1562[175];
  scm__rc.d1562[176] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[119])),TRUE); /* %char-set-add-range! */
  scm__rc.d1562[177] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120])),TRUE); /* from */
  scm__rc.d1562[178] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[121])),TRUE); /* to */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[424]), scm__rc.d1562[178]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[425]), scm__rc.d1562[177]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[426]), scm__rc.d1562[116]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[429]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[430]), scm__rc.d1562[176]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[431]), scm__rc.d1562[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[432]), scm__rc.d1562[3]);
  scm__rc.d1562[179] = Scm_MakeExtendedPair(scm__rc.d1562[176], SCM_OBJ(&scm__rc.d1563[426]), SCM_OBJ(&scm__rc.d1563[434]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%char-set-add-range!")), SCM_OBJ(&libchar_25char_set_add_rangeX__STUB), 0);
  libchar_25char_set_add_rangeX__STUB.common.info = scm__rc.d1562[179];
  scm__rc.d1562[180] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[122])),TRUE); /* %char-set-add! */
  scm__rc.d1562[181] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[123])),TRUE); /* dst */
  scm__rc.d1562[182] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[124])),TRUE); /* src */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[435]), scm__rc.d1562[182]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[181]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[439]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[440]), scm__rc.d1562[180]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[441]), scm__rc.d1562[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[442]), scm__rc.d1562[3]);
  scm__rc.d1562[183] = Scm_MakeExtendedPair(scm__rc.d1562[180], SCM_OBJ(&scm__rc.d1563[436]), SCM_OBJ(&scm__rc.d1563[444]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%char-set-add!")), SCM_OBJ(&libchar_25char_set_addX__STUB), 0);
  libchar_25char_set_addX__STUB.common.info = scm__rc.d1562[183];
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[447]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[448]), scm__rc.d1562[3]);
  scm__rc.d1562[184] = Scm_MakeExtendedPair(scm__rc.d1562[127], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[450]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%char-set-ranges")), SCM_OBJ(&libchar_25char_set_ranges__STUB), 0);
  libchar_25char_set_ranges__STUB.common.info = scm__rc.d1562[184];
  scm__rc.d1562[185] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[125])),TRUE); /* %char-set-predefined */
  scm__rc.d1562[186] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[126])),TRUE); /* num */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[451]), scm__rc.d1562[186]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[454]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[455]), scm__rc.d1562[185]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[456]), scm__rc.d1562[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[457]), scm__rc.d1562[3]);
  scm__rc.d1562[187] = Scm_MakeExtendedPair(scm__rc.d1562[185], SCM_OBJ(&scm__rc.d1563[451]), SCM_OBJ(&scm__rc.d1563[459]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%char-set-predefined")), SCM_OBJ(&libchar_25char_set_predefined__STUB), 0);
  libchar_25char_set_predefined__STUB.common.info = scm__rc.d1562[187];
  scm__rc.d1562[188] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[127])),TRUE); /* %char-set-case-fold! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[462]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[463]), scm__rc.d1562[188]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[464]), scm__rc.d1562[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[465]), scm__rc.d1562[3]);
  scm__rc.d1562[189] = Scm_MakeExtendedPair(scm__rc.d1562[188], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[467]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%char-set-case-fold!")), SCM_OBJ(&libchar_25char_set_case_foldX__STUB), 0);
  libchar_25char_set_case_foldX__STUB.common.info = scm__rc.d1562[189];
  scm__rc.d1562[190] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[128])),TRUE); /* %char-set-dump */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[470]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[471]), scm__rc.d1562[190]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[472]), scm__rc.d1562[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[473]), scm__rc.d1562[3]);
  scm__rc.d1562[191] = Scm_MakeExtendedPair(scm__rc.d1562[190], SCM_OBJ(&scm__rc.d1563[274]), SCM_OBJ(&scm__rc.d1563[475]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%char-set-dump")), SCM_OBJ(&libchar_25char_set_dump__STUB), 0);
  libchar_25char_set_dump__STUB.common.info = scm__rc.d1562[191];
  Scm_VMExecuteToplevels(toplevels);
}
