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

#line 37 "libio.scm"
#include <gauche/vminsn.h>
#include <gauche/exception.h>
#include <gauche/priv/portP.h>
#include <gauche/priv/writerP.h>
#include <stdlib.h>
#include <fcntl.h>

static ScmObj libioinput_portP(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioinput_portP__STUB, 1, 0,SCM_FALSE,libioinput_portP, NULL, NULL);

static ScmObj libiooutput_portP(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiooutput_portP__STUB, 1, 0,SCM_FALSE,libiooutput_portP, NULL, NULL);

static ScmObj libioportP(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioportP__STUB, 1, 0,SCM_FALSE,libioportP, NULL, NULL);

static ScmObj libioport_closedP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_closedP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_closedP, NULL, NULL);

static ScmObj libiocurrent_input_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiocurrent_input_port__STUB, 0, 2,SCM_FALSE,libiocurrent_input_port, NULL, NULL);

static ScmObj libiocurrent_output_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiocurrent_output_port__STUB, 0, 2,SCM_FALSE,libiocurrent_output_port, NULL, NULL);

static ScmObj libiocurrent_error_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiocurrent_error_port__STUB, 0, 2,SCM_FALSE,libiocurrent_error_port, NULL, NULL);

static ScmObj libiostandard_input_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libiostandard_input_port__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiostandard_input_port, NULL, NULL);

static ScmObj libiostandard_output_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libiostandard_output_port__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiostandard_output_port, NULL, NULL);

static ScmObj libiostandard_error_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libiostandard_error_port__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiostandard_error_port, NULL, NULL);

static ScmObj libioport_name(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_name__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_name, NULL, NULL);

static ScmObj libioport_current_line(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_current_line__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_current_line, NULL, NULL);

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

static ScmObj libioport_fd_dupX(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_fd_dupX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_fd_dupX, NULL, NULL);

static ScmObj libioport_attribute_setX(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioport_attribute_setX__STUB, 3, 0,SCM_FALSE,libioport_attribute_setX, NULL, NULL);

static ScmObj libioport_attribute_ref(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioport_attribute_ref__STUB, 2, 2,SCM_FALSE,libioport_attribute_ref, NULL, NULL);

static ScmObj libioport_attribute_deleteX(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioport_attribute_deleteX__STUB, 2, 0,SCM_FALSE,libioport_attribute_deleteX, NULL, NULL);

static ScmObj libioport_attributes(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_attributes__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_attributes, NULL, NULL);

static ScmObj libioport_type(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_type__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_type, NULL, NULL);

static ScmObj libioport_buffering_SETTER(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioport_buffering_SETTER__STUB, 2, 0,SCM_FALSE,libioport_buffering_SETTER, NULL, NULL);

static ScmObj libioport_buffering(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_buffering__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_buffering, NULL, NULL);

static ScmObj libioport_case_fold_setX(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_case_fold_setX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_case_fold_setX, NULL, NULL);

static ScmObj libioclose_input_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioclose_input_port__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioclose_input_port, NULL, NULL);

static ScmObj libioclose_output_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioclose_output_port__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioclose_output_port, NULL, NULL);

static ScmObj libioclose_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioclose_port__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioclose_port, NULL, NULL);

static ScmObj libio_25open_input_file(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libio_25open_input_file__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25open_input_file, NULL, NULL);

static ScmObj libio_25open_output_file(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libio_25open_output_file__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25open_output_file, NULL, NULL);

static ScmObj libioopen_input_fd_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioopen_input_fd_port__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_input_fd_port, NULL, NULL);

static ScmObj libioopen_output_fd_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioopen_output_fd_port__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_output_fd_port, NULL, NULL);

static void bufport_closer(ScmPort* p);
static ScmSize bufport_filler(ScmPort* p,ScmSize cnt);
static ScmObj libioopen_input_buffered_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioopen_input_buffered_port__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_input_buffered_port, NULL, NULL);

static ScmSize bufport_flusher(ScmPort* p,ScmSize cnt,int G1619 SCM_UNUSED);
static ScmObj libioopen_output_buffered_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioopen_output_buffered_port__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_output_buffered_port, NULL, NULL);

static ScmObj libioopen_input_string(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioopen_input_string__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_input_string, NULL, NULL);

static ScmObj libioopen_output_string(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioopen_output_string__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_output_string, NULL, NULL);

static ScmObj libioget_output_string(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioget_output_string__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioget_output_string, NULL, NULL);

static ScmObj libioget_output_byte_string(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioget_output_byte_string__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioget_output_byte_string, NULL, NULL);

static ScmObj libioget_remaining_input_string(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioget_remaining_input_string__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioget_remaining_input_string, NULL, NULL);

static ScmObj libioopen_coding_aware_port(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioopen_coding_aware_port__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_coding_aware_port, NULL, NULL);

static ScmObj libioport_has_port_positionP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_has_port_positionP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_has_port_positionP, NULL, NULL);

static ScmObj libioport_has_set_port_positionXP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_has_set_port_positionXP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_has_set_port_positionXP, NULL, NULL);

static ScmObj libioport_position(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_position__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_position, NULL, NULL);

static ScmObj libioset_port_positionX(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioset_port_positionX__STUB, 2, 0,SCM_FALSE,libioset_port_positionX, NULL, NULL);

static ScmObj libioport_seek(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_seek__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_seek, NULL, NULL);

static ScmObj libio_25port_walkingP_SETTER(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libio_25port_walkingP_SETTER__STUB, 2, 0,SCM_FALSE,libio_25port_walkingP_SETTER, NULL, NULL);

static ScmObj libio_25port_walkingP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libio_25port_walkingP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_walkingP, NULL, NULL);

static ScmObj libio_25port_writing_sharedP_SETTER(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libio_25port_writing_sharedP_SETTER__STUB, 2, 0,SCM_FALSE,libio_25port_writing_sharedP_SETTER, NULL, NULL);

static ScmObj libio_25port_writing_sharedP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libio_25port_writing_sharedP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_writing_sharedP, NULL, NULL);

static ScmObj write_state_allocate(ScmClass* G1625 SCM_UNUSED,ScmObj G1626 SCM_UNUSED);
static void write_state_print(ScmObj obj,ScmPort* port,ScmWriteContext* G1629 SCM_UNUSED);
static ScmObj libio_25port_write_state_SETTER(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libio_25port_write_state_SETTER__STUB, 2, 0,SCM_FALSE,libio_25port_write_state_SETTER, NULL, NULL);

static ScmObj libio_25port_write_state(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libio_25port_write_state__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_write_state, NULL, NULL);

static ScmObj libio_25port_lockX(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libio_25port_lockX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_lockX, NULL, NULL);

static ScmObj libio_25port_unlockX(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libio_25port_unlockX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_unlockX, NULL, NULL);

static ScmObj libioread(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioread__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread, NULL, NULL);

static ScmObj libioread_char(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioread_char__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread_char, SCM_MAKE_INT(SCM_VM_READ_CHAR), NULL);

static ScmObj libiopeek_char(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libiopeek_char__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiopeek_char, SCM_MAKE_INT(SCM_VM_PEEK_CHAR), NULL);

static ScmObj libioeof_objectP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioeof_objectP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioeof_objectP, SCM_MAKE_INT(SCM_VM_EOFP), NULL);

static ScmObj libiochar_readyP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libiochar_readyP__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiochar_readyP, NULL, NULL);

static ScmObj libioeof_object(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioeof_object__STUB, 0, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioeof_object, NULL, NULL);

static ScmObj libiobyte_readyP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libiobyte_readyP__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiobyte_readyP, NULL, NULL);

static ScmObj libioread_byte(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioread_byte__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread_byte, NULL, NULL);

static ScmObj libiopeek_byte(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libiopeek_byte__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiopeek_byte, NULL, NULL);

static ScmObj libioread_line(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioread_line__STUB, 0, 3,SCM_FALSE,libioread_line, NULL, NULL);

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

static ScmObj libioread_list(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioread_list__STUB, 1, 2,SCM_FALSE,libioread_list, NULL, NULL);

static ScmObj libioport_TObyte_string(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioport_TObyte_string__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_TObyte_string, NULL, NULL);

static ScmObj libioreader_lexical_mode(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioreader_lexical_mode__STUB, 0, 2,SCM_FALSE,libioreader_lexical_mode, NULL, NULL);

static ScmObj libio_25port_ungotten_chars(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libio_25port_ungotten_chars__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_ungotten_chars, NULL, NULL);

static ScmObj libio_25port_ungotten_bytes(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libio_25port_ungotten_bytes__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_ungotten_bytes, NULL, NULL);

static ScmObj libiodefine_reader_ctor(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiodefine_reader_ctor__STUB, 2, 2,SCM_FALSE,libiodefine_reader_ctor, NULL, NULL);

static ScmObj libio_25get_reader_ctor(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libio_25get_reader_ctor__STUB, 1, 0,SCM_FALSE,libio_25get_reader_ctor, NULL, NULL);

static ScmObj libiodefine_reader_directive(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiodefine_reader_directive__STUB, 2, 0,SCM_FALSE,libiodefine_reader_directive, NULL, NULL);

static ScmObj libiocurrent_read_context(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiocurrent_read_context__STUB, 0, 2,SCM_FALSE,libiocurrent_read_context, NULL, NULL);

static ScmObj libioread_referenceP(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioread_referenceP__STUB, 1, 0,SCM_FALSE,libioread_referenceP, NULL, NULL);

static ScmObj libioread_reference_has_valueP(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioread_reference_has_valueP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread_reference_has_valueP, NULL, NULL);

static ScmObj libioread_reference_value(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioread_reference_value__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread_reference_value, NULL, NULL);

static void parse_write_optionals(ScmObj opt1,ScmObj opt2,ScmPort** pp,const ScmWriteControls** pc);
static ScmObj libiowrite(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiowrite__STUB, 1, 3,SCM_FALSE,libiowrite, NULL, NULL);

static ScmObj libiowrite_simple(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiowrite_simple__STUB, 1, 2,SCM_FALSE,libiowrite_simple, NULL, NULL);

static ScmObj libiowrite_shared(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiowrite_shared__STUB, 1, 3,SCM_FALSE,libiowrite_shared, NULL, NULL);

static ScmObj libiodisplay(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiodisplay__STUB, 1, 3,SCM_FALSE,libiodisplay, NULL, NULL);

static ScmObj libionewline(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libionewline__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libionewline, NULL, NULL);

static ScmObj libiowrite_char(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libiowrite_char__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiowrite_char, SCM_MAKE_INT(SCM_VM_WRITE_CHAR), NULL);

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

static ScmObj libiowrite_limited(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiowrite_limited__STUB, 2, 2,SCM_FALSE,libiowrite_limited, NULL, NULL);

static ScmObj libioflush(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioflush__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioflush, NULL, NULL);

static ScmObj libioflush_all_ports(ScmObj*, int, void*);
static SCM_DEFINE_SUBRX(libioflush_all_ports__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioflush_all_ports, NULL, NULL);

static ScmObj libiowrite_need_recurseP(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libiowrite_need_recurseP__STUB, 1, 0,SCM_FALSE,libiowrite_need_recurseP, NULL, NULL);

static ScmObj write_controls_allocate(ScmClass* G1662 SCM_UNUSED,ScmObj G1663 SCM_UNUSED);
#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 d1612[315];
} scm__sc SCM_UNUSED = {
  {   /* ScmString d1612 */
      SCM_STRING_CONST_INITIALIZER("input-port\077", 11, 11),
      SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
      SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
      SCM_STRING_CONST_INITIALIZER("libio.scm", 9, 9),
      SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
      SCM_STRING_CONST_INITIALIZER("scheme", 6, 6),
      SCM_STRING_CONST_INITIALIZER("<top>", 5, 5),
      SCM_STRING_CONST_INITIALIZER("->", 2, 2),
      SCM_STRING_CONST_INITIALIZER("<boolean>", 9, 9),
      SCM_STRING_CONST_INITIALIZER("output-port\077", 12, 12),
      SCM_STRING_CONST_INITIALIZER("port\077", 5, 5),
      SCM_STRING_CONST_INITIALIZER("port-closed\077", 12, 12),
      SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
      SCM_STRING_CONST_INITIALIZER("<port>", 6, 6),
      SCM_STRING_CONST_INITIALIZER("current-input-port", 18, 18),
      SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
      SCM_STRING_CONST_INITIALIZER("newport", 7, 7),
      SCM_STRING_CONST_INITIALIZER("*", 1, 1),
      SCM_STRING_CONST_INITIALIZER("current-output-port", 19, 19),
      SCM_STRING_CONST_INITIALIZER("current-error-port", 18, 18),
      SCM_STRING_CONST_INITIALIZER("standard-input-port", 19, 19),
      SCM_STRING_CONST_INITIALIZER("p", 1, 1),
      SCM_STRING_CONST_INITIALIZER("standard-output-port", 20, 20),
      SCM_STRING_CONST_INITIALIZER("standard-error-port", 19, 19),
      SCM_STRING_CONST_INITIALIZER("port-name", 9, 9),
      SCM_STRING_CONST_INITIALIZER("port", 4, 4),
      SCM_STRING_CONST_INITIALIZER("port-current-line", 17, 17),
      SCM_STRING_CONST_INITIALIZER("<fixnum>", 8, 8),
      SCM_STRING_CONST_INITIALIZER("port-file-number", 16, 16),
      SCM_STRING_CONST_INITIALIZER("dup\077", 4, 4),
      SCM_STRING_CONST_INITIALIZER("port-fd-dup!", 12, 12),
      SCM_STRING_CONST_INITIALIZER("dst", 3, 3),
      SCM_STRING_CONST_INITIALIZER("src", 3, 3),
      SCM_STRING_CONST_INITIALIZER("<void>", 6, 6),
      SCM_STRING_CONST_INITIALIZER("port-attribute-set!", 19, 19),
      SCM_STRING_CONST_INITIALIZER("key", 3, 3),
      SCM_STRING_CONST_INITIALIZER("val", 3, 3),
      SCM_STRING_CONST_INITIALIZER("port-attribute-ref", 18, 18),
      SCM_STRING_CONST_INITIALIZER("fallback", 8, 8),
      SCM_STRING_CONST_INITIALIZER("port-attribute-delete!", 22, 22),
      SCM_STRING_CONST_INITIALIZER("port-attributes", 15, 15),
      SCM_STRING_CONST_INITIALIZER("port-type", 9, 9),
      SCM_STRING_CONST_INITIALIZER("file", 4, 4),
      SCM_STRING_CONST_INITIALIZER("proc", 4, 4),
      SCM_STRING_CONST_INITIALIZER("string", 6, 6),
      SCM_STRING_CONST_INITIALIZER("port-buffering", 14, 14),
      SCM_STRING_CONST_INITIALIZER("(setter port-buffering)", 23, 23),
      SCM_STRING_CONST_INITIALIZER("port-case-fold-set!", 19, 19),
      SCM_STRING_CONST_INITIALIZER("flag", 4, 4),
      SCM_STRING_CONST_INITIALIZER("close-input-port", 16, 16),
      SCM_STRING_CONST_INITIALIZER("<input-port>", 12, 12),
      SCM_STRING_CONST_INITIALIZER("close-output-port", 17, 17),
      SCM_STRING_CONST_INITIALIZER("<output-port>", 13, 13),
      SCM_STRING_CONST_INITIALIZER("close-port", 10, 10),
      SCM_STRING_CONST_INITIALIZER("error", 5, 5),
      SCM_STRING_CONST_INITIALIZER("if-does-not-exist", 17, 17),
      SCM_STRING_CONST_INITIALIZER("buffering", 9, 9),
      SCM_STRING_CONST_INITIALIZER("binary", 6, 6),
      SCM_STRING_CONST_INITIALIZER("element-type", 12, 12),
      SCM_STRING_CONST_INITIALIZER("%open-input-file", 16, 16),
      SCM_STRING_CONST_INITIALIZER("character", 9, 9),
      SCM_STRING_CONST_INITIALIZER("path", 4, 4),
      SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
      SCM_STRING_CONST_INITIALIZER("<string>", 8, 8),
      SCM_STRING_CONST_INITIALIZER("supersede", 9, 9),
      SCM_STRING_CONST_INITIALIZER("if-exists", 9, 9),
      SCM_STRING_CONST_INITIALIZER("create", 6, 6),
      SCM_STRING_CONST_INITIALIZER("mode", 4, 4),
      SCM_STRING_CONST_INITIALIZER("%open-output-file", 17, 17),
      SCM_STRING_CONST_INITIALIZER("overwrite", 9, 9),
      SCM_STRING_CONST_INITIALIZER("append", 6, 6),
      SCM_STRING_CONST_INITIALIZER("owner\077", 6, 6),
      SCM_STRING_CONST_INITIALIZER("name", 4, 4),
      SCM_STRING_CONST_INITIALIZER("open-input-fd-port", 18, 18),
      SCM_STRING_CONST_INITIALIZER("dup", 3, 3),
      SCM_STRING_CONST_INITIALIZER("fd", 2, 2),
      SCM_STRING_CONST_INITIALIZER("open-output-fd-port", 19, 19),
      SCM_STRING_CONST_INITIALIZER("open-input-buffered-port", 24, 24),
      SCM_STRING_CONST_INITIALIZER("filler", 6, 6),
      SCM_STRING_CONST_INITIALIZER("buffer-size", 11, 11),
      SCM_STRING_CONST_INITIALIZER("<procedure>", 11, 11),
      SCM_STRING_CONST_INITIALIZER("open-output-buffered-port", 25, 25),
      SCM_STRING_CONST_INITIALIZER("flusher", 7, 7),
      SCM_STRING_CONST_INITIALIZER("private\077", 8, 8),
      SCM_STRING_CONST_INITIALIZER("(input string port)", 19, 19),
      SCM_STRING_CONST_INITIALIZER("open-input-string", 17, 17),
      SCM_STRING_CONST_INITIALIZER("(output string port)", 20, 20),
      SCM_STRING_CONST_INITIALIZER("open-output-string", 18, 18),
      SCM_STRING_CONST_INITIALIZER("get-output-string", 17, 17),
      SCM_STRING_CONST_INITIALIZER("oport", 5, 5),
      SCM_STRING_CONST_INITIALIZER("get-output-byte-string", 22, 22),
      SCM_STRING_CONST_INITIALIZER("get-remaining-input-string", 26, 26),
      SCM_STRING_CONST_INITIALIZER("iport", 5, 5),
      SCM_STRING_CONST_INITIALIZER("open-coding-aware-port", 22, 22),
      SCM_STRING_CONST_INITIALIZER("port-has-port-position\077", 23, 23),
      SCM_STRING_CONST_INITIALIZER("port-has-set-port-position!\077", 28, 28),
      SCM_STRING_CONST_INITIALIZER("port-position", 13, 13),
      SCM_STRING_CONST_INITIALIZER("set-port-position!", 18, 18),
      SCM_STRING_CONST_INITIALIZER("pos", 3, 3),
      SCM_STRING_CONST_INITIALIZER("SEEK_SET", 8, 8),
      SCM_STRING_CONST_INITIALIZER("SEEK_CUR", 8, 8),
      SCM_STRING_CONST_INITIALIZER("SEEK_END", 8, 8),
      SCM_STRING_CONST_INITIALIZER("port-seek", 9, 9),
      SCM_STRING_CONST_INITIALIZER("offset", 6, 6),
      SCM_STRING_CONST_INITIALIZER("whence", 6, 6),
      SCM_STRING_CONST_INITIALIZER("<integer>", 9, 9),
      SCM_STRING_CONST_INITIALIZER("port-tell", 9, 9),
      SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
      SCM_STRING_CONST_INITIALIZER("port-position-prefix", 20, 20),
      SCM_STRING_CONST_INITIALIZER("positive\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("~s:line ~a: ", 12, 12),
      SCM_STRING_CONST_INITIALIZER("format", 6, 6),
      SCM_STRING_CONST_INITIALIZER("~s: ", 4, 4),
      SCM_STRING_CONST_INITIALIZER("", 0, 0),
      SCM_STRING_CONST_INITIALIZER("\077\077\077", 3, 3),
      SCM_STRING_CONST_INITIALIZER("%port-walking\077", 14, 14),
      SCM_STRING_CONST_INITIALIZER("(setter %port-walking\077)", 23, 23),
      SCM_STRING_CONST_INITIALIZER("%port-writing-shared\077", 21, 21),
      SCM_STRING_CONST_INITIALIZER("(setter %port-writing-shared\077)", 30, 30),
      SCM_STRING_CONST_INITIALIZER("%port-write-state", 17, 17),
      SCM_STRING_CONST_INITIALIZER("(setter %port-write-state)", 26, 26),
      SCM_STRING_CONST_INITIALIZER("%port-lock!", 11, 11),
      SCM_STRING_CONST_INITIALIZER("%port-unlock!", 13, 13),
      SCM_STRING_CONST_INITIALIZER("with-port-locking", 17, 17),
      SCM_STRING_CONST_INITIALIZER("%unwind-protect", 15, 15),
      SCM_STRING_CONST_INITIALIZER("args", 4, 4),
      SCM_STRING_CONST_INITIALIZER("%with-2pass-setup", 17, 17),
      SCM_STRING_CONST_INITIALIZER("[internal] %with-2pass-setup called recursively on port:", 56, 56),
      SCM_STRING_CONST_INITIALIZER("<write-state>", 13, 13),
      SCM_STRING_CONST_INITIALIZER("shared-table", 12, 12),
      SCM_STRING_CONST_INITIALIZER("eq\077", 3, 3),
      SCM_STRING_CONST_INITIALIZER("make-hash-table", 15, 15),
      SCM_STRING_CONST_INITIALIZER("make", 4, 4),
      SCM_STRING_CONST_INITIALIZER("walker", 6, 6),
      SCM_STRING_CONST_INITIALIZER("emitter", 7, 7),
      SCM_STRING_CONST_INITIALIZER("read", 4, 4),
      SCM_STRING_CONST_INITIALIZER("read-char", 9, 9),
      SCM_STRING_CONST_INITIALIZER("peek-char", 9, 9),
      SCM_STRING_CONST_INITIALIZER("eof-object\077", 11, 11),
      SCM_STRING_CONST_INITIALIZER("char-ready\077", 11, 11),
      SCM_STRING_CONST_INITIALIZER("eof-object", 10, 10),
      SCM_STRING_CONST_INITIALIZER("byte-ready\077", 11, 11),
      SCM_STRING_CONST_INITIALIZER("u8-ready\077", 9, 9),
      SCM_STRING_CONST_INITIALIZER("%toplevel", 9, 9),
      SCM_STRING_CONST_INITIALIZER("read-byte", 9, 9),
      SCM_STRING_CONST_INITIALIZER("read-u8", 7, 7),
      SCM_STRING_CONST_INITIALIZER("peek-byte", 9, 9),
      SCM_STRING_CONST_INITIALIZER("peek-u8", 7, 7),
      SCM_STRING_CONST_INITIALIZER("read-line", 9, 9),
      SCM_STRING_CONST_INITIALIZER("allowbytestr", 12, 12),
      SCM_STRING_CONST_INITIALIZER("read-string", 11, 11),
      SCM_STRING_CONST_INITIALIZER("too many arguments for", 22, 22),
      SCM_STRING_CONST_INITIALIZER("lambda", 6, 6),
      SCM_STRING_CONST_INITIALIZER("n", 1, 1),
      SCM_STRING_CONST_INITIALIZER("define", 6, 6),
      SCM_STRING_CONST_INITIALIZER("o", 1, 1),
      SCM_STRING_CONST_INITIALIZER("let", 3, 3),
      SCM_STRING_CONST_INITIALIZER("loop", 4, 4),
      SCM_STRING_CONST_INITIALIZER("i", 1, 1),
      SCM_STRING_CONST_INITIALIZER("if", 2, 2),
      SCM_STRING_CONST_INITIALIZER(">=", 2, 2),
      SCM_STRING_CONST_INITIALIZER("let1", 4, 4),
      SCM_STRING_CONST_INITIALIZER("c", 1, 1),
      SCM_STRING_CONST_INITIALIZER("=", 1, 1),
      SCM_STRING_CONST_INITIALIZER("begin", 5, 5),
      SCM_STRING_CONST_INITIALIZER("write-char", 10, 10),
      SCM_STRING_CONST_INITIALIZER("+", 1, 1),
      SCM_STRING_CONST_INITIALIZER("write-string", 12, 12),
      SCM_STRING_CONST_INITIALIZER("start", 5, 5),
      SCM_STRING_CONST_INITIALIZER("end", 3, 3),
      SCM_STRING_CONST_INITIALIZER("display", 7, 7),
      SCM_STRING_CONST_INITIALIZER("with-module", 11, 11),
      SCM_STRING_CONST_INITIALIZER("%maybe-substring", 16, 16),
      SCM_STRING_CONST_INITIALIZER("consume-trailing-whitespaces", 28, 28),
      SCM_STRING_CONST_INITIALIZER("when", 4, 4),
      SCM_STRING_CONST_INITIALIZER("b", 1, 1),
      SCM_STRING_CONST_INITIALIZER("cond", 4, 4),
      SCM_STRING_CONST_INITIALIZER("memv", 4, 4),
      SCM_STRING_CONST_INITIALIZER("quote", 5, 5),
      SCM_STRING_CONST_INITIALIZER("eqv\077", 4, 4),
      SCM_STRING_CONST_INITIALIZER("and", 3, 3),
      SCM_STRING_CONST_INITIALIZER("read-block", 10, 10),
      SCM_STRING_CONST_INITIALIZER("bytes", 5, 5),
      SCM_STRING_CONST_INITIALIZER("read-list", 9, 9),
      SCM_STRING_CONST_INITIALIZER("closer", 6, 6),
      SCM_STRING_CONST_INITIALIZER("<char>", 6, 6),
      SCM_STRING_CONST_INITIALIZER("port->byte-string", 17, 17),
      SCM_STRING_CONST_INITIALIZER("port->string", 12, 12),
      SCM_STRING_CONST_INITIALIZER("unit", 4, 4),
      SCM_STRING_CONST_INITIALIZER("byte", 4, 4),
      SCM_STRING_CONST_INITIALIZER("copy-port", 9, 9),
      SCM_STRING_CONST_INITIALIZER("port->list", 10, 10),
      SCM_STRING_CONST_INITIALIZER("reverse!", 8, 8),
      SCM_STRING_CONST_INITIALIZER("reader", 6, 6),
      SCM_STRING_CONST_INITIALIZER("port->string-list", 17, 17),
      SCM_STRING_CONST_INITIALIZER("G1650", 5, 5),
      SCM_STRING_CONST_INITIALIZER("G1649", 5, 5),
      SCM_STRING_CONST_INITIALIZER("port->sexp-list", 15, 15),
      SCM_STRING_CONST_INITIALIZER("reader-lexical-mode", 19, 19),
      SCM_STRING_CONST_INITIALIZER("k", 1, 1),
      SCM_STRING_CONST_INITIALIZER("%port-ungotten-chars", 20, 20),
      SCM_STRING_CONST_INITIALIZER("%port-ungotten-bytes", 20, 20),
      SCM_STRING_CONST_INITIALIZER("define-reader-ctor", 18, 18),
      SCM_STRING_CONST_INITIALIZER("symbol", 6, 6),
      SCM_STRING_CONST_INITIALIZER("finisher", 8, 8),
      SCM_STRING_CONST_INITIALIZER("%get-reader-ctor", 16, 16),
      SCM_STRING_CONST_INITIALIZER("define-reader-directive", 23, 23),
      SCM_STRING_CONST_INITIALIZER("current-read-context", 20, 20),
      SCM_STRING_CONST_INITIALIZER("ctx", 3, 3),
      SCM_STRING_CONST_INITIALIZER("read-reference\077", 15, 15),
      SCM_STRING_CONST_INITIALIZER("read-reference-has-value\077", 25, 25),
      SCM_STRING_CONST_INITIALIZER("ref", 3, 3),
      SCM_STRING_CONST_INITIALIZER("<read-reference>", 16, 16),
      SCM_STRING_CONST_INITIALIZER("read-reference-value", 20, 20),
      SCM_STRING_CONST_INITIALIZER("read-with-shared-structure", 26, 26),
      SCM_STRING_CONST_INITIALIZER("read/ss", 7, 7),
      SCM_STRING_CONST_INITIALIZER("write", 5, 5),
      SCM_STRING_CONST_INITIALIZER("port-or-control-1", 17, 17),
      SCM_STRING_CONST_INITIALIZER("port-or-control-2", 17, 17),
      SCM_STRING_CONST_INITIALIZER("write-simple", 12, 12),
      SCM_STRING_CONST_INITIALIZER("write-shared", 12, 12),
      SCM_STRING_CONST_INITIALIZER("newline", 7, 7),
      SCM_STRING_CONST_INITIALIZER("ch", 2, 2),
      SCM_STRING_CONST_INITIALIZER("write-byte", 10, 10),
      SCM_STRING_CONST_INITIALIZER("<int>", 5, 5),
      SCM_STRING_CONST_INITIALIZER("write-u8", 8, 8),
      SCM_STRING_CONST_INITIALIZER("write-limited", 13, 13),
      SCM_STRING_CONST_INITIALIZER("limit", 5, 5),
      SCM_STRING_CONST_INITIALIZER("write*", 6, 6),
      SCM_STRING_CONST_INITIALIZER("flush", 5, 5),
      SCM_STRING_CONST_INITIALIZER("flush-all-ports", 15, 15),
      SCM_STRING_CONST_INITIALIZER("write-need-recurse\077", 19, 19),
      SCM_STRING_CONST_INITIALIZER("write-walk", 10, 10),
      SCM_STRING_CONST_INITIALIZER("~", 1, 1),
      SCM_STRING_CONST_INITIALIZER("%write-walk-rec", 15, 15),
      SCM_STRING_CONST_INITIALIZER("G1656", 5, 5),
      SCM_STRING_CONST_INITIALIZER("G1653", 5, 5),
      SCM_STRING_CONST_INITIALIZER("hash-table-exists\077", 18, 18),
      SCM_STRING_CONST_INITIALIZER("hash-table-update!", 18, 18),
      SCM_STRING_CONST_INITIALIZER("hash-table-put!", 15, 15),
      SCM_STRING_CONST_INITIALIZER("box\077", 4, 4),
      SCM_STRING_CONST_INITIALIZER("box-arity", 9, 9),
      SCM_STRING_CONST_INITIALIZER("unbox-value", 11, 11),
      SCM_STRING_CONST_INITIALIZER("write-object", 12, 12),
      SCM_STRING_CONST_INITIALIZER("hash-table-get", 14, 14),
      SCM_STRING_CONST_INITIALIZER("hash-table-delete!", 18, 18),
      SCM_STRING_CONST_INITIALIZER("tab", 3, 3),
      SCM_STRING_CONST_INITIALIZER("write-with-shared-structure", 27, 27),
      SCM_STRING_CONST_INITIALIZER("write/ss", 8, 8),
      SCM_STRING_CONST_INITIALIZER("print", 5, 5),
      SCM_STRING_CONST_INITIALIZER("for-each", 8, 8),
      SCM_STRING_CONST_INITIALIZER("make-write-controls", 19, 19),
      SCM_STRING_CONST_INITIALIZER("undefined\077", 10, 10),
      SCM_STRING_CONST_INITIALIZER("<write-controls>", 16, 16),
      SCM_STRING_CONST_INITIALIZER("length", 6, 6),
      SCM_STRING_CONST_INITIALIZER("level", 5, 5),
      SCM_STRING_CONST_INITIALIZER("width", 5, 5),
      SCM_STRING_CONST_INITIALIZER("base", 4, 4),
      SCM_STRING_CONST_INITIALIZER("radix", 5, 5),
      SCM_STRING_CONST_INITIALIZER("pretty", 6, 6),
      SCM_STRING_CONST_INITIALIZER("keyword list not even", 21, 21),
      SCM_STRING_CONST_INITIALIZER("unwrap-syntax-1", 15, 15),
      SCM_STRING_CONST_INITIALIZER("print-length", 12, 12),
      SCM_STRING_CONST_INITIALIZER("print-level", 11, 11),
      SCM_STRING_CONST_INITIALIZER("print-width", 11, 11),
      SCM_STRING_CONST_INITIALIZER("print-base", 10, 10),
      SCM_STRING_CONST_INITIALIZER("print-radix", 11, 11),
      SCM_STRING_CONST_INITIALIZER("print-pretty", 12, 12),
      SCM_STRING_CONST_INITIALIZER("unknown keyword ~S", 18, 18),
      SCM_STRING_CONST_INITIALIZER("errorf", 6, 6),
      SCM_STRING_CONST_INITIALIZER("write-controls-copy", 19, 19),
      SCM_STRING_CONST_INITIALIZER("slot-ref", 8, 8),
      SCM_STRING_CONST_INITIALIZER("wc", 2, 2),
      SCM_STRING_CONST_INITIALIZER("open-input-file", 15, 15),
      SCM_STRING_CONST_INITIALIZER("encoding", 8, 8),
      SCM_STRING_CONST_INITIALIZER("get-keyword", 11, 11),
      SCM_STRING_CONST_INITIALIZER("delete-keyword", 14, 14),
      SCM_STRING_CONST_INITIALIZER("%open-input-file/conv", 21, 21),
      SCM_STRING_CONST_INITIALIZER("filename", 8, 8),
      SCM_STRING_CONST_INITIALIZER("open-output-file", 16, 16),
      SCM_STRING_CONST_INITIALIZER("%open-output-file/conv", 22, 22),
      SCM_STRING_CONST_INITIALIZER("call-with-port", 14, 14),
      SCM_STRING_CONST_INITIALIZER("call-with-input-file", 20, 20),
      SCM_STRING_CONST_INITIALIZER("flags", 5, 5),
      SCM_STRING_CONST_INITIALIZER("call-with-output-file", 21, 21),
      SCM_STRING_CONST_INITIALIZER("with-input-from-file", 20, 20),
      SCM_STRING_CONST_INITIALIZER("with-input-from-port", 20, 20),
      SCM_STRING_CONST_INITIALIZER("thunk", 5, 5),
      SCM_STRING_CONST_INITIALIZER("with-output-to-file", 19, 19),
      SCM_STRING_CONST_INITIALIZER("with-output-to-port", 19, 19),
      SCM_STRING_CONST_INITIALIZER("with-output-to-string", 21, 21),
      SCM_STRING_CONST_INITIALIZER("with-input-from-string", 22, 22),
      SCM_STRING_CONST_INITIALIZER("str", 3, 3),
      SCM_STRING_CONST_INITIALIZER("call-with-output-string", 23, 23),
      SCM_STRING_CONST_INITIALIZER("call-with-input-string", 22, 22),
      SCM_STRING_CONST_INITIALIZER("call-with-string-io", 19, 19),
      SCM_STRING_CONST_INITIALIZER("with-string-io", 14, 14),
      SCM_STRING_CONST_INITIALIZER("write-to-string", 15, 15),
      SCM_STRING_CONST_INITIALIZER("writer", 6, 6),
      SCM_STRING_CONST_INITIALIZER("cut", 3, 3),
      SCM_STRING_CONST_INITIALIZER("read-from-string", 16, 16),
      SCM_STRING_CONST_INITIALIZER("values", 6, 6),
      SCM_STRING_CONST_INITIALIZER("with-error-to-port", 18, 18),
      SCM_STRING_CONST_INITIALIZER("with-ports", 10, 10),
      SCM_STRING_CONST_INITIALIZER("eport", 5, 5),
      SCM_STRING_CONST_INITIALIZER("r6rs", 4, 4),
      SCM_STRING_CONST_INITIALIZER("Reading R6RS source file.  Note that Gauche is not R6RS compliant.", 66, 66),
      SCM_STRING_CONST_INITIALIZER("warn", 4, 4),
      SCM_STRING_CONST_INITIALIZER("sym", 3, 3),
      SCM_STRING_CONST_INITIALIZER("fold-case", 9, 9),
      SCM_STRING_CONST_INITIALIZER("no-fold-case", 12, 12),
      SCM_STRING_CONST_INITIALIZER("gauche-legacy", 13, 13),
      SCM_STRING_CONST_INITIALIZER("legacy", 6, 6),
      SCM_STRING_CONST_INITIALIZER("r7rs", 4, 4),
      SCM_STRING_CONST_INITIALIZER("strict-r7", 9, 9),
  },
};
static struct scm__rcRec {
  ScmCompiledCode d1622[83];
  ScmWord d1621[2780];
  ScmPair d1614[1181] SCM_ALIGN_PAIR;
  ScmObj d1613[896];
} scm__rc SCM_UNUSED = {
  {   /* ScmCompiledCode d1622 */
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port-tell */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[0])), 6,
            6, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[371]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port-position-prefix */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[6])), 53,
            21, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[376]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[59])), 9,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[419]),
            SCM_OBJ(&scm__rc.d1622[4]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[68])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[420]),
            SCM_OBJ(&scm__rc.d1622[4]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-port-locking */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[72])), 13,
            7, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[429]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[85])), 68,
            22, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[431]),
            SCM_OBJ(&scm__rc.d1622[7]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[153])), 20,
            11, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[432]),
            SCM_OBJ(&scm__rc.d1622[7]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %with-2pass-setup */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[173])), 13,
            7, 3, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[442]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[186])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[191])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[196])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* read-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[201])), 73,
            27, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[585]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* write-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[274])), 73,
            28, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[612]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* consume-trailing-whitespaces */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[347])), 97,
            25, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[667]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port->string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[444])), 23,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[698]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[467])), 29,
            22, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[704]),
            SCM_OBJ(&scm__rc.d1622[16]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port->list */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[496])), 6,
            5, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[710]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (port->string-list G1650) */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[502])), 6,
            5, 1, 0, SCM_OBJ(&scm__rc.d1614[712]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[718]),
            SCM_OBJ(&scm__rc.d1622[19]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port->string-list */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[508])), 5,
            5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[720]),
            SCM_OBJ(&scm__rc.d1622[19]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[513])), 7,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port->sexp-list */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[520])), 6,
            5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[725]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[526])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[531])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[536])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[541])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* write-walk */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[546])), 22,
            15, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[917]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (%write-walk-rec G1656) */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[568])), 2,
            0, 1, 0, SCM_OBJ(&scm__rc.d1614[919]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[925]),
            SCM_OBJ(&scm__rc.d1622[28]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %write-walk-rec */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[570])), 166,
            29, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[934]),
            SCM_OBJ(&scm__rc.d1622[28]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[736])), 7,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* write-with-shared-structure */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[743])), 34,
            16, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[946]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[777])), 5,
            0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* print */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[782])), 10,
            11, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[951]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* make-write-controls */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[792])), 567,
            91, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[969]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* write-controls-copy */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[1359])), 741,
            95, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[975]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* open-input-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2100])), 49,
            24, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[981]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* open-output-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2149])), 22,
            12, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[986]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2171])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[988]),
            SCM_OBJ(&scm__rc.d1622[38]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2175])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[989]),
            SCM_OBJ(&scm__rc.d1622[38]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2179])), 13,
            7, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[997]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2192])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[999]),
            SCM_OBJ(&scm__rc.d1622[41]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2196])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1000]),
            SCM_OBJ(&scm__rc.d1622[41]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-input-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2204])), 21,
            11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1009]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2225])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1011]),
            SCM_OBJ(&scm__rc.d1622[44]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2229])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1012]),
            SCM_OBJ(&scm__rc.d1622[44]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-output-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2237])), 21,
            11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1019]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2258])), 5,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1021]),
            SCM_OBJ(&scm__rc.d1622[47]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2263])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1022]),
            SCM_OBJ(&scm__rc.d1622[47]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2267])), 23,
            11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1031]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2290])), 5,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1033]),
            SCM_OBJ(&scm__rc.d1622[50]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2295])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1034]),
            SCM_OBJ(&scm__rc.d1622[50]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2299])), 23,
            11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1041]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2322])), 15,
            15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1047]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2337])), 10,
            11, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1053]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-output-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2347])), 14,
            14, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1058]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-input-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2361])), 9,
            10, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1064]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-string-io */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2370])), 20,
            16, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1069]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2390])), 5,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1075]),
            SCM_OBJ(&scm__rc.d1622[57]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-string-io */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2395])), 5,
            4, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1080]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2400])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1097]),
            SCM_OBJ(&scm__rc.d1622[59]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* write-to-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2404])), 35,
            16, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1102]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* read-from-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2439])), 18,
            10, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1108]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2457])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1111]),
            SCM_OBJ(&scm__rc.d1622[63]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2465])), 11,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1112]),
            SCM_OBJ(&scm__rc.d1622[63]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2476])), 31,
            19, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1118]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2507])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1121]),
            SCM_OBJ(&scm__rc.d1622[66]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2515])), 11,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1122]),
            SCM_OBJ(&scm__rc.d1622[66]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2526])), 31,
            19, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1127]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-error-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2557])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1130]),
            SCM_OBJ(&scm__rc.d1622[69]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-error-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2565])), 11,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1131]),
            SCM_OBJ(&scm__rc.d1622[69]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-error-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2576])), 31,
            19, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1136]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-ports */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2607])), 28,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1139]),
            SCM_OBJ(&scm__rc.d1622[72]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-ports */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2635])), 33,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1140]),
            SCM_OBJ(&scm__rc.d1622[72]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-ports */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2668])), 35,
            21, 4, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1148]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2703])), 7,
            10, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1157]),
            SCM_OBJ(&scm__rc.d1622[74]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2710])), 7,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2717])), 8,
            11, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1165]),
            SCM_OBJ(&scm__rc.d1622[76]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2725])), 7,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2732])), 7,
            11, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1170]),
            SCM_OBJ(&scm__rc.d1622[78]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2739])), 7,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2746])), 10,
            12, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1175]),
            SCM_OBJ(&scm__rc.d1622[80]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2756])), 7,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2763])), 10,
            12, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1614[1180]),
            SCM_OBJ(&scm__rc.d1622[82]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1621[2773])), 7,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
  },
  {   /* ScmWord d1621 */
    /* port-tell */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00000007    /*   1 (CONSTI-PUSH 0) */,
    0x00001007    /*   2 (CONSTI-PUSH 1) */,
    0x00003060    /*   3 (GREF-TAIL-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-seek.f0a828e0> */,
    0x00000014    /*   5 (RET) */,
    /* port-position-prefix */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port?.f0b0cd60> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 51),
    0x0000100e    /*   7 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 12),
    0x00000048    /*   9 (LREF0-PUSH) */,
    0x0000105f    /*  10 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-name.f0b0cc00> */,
    0x00001018    /*  12 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  13 (LREF0) */,
    0x0000001e    /*  14 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 50),
    0x0000100e    /*  16 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 21),
    0x0000004c    /*  18 (LREF10-PUSH) */,
    0x0000105f    /*  19 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-current-line.f0b0c9e0> */,
    0x00001018    /*  21 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  22 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 27),
    0x00000048    /*  24 (LREF0-PUSH) */,
    0x0000105f    /*  25 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#positive?.f0b0c920> */,
    0x0000001e    /*  27 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 40),
    0x0000400e    /*  29 (PRE-CALL 4) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 48),
    0x00000009    /*  31 (CONSTF-PUSH) */,
    0x00000006    /*  32 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[110])) /* "~s:line ~a: " */,
    0x0000004c    /*  34 (LREF10-PUSH) */,
    0x00000048    /*  35 (LREF0-PUSH) */,
    0x0000405f    /*  36 (GREF-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#format.f0b0c880> */,
    0x00000013    /*  38 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 48),
    0x0000300e    /*  40 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]) + 48),
    0x00000009    /*  42 (CONSTF-PUSH) */,
    0x00000006    /*  43 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[112])) /* "~s: " */,
    0x0000004c    /*  45 (LREF10-PUSH) */,
    0x0000305f    /*  46 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#format.f0b0c7a0> */,
    0x0000000a    /*  48 (CONST-RET) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[113])) /* "" */,
    0x0000000c    /*  50 (CONSTU-RET) */,
    0x0000000a    /*  51 (CONST-RET) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[114])) /* "???" */,
    /* (with-port-locking #f) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[59]) + 5),
    0x0000004a    /*   2 (LREF2-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-lock!.f08a1bc0> */,
    0x00000049    /*   5 (LREF1-PUSH) */,
    0x0000003d    /*   6 (LREF0) */,
    0x00002095    /*   7 (TAIL-APPLY 2) */,
    0x00000014    /*   8 (RET) */,
    /* (with-port-locking #f) */
    0x0000004a    /*   0 (LREF2-PUSH) */,
    0x00001060    /*   1 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-unlock!.f08a1a20> */,
    0x00000014    /*   3 (RET) */,
    /* with-port-locking */
    0x00000016    /*   0 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[2])) /* #<compiled-code (with-port-locking #f)@0x7fc3f0e4b7e0> */,
    0x0000000d    /*   2 (PUSH) */,
    0x00000016    /*   3 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[3])) /* #<compiled-code (with-port-locking #f)@0x7fc3f0e4b780> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000006    /*   6 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*   8 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[422])) /* ("libio.scm" 502) */,
    0x00004060    /*  10 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.f08a1da0> */,
    0x00000014    /*  12 (RET) */,
    /* (%with-2pass-setup #f) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 5),
    0x0000004b    /*   2 (LREF3-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-lock!.f0b6ee60> */,
    0x0000100e    /*   5 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 10),
    0x0000004b    /*   7 (LREF3-PUSH) */,
    0x0000105f    /*   8 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.f0b6edc0> */,
    0x0000001e    /*  10 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 21),
    0x0000200e    /*  12 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 21),
    0x00000006    /*  14 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[127])) /* "[internal] %with-2pass-setup called recursively on port:" */,
    0x0000004b    /*  16 (LREF3-PUSH) */,
    0x0000205f    /*  17 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.f0b6ed60> */,
    0x00000013    /*  19 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 21),
    0x0000200e    /*  21 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 42),
    0x0000004b    /*  23 (LREF3-PUSH) */,
    0x0000300e    /*  24 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 38),
    0x0000005e    /*  26 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<write-state>.f0b6eba0> */,
    0x00000006    /*  28 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :shared-table */,
    0x0000100e    /*  30 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 36),
    0x00000006    /*  32 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* eq? */,
    0x0000105f    /*  34 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-hash-table.f0b6eb20> */,
    0x00003062    /*  36 (PUSH-GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.f0b6ebe0> */,
    0x00000061    /*  38 (PUSH-GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.f0b6ec40> */,
    0x000000a1    /*  40 (SETTER) */,
    0x00002011    /*  41 (CALL 2) */,
    0x0000200e    /*  42 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 51),
    0x0000004b    /*  44 (LREF3-PUSH) */,
    0x00000006    /*  45 (CONST-PUSH) */,
    SCM_WORD(SCM_TRUE) /* #t */,
    0x0000005d    /*  47 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-walking?.f0b6e960> */,
    0x000000a1    /*  49 (SETTER) */,
    0x00002011    /*  50 (CALL 2) */,
    0x0000000e    /*  51 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 56),
    0x0000004a    /*  53 (LREF2-PUSH) */,
    0x0000003d    /*  54 (LREF0) */,
    0x00002095    /*  55 (TAIL-APPLY 2) */,
    0x0000200e    /*  56 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]) + 64),
    0x0000004b    /*  58 (LREF3-PUSH) */,
    0x00000009    /*  59 (CONSTF-PUSH) */,
    0x0000005d    /*  60 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-walking?.f0b6e7e0> */,
    0x000000a1    /*  62 (SETTER) */,
    0x00002011    /*  63 (CALL 2) */,
    0x00000049    /*  64 (LREF1-PUSH) */,
    0x0000003d    /*  65 (LREF0) */,
    0x00002095    /*  66 (TAIL-APPLY 2) */,
    0x00000014    /*  67 (RET) */,
    /* (%with-2pass-setup #f) */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[153]) + 8),
    0x0000004b    /*   2 (LREF3-PUSH) */,
    0x00000009    /*   3 (CONSTF-PUSH) */,
    0x0000005d    /*   4 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-walking?.f0b6e580> */,
    0x000000a1    /*   6 (SETTER) */,
    0x00002011    /*   7 (CALL 2) */,
    0x0000200e    /*   8 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[153]) + 16),
    0x0000004b    /*  10 (LREF3-PUSH) */,
    0x00000009    /*  11 (CONSTF-PUSH) */,
    0x0000005d    /*  12 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.f0b6e4a0> */,
    0x000000a1    /*  14 (SETTER) */,
    0x00002011    /*  15 (CALL 2) */,
    0x0000004b    /*  16 (LREF3-PUSH) */,
    0x00001060    /*  17 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-unlock!.f0b6e420> */,
    0x00000014    /*  19 (RET) */,
    /* %with-2pass-setup */
    0x00000016    /*   0 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[5])) /* #<compiled-code (%with-2pass-setup #f)@0x7fc3f0e4b420> */,
    0x0000000d    /*   2 (PUSH) */,
    0x00000016    /*   3 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[6])) /* #<compiled-code (%with-2pass-setup #f)@0x7fc3f0e4b360> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000006    /*   6 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*   8 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[434])) /* ("libio.scm" 513) */,
    0x00004060    /*  10 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.f0b60020> */,
    0x00000014    /*  12 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-ready?.f0bd4420> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#u8-ready?.f0bd44c0> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.f2534c40> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-u8.f25325a0> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-byte.f14c1500> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-u8.f14c1680> */,
    0x00000014    /*   4 (RET) */,
    /* read-string */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 6),
    0x000000de    /*   3 (CURIN) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 7),
    0x0000006a    /*   6 (LREF0-CAR) */,
    0x0000000d    /*   7 (PUSH) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000022    /*   9 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 14),
    0x00000003    /*  11 (CONSTN) */,
    0x00000013    /*  12 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 15),
    0x00000076    /*  14 (LREF0-CDR) */,
    0x00002018    /*  15 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  16 (LREF0) */,
    0x00000022    /*  17 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 21),
    0x00000013    /*  19 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 29),
    0x0000200e    /*  21 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 29),
    0x00000006    /*  23 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[151])) /* "too many arguments for" */,
    0x00000006    /*  25 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[579])) /* (lambda (n :optional (port (current-input-port))) (define o (open-output-string :private? #t)) (let loop ((i 0)) (if (>= i n) (get-output-string o) (let1 c (read-char port) (if (eof-object? c) (if (= i 0) (eof-object) (get-output-string o)) (begin (write-char c o) (loop (+ i 1)))))))) */,
    0x0000205f    /*  27 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.f0d221c0> */,
    0x00001019    /*  29 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[580])) /* (#<undef>) */,
    0x0000200e    /*  31 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 39),
    0x00000006    /*  33 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :private? */,
    0x00000006    /*  35 (CONST-PUSH) */,
    SCM_WORD(SCM_TRUE) /* #t */,
    0x0000205f    /*  37 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.f0d27ea0> */,
    0x000000e8    /*  39 (ENV-SET 0) */,
    0x00000007    /*  40 (CONSTI-PUSH 0) */,
    0x00001017    /*  41 (LOCAL-ENV 1) */,
    0x0040303c    /*  42 (LREF 3 1) */,
    0x0000002c    /*  43 (LREF-VAL0-BNGE 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 49),
    0x0000004c    /*  45 (LREF10-PUSH) */,
    0x00001060    /*  46 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.f0d27d20> */,
    0x00000014    /*  48 (RET) */,
    0x00000045    /*  49 (LREF21) */,
    0x000010db    /*  50 (READ-CHAR 1) */,
    0x00001018    /*  51 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  52 (LREF0) */,
    0x0000009a    /*  53 (EOFP) */,
    0x0000001e    /*  54 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 65),
    0x00000041    /*  56 (LREF10) */,
    0x0000002d    /*  57 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 61),
    0x0000000a    /*  59 (CONST-RET) */,
    SCM_WORD(SCM_EOF) /* #<eof> */,
    0x0000004f    /*  61 (LREF20-PUSH) */,
    0x00001060    /*  62 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.f0d27680> */,
    0x00000014    /*  64 (RET) */,
    0x00000048    /*  65 (LREF0-PUSH) */,
    0x00000044    /*  66 (LREF20) */,
    0x000020dd    /*  67 (WRITE-CHAR 2) */,
    0x000010cb    /*  68 (LREF10-NUMADDI-PUSH 1) */,
    0x0000201b    /*  69 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]) + 42),
    0x00000014    /*  71 (RET) */,
    0x00000014    /*  72 (RET) */,
    /* write-string */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 6),
    0x000000df    /*   3 (CUROUT) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 7),
    0x0000006a    /*   6 (LREF0-CAR) */,
    0x0000000d    /*   7 (PUSH) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000022    /*   9 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 14),
    0x00000003    /*  11 (CONSTN) */,
    0x00000013    /*  12 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 15),
    0x00000076    /*  14 (LREF0-CDR) */,
    0x00002018    /*  15 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  16 (LREF0) */,
    0x00000022    /*  17 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 22),
    0x00000002    /*  19 (CONSTI 0) */,
    0x00000013    /*  20 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 23),
    0x0000006a    /*  22 (LREF0-CAR) */,
    0x0000000d    /*  23 (PUSH) */,
    0x0000003d    /*  24 (LREF0) */,
    0x00000022    /*  25 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 30),
    0x00000003    /*  27 (CONSTN) */,
    0x00000013    /*  28 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 31),
    0x00000076    /*  30 (LREF0-CDR) */,
    0x00002018    /*  31 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  32 (LREF0) */,
    0x00000022    /*  33 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 38),
    -0x00000ffe   /*  35 (CONSTI -1) */,
    0x00000013    /*  36 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 39),
    0x0000006a    /*  38 (LREF0-CAR) */,
    0x0000000d    /*  39 (PUSH) */,
    0x0000003d    /*  40 (LREF0) */,
    0x00000022    /*  41 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 46),
    0x00000003    /*  43 (CONSTN) */,
    0x00000013    /*  44 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 47),
    0x00000076    /*  46 (LREF0-CDR) */,
    0x00002018    /*  47 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  48 (LREF0) */,
    0x00000022    /*  49 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 53),
    0x00000013    /*  51 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 61),
    0x0000200e    /*  53 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 61),
    0x00000006    /*  55 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[151])) /* "too many arguments for" */,
    0x00000006    /*  57 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[607])) /* (lambda (string :optional (port (current-output-port)) (start 0) (end -1)) (display ((with-module gauche.internal %maybe-substring) string start end) port)) */,
    0x0000205f    /*  59 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.f32512e0> */,
    0x0000300e    /*  61 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]) + 68),
    0x00403047    /*  63 (LREF-PUSH 3 1) */,
    0x0000004d    /*  64 (LREF11-PUSH) */,
    0x00000049    /*  65 (LREF1-PUSH) */,
    0x0000305f    /*  66 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%maybe-substring.f24fce80> */,
    0x0000000d    /*  68 (PUSH) */,
    0x00000050    /*  69 (LREF21-PUSH) */,
    0x00002060    /*  70 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.f24fcee0> */,
    0x00000014    /*  72 (RET) */,
    /* consume-trailing-whitespaces */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 6),
    0x000000de    /*   3 (CURIN) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 7),
    0x0000006a    /*   6 (LREF0-CAR) */,
    0x0000000d    /*   7 (PUSH) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000022    /*   9 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 14),
    0x00000003    /*  11 (CONSTN) */,
    0x00000013    /*  12 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 15),
    0x00000076    /*  14 (LREF0-CDR) */,
    0x00002018    /*  15 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  16 (LREF0) */,
    0x00000022    /*  17 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 21),
    0x00000013    /*  19 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 29),
    0x0000200e    /*  21 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 29),
    0x00000006    /*  23 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[151])) /* "too many arguments for" */,
    0x00000006    /*  25 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[662])) /* (lambda (:optional (port (current-input-port))) (let loop () (when (byte-ready? port) (let1 b (peek-byte port) (cond ((memv b '(9 32)) (read-byte port) (loop)) ((eqv? b 13) (read-byte port) (when (and (byte-ready? port) (eqv? (peek-byte port) 10)) (read-byte port))) ((eqv? b 10) (read-byte port))))))) */,
    0x0000205f    /*  27 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.f0f11660> */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-ready?.f080a920> */,
    0x0000001e    /*  34 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 95),
    0x0000100e    /*  36 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 41),
    0x00000049    /*  38 (LREF1-PUSH) */,
    0x0000105f    /*  39 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-byte.f080a720> */,
    0x00001018    /*  41 (PUSH-LOCAL-ENV 1) */,
    0x00000048    /*  42 (LREF0-PUSH) */,
    0x00000001    /*  43 (CONST) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[616])) /* (9 32) */,
    0x0000008c    /*  45 (MEMV) */,
    0x0000001e    /*  46 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 56),
    0x0000100e    /*  48 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 53),
    0x0000004d    /*  50 (LREF11-PUSH) */,
    0x0000105f    /*  51 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.f080a2c0> */,
    0x0000101b    /*  53 (LOCAL-ENV-JUMP 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 29),
    0x00000014    /*  55 (RET) */,
    0x0000003d    /*  56 (LREF0) */,
    0x0000002f    /*  57 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(13U)) /* 13 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 86)  /*     86 */,
    0x0000100e    /*  60 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 65),
    0x0000004d    /*  62 (LREF11-PUSH) */,
    0x0000105f    /*  63 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.f080fec0> */,
    0x0000100e    /*  65 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 70),
    0x0000004d    /*  67 (LREF11-PUSH) */,
    0x0000105f    /*  68 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-ready?.f080fc60> */,
    0x0000001e    /*  70 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 85),
    0x0000100e    /*  72 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 77),
    0x0000004d    /*  74 (LREF11-PUSH) */,
    0x0000105f    /*  75 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-byte.f080faa0> */,
    0x0000002f    /*  77 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(10U)) /* 10 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 84)  /*     84 */,
    0x0000004d    /*  80 (LREF11-PUSH) */,
    0x00001060    /*  81 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.f080f940> */,
    0x00000014    /*  83 (RET) */,
    0x0000000c    /*  84 (CONSTU-RET) */,
    0x0000000c    /*  85 (CONSTU-RET) */,
    0x0000003d    /*  86 (LREF0) */,
    0x0000002f    /*  87 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(10U)) /* 10 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]) + 94)  /*     94 */,
    0x0000004d    /*  90 (LREF11-PUSH) */,
    0x00001060    /*  91 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.f080f580> */,
    0x00000014    /*  93 (RET) */,
    0x0000000c    /*  94 (CONSTU-RET) */,
    0x0000000c    /*  95 (CONSTU-RET) */,
    0x00000014    /*  96 (RET) */,
    /* port->string */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[444]) + 8),
    0x00000006    /*   2 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :private? */,
    0x00000006    /*   4 (CONST-PUSH) */,
    SCM_WORD(SCM_TRUE) /* #t */,
    0x0000205f    /*   6 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.f0a595a0> */,
    0x00001018    /*   8 (PUSH-LOCAL-ENV 1) */,
    0x0000400e    /*   9 (PRE-CALL 4) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[444]) + 19),
    0x0000004c    /*  11 (LREF10-PUSH) */,
    0x00000048    /*  12 (LREF0-PUSH) */,
    0x00000006    /*  13 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :unit */,
    0x00000006    /*  15 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* byte */,
    0x0000405f    /*  17 (GREF-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#copy-port.f0a59260> */,
    0x00000048    /*  19 (LREF0-PUSH) */,
    0x00001060    /*  20 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.f0a5dde0> */,
    0x00000014    /*  22 (RET) */,
    /* (port->list #f) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[467]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000003e    /*   3 (LREF1) */,
    0x00001011    /*   4 (CALL 1) */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000008    /*   6 (CONSTN-PUSH) */,
    0x00002017    /*   7 (LOCAL-ENV 2) */,
    0x0000003e    /*   8 (LREF1) */,
    0x0000009a    /*   9 (EOFP) */,
    0x0000001e    /*  10 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[467]) + 16),
    0x00000048    /*  12 (LREF0-PUSH) */,
    0x00001060    /*  13 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#reverse!.f0bb3f00> */,
    0x00000014    /*  15 (RET) */,
    0x0000100e    /*  16 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[467]) + 21),
    0x0000004c    /*  18 (LREF10-PUSH) */,
    0x00000042    /*  19 (LREF11) */,
    0x00001011    /*  20 (CALL 1) */,
    0x0000000d    /*  21 (PUSH) */,
    0x00000049    /*  22 (LREF1-PUSH) */,
    0x0000003d    /*  23 (LREF0) */,
    0x00000067    /*  24 (CONS-PUSH) */,
    0x0000101b    /*  25 (LOCAL-ENV-JUMP 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[467]) + 8),
    0x00000014    /*  27 (RET) */,
    0x00000014    /*  28 (RET) */,
    /* port->list */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00000016    /*   1 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[15])) /* #<compiled-code (port->list #f)@0x7fc3f0e83cc0> */,
    0x00002063    /*   3 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-port-locking.f0ba91a0> */,
    0x00000014    /*   5 (RET) */,
    /* (port->string-list G1650) */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00000006    /*   1 (CONST-PUSH) */,
    SCM_WORD(SCM_TRUE) /* #t */,
    0x00002060    /*   3 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-line.f14f9e20> */,
    0x00000014    /*   5 (RET) */,
    /* port->string-list */
    0x0000004c    /*   0 (LREF10-PUSH) */,
    0x00000048    /*   1 (LREF0-PUSH) */,
    0x00002060    /*   2 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port->list.f14f8b20> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[719])) /* (#<compiled-code (port->string-list #:G1650)@0x7fc3f0e83a80>) */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[18])) /* #<compiled-code port->string-list@0x7fc3f0e83960> */,
    0x00000015    /*   4 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port->string-list.f14f8c60> */,
    0x00000014    /*   6 (RET) */,
    /* port->sexp-list */
    0x0000005e    /*   0 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.f0d69da0> */,
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x00002060    /*   3 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port->list.f0d69de0> */,
    0x00000014    /*   5 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.f0d8cb20> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#read-with-shared-structure.f0d89060> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.f0856e00> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#read/ss.f0856ee0> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-byte.f0d421c0> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-u8.f0d42260> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-shared.f08a5b60> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write*.f08a5c00> */,
    0x00000014    /*   4 (RET) */,
    /* write-walk */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[546]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.f04ad920> */,
    0x00001018    /*   5 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   6 (LREF0) */,
    0x0000001e    /*   7 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[546]) + 21),
    0x0000004d    /*   9 (LREF11-PUSH) */,
    0x0000004c    /*  10 (LREF10-PUSH) */,
    0x0000200e    /*  11 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[546]) + 18),
    0x00000048    /*  13 (LREF0-PUSH) */,
    0x0000005e    /*  14 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#shared-table.f04ad740> */,
    0x0000205f    /*  16 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#~.f04ad800> */,
    0x00003063    /*  18 (PUSH-GREF-TAIL-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.f04ad8a0> */,
    0x00000014    /*  20 (RET) */,
    0x0000000c    /*  21 (CONSTU-RET) */,
    /* (%write-walk-rec G1656) */
    0x000010bd    /*   0 (LREF0-NUMADDI 1) */,
    0x00000014    /*   1 (RET) */,
    /* %write-walk-rec */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 5),
    0x0000004a    /*   2 (LREF2-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-need-recurse?.f2514700> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 165),
    0x0000200e    /*   7 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 13),
    0x00000048    /*   9 (LREF0-PUSH) */,
    0x0000004a    /*  10 (LREF2-PUSH) */,
    0x0000205f    /*  11 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-exists?.f2514680> */,
    0x0000001e    /*  13 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 21),
    0x00000048    /*  15 (LREF0-PUSH) */,
    0x0000004a    /*  16 (LREF2-PUSH) */,
    0x0000004c    /*  17 (LREF10-PUSH) */,
    0x00003060    /*  18 (GREF-TAIL-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-update!.f25145e0> */,
    0x00000014    /*  20 (RET) */,
    0x0000300e    /*  21 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 28),
    0x00000048    /*  23 (LREF0-PUSH) */,
    0x0000004a    /*  24 (LREF2-PUSH) */,
    0x00001007    /*  25 (CONSTI-PUSH 1) */,
    0x0000305f    /*  26 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-put!.f2522880> */,
    0x0000003f    /*  28 (LREF2) */,
    0x0000009c    /*  29 (SYMBOLP) */,
    0x0000001e    /*  30 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 34),
    0x00000013    /*  32 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 141),
    0x0000003f    /*  34 (LREF2) */,
    0x0000009b    /*  35 (STRINGP) */,
    0x0000001e    /*  36 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 40),
    0x00000013    /*  38 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 141),
    0x0000003f    /*  40 (LREF2) */,
    0x00000098    /*  41 (PAIRP) */,
    0x0000001e    /*  42 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 62),
    0x0000300e    /*  44 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 52),
    0x0000006c    /*  46 (LREF2-CAR) */,
    0x0000000d    /*  47 (PUSH) */,
    0x00000049    /*  48 (LREF1-PUSH) */,
    0x00000048    /*  49 (LREF0-PUSH) */,
    0x0000305f    /*  50 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.f2522220> */,
    0x0000300e    /*  52 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 141),
    0x00000078    /*  54 (LREF2-CDR) */,
    0x0000000d    /*  55 (PUSH) */,
    0x00000049    /*  56 (LREF1-PUSH) */,
    0x00000048    /*  57 (LREF0-PUSH) */,
    0x0000305f    /*  58 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.f2522140> */,
    0x00000013    /*  60 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 141),
    0x0000003f    /*  62 (LREF2) */,
    0x0000009d    /*  63 (VECTORP) */,
    0x0000001e    /*  64 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 94),
    0x0000200e    /*  66 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 141),
    0x0000003f    /*  68 (LREF2) */,
    0x000000a7    /*  69 (VEC-LEN) */,
    0x0000000d    /*  70 (PUSH) */,
    0x00000007    /*  71 (CONSTI-PUSH 0) */,
    0x00002017    /*  72 (LOCAL-ENV 2) */,
    0x0000003e    /*  73 (LREF1) */,
    0x0000002c    /*  74 (LREF-VAL0-BNGE 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 77),
    0x0000000c    /*  76 (CONSTU-RET) */,
    0x0000300e    /*  77 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 87),
    0x0000004e    /*  79 (LREF12-PUSH) */,
    0x0000003d    /*  80 (LREF0) */,
    0x000000a8    /*  81 (VEC-REF) */,
    0x0000000d    /*  82 (PUSH) */,
    0x0000004d    /*  83 (LREF11-PUSH) */,
    0x0000004c    /*  84 (LREF10-PUSH) */,
    0x0000305f    /*  85 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.f25273c0> */,
    0x00000049    /*  87 (LREF1-PUSH) */,
    0x000010c7    /*  88 (LREF0-NUMADDI-PUSH 1) */,
    0x0000101b    /*  89 (LOCAL-ENV-JUMP 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 73),
    0x00000014    /*  91 (RET) */,
    0x00000013    /*  92 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 141),
    0x0000100e    /*  94 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 99),
    0x0000004a    /*  96 (LREF2-PUSH) */,
    0x0000105f    /*  97 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#box?.f252edc0> */,
    0x0000001e    /*  99 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 135),
    0x0000200e    /* 101 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 141),
    0x0000100e    /* 103 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 108),
    0x0000004a    /* 105 (LREF2-PUSH) */,
    0x0000105f    /* 106 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#box-arity.f2532960> */,
    0x0000000d    /* 108 (PUSH) */,
    0x00000007    /* 109 (CONSTI-PUSH 0) */,
    0x00002017    /* 110 (LOCAL-ENV 2) */,
    0x0000003e    /* 111 (LREF1) */,
    0x0000002c    /* 112 (LREF-VAL0-BNGE 0 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 115),
    0x0000000c    /* 114 (CONSTU-RET) */,
    0x0000300e    /* 115 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 128),
    0x0000200e    /* 117 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 123),
    0x0000004e    /* 119 (LREF12-PUSH) */,
    0x00000048    /* 120 (LREF0-PUSH) */,
    0x0000205f    /* 121 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#unbox-value.f2532e40> */,
    0x0000000d    /* 123 (PUSH) */,
    0x0000004d    /* 124 (LREF11-PUSH) */,
    0x0000004c    /* 125 (LREF10-PUSH) */,
    0x0000305f    /* 126 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.f2532ee0> */,
    0x00000049    /* 128 (LREF1-PUSH) */,
    0x000010c7    /* 129 (LREF0-NUMADDI-PUSH 1) */,
    0x0000101b    /* 130 (LOCAL-ENV-JUMP 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 111),
    0x00000014    /* 132 (RET) */,
    0x00000013    /* 133 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 141),
    0x0000200e    /* 135 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 141),
    0x0000004a    /* 137 (LREF2-PUSH) */,
    0x00000049    /* 138 (LREF1-PUSH) */,
    0x0000205f    /* 139 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-object.f2534d60> */,
    0x0000100e    /* 141 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 146),
    0x00000049    /* 143 (LREF1-PUSH) */,
    0x0000105f    /* 144 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-writing-shared?.f2534b20> */,
    0x0000001e    /* 146 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 149),
    0x0000000c    /* 148 (CONSTU-RET) */,
    0x0000300e    /* 149 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 156),
    0x00000048    /* 151 (LREF0-PUSH) */,
    0x0000004a    /* 152 (LREF2-PUSH) */,
    0x00000009    /* 153 (CONSTF-PUSH) */,
    0x0000305f    /* 154 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-get.f2534a20> */,
    0x0000002f    /* 156 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(1U)) /* 1 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]) + 164)  /*    164 */,
    0x00000048    /* 159 (LREF0-PUSH) */,
    0x0000004a    /* 160 (LREF2-PUSH) */,
    0x00002060    /* 161 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-delete!.f2534900> */,
    0x00000014    /* 163 (RET) */,
    0x0000000c    /* 164 (CONSTU-RET) */,
    0x0000000c    /* 165 (CONSTU-RET) */,
    /* %toplevel */
    0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[926])) /* (#<compiled-code (%write-walk-rec #:G1656)@0x7fc3f0e83900>) */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[27])) /* #<compiled-code %write-walk-rec@0x7fc3f0e838a0> */,
    0x00000015    /*   4 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.f2514980> */,
    0x00000014    /*   6 (RET) */,
    /* write-with-shared-structure */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[743]) + 6),
    0x000000df    /*   3 (CUROUT) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[743]) + 7),
    0x0000006a    /*   6 (LREF0-CAR) */,
    0x0000000d    /*   7 (PUSH) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000022    /*   9 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[743]) + 14),
    0x00000003    /*  11 (CONSTN) */,
    0x00000013    /*  12 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[743]) + 15),
    0x00000076    /*  14 (LREF0-CDR) */,
    0x00002018    /*  15 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  16 (LREF0) */,
    0x00000022    /*  17 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[743]) + 21),
    0x00000013    /*  19 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[743]) + 29),
    0x0000200e    /*  21 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[743]) + 29),
    0x00000006    /*  23 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[151])) /* "too many arguments for" */,
    0x00000006    /*  25 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[941])) /* (lambda (obj :optional (port (current-output-port))) (write* obj port)) */,
    0x0000205f    /*  27 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.f0d6f8a0> */,
    0x0000004d    /*  29 (LREF11-PUSH) */,
    0x00000049    /*  30 (LREF1-PUSH) */,
    0x00002060    /*  31 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write*.f0d71300> */,
    0x00000014    /*  33 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-with-shared-structure.f24fc3a0> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#write/ss.f24fc480> */,
    0x00000014    /*   4 (RET) */,
    /* print */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[782]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.f1405740> */,
    0x00000048    /*   4 (LREF0-PUSH) */,
    0x0000205f    /*   5 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#for-each.f14057e0> */,
    0x00000060    /*   7 (GREF-TAIL-CALL 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#newline.f14056c0> */,
    0x00000014    /*   9 (RET) */,
    /* make-write-controls */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00000005    /*   1 (CONSTU) */,
    0x0000000d    /*   2 (PUSH) */,
    0x00000005    /*   3 (CONSTU) */,
    0x0000000d    /*   4 (PUSH) */,
    0x00000005    /*   5 (CONSTU) */,
    0x0000000d    /*   6 (PUSH) */,
    0x00000005    /*   7 (CONSTU) */,
    0x0000000d    /*   8 (PUSH) */,
    0x00000005    /*   9 (CONSTU) */,
    0x0000000d    /*  10 (PUSH) */,
    0x00000005    /*  11 (CONSTU) */,
    0x0000000d    /*  12 (PUSH) */,
    0x00000005    /*  13 (CONSTU) */,
    0x0000000d    /*  14 (PUSH) */,
    0x00000005    /*  15 (CONSTU) */,
    0x0000000d    /*  16 (PUSH) */,
    0x00000005    /*  17 (CONSTU) */,
    0x0000000d    /*  18 (PUSH) */,
    0x00000005    /*  19 (CONSTU) */,
    0x0000000d    /*  20 (PUSH) */,
    0x00000005    /*  21 (CONSTU) */,
    0x0000000d    /*  22 (PUSH) */,
    0x00000005    /*  23 (CONSTU) */,
    0x0000d018    /*  24 (PUSH-LOCAL-ENV 13) */,
    0x0300003c    /*  25 (LREF 0 12) */,
    0x00000022    /*  26 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 260),
    0x0000100e    /*  28 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 33),
    0x02c00047    /*  30 (LREF-PUSH 0 11) */,
    0x0000105f    /*  31 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /*  33 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 38),
    0x00000005    /*  35 (CONSTU) */,
    0x00000013    /*  36 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 39),
    0x02c0003c    /*  38 (LREF 0 11) */,
    0x00001018    /*  39 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  40 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 45),
    0x02801047    /*  42 (LREF-PUSH 1 10) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /*  45 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 50),
    0x00000005    /*  47 (CONSTU) */,
    0x00000013    /*  48 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 51),
    0x0280103c    /*  50 (LREF 1 10) */,
    0x00001018    /*  51 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  52 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 57),
    0x02402047    /*  54 (LREF-PUSH 2 9) */,
    0x0000105f    /*  55 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /*  57 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 62),
    0x00000005    /*  59 (CONSTU) */,
    0x00000013    /*  60 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 63),
    0x0240203c    /*  62 (LREF 2 9) */,
    0x00001018    /*  63 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  64 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 69),
    0x02003047    /*  66 (LREF-PUSH 3 8) */,
    0x0000105f    /*  67 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /*  69 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 74),
    0x00000005    /*  71 (CONSTU) */,
    0x00000013    /*  72 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 75),
    0x0200303c    /*  74 (LREF 3 8) */,
    0x00001018    /*  75 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  76 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 81),
    0x01c04047    /*  78 (LREF-PUSH 4 7) */,
    0x0000105f    /*  79 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /*  81 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 86),
    0x00000005    /*  83 (CONSTU) */,
    0x00000013    /*  84 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 87),
    0x01c0403c    /*  86 (LREF 4 7) */,
    0x00001018    /*  87 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  88 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 93),
    0x01805047    /*  90 (LREF-PUSH 5 6) */,
    0x0000105f    /*  91 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /*  93 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 98),
    0x00000005    /*  95 (CONSTU) */,
    0x00000013    /*  96 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 99),
    0x0180503c    /*  98 (LREF 5 6) */,
    0x00001018    /*  99 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 100 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 105),
    0x01406047    /* 102 (LREF-PUSH 6 5) */,
    0x0000105f    /* 103 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /* 105 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 110),
    0x00000005    /* 107 (CONSTU) */,
    0x00000013    /* 108 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 111),
    0x0140603c    /* 110 (LREF 6 5) */,
    0x00001018    /* 111 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 112 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 117),
    0x01007047    /* 114 (LREF-PUSH 7 4) */,
    0x0000105f    /* 115 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /* 117 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 122),
    0x00000005    /* 119 (CONSTU) */,
    0x00000013    /* 120 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 123),
    0x0100703c    /* 122 (LREF 7 4) */,
    0x00001018    /* 123 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 124 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 129),
    0x00c08047    /* 126 (LREF-PUSH 8 3) */,
    0x0000105f    /* 127 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /* 129 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 134),
    0x00000005    /* 131 (CONSTU) */,
    0x00000013    /* 132 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 135),
    0x00c0803c    /* 134 (LREF 8 3) */,
    0x00001018    /* 135 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 136 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 141),
    0x00809047    /* 138 (LREF-PUSH 9 2) */,
    0x0000105f    /* 139 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /* 141 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 146),
    0x00000005    /* 143 (CONSTU) */,
    0x00000013    /* 144 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 147),
    0x0080903c    /* 146 (LREF 9 2) */,
    0x00001018    /* 147 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 148 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 153),
    0x0040a047    /* 150 (LREF-PUSH 10 1) */,
    0x0000105f    /* 151 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /* 153 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 158),
    0x00000005    /* 155 (CONSTU) */,
    0x00000013    /* 156 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 159),
    0x0040a03c    /* 158 (LREF 10 1) */,
    0x00001018    /* 159 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 160 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 165),
    0x0000b047    /* 162 (LREF-PUSH 11 0) */,
    0x0000105f    /* 163 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0d2bfc0> */,
    0x0000001e    /* 165 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 170),
    0x00000005    /* 167 (CONSTU) */,
    0x00000013    /* 168 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 171),
    0x0000b03c    /* 170 (LREF 11 0) */,
    0x00001018    /* 171 (PUSH-LOCAL-ENV 1) */,
    0x0000005e    /* 172 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<write-controls>.f0d2d120> */,
    0x00000006    /* 174 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :length */,
    0x0000100e    /* 176 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 181),
    0x00005047    /* 178 (LREF-PUSH 5 0) */,
    0x0000105f    /* 179 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0d2d200> */,
    0x0000001e    /* 181 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 186),
    0x0000b03c    /* 183 (LREF 11 0) */,
    0x00000013    /* 184 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 187),
    0x0000503c    /* 186 (LREF 5 0) */,
    0x0000000d    /* 187 (PUSH) */,
    0x00000006    /* 188 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :level */,
    0x0000100e    /* 190 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 195),
    0x00004047    /* 192 (LREF-PUSH 4 0) */,
    0x0000105f    /* 193 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0d2d200> */,
    0x0000001e    /* 195 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 200),
    0x0000a03c    /* 197 (LREF 10 0) */,
    0x00000013    /* 198 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 201),
    0x0000403c    /* 200 (LREF 4 0) */,
    0x0000000d    /* 201 (PUSH) */,
    0x00000006    /* 202 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :width */,
    0x0000100e    /* 204 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 209),
    0x00000051    /* 206 (LREF30-PUSH) */,
    0x0000105f    /* 207 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0d2d200> */,
    0x0000001e    /* 209 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 214),
    0x0000903c    /* 211 (LREF 9 0) */,
    0x00000013    /* 212 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 215),
    0x00000046    /* 214 (LREF30) */,
    0x0000000d    /* 215 (PUSH) */,
    0x00000006    /* 216 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :base */,
    0x0000100e    /* 218 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 223),
    0x0000004f    /* 220 (LREF20-PUSH) */,
    0x0000105f    /* 221 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0d2d200> */,
    0x0000001e    /* 223 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 228),
    0x0000803c    /* 225 (LREF 8 0) */,
    0x00000013    /* 226 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 229),
    0x00000044    /* 228 (LREF20) */,
    0x0000000d    /* 229 (PUSH) */,
    0x00000006    /* 230 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :radix */,
    0x0000100e    /* 232 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 237),
    0x0000004c    /* 234 (LREF10-PUSH) */,
    0x0000105f    /* 235 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0d2d200> */,
    0x0000001e    /* 237 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 242),
    0x0000703c    /* 239 (LREF 7 0) */,
    0x00000013    /* 240 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 243),
    0x00000041    /* 242 (LREF10) */,
    0x0000000d    /* 243 (PUSH) */,
    0x00000006    /* 244 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :pretty */,
    0x0000100e    /* 246 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 251),
    0x00000048    /* 248 (LREF0-PUSH) */,
    0x0000105f    /* 249 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0d2d200> */,
    0x0000001e    /* 251 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 256),
    0x0000603c    /* 253 (LREF 6 0) */,
    0x00000013    /* 254 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 257),
    0x0000003d    /* 256 (LREF0) */,
    0x0000d063    /* 257 (PUSH-GREF-TAIL-CALL 13) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.f0d2d160> */,
    0x00000014    /* 259 (RET) */,
    0x0300003c    /* 260 (LREF 0 12) */,
    0x00000074    /* 261 (CDR) */,
    0x00000022    /* 262 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 270),
    0x00000006    /* 264 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[260])) /* "keyword list not even" */,
    0x03000047    /* 266 (LREF-PUSH 0 12) */,
    0x00002060    /* 267 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#error.f0d2bf80> */,
    0x00000014    /* 269 (RET) */,
    0x0000100e    /* 270 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 276),
    0x0300003c    /* 272 (LREF 0 12) */,
    0x00000069    /* 273 (CAR-PUSH) */,
    0x0000105f    /* 274 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#unwrap-syntax-1.f0d2bf20> */,
    0x00001018    /* 276 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /* 277 (LREF0) */,
    0x0000002e    /* 278 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :length */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 299)  /*    299 */,
    0x0300103c    /* 281 (LREF 1 12) */,
    0x00000087    /* 282 (CDDR-PUSH) */,
    0x0300103c    /* 283 (LREF 1 12) */,
    0x00000083    /* 284 (CADR-PUSH) */,
    0x02801047    /* 285 (LREF-PUSH 1 10) */,
    0x02401047    /* 286 (LREF-PUSH 1 9) */,
    0x02001047    /* 287 (LREF-PUSH 1 8) */,
    0x01c01047    /* 288 (LREF-PUSH 1 7) */,
    0x01801047    /* 289 (LREF-PUSH 1 6) */,
    0x01401047    /* 290 (LREF-PUSH 1 5) */,
    0x01001047    /* 291 (LREF-PUSH 1 4) */,
    0x00c01047    /* 292 (LREF-PUSH 1 3) */,
    0x0000004e    /* 293 (LREF12-PUSH) */,
    0x0000004d    /* 294 (LREF11-PUSH) */,
    0x0000004c    /* 295 (LREF10-PUSH) */,
    0x0000201b    /* 296 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 298 (RET) */,
    0x0000003d    /* 299 (LREF0) */,
    0x0000002e    /* 300 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :level */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 321)  /*    321 */,
    0x0300103c    /* 303 (LREF 1 12) */,
    0x00000087    /* 304 (CDDR-PUSH) */,
    0x02c01047    /* 305 (LREF-PUSH 1 11) */,
    0x0300103c    /* 306 (LREF 1 12) */,
    0x00000083    /* 307 (CADR-PUSH) */,
    0x02401047    /* 308 (LREF-PUSH 1 9) */,
    0x02001047    /* 309 (LREF-PUSH 1 8) */,
    0x01c01047    /* 310 (LREF-PUSH 1 7) */,
    0x01801047    /* 311 (LREF-PUSH 1 6) */,
    0x01401047    /* 312 (LREF-PUSH 1 5) */,
    0x01001047    /* 313 (LREF-PUSH 1 4) */,
    0x00c01047    /* 314 (LREF-PUSH 1 3) */,
    0x0000004e    /* 315 (LREF12-PUSH) */,
    0x0000004d    /* 316 (LREF11-PUSH) */,
    0x0000004c    /* 317 (LREF10-PUSH) */,
    0x0000201b    /* 318 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 320 (RET) */,
    0x0000003d    /* 321 (LREF0) */,
    0x0000002e    /* 322 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :width */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 343)  /*    343 */,
    0x0300103c    /* 325 (LREF 1 12) */,
    0x00000087    /* 326 (CDDR-PUSH) */,
    0x02c01047    /* 327 (LREF-PUSH 1 11) */,
    0x02801047    /* 328 (LREF-PUSH 1 10) */,
    0x0300103c    /* 329 (LREF 1 12) */,
    0x00000083    /* 330 (CADR-PUSH) */,
    0x02001047    /* 331 (LREF-PUSH 1 8) */,
    0x01c01047    /* 332 (LREF-PUSH 1 7) */,
    0x01801047    /* 333 (LREF-PUSH 1 6) */,
    0x01401047    /* 334 (LREF-PUSH 1 5) */,
    0x01001047    /* 335 (LREF-PUSH 1 4) */,
    0x00c01047    /* 336 (LREF-PUSH 1 3) */,
    0x0000004e    /* 337 (LREF12-PUSH) */,
    0x0000004d    /* 338 (LREF11-PUSH) */,
    0x0000004c    /* 339 (LREF10-PUSH) */,
    0x0000201b    /* 340 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 342 (RET) */,
    0x0000003d    /* 343 (LREF0) */,
    0x0000002e    /* 344 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :base */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 365)  /*    365 */,
    0x0300103c    /* 347 (LREF 1 12) */,
    0x00000087    /* 348 (CDDR-PUSH) */,
    0x02c01047    /* 349 (LREF-PUSH 1 11) */,
    0x02801047    /* 350 (LREF-PUSH 1 10) */,
    0x02401047    /* 351 (LREF-PUSH 1 9) */,
    0x0300103c    /* 352 (LREF 1 12) */,
    0x00000083    /* 353 (CADR-PUSH) */,
    0x01c01047    /* 354 (LREF-PUSH 1 7) */,
    0x01801047    /* 355 (LREF-PUSH 1 6) */,
    0x01401047    /* 356 (LREF-PUSH 1 5) */,
    0x01001047    /* 357 (LREF-PUSH 1 4) */,
    0x00c01047    /* 358 (LREF-PUSH 1 3) */,
    0x0000004e    /* 359 (LREF12-PUSH) */,
    0x0000004d    /* 360 (LREF11-PUSH) */,
    0x0000004c    /* 361 (LREF10-PUSH) */,
    0x0000201b    /* 362 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 364 (RET) */,
    0x0000003d    /* 365 (LREF0) */,
    0x0000002e    /* 366 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :radix */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 387)  /*    387 */,
    0x0300103c    /* 369 (LREF 1 12) */,
    0x00000087    /* 370 (CDDR-PUSH) */,
    0x02c01047    /* 371 (LREF-PUSH 1 11) */,
    0x02801047    /* 372 (LREF-PUSH 1 10) */,
    0x02401047    /* 373 (LREF-PUSH 1 9) */,
    0x02001047    /* 374 (LREF-PUSH 1 8) */,
    0x0300103c    /* 375 (LREF 1 12) */,
    0x00000083    /* 376 (CADR-PUSH) */,
    0x01801047    /* 377 (LREF-PUSH 1 6) */,
    0x01401047    /* 378 (LREF-PUSH 1 5) */,
    0x01001047    /* 379 (LREF-PUSH 1 4) */,
    0x00c01047    /* 380 (LREF-PUSH 1 3) */,
    0x0000004e    /* 381 (LREF12-PUSH) */,
    0x0000004d    /* 382 (LREF11-PUSH) */,
    0x0000004c    /* 383 (LREF10-PUSH) */,
    0x0000201b    /* 384 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 386 (RET) */,
    0x0000003d    /* 387 (LREF0) */,
    0x0000002e    /* 388 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :pretty */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 409)  /*    409 */,
    0x0300103c    /* 391 (LREF 1 12) */,
    0x00000087    /* 392 (CDDR-PUSH) */,
    0x02c01047    /* 393 (LREF-PUSH 1 11) */,
    0x02801047    /* 394 (LREF-PUSH 1 10) */,
    0x02401047    /* 395 (LREF-PUSH 1 9) */,
    0x02001047    /* 396 (LREF-PUSH 1 8) */,
    0x01c01047    /* 397 (LREF-PUSH 1 7) */,
    0x0300103c    /* 398 (LREF 1 12) */,
    0x00000083    /* 399 (CADR-PUSH) */,
    0x01401047    /* 400 (LREF-PUSH 1 5) */,
    0x01001047    /* 401 (LREF-PUSH 1 4) */,
    0x00c01047    /* 402 (LREF-PUSH 1 3) */,
    0x0000004e    /* 403 (LREF12-PUSH) */,
    0x0000004d    /* 404 (LREF11-PUSH) */,
    0x0000004c    /* 405 (LREF10-PUSH) */,
    0x0000201b    /* 406 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 408 (RET) */,
    0x0000003d    /* 409 (LREF0) */,
    0x0000002e    /* 410 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-length */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 431)  /*    431 */,
    0x0300103c    /* 413 (LREF 1 12) */,
    0x00000087    /* 414 (CDDR-PUSH) */,
    0x02c01047    /* 415 (LREF-PUSH 1 11) */,
    0x02801047    /* 416 (LREF-PUSH 1 10) */,
    0x02401047    /* 417 (LREF-PUSH 1 9) */,
    0x02001047    /* 418 (LREF-PUSH 1 8) */,
    0x01c01047    /* 419 (LREF-PUSH 1 7) */,
    0x01801047    /* 420 (LREF-PUSH 1 6) */,
    0x0300103c    /* 421 (LREF 1 12) */,
    0x00000083    /* 422 (CADR-PUSH) */,
    0x01001047    /* 423 (LREF-PUSH 1 4) */,
    0x00c01047    /* 424 (LREF-PUSH 1 3) */,
    0x0000004e    /* 425 (LREF12-PUSH) */,
    0x0000004d    /* 426 (LREF11-PUSH) */,
    0x0000004c    /* 427 (LREF10-PUSH) */,
    0x0000201b    /* 428 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 430 (RET) */,
    0x0000003d    /* 431 (LREF0) */,
    0x0000002e    /* 432 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-level */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 453)  /*    453 */,
    0x0300103c    /* 435 (LREF 1 12) */,
    0x00000087    /* 436 (CDDR-PUSH) */,
    0x02c01047    /* 437 (LREF-PUSH 1 11) */,
    0x02801047    /* 438 (LREF-PUSH 1 10) */,
    0x02401047    /* 439 (LREF-PUSH 1 9) */,
    0x02001047    /* 440 (LREF-PUSH 1 8) */,
    0x01c01047    /* 441 (LREF-PUSH 1 7) */,
    0x01801047    /* 442 (LREF-PUSH 1 6) */,
    0x01401047    /* 443 (LREF-PUSH 1 5) */,
    0x0300103c    /* 444 (LREF 1 12) */,
    0x00000083    /* 445 (CADR-PUSH) */,
    0x00c01047    /* 446 (LREF-PUSH 1 3) */,
    0x0000004e    /* 447 (LREF12-PUSH) */,
    0x0000004d    /* 448 (LREF11-PUSH) */,
    0x0000004c    /* 449 (LREF10-PUSH) */,
    0x0000201b    /* 450 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 452 (RET) */,
    0x0000003d    /* 453 (LREF0) */,
    0x0000002e    /* 454 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-width */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 475)  /*    475 */,
    0x0300103c    /* 457 (LREF 1 12) */,
    0x00000087    /* 458 (CDDR-PUSH) */,
    0x02c01047    /* 459 (LREF-PUSH 1 11) */,
    0x02801047    /* 460 (LREF-PUSH 1 10) */,
    0x02401047    /* 461 (LREF-PUSH 1 9) */,
    0x02001047    /* 462 (LREF-PUSH 1 8) */,
    0x01c01047    /* 463 (LREF-PUSH 1 7) */,
    0x01801047    /* 464 (LREF-PUSH 1 6) */,
    0x01401047    /* 465 (LREF-PUSH 1 5) */,
    0x01001047    /* 466 (LREF-PUSH 1 4) */,
    0x0300103c    /* 467 (LREF 1 12) */,
    0x00000083    /* 468 (CADR-PUSH) */,
    0x0000004e    /* 469 (LREF12-PUSH) */,
    0x0000004d    /* 470 (LREF11-PUSH) */,
    0x0000004c    /* 471 (LREF10-PUSH) */,
    0x0000201b    /* 472 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 474 (RET) */,
    0x0000003d    /* 475 (LREF0) */,
    0x0000002e    /* 476 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-base */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 497)  /*    497 */,
    0x0300103c    /* 479 (LREF 1 12) */,
    0x00000087    /* 480 (CDDR-PUSH) */,
    0x02c01047    /* 481 (LREF-PUSH 1 11) */,
    0x02801047    /* 482 (LREF-PUSH 1 10) */,
    0x02401047    /* 483 (LREF-PUSH 1 9) */,
    0x02001047    /* 484 (LREF-PUSH 1 8) */,
    0x01c01047    /* 485 (LREF-PUSH 1 7) */,
    0x01801047    /* 486 (LREF-PUSH 1 6) */,
    0x01401047    /* 487 (LREF-PUSH 1 5) */,
    0x01001047    /* 488 (LREF-PUSH 1 4) */,
    0x00c01047    /* 489 (LREF-PUSH 1 3) */,
    0x0300103c    /* 490 (LREF 1 12) */,
    0x00000083    /* 491 (CADR-PUSH) */,
    0x0000004d    /* 492 (LREF11-PUSH) */,
    0x0000004c    /* 493 (LREF10-PUSH) */,
    0x0000201b    /* 494 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 496 (RET) */,
    0x0000003d    /* 497 (LREF0) */,
    0x0000002e    /* 498 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-radix */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 519)  /*    519 */,
    0x0300103c    /* 501 (LREF 1 12) */,
    0x00000087    /* 502 (CDDR-PUSH) */,
    0x02c01047    /* 503 (LREF-PUSH 1 11) */,
    0x02801047    /* 504 (LREF-PUSH 1 10) */,
    0x02401047    /* 505 (LREF-PUSH 1 9) */,
    0x02001047    /* 506 (LREF-PUSH 1 8) */,
    0x01c01047    /* 507 (LREF-PUSH 1 7) */,
    0x01801047    /* 508 (LREF-PUSH 1 6) */,
    0x01401047    /* 509 (LREF-PUSH 1 5) */,
    0x01001047    /* 510 (LREF-PUSH 1 4) */,
    0x00c01047    /* 511 (LREF-PUSH 1 3) */,
    0x0000004e    /* 512 (LREF12-PUSH) */,
    0x0300103c    /* 513 (LREF 1 12) */,
    0x00000083    /* 514 (CADR-PUSH) */,
    0x0000004c    /* 515 (LREF10-PUSH) */,
    0x0000201b    /* 516 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 518 (RET) */,
    0x0000003d    /* 519 (LREF0) */,
    0x0000002e    /* 520 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-pretty */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 541)  /*    541 */,
    0x0300103c    /* 523 (LREF 1 12) */,
    0x00000087    /* 524 (CDDR-PUSH) */,
    0x02c01047    /* 525 (LREF-PUSH 1 11) */,
    0x02801047    /* 526 (LREF-PUSH 1 10) */,
    0x02401047    /* 527 (LREF-PUSH 1 9) */,
    0x02001047    /* 528 (LREF-PUSH 1 8) */,
    0x01c01047    /* 529 (LREF-PUSH 1 7) */,
    0x01801047    /* 530 (LREF-PUSH 1 6) */,
    0x01401047    /* 531 (LREF-PUSH 1 5) */,
    0x01001047    /* 532 (LREF-PUSH 1 4) */,
    0x00c01047    /* 533 (LREF-PUSH 1 3) */,
    0x0000004e    /* 534 (LREF12-PUSH) */,
    0x0000004d    /* 535 (LREF11-PUSH) */,
    0x0300103c    /* 536 (LREF 1 12) */,
    0x00000083    /* 537 (CADR-PUSH) */,
    0x0000201b    /* 538 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 540 (RET) */,
    0x0000200e    /* 541 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 549),
    0x00000006    /* 543 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[268])) /* "unknown keyword ~S" */,
    0x0300103c    /* 545 (LREF 1 12) */,
    0x00000069    /* 546 (CAR-PUSH) */,
    0x0000205f    /* 547 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.f0d2b8e0> */,
    0x0300103c    /* 549 (LREF 1 12) */,
    0x00000087    /* 550 (CDDR-PUSH) */,
    0x02c01047    /* 551 (LREF-PUSH 1 11) */,
    0x02801047    /* 552 (LREF-PUSH 1 10) */,
    0x02401047    /* 553 (LREF-PUSH 1 9) */,
    0x02001047    /* 554 (LREF-PUSH 1 8) */,
    0x01c01047    /* 555 (LREF-PUSH 1 7) */,
    0x01801047    /* 556 (LREF-PUSH 1 6) */,
    0x01401047    /* 557 (LREF-PUSH 1 5) */,
    0x01001047    /* 558 (LREF-PUSH 1 4) */,
    0x00c01047    /* 559 (LREF-PUSH 1 3) */,
    0x0000004e    /* 560 (LREF12-PUSH) */,
    0x0000004d    /* 561 (LREF11-PUSH) */,
    0x0000004c    /* 562 (LREF10-PUSH) */,
    0x0000201b    /* 563 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]) + 25),
    0x00000014    /* 565 (RET) */,
    0x00000014    /* 566 (RET) */,
    /* write-controls-copy */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00000005    /*   1 (CONSTU) */,
    0x0000000d    /*   2 (PUSH) */,
    0x00000005    /*   3 (CONSTU) */,
    0x0000000d    /*   4 (PUSH) */,
    0x00000005    /*   5 (CONSTU) */,
    0x0000000d    /*   6 (PUSH) */,
    0x00000005    /*   7 (CONSTU) */,
    0x0000000d    /*   8 (PUSH) */,
    0x00000005    /*   9 (CONSTU) */,
    0x0000000d    /*  10 (PUSH) */,
    0x00000005    /*  11 (CONSTU) */,
    0x0000000d    /*  12 (PUSH) */,
    0x00000005    /*  13 (CONSTU) */,
    0x0000000d    /*  14 (PUSH) */,
    0x00000005    /*  15 (CONSTU) */,
    0x0000000d    /*  16 (PUSH) */,
    0x00000005    /*  17 (CONSTU) */,
    0x0000000d    /*  18 (PUSH) */,
    0x00000005    /*  19 (CONSTU) */,
    0x0000000d    /*  20 (PUSH) */,
    0x00000005    /*  21 (CONSTU) */,
    0x0000000d    /*  22 (PUSH) */,
    0x00000005    /*  23 (CONSTU) */,
    0x0000d018    /*  24 (PUSH-LOCAL-ENV 13) */,
    0x0300003c    /*  25 (LREF 0 12) */,
    0x00000022    /*  26 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 434),
    0x0000100e    /*  28 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 33),
    0x02c00047    /*  30 (LREF-PUSH 0 11) */,
    0x0000105f    /*  31 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /*  33 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 38),
    0x00000005    /*  35 (CONSTU) */,
    0x00000013    /*  36 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 39),
    0x02c0003c    /*  38 (LREF 0 11) */,
    0x00001018    /*  39 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  40 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 45),
    0x02801047    /*  42 (LREF-PUSH 1 10) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /*  45 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 50),
    0x00000005    /*  47 (CONSTU) */,
    0x00000013    /*  48 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 51),
    0x0280103c    /*  50 (LREF 1 10) */,
    0x00001018    /*  51 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  52 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 57),
    0x02402047    /*  54 (LREF-PUSH 2 9) */,
    0x0000105f    /*  55 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /*  57 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 62),
    0x00000005    /*  59 (CONSTU) */,
    0x00000013    /*  60 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 63),
    0x0240203c    /*  62 (LREF 2 9) */,
    0x00001018    /*  63 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  64 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 69),
    0x02003047    /*  66 (LREF-PUSH 3 8) */,
    0x0000105f    /*  67 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /*  69 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 74),
    0x00000005    /*  71 (CONSTU) */,
    0x00000013    /*  72 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 75),
    0x0200303c    /*  74 (LREF 3 8) */,
    0x00001018    /*  75 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  76 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 81),
    0x01c04047    /*  78 (LREF-PUSH 4 7) */,
    0x0000105f    /*  79 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /*  81 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 86),
    0x00000005    /*  83 (CONSTU) */,
    0x00000013    /*  84 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 87),
    0x01c0403c    /*  86 (LREF 4 7) */,
    0x00001018    /*  87 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  88 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 93),
    0x01805047    /*  90 (LREF-PUSH 5 6) */,
    0x0000105f    /*  91 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /*  93 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 98),
    0x00000005    /*  95 (CONSTU) */,
    0x00000013    /*  96 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 99),
    0x0180503c    /*  98 (LREF 5 6) */,
    0x00001018    /*  99 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 100 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 105),
    0x01406047    /* 102 (LREF-PUSH 6 5) */,
    0x0000105f    /* 103 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /* 105 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 110),
    0x00000005    /* 107 (CONSTU) */,
    0x00000013    /* 108 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 111),
    0x0140603c    /* 110 (LREF 6 5) */,
    0x00001018    /* 111 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 112 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 117),
    0x01007047    /* 114 (LREF-PUSH 7 4) */,
    0x0000105f    /* 115 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /* 117 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 122),
    0x00000005    /* 119 (CONSTU) */,
    0x00000013    /* 120 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 123),
    0x0100703c    /* 122 (LREF 7 4) */,
    0x00001018    /* 123 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 124 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 129),
    0x00c08047    /* 126 (LREF-PUSH 8 3) */,
    0x0000105f    /* 127 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /* 129 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 134),
    0x00000005    /* 131 (CONSTU) */,
    0x00000013    /* 132 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 135),
    0x00c0803c    /* 134 (LREF 8 3) */,
    0x00001018    /* 135 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 136 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 141),
    0x00809047    /* 138 (LREF-PUSH 9 2) */,
    0x0000105f    /* 139 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /* 141 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 146),
    0x00000005    /* 143 (CONSTU) */,
    0x00000013    /* 144 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 147),
    0x0080903c    /* 146 (LREF 9 2) */,
    0x00001018    /* 147 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 148 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 153),
    0x0040a047    /* 150 (LREF-PUSH 10 1) */,
    0x0000105f    /* 151 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /* 153 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 158),
    0x00000005    /* 155 (CONSTU) */,
    0x00000013    /* 156 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 159),
    0x0040a03c    /* 158 (LREF 10 1) */,
    0x00001018    /* 159 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 160 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 165),
    0x0000b047    /* 162 (LREF-PUSH 11 0) */,
    0x0000105f    /* 163 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.f0b53500> */,
    0x0000001e    /* 165 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 170),
    0x00000005    /* 167 (CONSTU) */,
    0x00000013    /* 168 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 171),
    0x0000b03c    /* 170 (LREF 11 0) */,
    0x00001018    /* 171 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 172 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 177),
    0x0000b047    /* 174 (LREF-PUSH 11 0) */,
    0x0000105f    /* 175 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b60f40> */,
    0x0000001e    /* 177 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 198),
    0x0000100e    /* 179 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 184),
    0x00005047    /* 181 (LREF-PUSH 5 0) */,
    0x0000105f    /* 182 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b60f40> */,
    0x0000001e    /* 184 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 195),
    0x0000200e    /* 186 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 199),
    0x0040d047    /* 188 (LREF-PUSH 13 1) */,
    0x00000006    /* 189 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* length */,
    0x0000205f    /* 191 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b60f20> */,
    0x00000013    /* 193 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 199),
    0x0000503c    /* 195 (LREF 5 0) */,
    0x00000013    /* 196 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 199),
    0x0000b03c    /* 198 (LREF 11 0) */,
    0x0000100f    /* 199 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 204),
    0x0000a047    /* 201 (LREF-PUSH 10 0) */,
    0x0000105f    /* 202 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b60cc0> */,
    0x0000001e    /* 204 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 225),
    0x0000100e    /* 206 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 211),
    0x00004047    /* 208 (LREF-PUSH 4 0) */,
    0x0000105f    /* 209 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b60cc0> */,
    0x0000001e    /* 211 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 222),
    0x0000200e    /* 213 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 226),
    0x0040d047    /* 215 (LREF-PUSH 13 1) */,
    0x00000006    /* 216 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* level */,
    0x0000205f    /* 218 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b60ca0> */,
    0x00000013    /* 220 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 226),
    0x0000403c    /* 222 (LREF 4 0) */,
    0x00000013    /* 223 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 226),
    0x0000a03c    /* 225 (LREF 10 0) */,
    0x0000100f    /* 226 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 231),
    0x00009047    /* 228 (LREF-PUSH 9 0) */,
    0x0000105f    /* 229 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b60980> */,
    0x0000001e    /* 231 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 252),
    0x0000100e    /* 233 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 238),
    0x00000051    /* 235 (LREF30-PUSH) */,
    0x0000105f    /* 236 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b60980> */,
    0x0000001e    /* 238 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 249),
    0x0000200e    /* 240 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 253),
    0x0040d047    /* 242 (LREF-PUSH 13 1) */,
    0x00000006    /* 243 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* width */,
    0x0000205f    /* 245 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b60960> */,
    0x00000013    /* 247 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 253),
    0x00000046    /* 249 (LREF30) */,
    0x00000013    /* 250 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 253),
    0x0000903c    /* 252 (LREF 9 0) */,
    0x0000100f    /* 253 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 258),
    0x00008047    /* 255 (LREF-PUSH 8 0) */,
    0x0000105f    /* 256 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b606e0> */,
    0x0000001e    /* 258 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 279),
    0x0000100e    /* 260 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 265),
    0x0000004f    /* 262 (LREF20-PUSH) */,
    0x0000105f    /* 263 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b606e0> */,
    0x0000001e    /* 265 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 276),
    0x0000200e    /* 267 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 280),
    0x0040d047    /* 269 (LREF-PUSH 13 1) */,
    0x00000006    /* 270 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* base */,
    0x0000205f    /* 272 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b606c0> */,
    0x00000013    /* 274 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 280),
    0x00000044    /* 276 (LREF20) */,
    0x00000013    /* 277 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 280),
    0x0000803c    /* 279 (LREF 8 0) */,
    0x0000100f    /* 280 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 285),
    0x00007047    /* 282 (LREF-PUSH 7 0) */,
    0x0000105f    /* 283 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b6efc0> */,
    0x0000001e    /* 285 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 306),
    0x0000100e    /* 287 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 292),
    0x0000004c    /* 289 (LREF10-PUSH) */,
    0x0000105f    /* 290 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b6efc0> */,
    0x0000001e    /* 292 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 303),
    0x0000200e    /* 294 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 307),
    0x0040d047    /* 296 (LREF-PUSH 13 1) */,
    0x00000006    /* 297 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* radix */,
    0x0000205f    /* 299 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b6ef60> */,
    0x00000013    /* 301 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 307),
    0x00000041    /* 303 (LREF10) */,
    0x00000013    /* 304 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 307),
    0x0000703c    /* 306 (LREF 7 0) */,
    0x0000100f    /* 307 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 312),
    0x00006047    /* 309 (LREF-PUSH 6 0) */,
    0x0000105f    /* 310 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b6eb80> */,
    0x0000001e    /* 312 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 333),
    0x0000100e    /* 314 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 319),
    0x00000048    /* 316 (LREF0-PUSH) */,
    0x0000105f    /* 317 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.f0b6eb80> */,
    0x0000001e    /* 319 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 330),
    0x0000200e    /* 321 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 334),
    0x0040d047    /* 323 (LREF-PUSH 13 1) */,
    0x00000006    /* 324 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* pretty */,
    0x0000205f    /* 326 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b6eb60> */,
    0x00000013    /* 328 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 334),
    0x0000003d    /* 330 (LREF0) */,
    0x00000013    /* 331 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 334),
    0x0000603c    /* 333 (LREF 6 0) */,
    0x00006018    /* 334 (PUSH-LOCAL-ENV 6) */,
    0x01400047    /* 335 (LREF-PUSH 0 5) */,
    0x0000200e    /* 336 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 343),
    0x0040e047    /* 338 (LREF-PUSH 14 1) */,
    0x00000006    /* 339 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* length */,
    0x0000205f    /* 341 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b6e620> */,
    0x00000021    /* 343 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x01000047    /* 345 (LREF-PUSH 0 4) */,
    0x0000200e    /* 346 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 353),
    0x0040e047    /* 348 (LREF-PUSH 14 1) */,
    0x00000006    /* 349 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* level */,
    0x0000205f    /* 351 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b6e460> */,
    0x00000021    /* 353 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x0000004b    /* 355 (LREF3-PUSH) */,
    0x0000200e    /* 356 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 363),
    0x0040e047    /* 358 (LREF-PUSH 14 1) */,
    0x00000006    /* 359 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* width */,
    0x0000205f    /* 361 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b6e2e0> */,
    0x00000021    /* 363 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x0000004a    /* 365 (LREF2-PUSH) */,
    0x0000200e    /* 366 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 373),
    0x0040e047    /* 368 (LREF-PUSH 14 1) */,
    0x00000006    /* 369 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* base */,
    0x0000205f    /* 371 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b6e060> */,
    0x00000021    /* 373 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x00000049    /* 375 (LREF1-PUSH) */,
    0x0000200e    /* 376 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 383),
    0x0040e047    /* 378 (LREF-PUSH 14 1) */,
    0x00000006    /* 379 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* radix */,
    0x0000205f    /* 381 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b76ec0> */,
    0x00000021    /* 383 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x00000048    /* 385 (LREF0-PUSH) */,
    0x0000200e    /* 386 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 393),
    0x0040e047    /* 388 (LREF-PUSH 14 1) */,
    0x00000006    /* 389 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* pretty */,
    0x0000205f    /* 391 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.f0b76c20> */,
    0x00000021    /* 393 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x0040e052    /* 395 (LREF-RET 14 1) */,
    0x0000005e    /* 396 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<write-controls>.f0b76960> */,
    0x00000006    /* 398 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :length */,
    0x01400047    /* 400 (LREF-PUSH 0 5) */,
    0x00000006    /* 401 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :level */,
    0x01000047    /* 403 (LREF-PUSH 0 4) */,
    0x00000006    /* 404 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :width */,
    0x0000004b    /* 406 (LREF3-PUSH) */,
    0x00000006    /* 407 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :base */,
    0x0000004a    /* 409 (LREF2-PUSH) */,
    0x00000006    /* 410 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :radix */,
    0x00000049    /* 412 (LREF1-PUSH) */,
    0x00000006    /* 413 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :pretty */,
    0x00000048    /* 415 (LREF0-PUSH) */,
    0x0000d060    /* 416 (GREF-TAIL-CALL 13) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.f0b769a0> */,
    0x00000014    /* 418 (RET) */,
    0x00000013    /* 419 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x00000014    /* 421 (RET) */,
    0x00000013    /* 422 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x00000014    /* 424 (RET) */,
    0x00000013    /* 425 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x00000014    /* 427 (RET) */,
    0x00000013    /* 428 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x00000014    /* 430 (RET) */,
    0x00000013    /* 431 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 396),
    0x00000014    /* 433 (RET) */,
    0x0300003c    /* 434 (LREF 0 12) */,
    0x00000074    /* 435 (CDR) */,
    0x00000022    /* 436 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 444),
    0x00000006    /* 438 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[260])) /* "keyword list not even" */,
    0x03000047    /* 440 (LREF-PUSH 0 12) */,
    0x00002060    /* 441 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#error.f0b534c0> */,
    0x00000014    /* 443 (RET) */,
    0x0000100e    /* 444 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 450),
    0x0300003c    /* 446 (LREF 0 12) */,
    0x00000069    /* 447 (CAR-PUSH) */,
    0x0000105f    /* 448 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#unwrap-syntax-1.f0b53460> */,
    0x00001018    /* 450 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /* 451 (LREF0) */,
    0x0000002e    /* 452 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :length */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 473)  /*    473 */,
    0x0300103c    /* 455 (LREF 1 12) */,
    0x00000087    /* 456 (CDDR-PUSH) */,
    0x0300103c    /* 457 (LREF 1 12) */,
    0x00000083    /* 458 (CADR-PUSH) */,
    0x02801047    /* 459 (LREF-PUSH 1 10) */,
    0x02401047    /* 460 (LREF-PUSH 1 9) */,
    0x02001047    /* 461 (LREF-PUSH 1 8) */,
    0x01c01047    /* 462 (LREF-PUSH 1 7) */,
    0x01801047    /* 463 (LREF-PUSH 1 6) */,
    0x01401047    /* 464 (LREF-PUSH 1 5) */,
    0x01001047    /* 465 (LREF-PUSH 1 4) */,
    0x00c01047    /* 466 (LREF-PUSH 1 3) */,
    0x0000004e    /* 467 (LREF12-PUSH) */,
    0x0000004d    /* 468 (LREF11-PUSH) */,
    0x0000004c    /* 469 (LREF10-PUSH) */,
    0x0000201b    /* 470 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 472 (RET) */,
    0x0000003d    /* 473 (LREF0) */,
    0x0000002e    /* 474 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :level */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 495)  /*    495 */,
    0x0300103c    /* 477 (LREF 1 12) */,
    0x00000087    /* 478 (CDDR-PUSH) */,
    0x02c01047    /* 479 (LREF-PUSH 1 11) */,
    0x0300103c    /* 480 (LREF 1 12) */,
    0x00000083    /* 481 (CADR-PUSH) */,
    0x02401047    /* 482 (LREF-PUSH 1 9) */,
    0x02001047    /* 483 (LREF-PUSH 1 8) */,
    0x01c01047    /* 484 (LREF-PUSH 1 7) */,
    0x01801047    /* 485 (LREF-PUSH 1 6) */,
    0x01401047    /* 486 (LREF-PUSH 1 5) */,
    0x01001047    /* 487 (LREF-PUSH 1 4) */,
    0x00c01047    /* 488 (LREF-PUSH 1 3) */,
    0x0000004e    /* 489 (LREF12-PUSH) */,
    0x0000004d    /* 490 (LREF11-PUSH) */,
    0x0000004c    /* 491 (LREF10-PUSH) */,
    0x0000201b    /* 492 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 494 (RET) */,
    0x0000003d    /* 495 (LREF0) */,
    0x0000002e    /* 496 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :width */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 517)  /*    517 */,
    0x0300103c    /* 499 (LREF 1 12) */,
    0x00000087    /* 500 (CDDR-PUSH) */,
    0x02c01047    /* 501 (LREF-PUSH 1 11) */,
    0x02801047    /* 502 (LREF-PUSH 1 10) */,
    0x0300103c    /* 503 (LREF 1 12) */,
    0x00000083    /* 504 (CADR-PUSH) */,
    0x02001047    /* 505 (LREF-PUSH 1 8) */,
    0x01c01047    /* 506 (LREF-PUSH 1 7) */,
    0x01801047    /* 507 (LREF-PUSH 1 6) */,
    0x01401047    /* 508 (LREF-PUSH 1 5) */,
    0x01001047    /* 509 (LREF-PUSH 1 4) */,
    0x00c01047    /* 510 (LREF-PUSH 1 3) */,
    0x0000004e    /* 511 (LREF12-PUSH) */,
    0x0000004d    /* 512 (LREF11-PUSH) */,
    0x0000004c    /* 513 (LREF10-PUSH) */,
    0x0000201b    /* 514 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 516 (RET) */,
    0x0000003d    /* 517 (LREF0) */,
    0x0000002e    /* 518 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :base */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 539)  /*    539 */,
    0x0300103c    /* 521 (LREF 1 12) */,
    0x00000087    /* 522 (CDDR-PUSH) */,
    0x02c01047    /* 523 (LREF-PUSH 1 11) */,
    0x02801047    /* 524 (LREF-PUSH 1 10) */,
    0x02401047    /* 525 (LREF-PUSH 1 9) */,
    0x0300103c    /* 526 (LREF 1 12) */,
    0x00000083    /* 527 (CADR-PUSH) */,
    0x01c01047    /* 528 (LREF-PUSH 1 7) */,
    0x01801047    /* 529 (LREF-PUSH 1 6) */,
    0x01401047    /* 530 (LREF-PUSH 1 5) */,
    0x01001047    /* 531 (LREF-PUSH 1 4) */,
    0x00c01047    /* 532 (LREF-PUSH 1 3) */,
    0x0000004e    /* 533 (LREF12-PUSH) */,
    0x0000004d    /* 534 (LREF11-PUSH) */,
    0x0000004c    /* 535 (LREF10-PUSH) */,
    0x0000201b    /* 536 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 538 (RET) */,
    0x0000003d    /* 539 (LREF0) */,
    0x0000002e    /* 540 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :radix */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 561)  /*    561 */,
    0x0300103c    /* 543 (LREF 1 12) */,
    0x00000087    /* 544 (CDDR-PUSH) */,
    0x02c01047    /* 545 (LREF-PUSH 1 11) */,
    0x02801047    /* 546 (LREF-PUSH 1 10) */,
    0x02401047    /* 547 (LREF-PUSH 1 9) */,
    0x02001047    /* 548 (LREF-PUSH 1 8) */,
    0x0300103c    /* 549 (LREF 1 12) */,
    0x00000083    /* 550 (CADR-PUSH) */,
    0x01801047    /* 551 (LREF-PUSH 1 6) */,
    0x01401047    /* 552 (LREF-PUSH 1 5) */,
    0x01001047    /* 553 (LREF-PUSH 1 4) */,
    0x00c01047    /* 554 (LREF-PUSH 1 3) */,
    0x0000004e    /* 555 (LREF12-PUSH) */,
    0x0000004d    /* 556 (LREF11-PUSH) */,
    0x0000004c    /* 557 (LREF10-PUSH) */,
    0x0000201b    /* 558 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 560 (RET) */,
    0x0000003d    /* 561 (LREF0) */,
    0x0000002e    /* 562 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :pretty */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 583)  /*    583 */,
    0x0300103c    /* 565 (LREF 1 12) */,
    0x00000087    /* 566 (CDDR-PUSH) */,
    0x02c01047    /* 567 (LREF-PUSH 1 11) */,
    0x02801047    /* 568 (LREF-PUSH 1 10) */,
    0x02401047    /* 569 (LREF-PUSH 1 9) */,
    0x02001047    /* 570 (LREF-PUSH 1 8) */,
    0x01c01047    /* 571 (LREF-PUSH 1 7) */,
    0x0300103c    /* 572 (LREF 1 12) */,
    0x00000083    /* 573 (CADR-PUSH) */,
    0x01401047    /* 574 (LREF-PUSH 1 5) */,
    0x01001047    /* 575 (LREF-PUSH 1 4) */,
    0x00c01047    /* 576 (LREF-PUSH 1 3) */,
    0x0000004e    /* 577 (LREF12-PUSH) */,
    0x0000004d    /* 578 (LREF11-PUSH) */,
    0x0000004c    /* 579 (LREF10-PUSH) */,
    0x0000201b    /* 580 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 582 (RET) */,
    0x0000003d    /* 583 (LREF0) */,
    0x0000002e    /* 584 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-length */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 605)  /*    605 */,
    0x0300103c    /* 587 (LREF 1 12) */,
    0x00000087    /* 588 (CDDR-PUSH) */,
    0x02c01047    /* 589 (LREF-PUSH 1 11) */,
    0x02801047    /* 590 (LREF-PUSH 1 10) */,
    0x02401047    /* 591 (LREF-PUSH 1 9) */,
    0x02001047    /* 592 (LREF-PUSH 1 8) */,
    0x01c01047    /* 593 (LREF-PUSH 1 7) */,
    0x01801047    /* 594 (LREF-PUSH 1 6) */,
    0x0300103c    /* 595 (LREF 1 12) */,
    0x00000083    /* 596 (CADR-PUSH) */,
    0x01001047    /* 597 (LREF-PUSH 1 4) */,
    0x00c01047    /* 598 (LREF-PUSH 1 3) */,
    0x0000004e    /* 599 (LREF12-PUSH) */,
    0x0000004d    /* 600 (LREF11-PUSH) */,
    0x0000004c    /* 601 (LREF10-PUSH) */,
    0x0000201b    /* 602 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 604 (RET) */,
    0x0000003d    /* 605 (LREF0) */,
    0x0000002e    /* 606 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-level */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 627)  /*    627 */,
    0x0300103c    /* 609 (LREF 1 12) */,
    0x00000087    /* 610 (CDDR-PUSH) */,
    0x02c01047    /* 611 (LREF-PUSH 1 11) */,
    0x02801047    /* 612 (LREF-PUSH 1 10) */,
    0x02401047    /* 613 (LREF-PUSH 1 9) */,
    0x02001047    /* 614 (LREF-PUSH 1 8) */,
    0x01c01047    /* 615 (LREF-PUSH 1 7) */,
    0x01801047    /* 616 (LREF-PUSH 1 6) */,
    0x01401047    /* 617 (LREF-PUSH 1 5) */,
    0x0300103c    /* 618 (LREF 1 12) */,
    0x00000083    /* 619 (CADR-PUSH) */,
    0x00c01047    /* 620 (LREF-PUSH 1 3) */,
    0x0000004e    /* 621 (LREF12-PUSH) */,
    0x0000004d    /* 622 (LREF11-PUSH) */,
    0x0000004c    /* 623 (LREF10-PUSH) */,
    0x0000201b    /* 624 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 626 (RET) */,
    0x0000003d    /* 627 (LREF0) */,
    0x0000002e    /* 628 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-width */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 649)  /*    649 */,
    0x0300103c    /* 631 (LREF 1 12) */,
    0x00000087    /* 632 (CDDR-PUSH) */,
    0x02c01047    /* 633 (LREF-PUSH 1 11) */,
    0x02801047    /* 634 (LREF-PUSH 1 10) */,
    0x02401047    /* 635 (LREF-PUSH 1 9) */,
    0x02001047    /* 636 (LREF-PUSH 1 8) */,
    0x01c01047    /* 637 (LREF-PUSH 1 7) */,
    0x01801047    /* 638 (LREF-PUSH 1 6) */,
    0x01401047    /* 639 (LREF-PUSH 1 5) */,
    0x01001047    /* 640 (LREF-PUSH 1 4) */,
    0x0300103c    /* 641 (LREF 1 12) */,
    0x00000083    /* 642 (CADR-PUSH) */,
    0x0000004e    /* 643 (LREF12-PUSH) */,
    0x0000004d    /* 644 (LREF11-PUSH) */,
    0x0000004c    /* 645 (LREF10-PUSH) */,
    0x0000201b    /* 646 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 648 (RET) */,
    0x0000003d    /* 649 (LREF0) */,
    0x0000002e    /* 650 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-base */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 671)  /*    671 */,
    0x0300103c    /* 653 (LREF 1 12) */,
    0x00000087    /* 654 (CDDR-PUSH) */,
    0x02c01047    /* 655 (LREF-PUSH 1 11) */,
    0x02801047    /* 656 (LREF-PUSH 1 10) */,
    0x02401047    /* 657 (LREF-PUSH 1 9) */,
    0x02001047    /* 658 (LREF-PUSH 1 8) */,
    0x01c01047    /* 659 (LREF-PUSH 1 7) */,
    0x01801047    /* 660 (LREF-PUSH 1 6) */,
    0x01401047    /* 661 (LREF-PUSH 1 5) */,
    0x01001047    /* 662 (LREF-PUSH 1 4) */,
    0x00c01047    /* 663 (LREF-PUSH 1 3) */,
    0x0300103c    /* 664 (LREF 1 12) */,
    0x00000083    /* 665 (CADR-PUSH) */,
    0x0000004d    /* 666 (LREF11-PUSH) */,
    0x0000004c    /* 667 (LREF10-PUSH) */,
    0x0000201b    /* 668 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 670 (RET) */,
    0x0000003d    /* 671 (LREF0) */,
    0x0000002e    /* 672 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-radix */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 693)  /*    693 */,
    0x0300103c    /* 675 (LREF 1 12) */,
    0x00000087    /* 676 (CDDR-PUSH) */,
    0x02c01047    /* 677 (LREF-PUSH 1 11) */,
    0x02801047    /* 678 (LREF-PUSH 1 10) */,
    0x02401047    /* 679 (LREF-PUSH 1 9) */,
    0x02001047    /* 680 (LREF-PUSH 1 8) */,
    0x01c01047    /* 681 (LREF-PUSH 1 7) */,
    0x01801047    /* 682 (LREF-PUSH 1 6) */,
    0x01401047    /* 683 (LREF-PUSH 1 5) */,
    0x01001047    /* 684 (LREF-PUSH 1 4) */,
    0x00c01047    /* 685 (LREF-PUSH 1 3) */,
    0x0000004e    /* 686 (LREF12-PUSH) */,
    0x0300103c    /* 687 (LREF 1 12) */,
    0x00000083    /* 688 (CADR-PUSH) */,
    0x0000004c    /* 689 (LREF10-PUSH) */,
    0x0000201b    /* 690 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 692 (RET) */,
    0x0000003d    /* 693 (LREF0) */,
    0x0000002e    /* 694 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-pretty */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 715)  /*    715 */,
    0x0300103c    /* 697 (LREF 1 12) */,
    0x00000087    /* 698 (CDDR-PUSH) */,
    0x02c01047    /* 699 (LREF-PUSH 1 11) */,
    0x02801047    /* 700 (LREF-PUSH 1 10) */,
    0x02401047    /* 701 (LREF-PUSH 1 9) */,
    0x02001047    /* 702 (LREF-PUSH 1 8) */,
    0x01c01047    /* 703 (LREF-PUSH 1 7) */,
    0x01801047    /* 704 (LREF-PUSH 1 6) */,
    0x01401047    /* 705 (LREF-PUSH 1 5) */,
    0x01001047    /* 706 (LREF-PUSH 1 4) */,
    0x00c01047    /* 707 (LREF-PUSH 1 3) */,
    0x0000004e    /* 708 (LREF12-PUSH) */,
    0x0000004d    /* 709 (LREF11-PUSH) */,
    0x0300103c    /* 710 (LREF 1 12) */,
    0x00000083    /* 711 (CADR-PUSH) */,
    0x0000201b    /* 712 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 714 (RET) */,
    0x0000200e    /* 715 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 723),
    0x00000006    /* 717 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[268])) /* "unknown keyword ~S" */,
    0x0300103c    /* 719 (LREF 1 12) */,
    0x00000069    /* 720 (CAR-PUSH) */,
    0x0000205f    /* 721 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.f0b53200> */,
    0x0300103c    /* 723 (LREF 1 12) */,
    0x00000087    /* 724 (CDDR-PUSH) */,
    0x02c01047    /* 725 (LREF-PUSH 1 11) */,
    0x02801047    /* 726 (LREF-PUSH 1 10) */,
    0x02401047    /* 727 (LREF-PUSH 1 9) */,
    0x02001047    /* 728 (LREF-PUSH 1 8) */,
    0x01c01047    /* 729 (LREF-PUSH 1 7) */,
    0x01801047    /* 730 (LREF-PUSH 1 6) */,
    0x01401047    /* 731 (LREF-PUSH 1 5) */,
    0x01001047    /* 732 (LREF-PUSH 1 4) */,
    0x00c01047    /* 733 (LREF-PUSH 1 3) */,
    0x0000004e    /* 734 (LREF12-PUSH) */,
    0x0000004d    /* 735 (LREF11-PUSH) */,
    0x0000004c    /* 736 (LREF10-PUSH) */,
    0x0000201b    /* 737 (LOCAL-ENV-JUMP 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]) + 25),
    0x00000014    /* 739 (RET) */,
    0x00000014    /* 740 (RET) */,
    /* open-input-file */
    0x0000300e    /*   0 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]) + 8),
    0x00000006    /*   2 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :encoding */,
    0x00000048    /*   4 (LREF0-PUSH) */,
    0x00000009    /*   5 (CONSTF-PUSH) */,
    0x0000305f    /*   6 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-keyword.f025f560> */,
    0x00001018    /*   8 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   9 (LREF0) */,
    0x0000002e    /*  10 (BNEQC) */,
    SCM_WORD(SCM_FALSE) /* #f */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]) + 19)  /*     19 */,
    0x0000005e    /*  13 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-input-file.f025f3a0> */,
    0x0000004d    /*  15 (LREF11-PUSH) */,
    0x00000041    /*  16 (LREF10) */,
    0x00003095    /*  17 (TAIL-APPLY 3) */,
    0x00000014    /*  18 (RET) */,
    0x0000003d    /*  19 (LREF0) */,
    0x0000002e    /*  20 (BNEQC) */,
    SCM_WORD(SCM_TRUE) /* #t */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]) + 43)  /*     43 */,
    0x0000000e    /*  23 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]) + 36),
    0x0000005e    /*  25 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-input-file.f025f240> */,
    0x0000004d    /*  27 (LREF11-PUSH) */,
    0x0000200e    /*  28 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]) + 35),
    0x00000006    /*  30 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :encoding */,
    0x0000004c    /*  32 (LREF10-PUSH) */,
    0x0000205f    /*  33 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#delete-keyword.f025f1e0> */,
    0x00003095    /*  35 (TAIL-APPLY 3) */,
    0x00001018    /*  36 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  37 (LREF0) */,
    0x00000030    /*  38 (RF) */,
    0x00000048    /*  39 (LREF0-PUSH) */,
    0x00001060    /*  40 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-coding-aware-port.f025f100> */,
    0x00000014    /*  42 (RET) */,
    0x0000005e    /*  43 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-input-file/conv.f025f040> */,
    0x0000004d    /*  45 (LREF11-PUSH) */,
    0x00000041    /*  46 (LREF10) */,
    0x00003095    /*  47 (TAIL-APPLY 3) */,
    0x00000014    /*  48 (RET) */,
    /* open-output-file */
    0x0000300e    /*   0 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2149]) + 8),
    0x00000006    /*   2 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :encoding */,
    0x00000048    /*   4 (LREF0-PUSH) */,
    0x00000009    /*   5 (CONSTF-PUSH) */,
    0x0000305f    /*   6 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-keyword.efedf920> */,
    0x0000001e    /*   8 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2149]) + 16),
    0x0000005e    /*  10 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-output-file/conv.efedf840> */,
    0x00000049    /*  12 (LREF1-PUSH) */,
    0x0000003d    /*  13 (LREF0) */,
    0x00003095    /*  14 (TAIL-APPLY 3) */,
    0x00000014    /*  15 (RET) */,
    0x0000005e    /*  16 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-output-file.efedf7a0> */,
    0x00000049    /*  18 (LREF1-PUSH) */,
    0x0000003d    /*  19 (LREF0) */,
    0x00003095    /*  20 (TAIL-APPLY 3) */,
    0x00000014    /*  21 (RET) */,
    /* (call-with-port #f) */
    0x00000049    /*   0 (LREF1-PUSH) */,
    0x0000003d    /*   1 (LREF0) */,
    0x00001012    /*   2 (TAIL-CALL 1) */,
    0x00000014    /*   3 (RET) */,
    /* (call-with-port #f) */
    0x00000049    /*   0 (LREF1-PUSH) */,
    0x00001060    /*   1 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-port.efde35c0> */,
    0x00000014    /*   3 (RET) */,
    /* call-with-port */
    0x00000016    /*   0 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[36])) /* #<compiled-code (call-with-port #f)@0x7fc3f0e72a80> */,
    0x0000000d    /*   2 (PUSH) */,
    0x00000016    /*   3 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[37])) /* #<compiled-code (call-with-port #f)@0x7fc3f0e729c0> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000006    /*   6 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*   8 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[991])) /* ("libio.scm" 994) */,
    0x00004060    /*  10 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.efde3740> */,
    0x00000014    /*  12 (RET) */,
    /* (call-with-input-file #f) */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00000042    /*   1 (LREF11) */,
    0x00001012    /*   2 (TAIL-CALL 1) */,
    0x00000014    /*   3 (RET) */,
    /* (call-with-input-file #f) */
    0x0000003d    /*   0 (LREF0) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2196]) + 7),
    0x00000048    /*   3 (LREF0-PUSH) */,
    0x00001060    /*   4 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-input-port.f03c8a80> */,
    0x00000014    /*   6 (RET) */,
    0x0000000c    /*   7 (CONSTU-RET) */,
    /* call-with-input-file */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2204]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-file.f03c8d60> */,
    0x0000004a    /*   4 (LREF2-PUSH) */,
    0x0000003d    /*   5 (LREF0) */,
    0x00003095    /*   6 (TAIL-APPLY 3) */,
    0x00001018    /*   7 (PUSH-LOCAL-ENV 1) */,
    0x00000016    /*   8 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[39])) /* #<compiled-code (call-with-input-file #f)@0x7fc3f0e83540> */,
    0x0000000d    /*  10 (PUSH) */,
    0x00000016    /*  11 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[40])) /* #<compiled-code (call-with-input-file #f)@0x7fc3f0e833c0> */,
    0x0000000d    /*  13 (PUSH) */,
    0x00000006    /*  14 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*  16 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[1002])) /* ("libio.scm" 1001) */,
    0x00004060    /*  18 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.f03c8c40> */,
    0x00000014    /*  20 (RET) */,
    /* (call-with-output-file #f) */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00000042    /*   1 (LREF11) */,
    0x00001012    /*   2 (TAIL-CALL 1) */,
    0x00000014    /*   3 (RET) */,
    /* (call-with-output-file #f) */
    0x0000003d    /*   0 (LREF0) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2229]) + 7),
    0x00000048    /*   3 (LREF0-PUSH) */,
    0x00001060    /*   4 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-output-port.f0d5e620> */,
    0x00000014    /*   6 (RET) */,
    0x0000000c    /*   7 (CONSTU-RET) */,
    /* call-with-output-file */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2237]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-file.f0d5d160> */,
    0x0000004a    /*   4 (LREF2-PUSH) */,
    0x0000003d    /*   5 (LREF0) */,
    0x00003095    /*   6 (TAIL-APPLY 3) */,
    0x00001018    /*   7 (PUSH-LOCAL-ENV 1) */,
    0x00000016    /*   8 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[42])) /* #<compiled-code (call-with-output-file #f)@0x7fc3f0e4bf60> */,
    0x0000000d    /*  10 (PUSH) */,
    0x00000016    /*  11 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[43])) /* #<compiled-code (call-with-output-file #f)@0x7fc3f0e4bea0> */,
    0x0000000d    /*  13 (PUSH) */,
    0x00000006    /*  14 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*  16 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[1014])) /* ("libio.scm" 1006) */,
    0x00004060    /*  18 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.f0d5ee20> */,
    0x00000014    /*  20 (RET) */,
    /* (with-input-from-file #f) */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x0000004d    /*   1 (LREF11-PUSH) */,
    0x00002060    /*   2 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-port.f0bbb2a0> */,
    0x00000014    /*   4 (RET) */,
    /* (with-input-from-file #f) */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00001060    /*   1 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-input-port.f0bbb0e0> */,
    0x00000014    /*   3 (RET) */,
    /* with-input-from-file */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2267]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-file.f0bbb520> */,
    0x0000004a    /*   4 (LREF2-PUSH) */,
    0x0000003d    /*   5 (LREF0) */,
    0x00003095    /*   6 (TAIL-APPLY 3) */,
    0x00001018    /*   7 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000030    /*   9 (RF) */,
    0x00000016    /*  10 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[45])) /* #<compiled-code (with-input-from-file #f)@0x7fc3f0e4b180> */,
    0x0000000d    /*  12 (PUSH) */,
    0x00000016    /*  13 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[46])) /* #<compiled-code (with-input-from-file #f)@0x7fc3f0ec9f60> */,
    0x0000000d    /*  15 (PUSH) */,
    0x00000006    /*  16 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*  18 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[1024])) /* ("libio.scm" 1012) */,
    0x00004060    /*  20 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.f0bbb380> */,
    0x00000014    /*  22 (RET) */,
    /* (with-output-to-file #f) */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x0000004d    /*   1 (LREF11-PUSH) */,
    0x00002060    /*   2 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-port.f06074c0> */,
    0x00000014    /*   4 (RET) */,
    /* (with-output-to-file #f) */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00001060    /*   1 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-output-port.f0607380> */,
    0x00000014    /*   3 (RET) */,
    /* with-output-to-file */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2299]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-file.f0607b40> */,
    0x0000004a    /*   4 (LREF2-PUSH) */,
    0x0000003d    /*   5 (LREF0) */,
    0x00003095    /*   6 (TAIL-APPLY 3) */,
    0x00001018    /*   7 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000030    /*   9 (RF) */,
    0x00000016    /*  10 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[48])) /* #<compiled-code (with-output-to-file #f)@0x7fc3f0ec9c00> */,
    0x0000000d    /*  12 (PUSH) */,
    0x00000016    /*  13 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[49])) /* #<compiled-code (with-output-to-file #f)@0x7fc3f0ec9ba0> */,
    0x0000000d    /*  15 (PUSH) */,
    0x00000006    /*  16 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*  18 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[1036])) /* ("libio.scm" 1018) */,
    0x00004060    /*  20 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.f06075a0> */,
    0x00000014    /*  22 (RET) */,
    /* with-output-to-string */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2322]) + 4),
    0x0000005f    /*   2 (GREF-CALL 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.f01e0e00> */,
    0x00001018    /*   4 (PUSH-LOCAL-ENV 1) */,
    0x0000200e    /*   5 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2322]) + 11),
    0x00000048    /*   7 (LREF0-PUSH) */,
    0x0000004c    /*   8 (LREF10-PUSH) */,
    0x0000205f    /*   9 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-port.f01e0da0> */,
    0x00000048    /*  11 (LREF0-PUSH) */,
    0x00001060    /*  12 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.f01e0d20> */,
    0x00000014    /*  14 (RET) */,
    /* with-input-from-string */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2337]) + 5),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-string.f03c23e0> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000048    /*   6 (LREF0-PUSH) */,
    0x00002060    /*   7 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-port.f03c2420> */,
    0x00000014    /*   9 (RET) */,
    /* call-with-output-string */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2347]) + 4),
    0x0000005f    /*   2 (GREF-CALL 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.f0231820> */,
    0x00001018    /*   4 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*   5 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2347]) + 10),
    0x00000048    /*   7 (LREF0-PUSH) */,
    0x00000041    /*   8 (LREF10) */,
    0x00001011    /*   9 (CALL 1) */,
    0x00000048    /*  10 (LREF0-PUSH) */,
    0x00001060    /*  11 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.f02317a0> */,
    0x00000014    /*  13 (RET) */,
    /* call-with-input-string */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2361]) + 5),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-string.f039e680> */,
    0x0000000d    /*   5 (PUSH) */,
    0x0000003d    /*   6 (LREF0) */,
    0x00001012    /*   7 (TAIL-CALL 1) */,
    0x00000014    /*   8 (RET) */,
    /* call-with-string-io */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2370]) + 4),
    0x0000005f    /*   2 (GREF-CALL 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.efee0200> */,
    0x0000100f    /*   4 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2370]) + 9),
    0x00000049    /*   6 (LREF1-PUSH) */,
    0x0000105f    /*   7 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-string.efee01c0> */,
    0x00002018    /*   9 (PUSH-LOCAL-ENV 2) */,
    0x0000200e    /*  10 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2370]) + 16),
    0x00000048    /*  12 (LREF0-PUSH) */,
    0x00000049    /*  13 (LREF1-PUSH) */,
    0x00000041    /*  14 (LREF10) */,
    0x00002011    /*  15 (CALL 2) */,
    0x00000049    /*  16 (LREF1-PUSH) */,
    0x00001060    /*  17 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.efee0100> */,
    0x00000014    /*  19 (RET) */,
    /* (with-string-io #f) */
    0x00000049    /*   0 (LREF1-PUSH) */,
    0x00000048    /*   1 (LREF0-PUSH) */,
    0x00002060    /*   2 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-string.f00c2d20> */,
    0x00000014    /*   4 (RET) */,
    /* with-string-io */
    0x00000016    /*   0 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[56])) /* #<compiled-code (with-string-io #f)@0x7fc3f0f2ac00> */,
    0x00001063    /*   2 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-string.f00c2fc0> */,
    0x00000014    /*   4 (RET) */,
    /* (write-to-string #f) */
    0x0000004d    /*   0 (LREF11-PUSH) */,
    0x0000003e    /*   1 (LREF1) */,
    0x00001012    /*   2 (TAIL-CALL 1) */,
    0x00000014    /*   3 (RET) */,
    /* write-to-string */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]) + 7),
    0x0000005d    /*   3 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write.efe0da60> */,
    0x00000013    /*   5 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]) + 8),
    0x0000006a    /*   7 (LREF0-CAR) */,
    0x0000000d    /*   8 (PUSH) */,
    0x0000003d    /*   9 (LREF0) */,
    0x00000022    /*  10 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]) + 15),
    0x00000003    /*  12 (CONSTN) */,
    0x00000013    /*  13 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]) + 16),
    0x00000076    /*  15 (LREF0-CDR) */,
    0x00002018    /*  16 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  17 (LREF0) */,
    0x00000022    /*  18 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]) + 22),
    0x00000013    /*  20 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]) + 30),
    0x0000200e    /*  22 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]) + 30),
    0x00000006    /*  24 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[151])) /* "too many arguments for" */,
    0x00000006    /*  26 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1614[1091])) /* (lambda (obj :optional (writer write)) (with-output-to-string (cut writer obj))) */,
    0x0000205f    /*  28 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.efe0d860> */,
    0x00000016    /*  30 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[58])) /* #<compiled-code (write-to-string #f)@0x7fc3f0f2a8a0> */,
    0x00001063    /*  32 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-string.efe0d400> */,
    0x00000014    /*  34 (RET) */,
    /* read-from-string */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2439]) + 6),
    0x0000003e    /*   3 (LREF1) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2439]) + 13),
    0x0000000e    /*   6 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2439]) + 13),
    0x0000005e    /*   8 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%maybe-substring.f3212400> */,
    0x00000049    /*  10 (LREF1-PUSH) */,
    0x0000003d    /*  11 (LREF0) */,
    0x00003095    /*  12 (TAIL-APPLY 3) */,
    0x00000061    /*  13 (PUSH-GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.f3212360> */,
    0x00002063    /*  15 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-string.f32124e0> */,
    0x00000014    /*  17 (RET) */,
    /* (with-input-from-port with-input-from-port) */
    0x000000ea    /*   0 (LREF-UNBOX 0 0) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2457]) + 7),
    0x000000ea    /*   3 (LREF-UNBOX 0 0) */,
    0x00001063    /*   4 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.f0c3bbe0> */,
    0x00000014    /*   6 (RET) */,
    0x0000000c    /*   7 (CONSTU-RET) */,
    /* (with-input-from-port with-input-from-port) */
    0x00000042    /*   0 (LREF11) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2465]) + 10),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2465]) + 8),
    0x0000004d    /*   5 (LREF11-PUSH) */,
    0x0000105f    /*   6 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.f0c3bda0> */,
    0x0000003a    /*   8 (LSET 0 0) */,
    0x00000014    /*   9 (RET) */,
    0x0000000c    /*  10 (CONSTU-RET) */,
    /* with-input-from-port */
    0x00000009    /*   0 (CONSTF-PUSH) */,
    0x00001017    /*   1 (LOCAL-ENV 1) */,
    0x000010e7    /*   2 (BOX 1) */,
    0x00000016    /*   3 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[61])) /* #<compiled-code (with-input-from-port with-input-from-port)@0x7fc3f0f2a060> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000016    /*   6 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[62])) /* #<compiled-code (with-input-from-port with-input-from-port)@0x7fc3f0f2a000> */,
    0x00002018    /*   8 (PUSH-LOCAL-ENV 2) */,
    0x0000000e    /*   9 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2476]) + 13),
    0x0000003d    /*  11 (LREF0) */,
    0x0000001c    /*  12 (LOCAL-ENV-CALL 0) */,
    0x00000048    /*  13 (LREF0-PUSH) */,
    0x0000003e    /*  14 (LREF1) */,
    0x000000e5    /*  15 (PUSH-HANDLERS) */,
    0x0000000e    /*  16 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2476]) + 20),
    0x00000044    /*  18 (LREF20) */,
    0x00000011    /*  19 (CALL 0) */,
    0x00400036    /*  20 (TAIL-RECEIVE 0 1) */,
    0x000000e6    /*  21 (POP-HANDLERS) */,
    0x0000000e    /*  22 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2476]) + 26),
    0x00000042    /*  24 (LREF11) */,
    0x0000001c    /*  25 (LOCAL-ENV-CALL 0) */,
    0x0000005e    /*  26 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.f3e62060> */,
    0x0000003d    /*  28 (LREF0) */,
    0x00002095    /*  29 (TAIL-APPLY 2) */,
    0x00000014    /*  30 (RET) */,
    /* (with-output-to-port with-output-to-port) */
    0x000000ea    /*   0 (LREF-UNBOX 0 0) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2507]) + 7),
    0x000000ea    /*   3 (LREF-UNBOX 0 0) */,
    0x00001063    /*   4 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.f0be0be0> */,
    0x00000014    /*   6 (RET) */,
    0x0000000c    /*   7 (CONSTU-RET) */,
    /* (with-output-to-port with-output-to-port) */
    0x00000042    /*   0 (LREF11) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2515]) + 10),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2515]) + 8),
    0x0000004d    /*   5 (LREF11-PUSH) */,
    0x0000105f    /*   6 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.f0bde140> */,
    0x0000003a    /*   8 (LSET 0 0) */,
    0x00000014    /*   9 (RET) */,
    0x0000000c    /*  10 (CONSTU-RET) */,
    /* with-output-to-port */
    0x00000009    /*   0 (CONSTF-PUSH) */,
    0x00001017    /*   1 (LOCAL-ENV 1) */,
    0x000010e7    /*   2 (BOX 1) */,
    0x00000016    /*   3 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[64])) /* #<compiled-code (with-output-to-port with-output-to-port)@0x7fc3f0ec9840> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000016    /*   6 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[65])) /* #<compiled-code (with-output-to-port with-output-to-port)@0x7fc3f0ec97e0> */,
    0x00002018    /*   8 (PUSH-LOCAL-ENV 2) */,
    0x0000000e    /*   9 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2526]) + 13),
    0x0000003d    /*  11 (LREF0) */,
    0x0000001c    /*  12 (LOCAL-ENV-CALL 0) */,
    0x00000048    /*  13 (LREF0-PUSH) */,
    0x0000003e    /*  14 (LREF1) */,
    0x000000e5    /*  15 (PUSH-HANDLERS) */,
    0x0000000e    /*  16 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2526]) + 20),
    0x00000044    /*  18 (LREF20) */,
    0x00000011    /*  19 (CALL 0) */,
    0x00400036    /*  20 (TAIL-RECEIVE 0 1) */,
    0x000000e6    /*  21 (POP-HANDLERS) */,
    0x0000000e    /*  22 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2526]) + 26),
    0x00000042    /*  24 (LREF11) */,
    0x0000001c    /*  25 (LOCAL-ENV-CALL 0) */,
    0x0000005e    /*  26 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.f3e62060> */,
    0x0000003d    /*  28 (LREF0) */,
    0x00002095    /*  29 (TAIL-APPLY 2) */,
    0x00000014    /*  30 (RET) */,
    /* (with-error-to-port with-error-to-port) */
    0x000000ea    /*   0 (LREF-UNBOX 0 0) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2557]) + 7),
    0x000000ea    /*   3 (LREF-UNBOX 0 0) */,
    0x00001063    /*   4 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.f06c1200> */,
    0x00000014    /*   6 (RET) */,
    0x0000000c    /*   7 (CONSTU-RET) */,
    /* (with-error-to-port with-error-to-port) */
    0x00000042    /*   0 (LREF11) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2565]) + 10),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2565]) + 8),
    0x0000004d    /*   5 (LREF11-PUSH) */,
    0x0000105f    /*   6 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.f06c16e0> */,
    0x0000003a    /*   8 (LSET 0 0) */,
    0x00000014    /*   9 (RET) */,
    0x0000000c    /*  10 (CONSTU-RET) */,
    /* with-error-to-port */
    0x00000009    /*   0 (CONSTF-PUSH) */,
    0x00001017    /*   1 (LOCAL-ENV 1) */,
    0x000010e7    /*   2 (BOX 1) */,
    0x00000016    /*   3 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[67])) /* #<compiled-code (with-error-to-port with-error-to-port)@0x7fc3f0ec90c0> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000016    /*   6 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[68])) /* #<compiled-code (with-error-to-port with-error-to-port)@0x7fc3f0ec9060> */,
    0x00002018    /*   8 (PUSH-LOCAL-ENV 2) */,
    0x0000000e    /*   9 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2576]) + 13),
    0x0000003d    /*  11 (LREF0) */,
    0x0000001c    /*  12 (LOCAL-ENV-CALL 0) */,
    0x00000048    /*  13 (LREF0-PUSH) */,
    0x0000003e    /*  14 (LREF1) */,
    0x000000e5    /*  15 (PUSH-HANDLERS) */,
    0x0000000e    /*  16 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2576]) + 20),
    0x00000044    /*  18 (LREF20) */,
    0x00000011    /*  19 (CALL 0) */,
    0x00400036    /*  20 (TAIL-RECEIVE 0 1) */,
    0x000000e6    /*  21 (POP-HANDLERS) */,
    0x0000000e    /*  22 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2576]) + 26),
    0x00000042    /*  24 (LREF11) */,
    0x0000001c    /*  25 (LOCAL-ENV-CALL 0) */,
    0x0000005e    /*  26 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.f3e62060> */,
    0x0000003d    /*  28 (LREF0) */,
    0x00002095    /*  29 (TAIL-APPLY 2) */,
    0x00000014    /*  30 (RET) */,
    /* (with-ports with-ports) */
    0x008000ea    /*   0 (LREF-UNBOX 0 2) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]) + 10),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]) + 10),
    0x008000ea    /*   5 (LREF-UNBOX 0 2) */,
    0x00001062    /*   6 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.f0365100> */,
    0x00000013    /*   8 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]) + 10),
    0x004000ea    /*  10 (LREF-UNBOX 0 1) */,
    0x0000001e    /*  11 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]) + 20),
    0x0000100e    /*  13 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]) + 20),
    0x004000ea    /*  15 (LREF-UNBOX 0 1) */,
    0x00001062    /*  16 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.f0365060> */,
    0x00000013    /*  18 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]) + 20),
    0x000000ea    /*  20 (LREF-UNBOX 0 0) */,
    0x0000001e    /*  21 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]) + 27),
    0x000000ea    /*  23 (LREF-UNBOX 0 0) */,
    0x00001063    /*  24 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.f0366fc0> */,
    0x00000014    /*  26 (RET) */,
    0x0000000c    /*  27 (CONSTU-RET) */,
    /* (with-ports with-ports) */
    0x00c0103c    /*   0 (LREF 1 3) */,
    0x0000001e    /*   1 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]) + 11),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]) + 8),
    0x00c01047    /*   5 (LREF-PUSH 1 3) */,
    0x0000105f    /*   6 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.f03653c0> */,
    0x0080003a    /*   8 (LSET 0 2) */,
    0x00000013    /*   9 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]) + 11),
    0x00000043    /*  11 (LREF12) */,
    0x0000001e    /*  12 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]) + 22),
    0x0000100e    /*  14 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]) + 19),
    0x0000004e    /*  16 (LREF12-PUSH) */,
    0x0000105f    /*  17 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.f0365320> */,
    0x0040003a    /*  19 (LSET 0 1) */,
    0x00000013    /*  20 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]) + 22),
    0x00000042    /*  22 (LREF11) */,
    0x0000001e    /*  23 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]) + 32),
    0x0000100e    /*  25 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]) + 30),
    0x0000004d    /*  27 (LREF11-PUSH) */,
    0x0000105f    /*  28 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.f0365280> */,
    0x0000003a    /*  30 (LSET 0 0) */,
    0x00000014    /*  31 (RET) */,
    0x0000000c    /*  32 (CONSTU-RET) */,
    /* with-ports */
    0x00000009    /*   0 (CONSTF-PUSH) */,
    0x00000009    /*   1 (CONSTF-PUSH) */,
    0x00000009    /*   2 (CONSTF-PUSH) */,
    0x00003017    /*   3 (LOCAL-ENV 3) */,
    0x000030e7    /*   4 (BOX 3) */,
    0x000020e7    /*   5 (BOX 2) */,
    0x000010e7    /*   6 (BOX 1) */,
    0x00000016    /*   7 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[70])) /* #<compiled-code (with-ports with-ports)@0x7fc3f0543b40> */,
    0x0000000d    /*   9 (PUSH) */,
    0x00000016    /*  10 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[71])) /* #<compiled-code (with-ports with-ports)@0x7fc3f0543960> */,
    0x00002018    /*  12 (PUSH-LOCAL-ENV 2) */,
    0x0000000e    /*  13 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2668]) + 17),
    0x0000003d    /*  15 (LREF0) */,
    0x0000001c    /*  16 (LOCAL-ENV-CALL 0) */,
    0x00000048    /*  17 (LREF0-PUSH) */,
    0x0000003e    /*  18 (LREF1) */,
    0x000000e5    /*  19 (PUSH-HANDLERS) */,
    0x0000000e    /*  20 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2668]) + 24),
    0x00000044    /*  22 (LREF20) */,
    0x00000011    /*  23 (CALL 0) */,
    0x00400036    /*  24 (TAIL-RECEIVE 0 1) */,
    0x000000e6    /*  25 (POP-HANDLERS) */,
    0x0000000e    /*  26 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2668]) + 30),
    0x00000042    /*  28 (LREF11) */,
    0x0000001c    /*  29 (LOCAL-ENV-CALL 0) */,
    0x0000005e    /*  30 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.f3e62060> */,
    0x0000003d    /*  32 (LREF0) */,
    0x00002095    /*  33 (TAIL-APPLY 2) */,
    0x00000014    /*  34 (RET) */,
    /* #f */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2703]) + 6),
    0x00000006    /*   2 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1612[306])) /* "Reading R6RS source file.  Note that Gauche is not R6RS compliant." */,
    0x0000105f    /*   4 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#warn.efee9ce0> */,
    0x000000a3    /*   6 (VALUES-RET 0) */,
    /* %toplevel */
    0x00000006    /*   0 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* r6rs */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[73])) /* #<compiled-code #f@0x7fc3f0543660> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.efee9e80> */,
    0x00000014    /*   6 (RET) */,
    /* #f */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2717]) + 7),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x00000006    /*   3 (CONST-PUSH) */,
    SCM_WORD(SCM_TRUE) /* #t */,
    0x0000205f    /*   5 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-case-fold-set!.f0269da0> */,
    0x000000a3    /*   7 (VALUES-RET 0) */,
    /* %toplevel */
    0x00000006    /*   0 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* fold-case */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[75])) /* #<compiled-code #f@0x7fc3f05c2de0> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.f0269f40> */,
    0x00000014    /*   6 (RET) */,
    /* #f */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2732]) + 6),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x00000009    /*   3 (CONSTF-PUSH) */,
    0x0000205f    /*   4 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-case-fold-set!.eff70820> */,
    0x000000a3    /*   6 (VALUES-RET 0) */,
    /* %toplevel */
    0x00000006    /*   0 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* no-fold-case */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[77])) /* #<compiled-code #f@0x7fc3f05c2960> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.eff709c0> */,
    0x00000014    /*   6 (RET) */,
    /* #f */
    0x0000300e    /*   0 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2746]) + 9),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x00000006    /*   3 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* reader-lexical-mode */,
    0x00000006    /*   5 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* legacy */,
    0x0000305f    /*   7 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-attribute-set!.efe20a00> */,
    0x000000a3    /*   9 (VALUES-RET 0) */,
    /* %toplevel */
    0x00000006    /*   0 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* gauche-legacy */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[79])) /* #<compiled-code #f@0x7fc3f05c2180> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.efe20ba0> */,
    0x00000014    /*   6 (RET) */,
    /* #f */
    0x0000300e    /*   0 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1621[2763]) + 9),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x00000006    /*   3 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* reader-lexical-mode */,
    0x00000006    /*   5 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* strict-r7 */,
    0x0000305f    /*   7 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-attribute-set!.f14d9840> */,
    0x000000a3    /*   9 (VALUES-RET 0) */,
    /* %toplevel */
    0x00000006    /*   0 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* r7rs */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1622[81])) /* #<compiled-code #f@0x7fc3f0f2aae0> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.f14d9b60> */,
    0x00000014    /*   6 (RET) */,
  },
  {   /* ScmPair d1614 */
       { SCM_NIL, SCM_NIL },
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(53U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[2])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[3])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[5])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[6])},
       { SCM_OBJ(&scm__rc.d1614[7]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[4]), SCM_OBJ(&scm__rc.d1614[8])},
       { SCM_MAKE_INT(54U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[10])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[11])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[13])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[14])},
       { SCM_OBJ(&scm__rc.d1614[15]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[12]), SCM_OBJ(&scm__rc.d1614[16])},
       { SCM_MAKE_INT(55U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[18])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[19])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[21])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[22])},
       { SCM_OBJ(&scm__rc.d1614[23]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[20]), SCM_OBJ(&scm__rc.d1614[24])},
       { SCM_MAKE_INT(58U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[26])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[27])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[29])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[30])},
       { SCM_OBJ(&scm__rc.d1614[31]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[28]), SCM_OBJ(&scm__rc.d1614[32])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[34])},
       { SCM_MAKE_INT(66U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[36])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[37])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[39])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[40])},
       { SCM_OBJ(&scm__rc.d1614[41]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[38]), SCM_OBJ(&scm__rc.d1614[42])},
       { SCM_MAKE_INT(74U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[44])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[45])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[47])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[48])},
       { SCM_OBJ(&scm__rc.d1614[49]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[46]), SCM_OBJ(&scm__rc.d1614[50])},
       { SCM_MAKE_INT(84U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[52])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[53])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[55])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[56])},
       { SCM_OBJ(&scm__rc.d1614[57]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[54]), SCM_OBJ(&scm__rc.d1614[58])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[60])},
       { SCM_MAKE_INT(92U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[62])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[63])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[65])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[66])},
       { SCM_OBJ(&scm__rc.d1614[67]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[64]), SCM_OBJ(&scm__rc.d1614[68])},
       { SCM_MAKE_INT(94U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[70])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[71])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[73])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[74])},
       { SCM_OBJ(&scm__rc.d1614[75]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[72]), SCM_OBJ(&scm__rc.d1614[76])},
       { SCM_MAKE_INT(96U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[78])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[79])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[81])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[82])},
       { SCM_OBJ(&scm__rc.d1614[83]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[80]), SCM_OBJ(&scm__rc.d1614[84])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(111U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[87])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[88])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[90])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[91])},
       { SCM_OBJ(&scm__rc.d1614[92]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[89]), SCM_OBJ(&scm__rc.d1614[93])},
       { SCM_MAKE_INT(112U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[95])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[96])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[98])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[99])},
       { SCM_OBJ(&scm__rc.d1614[100]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[97]), SCM_OBJ(&scm__rc.d1614[101])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[103])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[104])},
       { SCM_MAKE_INT(114U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[106])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[107])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[109])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[110])},
       { SCM_OBJ(&scm__rc.d1614[111]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[108]), SCM_OBJ(&scm__rc.d1614[112])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[114])},
       { SCM_MAKE_INT(123U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[116])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[117])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[119])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[120])},
       { SCM_OBJ(&scm__rc.d1614[121]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[118]), SCM_OBJ(&scm__rc.d1614[122])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[124])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[125])},
       { SCM_MAKE_INT(125U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[127])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[128])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[130])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[131])},
       { SCM_OBJ(&scm__rc.d1614[132]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[129]), SCM_OBJ(&scm__rc.d1614[133])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[135])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[136])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[137])},
       { SCM_MAKE_INT(127U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[139])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[140])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[142])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[143])},
       { SCM_OBJ(&scm__rc.d1614[144]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[141]), SCM_OBJ(&scm__rc.d1614[145])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[147])},
       { SCM_MAKE_INT(130U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[149])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[150])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[152])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[153])},
       { SCM_OBJ(&scm__rc.d1614[154]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[151]), SCM_OBJ(&scm__rc.d1614[155])},
       { SCM_MAKE_INT(132U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[157])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[158])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[160])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[161])},
       { SCM_OBJ(&scm__rc.d1614[162]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[159]), SCM_OBJ(&scm__rc.d1614[163])},
       { SCM_MAKE_INT(136U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[165])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[166])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[168])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[169])},
       { SCM_OBJ(&scm__rc.d1614[170]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[167]), SCM_OBJ(&scm__rc.d1614[171])},
       { SCM_MAKE_INT(143U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[173])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[174])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[176])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[177])},
       { SCM_OBJ(&scm__rc.d1614[178]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[175]), SCM_OBJ(&scm__rc.d1614[179])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[181])},
       { SCM_MAKE_INT(151U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[183])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[184])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[186])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[187])},
       { SCM_OBJ(&scm__rc.d1614[188]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[185]), SCM_OBJ(&scm__rc.d1614[189])},
       { SCM_MAKE_INT(161U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[191])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[192])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[194])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[195])},
       { SCM_OBJ(&scm__rc.d1614[196]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[193]), SCM_OBJ(&scm__rc.d1614[197])},
       { SCM_MAKE_INT(162U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[199])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[200])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[202])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[203])},
       { SCM_OBJ(&scm__rc.d1614[204]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[201]), SCM_OBJ(&scm__rc.d1614[205])},
       { SCM_MAKE_INT(164U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[207])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[208])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[210])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[211])},
       { SCM_OBJ(&scm__rc.d1614[212]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[209]), SCM_OBJ(&scm__rc.d1614[213])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(193U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[216])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[217])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[219])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[220])},
       { SCM_OBJ(&scm__rc.d1614[221]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[218]), SCM_OBJ(&scm__rc.d1614[222])},
       { SCM_MAKE_INT(220U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[224])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[225])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[227])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[228])},
       { SCM_OBJ(&scm__rc.d1614[229]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[226]), SCM_OBJ(&scm__rc.d1614[230])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(269U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[233])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[234])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[236])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[237])},
       { SCM_OBJ(&scm__rc.d1614[238]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[235]), SCM_OBJ(&scm__rc.d1614[239])},
       { SCM_MAKE_INT(288U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[241])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[242])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[244])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[245])},
       { SCM_OBJ(&scm__rc.d1614[246]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[243]), SCM_OBJ(&scm__rc.d1614[247])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[249])},
       { SCM_MAKE_INT(338U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[251])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[252])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[254])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[255])},
       { SCM_OBJ(&scm__rc.d1614[256]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[253]), SCM_OBJ(&scm__rc.d1614[257])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[249])},
       { SCM_MAKE_INT(362U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[260])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[261])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[263])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[264])},
       { SCM_OBJ(&scm__rc.d1614[265]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[262]), SCM_OBJ(&scm__rc.d1614[266])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(385U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[269])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[270])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[272])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[273])},
       { SCM_OBJ(&scm__rc.d1614[274]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[271]), SCM_OBJ(&scm__rc.d1614[275])},
       { SCM_MAKE_INT(391U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[277])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[278])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[280])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[281])},
       { SCM_OBJ(&scm__rc.d1614[282]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[279]), SCM_OBJ(&scm__rc.d1614[283])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(396U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[286])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[287])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[289])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[290])},
       { SCM_OBJ(&scm__rc.d1614[291]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[288]), SCM_OBJ(&scm__rc.d1614[292])},
       { SCM_MAKE_INT(399U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[294])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[295])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[297])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[298])},
       { SCM_OBJ(&scm__rc.d1614[299]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[296]), SCM_OBJ(&scm__rc.d1614[300])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(402U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[303])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[304])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[306])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[307])},
       { SCM_OBJ(&scm__rc.d1614[308]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[305]), SCM_OBJ(&scm__rc.d1614[309])},
       { SCM_MAKE_INT(408U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[311])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[312])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[314])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[315])},
       { SCM_OBJ(&scm__rc.d1614[316]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[313]), SCM_OBJ(&scm__rc.d1614[317])},
       { SCM_MAKE_INT(416U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[319])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[320])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[322])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[323])},
       { SCM_OBJ(&scm__rc.d1614[324]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[321]), SCM_OBJ(&scm__rc.d1614[325])},
       { SCM_MAKE_INT(418U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[327])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[328])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[330])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[331])},
       { SCM_OBJ(&scm__rc.d1614[332]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[329]), SCM_OBJ(&scm__rc.d1614[333])},
       { SCM_MAKE_INT(421U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[335])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[336])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[338])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[339])},
       { SCM_OBJ(&scm__rc.d1614[340]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[337]), SCM_OBJ(&scm__rc.d1614[341])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[343])},
       { SCM_MAKE_INT(423U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[345])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[346])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[348])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[349])},
       { SCM_OBJ(&scm__rc.d1614[350]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[347]), SCM_OBJ(&scm__rc.d1614[351])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[353])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[354])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[355])},
       { SCM_MAKE_INT(434U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[357])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[358])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[360])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[361])},
       { SCM_OBJ(&scm__rc.d1614[362]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[359]), SCM_OBJ(&scm__rc.d1614[363])},
       { SCM_MAKE_INT(439U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[365])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[366])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[368]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[367]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(442U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[372])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[373])},
       { SCM_OBJ(&scm__rc.d1614[374]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(455U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[377])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[378])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[380])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[381])},
       { SCM_OBJ(&scm__rc.d1614[382]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[379]), SCM_OBJ(&scm__rc.d1614[383])},
       { SCM_MAKE_INT(461U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[385])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[386])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[388])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[389])},
       { SCM_OBJ(&scm__rc.d1614[390]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[387]), SCM_OBJ(&scm__rc.d1614[391])},
       { SCM_MAKE_INT(485U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[393])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[394])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[396])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[397])},
       { SCM_OBJ(&scm__rc.d1614[398]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[395]), SCM_OBJ(&scm__rc.d1614[399])},
       { SCM_MAKE_INT(493U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[401])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[402])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[404])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[405])},
       { SCM_OBJ(&scm__rc.d1614[406]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[403]), SCM_OBJ(&scm__rc.d1614[407])},
       { SCM_MAKE_INT(496U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[409])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[410])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[412])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[413])},
       { SCM_OBJ(&scm__rc.d1614[414]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[411]), SCM_OBJ(&scm__rc.d1614[415])},
       { SCM_FALSE, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(502U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[421])},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[423])},
       { SCM_MAKE_INT(501U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[425])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[426])},
       { SCM_OBJ(&scm__rc.d1614[427]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(513U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[433])},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[435])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[436])},
       { SCM_MAKE_INT(507U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[438])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[439])},
       { SCM_OBJ(&scm__rc.d1614[440]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[86])},
       { SCM_MAKE_INT(535U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[444])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[445])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[447])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[448])},
       { SCM_OBJ(&scm__rc.d1614[449]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[446]), SCM_OBJ(&scm__rc.d1614[450])},
       { SCM_MAKE_INT(538U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[452])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[453])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[455])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[456])},
       { SCM_OBJ(&scm__rc.d1614[457]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[454]), SCM_OBJ(&scm__rc.d1614[458])},
       { SCM_MAKE_INT(544U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[460])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[461])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[463])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[464])},
       { SCM_OBJ(&scm__rc.d1614[465]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[462]), SCM_OBJ(&scm__rc.d1614[466])},
       { SCM_MAKE_INT(549U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[468])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[469])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[471])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[472])},
       { SCM_OBJ(&scm__rc.d1614[473]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[470]), SCM_OBJ(&scm__rc.d1614[474])},
       { SCM_MAKE_INT(552U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[476])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[477])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[479])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[480])},
       { SCM_OBJ(&scm__rc.d1614[481]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[478]), SCM_OBJ(&scm__rc.d1614[482])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[484])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[485])},
       { SCM_OBJ(&scm__rc.d1614[486]), SCM_NIL},
       { SCM_MAKE_INT(560U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[488])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[489])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[491])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[492])},
       { SCM_OBJ(&scm__rc.d1614[493]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[490]), SCM_OBJ(&scm__rc.d1614[494])},
       { SCM_MAKE_INT(565U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[496])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[497])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[499])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[500])},
       { SCM_OBJ(&scm__rc.d1614[501]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[498]), SCM_OBJ(&scm__rc.d1614[502])},
       { SCM_MAKE_INT(572U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[504])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[505])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[507])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[508])},
       { SCM_OBJ(&scm__rc.d1614[509]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[506]), SCM_OBJ(&scm__rc.d1614[510])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[512])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[513])},
       { SCM_MAKE_INT(578U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[515])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[516])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[518])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[519])},
       { SCM_OBJ(&scm__rc.d1614[520]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[517]), SCM_OBJ(&scm__rc.d1614[521])},
       { SCM_OBJ(&scm__rc.d1614[39]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[523])},
       { SCM_OBJ(&scm__rc.d1614[524]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[525])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[526])},
       { SCM_TRUE, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[528])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[529])},
       { SCM_OBJ(&scm__rc.d1614[530]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[531])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[532])},
       { SCM_MAKE_INT(0), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[534])},
       { SCM_OBJ(&scm__rc.d1614[535]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[537])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[538])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[540])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[86])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[543])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[535])},
       { SCM_OBJ(&scm__rc.d1614[541]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[484]), SCM_OBJ(&scm__rc.d1614[546])},
       { SCM_OBJ(&scm__rc.d1614[545]), SCM_OBJ(&scm__rc.d1614[547])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[548])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[540])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[550])},
       { SCM_MAKE_INT(1U), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[552])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[553])},
       { SCM_OBJ(&scm__rc.d1614[554]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[555])},
       { SCM_OBJ(&scm__rc.d1614[556]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[551]), SCM_OBJ(&scm__rc.d1614[557])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[558])},
       { SCM_OBJ(&scm__rc.d1614[559]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[549]), SCM_OBJ(&scm__rc.d1614[560])},
       { SCM_OBJ(&scm__rc.d1614[544]), SCM_OBJ(&scm__rc.d1614[561])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[562])},
       { SCM_OBJ(&scm__rc.d1614[563]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[542]), SCM_OBJ(&scm__rc.d1614[564])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[565])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[566])},
       { SCM_OBJ(&scm__rc.d1614[567]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[541]), SCM_OBJ(&scm__rc.d1614[568])},
       { SCM_OBJ(&scm__rc.d1614[539]), SCM_OBJ(&scm__rc.d1614[569])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[570])},
       { SCM_OBJ(&scm__rc.d1614[571]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[536]), SCM_OBJ(&scm__rc.d1614[572])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[573])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[574])},
       { SCM_OBJ(&scm__rc.d1614[575]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[533]), SCM_OBJ(&scm__rc.d1614[576])},
       { SCM_OBJ(&scm__rc.d1614[527]), SCM_OBJ(&scm__rc.d1614[577])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[578])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(587U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[581])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[582])},
       { SCM_OBJ(&scm__rc.d1614[583]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[47]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[586])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[534])},
       { SCM_MAKE_INT(-1), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[589])},
       { SCM_OBJ(&scm__rc.d1614[590]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[588]), SCM_OBJ(&scm__rc.d1614[591])},
       { SCM_OBJ(&scm__rc.d1614[587]), SCM_OBJ(&scm__rc.d1614[592])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[593])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[594])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[596])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[597])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[599])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[600])},
       { SCM_OBJ(&scm__rc.d1614[598]), SCM_OBJ(&scm__rc.d1614[601])},
       { SCM_OBJ(&scm__rc.d1614[602]), SCM_OBJ(&scm__rc.d1614[86])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[603])},
       { SCM_OBJ(&scm__rc.d1614[604]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[595]), SCM_OBJ(&scm__rc.d1614[605])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[606])},
       { SCM_MAKE_INT(599U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[608])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[609])},
       { SCM_OBJ(&scm__rc.d1614[610]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[86])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[86])},
       { SCM_MAKE_INT(32U), SCM_NIL},
       { SCM_MAKE_INT(9U), SCM_OBJ(&scm__rc.d1614[615])},
       { SCM_OBJ(&scm__rc.d1614[616]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[617])},
       { SCM_OBJ(&scm__rc.d1614[618]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[619])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[620])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[86])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[623]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[622]), SCM_OBJ(&scm__rc.d1614[624])},
       { SCM_OBJ(&scm__rc.d1614[621]), SCM_OBJ(&scm__rc.d1614[625])},
       { SCM_MAKE_INT(13U), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[627])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[628])},
       { SCM_MAKE_INT(10U), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[614]), SCM_OBJ(&scm__rc.d1614[630])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[631])},
       { SCM_OBJ(&scm__rc.d1614[632]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[613]), SCM_OBJ(&scm__rc.d1614[633])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[634])},
       { SCM_OBJ(&scm__rc.d1614[622]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[635]), SCM_OBJ(&scm__rc.d1614[636])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[637])},
       { SCM_OBJ(&scm__rc.d1614[638]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[622]), SCM_OBJ(&scm__rc.d1614[639])},
       { SCM_OBJ(&scm__rc.d1614[629]), SCM_OBJ(&scm__rc.d1614[640])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[630])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[642])},
       { SCM_OBJ(&scm__rc.d1614[643]), SCM_OBJ(&scm__rc.d1614[636])},
       { SCM_OBJ(&scm__rc.d1614[644]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[641]), SCM_OBJ(&scm__rc.d1614[645])},
       { SCM_OBJ(&scm__rc.d1614[626]), SCM_OBJ(&scm__rc.d1614[646])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[647])},
       { SCM_OBJ(&scm__rc.d1614[648]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[614]), SCM_OBJ(&scm__rc.d1614[649])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[650])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[651])},
       { SCM_OBJ(&scm__rc.d1614[652]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[613]), SCM_OBJ(&scm__rc.d1614[653])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[654])},
       { SCM_OBJ(&scm__rc.d1614[655]), SCM_NIL},
       { SCM_NIL, SCM_OBJ(&scm__rc.d1614[656])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[657])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[658])},
       { SCM_OBJ(&scm__rc.d1614[659]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[526]), SCM_OBJ(&scm__rc.d1614[660])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[661])},
       { SCM_MAKE_INT(616U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[663])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[664])},
       { SCM_OBJ(&scm__rc.d1614[665]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[443])},
       { SCM_MAKE_INT(629U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[669])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[670])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[672])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[673])},
       { SCM_OBJ(&scm__rc.d1614[674]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[671]), SCM_OBJ(&scm__rc.d1614[675])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[443])},
       { SCM_MAKE_INT(644U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[678])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[679])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[681])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[682])},
       { SCM_OBJ(&scm__rc.d1614[683]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[680]), SCM_OBJ(&scm__rc.d1614[684])},
       { SCM_MAKE_INT(648U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[686])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[687])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[689])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[690])},
       { SCM_OBJ(&scm__rc.d1614[691]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[688]), SCM_OBJ(&scm__rc.d1614[692])},
       { SCM_MAKE_INT(656U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[694])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[695])},
       { SCM_OBJ(&scm__rc.d1614[696]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_MAKE_INT(663U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[700])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[701])},
       { SCM_OBJ(&scm__rc.d1614[702]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[86])},
       { SCM_MAKE_INT(661U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[706])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[707])},
       { SCM_OBJ(&scm__rc.d1614[708]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[711])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(670U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[714])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[715])},
       { SCM_OBJ(&scm__rc.d1614[716]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1622[17]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(671U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[721])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[722])},
       { SCM_OBJ(&scm__rc.d1614[723]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[726])},
       { SCM_MAKE_INT(674U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[728])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[729])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[731])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[732])},
       { SCM_OBJ(&scm__rc.d1614[733]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[730]), SCM_OBJ(&scm__rc.d1614[734])},
       { SCM_MAKE_INT(680U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[736])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[737])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[739])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[740])},
       { SCM_OBJ(&scm__rc.d1614[741]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[738]), SCM_OBJ(&scm__rc.d1614[742])},
       { SCM_MAKE_INT(682U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[744])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[745])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[747])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[748])},
       { SCM_OBJ(&scm__rc.d1614[749]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[746]), SCM_OBJ(&scm__rc.d1614[750])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[752])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[753])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[754])},
       { SCM_MAKE_INT(688U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[756])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[757])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[759])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[760])},
       { SCM_OBJ(&scm__rc.d1614[761]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[758]), SCM_OBJ(&scm__rc.d1614[762])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(691U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[765])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[766])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[768])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[769])},
       { SCM_OBJ(&scm__rc.d1614[770]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[767]), SCM_OBJ(&scm__rc.d1614[771])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[773])},
       { SCM_MAKE_INT(694U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[775])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[776])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[778])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[779])},
       { SCM_OBJ(&scm__rc.d1614[780]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[777]), SCM_OBJ(&scm__rc.d1614[781])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[783])},
       { SCM_MAKE_INT(705U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[785])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[786])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[788])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[789])},
       { SCM_OBJ(&scm__rc.d1614[790]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[787]), SCM_OBJ(&scm__rc.d1614[791])},
       { SCM_MAKE_INT(713U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[793])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[794])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[796])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[797])},
       { SCM_OBJ(&scm__rc.d1614[798]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[795]), SCM_OBJ(&scm__rc.d1614[799])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(715U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[802])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[803])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[805])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[806])},
       { SCM_OBJ(&scm__rc.d1614[807]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[804]), SCM_OBJ(&scm__rc.d1614[808])},
       { SCM_MAKE_INT(718U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[810])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[811])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[813])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[814])},
       { SCM_OBJ(&scm__rc.d1614[815]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[812]), SCM_OBJ(&scm__rc.d1614[816])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[818])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[819])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[820])},
       { SCM_MAKE_INT(761U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[822])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[823])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[825])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[826])},
       { SCM_OBJ(&scm__rc.d1614[827]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[824]), SCM_OBJ(&scm__rc.d1614[828])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[443])},
       { SCM_MAKE_INT(767U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[831])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[832])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[834])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[835])},
       { SCM_OBJ(&scm__rc.d1614[836]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[833]), SCM_OBJ(&scm__rc.d1614[837])},
       { SCM_MAKE_INT(772U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[839])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[840])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[842])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[843])},
       { SCM_OBJ(&scm__rc.d1614[844]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[841]), SCM_OBJ(&scm__rc.d1614[845])},
       { SCM_MAKE_INT(778U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[847])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[848])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[850])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[851])},
       { SCM_OBJ(&scm__rc.d1614[852]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[849]), SCM_OBJ(&scm__rc.d1614[853])},
       { SCM_MAKE_INT(784U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[855])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[856])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[858])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[859])},
       { SCM_OBJ(&scm__rc.d1614[860]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[857]), SCM_OBJ(&scm__rc.d1614[861])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[443])},
       { SCM_MAKE_INT(788U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[864])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[865])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[867])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[868])},
       { SCM_OBJ(&scm__rc.d1614[869]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[866]), SCM_OBJ(&scm__rc.d1614[870])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[443])},
       { SCM_MAKE_INT(794U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[873])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[874])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[876])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[877])},
       { SCM_OBJ(&scm__rc.d1614[878]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[875]), SCM_OBJ(&scm__rc.d1614[879])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[443])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[881])},
       { SCM_MAKE_INT(804U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[883])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[884])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[886])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[887])},
       { SCM_OBJ(&scm__rc.d1614[888]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[885]), SCM_OBJ(&scm__rc.d1614[889])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[285])},
       { SCM_MAKE_INT(810U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[892])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[893])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[895])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[896])},
       { SCM_OBJ(&scm__rc.d1614[897]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[894]), SCM_OBJ(&scm__rc.d1614[898])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[900])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[901])},
       { SCM_OBJ(&scm__rc.d1614[902]), SCM_NIL},
       { SCM_MAKE_INT(820U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[904])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[905])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[907])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[908])},
       { SCM_OBJ(&scm__rc.d1614[909]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[906]), SCM_OBJ(&scm__rc.d1614[910])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[86])},
       { SCM_MAKE_INT(828U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[913])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[914])},
       { SCM_OBJ(&scm__rc.d1614[915]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[918])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(835U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[921])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[922])},
       { SCM_OBJ(&scm__rc.d1614[923]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1622[26]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[927])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[928])},
       { SCM_MAKE_INT(832U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[930])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[931])},
       { SCM_OBJ(&scm__rc.d1614[932]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[587]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[935])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[936])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[912])},
       { SCM_OBJ(&scm__rc.d1614[938]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[937]), SCM_OBJ(&scm__rc.d1614[939])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[940])},
       { SCM_MAKE_INT(861U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[942])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[943])},
       { SCM_OBJ(&scm__rc.d1614[944]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(865U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[947])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[948])},
       { SCM_OBJ(&scm__rc.d1614[949]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[952])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[953])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[954])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[955])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[956])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[957])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[958])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[959])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[960])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[961])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[962])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[963])},
       { SCM_MAKE_INT(918U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[965])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[966])},
       { SCM_OBJ(&scm__rc.d1614[967]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[964])},
       { SCM_MAKE_INT(936U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[971])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[972])},
       { SCM_OBJ(&scm__rc.d1614[973]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_MAKE_INT(977U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[977])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[978])},
       { SCM_OBJ(&scm__rc.d1614[979]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(986U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[982])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[983])},
       { SCM_OBJ(&scm__rc.d1614[984]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(994U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[990])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[773])},
       { SCM_MAKE_INT(993U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[993])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[994])},
       { SCM_OBJ(&scm__rc.d1614[995]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1001U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1001])},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1003])},
       { SCM_MAKE_INT(999U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1005])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1006])},
       { SCM_OBJ(&scm__rc.d1614[1007]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1006U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1013])},
       { SCM_MAKE_INT(1004U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1015])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1016])},
       { SCM_OBJ(&scm__rc.d1614[1017]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1012U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1023])},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1025])},
       { SCM_MAKE_INT(1009U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1027])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1028])},
       { SCM_OBJ(&scm__rc.d1614[1029]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1018U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1035])},
       { SCM_MAKE_INT(1015U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1037])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1038])},
       { SCM_OBJ(&scm__rc.d1614[1039]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1022U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1043])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1044])},
       { SCM_OBJ(&scm__rc.d1614[1045]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1042])},
       { SCM_MAKE_INT(1027U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1049])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1050])},
       { SCM_OBJ(&scm__rc.d1614[1051]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1030U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1054])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1055])},
       { SCM_OBJ(&scm__rc.d1614[1056]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[773])},
       { SCM_MAKE_INT(1035U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1060])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1061])},
       { SCM_OBJ(&scm__rc.d1614[1062]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1038U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1065])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1066])},
       { SCM_OBJ(&scm__rc.d1614[1067]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_MAKE_INT(1045U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1071])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1072])},
       { SCM_OBJ(&scm__rc.d1614[1073]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1044U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1076])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1077])},
       { SCM_OBJ(&scm__rc.d1614[1078]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[825])},
       { SCM_OBJ(&scm__rc.d1614[1081]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1082])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1083])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1085])},
       { SCM_OBJ(&scm__rc.d1614[1086]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1087])},
       { SCM_OBJ(&scm__rc.d1614[1088]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[1084]), SCM_OBJ(&scm__rc.d1614[1089])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1090])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[417])},
       { SCM_MAKE_INT(1048U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1093])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1094])},
       { SCM_OBJ(&scm__rc.d1614[1095]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1047U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1098])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1099])},
       { SCM_OBJ(&scm__rc.d1614[1100]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_MAKE_INT(1050U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1104])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1105])},
       { SCM_OBJ(&scm__rc.d1614[1106]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1109])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1042])},
       { SCM_MAKE_INT(1070U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1114])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1115])},
       { SCM_OBJ(&scm__rc.d1614[1116]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1119])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1073U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1123])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1124])},
       { SCM_OBJ(&scm__rc.d1614[1125]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1128])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1076U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1132])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1133])},
       { SCM_OBJ(&scm__rc.d1614[1134]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1137])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1042])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1141])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1142])},
       { SCM_MAKE_INT(1079U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1144])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1145])},
       { SCM_OBJ(&scm__rc.d1614[1146]), SCM_OBJ(&scm__rc.d1614[369])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[783])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1149])},
       { SCM_MAKE_INT(1090U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1151])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1152])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1150])},
       { SCM_OBJ(&scm__rc.d1614[1154]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[1153]), SCM_OBJ(&scm__rc.d1614[1155])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1097U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1158])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1159])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[783])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1161])},
       { SCM_OBJ(&scm__rc.d1614[1162]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1614[1160]), SCM_OBJ(&scm__rc.d1614[1163])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1102U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1166])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1167])},
       { SCM_OBJ(&scm__rc.d1614[1168]), SCM_OBJ(&scm__rc.d1614[1163])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1107U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1171])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1172])},
       { SCM_OBJ(&scm__rc.d1614[1173]), SCM_OBJ(&scm__rc.d1614[1163])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1112U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1612[3]), SCM_OBJ(&scm__rc.d1614[1176])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1614[1177])},
       { SCM_OBJ(&scm__rc.d1614[1178]), SCM_OBJ(&scm__rc.d1614[1163])},
       { SCM_UNDEFINED, SCM_NIL},
  },
  {   /* ScmObj d1613 */
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(7, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(7, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    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_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    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_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(4, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    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_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(7, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    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_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    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_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    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_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    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_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(7, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(6, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(7, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(4, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_OBJ(SCM_CLASS_STATIC_TAG(Scm_VectorClass)) /* <vector> */,
    SCM_VECTOR_SIZE_SLOT_INITIALIZER(5, FALSE),
    SCM_MAKE_INT(1U),
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    SCM_UNDEFINED,
    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,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
  },
};

static ScmObj libioinput_portP(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("input-port?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_IPORTP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libiooutput_portP(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("output-port?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_OPORTP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libioportP(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("port?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_PORTP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libioport_closedP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmPort* obj;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port-closed?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(obj_scm)) Scm_Error("<port> required, but got %S", obj_scm);
  obj = SCM_PORT(obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_PORT_CLOSED_P(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libiocurrent_input_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj newport_scm;
  ScmObj newport;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("current-input-port");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    newport_scm = SCM_SUBRARGS[0];
  } else {
    newport_scm = SCM_UNBOUND;
  }
  if (!(newport_scm)) Scm_Error("scheme object required, but got %S", newport_scm);
  newport = (newport_scm);
  {
{
ScmObj SCM_RESULT;

#line 67 "libio.scm"
if (SCM_IPORTP(newport)){
{SCM_RESULT=(Scm_SetCurrentInputPort(SCM_PORT(newport)));goto SCM_STUB_RETURN;}}else if(
!(SCM_UNBOUNDP(newport))){
Scm_TypeError("current-input-port","input port",newport);
{SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(SCM_OBJ(SCM_CURIN));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiocurrent_output_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj newport_scm;
  ScmObj newport;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("current-output-port");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    newport_scm = SCM_SUBRARGS[0];
  } else {
    newport_scm = SCM_UNBOUND;
  }
  if (!(newport_scm)) Scm_Error("scheme object required, but got %S", newport_scm);
  newport = (newport_scm);
  {
{
ScmObj SCM_RESULT;

#line 75 "libio.scm"
if (SCM_OPORTP(newport)){
{SCM_RESULT=(Scm_SetCurrentOutputPort(SCM_PORT(newport)));goto SCM_STUB_RETURN;}}else if(
!(SCM_UNBOUNDP(newport))){
Scm_TypeError("current-output-port","output port",newport);
{SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(SCM_OBJ(SCM_CUROUT));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiocurrent_error_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj newport_scm;
  ScmObj newport;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("current-error-port");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    newport_scm = SCM_SUBRARGS[0];
  } else {
    newport_scm = SCM_UNBOUND;
  }
  if (!(newport_scm)) Scm_Error("scheme object required, but got %S", newport_scm);
  newport = (newport_scm);
  {
{
ScmObj SCM_RESULT;

#line 85 "libio.scm"
if (
SCM_OPORTP(newport)){{SCM_RESULT=(Scm_SetCurrentErrorPort(SCM_PORT(newport)));goto SCM_STUB_RETURN;}}else if(
!(SCM_UNBOUNDP(newport))){
Scm_TypeError("current-error-port","output port",newport);
{SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(SCM_OBJ(SCM_CURERR));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiostandard_input_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj p_scm;
  ScmPort* p;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("standard-input-port");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    p_scm = SCM_SUBRARGS[0];
  } else {
    p_scm = SCM_FALSE;
  }
  if (!SCM_MAYBE_P(SCM_IPORTP, p_scm)) Scm_Error("<input-port> or #f required, but got %S", p_scm);
  p = SCM_MAYBE(SCM_PORT, p_scm);
  {
{
ScmObj SCM_RESULT;

#line 93 "libio.scm"
{SCM_RESULT=(((p)?(Scm_SetStdin(p)):(Scm_Stdin())));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiostandard_output_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj p_scm;
  ScmPort* p;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("standard-output-port");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    p_scm = SCM_SUBRARGS[0];
  } else {
    p_scm = SCM_FALSE;
  }
  if (!SCM_MAYBE_P(SCM_OPORTP, p_scm)) Scm_Error("<output-port> or #f required, but got %S", p_scm);
  p = SCM_MAYBE(SCM_PORT, p_scm);
  {
{
ScmObj SCM_RESULT;

#line 95 "libio.scm"
{SCM_RESULT=(((p)?(Scm_SetStdout(p)):(Scm_Stdout())));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiostandard_error_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj p_scm;
  ScmPort* p;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("standard-error-port");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    p_scm = SCM_SUBRARGS[0];
  } else {
    p_scm = SCM_FALSE;
  }
  if (!SCM_MAYBE_P(SCM_OPORTP, p_scm)) Scm_Error("<output-port> or #f required, but got %S", p_scm);
  p = SCM_MAYBE(SCM_PORT, p_scm);
  {
{
ScmObj SCM_RESULT;

#line 97 "libio.scm"
{SCM_RESULT=(((p)?(Scm_SetStderr(p)):(Scm_Stderr())));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_name(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port-name");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_PortName(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_current_line(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port-current-line");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmSmallInt SCM_RESULT;
{SCM_RESULT=(Scm_PortLine(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_INT(SCM_RESULT));
}
  }
}


static ScmObj libioport_file_number(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj dupP_scm;
  int dupP;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("port-file-number");
  if (SCM_ARGCNT >= 3
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  if (SCM_ARGCNT > 1+1) {
    dupP_scm = SCM_SUBRARGS[1];
  } else {
    dupP_scm = SCM_FALSE;
  }
  if (!SCM_BOOLP(dupP_scm)) Scm_Error("boolean required, but got %S", dupP_scm);
  dupP = SCM_BOOL_VALUE(dupP_scm);
  {
{
ScmObj SCM_RESULT;

#line 115 "libio.scm"
{int i=Scm_PortFileNo(port);
if ((i)<(0)){{{SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}}}
if (dupP){{
{int r=0;
SCM_SYSCALL(r,dup(i));
if ((r)<(0)){{Scm_SysError("dup(2) failed");}}
i=(r);}}}
{SCM_RESULT=(Scm_MakeInteger(i));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_fd_dupX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj dst_scm;
  ScmPort* dst;
  ScmObj src_scm;
  ScmPort* src;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("port-fd-dup!");
  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_PORTP(dst_scm)) Scm_Error("<port> required, but got %S", dst_scm);
  dst = SCM_PORT(dst_scm);
  src_scm = SCM_SUBRARGS[1];
  if (!SCM_PORTP(src_scm)) Scm_Error("<port> required, but got %S", src_scm);
  src = SCM_PORT(src_scm);
  {
Scm_PortFdDup(dst,src);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libioport_attribute_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj key_scm;
  ScmObj key;
  ScmObj val_scm;
  ScmObj val;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("port-attribute-set!");
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  key_scm = SCM_SUBRARGS[1];
  if (!(key_scm)) Scm_Error("scheme object required, but got %S", key_scm);
  key = (key_scm);
  val_scm = SCM_SUBRARGS[2];
  if (!(val_scm)) Scm_Error("scheme object required, but got %S", val_scm);
  val = (val_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_PortAttrSet(port,key,val));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_attribute_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj key_scm;
  ScmObj key;
  ScmObj fallback_scm;
  ScmObj fallback;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("port-attribute-ref");
  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<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  key_scm = SCM_SUBRARGS[1];
  if (!(key_scm)) Scm_Error("scheme object required, but got %S", key_scm);
  key = (key_scm);
  if (SCM_ARGCNT > 2+1) {
    fallback_scm = SCM_SUBRARGS[2];
  } else {
    fallback_scm = SCM_UNBOUND;
  }
  if (!(fallback_scm)) Scm_Error("scheme object required, but got %S", fallback_scm);
  fallback = (fallback_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_PortAttrGet(port,key,fallback));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_attribute_deleteX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj key_scm;
  ScmObj key;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("port-attribute-delete!");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  key_scm = SCM_SUBRARGS[1];
  if (!(key_scm)) Scm_Error("scheme object required, but got %S", key_scm);
  key = (key_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_PortAttrDelete(port,key));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_attributes(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port-attributes");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_PortAttrs(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_type(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port-type");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 137 "libio.scm"
switch (SCM_PORT_TYPE(port)) {
case SCM_PORT_FILE : {{SCM_RESULT=(scm__rc.d1613[142]);goto SCM_STUB_RETURN;}break;}
case SCM_PORT_PROC : {{SCM_RESULT=(scm__rc.d1613[143]);goto SCM_STUB_RETURN;}break;}
case SCM_PORT_OSTR : case SCM_PORT_ISTR : {{SCM_RESULT=(scm__rc.d1613[144]);goto SCM_STUB_RETURN;}break;}default: {
{SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}break;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_buffering_SETTER(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj mode_scm;
  ScmObj mode;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("(setter port-buffering)");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  mode_scm = SCM_SUBRARGS[1];
  if (!(mode_scm)) Scm_Error("scheme object required, but got %S", mode_scm);
  mode = (mode_scm);
  {

#line 145 "libio.scm"
if (!((SCM_PORT_TYPE(port))==(SCM_PORT_FILE))){{
Scm_Error("can't set buffering mode to non-buffered port: %S",port);}}

#line 147 "libio.scm"
Scm_SetPortBufferingMode(port,
Scm_BufferingMode(mode,(port)->direction,-1));
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libioport_buffering(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port-buffering");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 149 "libio.scm"
{SCM_RESULT=(Scm_GetPortBufferingModeAsKeyword(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_case_fold_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj flag_scm;
  int flag;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("port-case-fold-set!");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  flag_scm = SCM_SUBRARGS[1];
  if (!SCM_BOOLP(flag_scm)) Scm_Error("boolean required, but got %S", flag_scm);
  flag = SCM_BOOL_VALUE(flag_scm);
  {

#line 152 "libio.scm"
if (flag){
(SCM_PORT_FLAGS(port))|=(SCM_PORT_CASE_FOLD);} else {
(SCM_PORT_FLAGS(port))&=(~(SCM_PORT_CASE_FOLD));}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libioclose_input_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("close-input-port");
  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);
  {
Scm_ClosePort(port);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libioclose_output_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("close-output-port");
  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_OPORTP(port_scm)) Scm_Error("<output-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
Scm_ClosePort(port);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libioclose_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("close-port");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
Scm_ClosePort(port);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}

#if defined(GAUCHE_WINDOWS)
#define DIRECTORY_GETS_IN_WAY(x) ((x)==EACCES)
#endif /* defined(GAUCHE_WINDOWS) */
#if !(defined(GAUCHE_WINDOWS))
#define DIRECTORY_GETS_IN_WAY(x) FALSE
#endif /* !(defined(GAUCHE_WINDOWS)) */

static ScmObj libio_25open_input_file(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj path_scm;
  ScmString* path;
  ScmObj if_does_not_exist_scm = scm__rc.d1613[189];
  ScmObj if_does_not_exist;
  ScmObj buffering_scm = SCM_FALSE;
  ScmObj buffering;
  ScmObj element_type_scm = scm__rc.d1613[192];
  ScmObj element_type;
  ScmObj SCM_SUBRARGS[1];
  ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
  SCM_ENTER_SUBR("%open-input-file");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  path_scm = SCM_SUBRARGS[0];
  if (!SCM_STRINGP(path_scm)) Scm_Error("<string> required, but got %S", path_scm);
  path = SCM_STRING(path_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.d1613[190])) {
      if_does_not_exist_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[191])) {
      buffering_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[193])) {
      element_type_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  if (!(if_does_not_exist_scm)) Scm_Error("scheme object required, but got %S", if_does_not_exist_scm);
  if_does_not_exist = (if_does_not_exist_scm);
  if (!(buffering_scm)) Scm_Error("scheme object required, but got %S", buffering_scm);
  buffering = (buffering_scm);
  if (!(element_type_scm)) Scm_Error("scheme object required, but got %S", element_type_scm);
  element_type = (element_type_scm);
  {
{
ScmObj SCM_RESULT;

#line 197 "libio.scm"
{int ignerr=FALSE;int flags=O_RDONLY;
#line 199 "libio.scm"
if (SCM_FALSEP(if_does_not_exist)){ignerr=(TRUE);}else if(
!(SCM_EQ(if_does_not_exist,scm__rc.d1613[189]))){
Scm_TypeError(":if-does-not-exist",":error or #f",if_does_not_exist);}
#line 203 "libio.scm"
if (!((SCM_EQ(element_type,scm__rc.d1613[194]))||(
SCM_EQ(element_type,scm__rc.d1613[192])))){{
Scm_Error("bad element-type argument: either :character or :binary expected, but got %S",element_type);}}
#line 207 "libio.scm"

#if defined(O_BINARY) && defined(O_TEXT)

#line 208 "libio.scm"
if (SCM_EQ(element_type,scm__rc.d1613[194])){
(flags)|=(O_TEXT);} else {
(flags)|=(O_BINARY);}
#endif /* defined(O_BINARY) && defined(O_TEXT) */

#line 211 "libio.scm"
{int bufmode=Scm_BufferingMode(buffering,SCM_PORT_INPUT,SCM_PORT_BUFFER_FULL);ScmObj o=
#line 213 "libio.scm"
Scm_OpenFilePort(Scm_GetStringConst(path),flags,bufmode,0);
#line 215 "libio.scm"
if ((SCM_FALSEP(o))&&(!((ignerr)&&(((((errno)==(ENOENT))||((errno)==(ENODEV)))||((errno)==(ENXIO)))||((errno)==(ENOTDIR)))))){{
Scm_SysError("couldn't open input file: %S",path);}}
{SCM_RESULT=(o);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libio_25open_output_file(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj path_scm;
  ScmString* path;
  ScmObj if_exists_scm = scm__rc.d1613[207];
  ScmObj if_exists;
  ScmObj if_does_not_exist_scm = scm__rc.d1613[209];
  ScmObj if_does_not_exist;
  ScmObj mode_scm = SCM_MAKE_INT(438U);
  ScmSmallInt mode;
  ScmObj buffering_scm = SCM_FALSE;
  ScmObj buffering;
  ScmObj element_type_scm = scm__rc.d1613[192];
  ScmObj element_type;
  ScmObj SCM_SUBRARGS[1];
  ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
  SCM_ENTER_SUBR("%open-output-file");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  path_scm = SCM_SUBRARGS[0];
  if (!SCM_STRINGP(path_scm)) Scm_Error("<string> required, but got %S", path_scm);
  path = SCM_STRING(path_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.d1613[208])) {
      if_exists_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[190])) {
      if_does_not_exist_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[210])) {
      mode_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[191])) {
      buffering_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[193])) {
      element_type_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  if (!(if_exists_scm)) Scm_Error("scheme object required, but got %S", if_exists_scm);
  if_exists = (if_exists_scm);
  if (!(if_does_not_exist_scm)) Scm_Error("scheme object required, but got %S", if_does_not_exist_scm);
  if_does_not_exist = (if_does_not_exist_scm);
  if (!SCM_INTP(mode_scm)) Scm_Error("ScmSmallInt required, but got %S", mode_scm);
  mode = SCM_INT_VALUE(mode_scm);
  if (!(buffering_scm)) Scm_Error("scheme object required, but got %S", buffering_scm);
  buffering = (buffering_scm);
  if (!(element_type_scm)) Scm_Error("scheme object required, but got %S", element_type_scm);
  element_type = (element_type_scm);
  {
{
ScmObj SCM_RESULT;

#line 226 "libio.scm"
{int ignerr_noexist=FALSE;int ignerr_exist=FALSE;int flags=O_WRONLY;
#line 229 "libio.scm"
if (!((SCM_EQ(element_type,scm__rc.d1613[194]))||(
SCM_EQ(element_type,scm__rc.d1613[192])))){{
Scm_Error("bad element-type argument: either :character or :binary expected, but got %S",element_type);}}
#line 233 "libio.scm"

#if defined(O_BINARY) && defined(O_TEXT)

#line 234 "libio.scm"
if (SCM_EQ(element_type,scm__rc.d1613[194])){
(flags)|=(O_TEXT);} else {
(flags)|=(O_BINARY);}
#endif /* defined(O_BINARY) && defined(O_TEXT) */

#line 238 "libio.scm"
if (
SCM_EQ(if_exists,scm__rc.d1613[212])){(flags)|=(O_APPEND);}else if(
SCM_EQ(if_exists,scm__rc.d1613[189])){
(flags)|=(O_EXCL);
if (SCM_EQ(if_does_not_exist,scm__rc.d1613[189])){{
Scm_Error("bad flag combination: :if-exists and :if-does-not-exist can't be :error the same time.");}}}else if(
SCM_EQ(if_exists,scm__rc.d1613[207])){(flags)|=(O_TRUNC);}else if(
SCM_EQ(if_exists,scm__rc.d1613[211])){}else if(
SCM_FALSEP(if_exists)){(flags)|=(O_EXCL);ignerr_exist=(TRUE);} else {
#line 248 "libio.scm"
Scm_TypeError(":if-exists",":supersede, :overwrite, :append, :error or #f",if_exists);}
#line 250 "libio.scm"
if (
SCM_EQ(if_does_not_exist,scm__rc.d1613[209])){(flags)|=(O_CREAT);}else if(
SCM_FALSEP(if_does_not_exist)){ignerr_noexist=(TRUE);}else if(
SCM_EQ(if_does_not_exist,scm__rc.d1613[189])){} else {
Scm_TypeError(":if-does-not-exist",":error, :create or #f",if_does_not_exist);}
#line 256 "libio.scm"
{int bufmode=
Scm_BufferingMode(buffering,SCM_PORT_OUTPUT,SCM_PORT_BUFFER_FULL);ScmObj o=
Scm_OpenFilePort(Scm_GetStringConst(path),flags,bufmode,mode);
#line 260 "libio.scm"
if (((SCM_FALSEP(o))&&(
!((ignerr_noexist)&&(((((errno)==(ENOENT))||((errno)==(ENODEV)))||((errno)==(ENXIO)))||((errno)==(ENOTDIR))))))&&(
!((ignerr_exist)&&((((errno)==(EEXIST))||((errno)==(ENOTDIR)))||(DIRECTORY_GETS_IN_WAY(errno)))))){{
Scm_Error("couldn't open output file: %S",path);}}
{SCM_RESULT=(o);goto SCM_STUB_RETURN;}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioopen_input_fd_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj fd_scm;
  ScmSmallInt fd;
  ScmObj buffering_scm = SCM_FALSE;
  ScmObj buffering;
  ScmObj ownerP_scm = SCM_FALSE;
  ScmObj ownerP;
  ScmObj name_scm = SCM_FALSE;
  ScmObj name;
  ScmObj SCM_SUBRARGS[1];
  ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
  SCM_ENTER_SUBR("open-input-fd-port");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  fd_scm = SCM_SUBRARGS[0];
  if (!SCM_INTP(fd_scm)) Scm_Error("ScmSmallInt required, but got %S", fd_scm);
  fd = SCM_INT_VALUE(fd_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.d1613[191])) {
      buffering_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[215])) {
      ownerP_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[216])) {
      name_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  if (!(buffering_scm)) Scm_Error("scheme object required, but got %S", buffering_scm);
  buffering = (buffering_scm);
  if (!(ownerP_scm)) Scm_Error("scheme object required, but got %S", ownerP_scm);
  ownerP = (ownerP_scm);
  if (!(name_scm)) Scm_Error("scheme object required, but got %S", name_scm);
  name = (name_scm);
  {
{
ScmObj SCM_RESULT;

#line 273 "libio.scm"
{int bufmode=Scm_BufferingMode(buffering,SCM_PORT_INPUT,SCM_PORT_BUFFER_FULL);
#line 275 "libio.scm"
if ((fd)<(0)){{Scm_Error("bad file descriptor: %ld",fd);}}
if (
SCM_EQ(ownerP,scm__rc.d1613[217])){
{int r=0;
SCM_SYSCALL(r,dup(fd));
if ((r)<(0)){{Scm_SysError("dup(2) failed");}}
fd=(r);}}else if(
!(SCM_BOOLP(ownerP))){
Scm_Error("owner? argument must be either #f, #t or a symbol dup, \nbut go t%S",ownerP);}
#line 285 "libio.scm"
{SCM_RESULT=(Scm_MakePortWithFd(name,SCM_PORT_INPUT,fd,bufmode,
!(SCM_FALSEP(ownerP))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioopen_output_fd_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj fd_scm;
  ScmSmallInt fd;
  ScmObj buffering_scm = SCM_FALSE;
  ScmObj buffering;
  ScmObj ownerP_scm = SCM_FALSE;
  ScmObj ownerP;
  ScmObj name_scm = SCM_FALSE;
  ScmObj name;
  ScmObj SCM_SUBRARGS[1];
  ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
  SCM_ENTER_SUBR("open-output-fd-port");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  fd_scm = SCM_SUBRARGS[0];
  if (!SCM_INTP(fd_scm)) Scm_Error("ScmSmallInt required, but got %S", fd_scm);
  fd = SCM_INT_VALUE(fd_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.d1613[191])) {
      buffering_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[215])) {
      ownerP_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[216])) {
      name_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  if (!(buffering_scm)) Scm_Error("scheme object required, but got %S", buffering_scm);
  buffering = (buffering_scm);
  if (!(ownerP_scm)) Scm_Error("scheme object required, but got %S", ownerP_scm);
  ownerP = (ownerP_scm);
  if (!(name_scm)) Scm_Error("scheme object required, but got %S", name_scm);
  name = (name_scm);
  {
{
ScmObj SCM_RESULT;

#line 292 "libio.scm"
{int bufmode=Scm_BufferingMode(buffering,SCM_PORT_OUTPUT,SCM_PORT_BUFFER_FULL);
#line 294 "libio.scm"
if ((fd)<(0)){{Scm_Error("bad file descriptor: %d",fd);}}
if (
SCM_EQ(ownerP,scm__rc.d1613[217])){
{int r=0;
SCM_SYSCALL(r,dup(fd));
if ((r)<(0)){{Scm_SysError("dup(2) failed");}}
fd=(r);}}else if(
!(SCM_BOOLP(ownerP))){
Scm_Error("owner? argument must be either #f, #t or a symbol dup, \nbut go t%S",ownerP);}
#line 304 "libio.scm"
{SCM_RESULT=(Scm_MakePortWithFd(name,SCM_PORT_OUTPUT,fd,bufmode,
!(SCM_FALSEP(ownerP))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static void bufport_closer(ScmPort* p){{
#line 313 "libio.scm"
if ((SCM_PORT_DIR(p))==(SCM_PORT_OUTPUT)){{
{ScmObj scmflusher=SCM_OBJ((PORT_BUF(p))->data);int siz=
((int )(((PORT_BUF(p))->current)-(
(PORT_BUF(p))->buffer)));
if ((siz)>(0)){{
Scm_ApplyRec1(scmflusher,
Scm_MakeString((PORT_BUF(p))->buffer,siz,siz,
(SCM_STRING_INCOMPLETE)|(SCM_STRING_COPYING)));}}
#line 322 "libio.scm"
Scm_ApplyRec1(scmflusher,SCM_FALSE);}}}}}
static ScmSize bufport_filler(ScmPort* p,ScmSize cnt){{
#line 325 "libio.scm"
{ScmObj scmfiller=SCM_OBJ((PORT_BUF(p))->data);ScmObj r=
Scm_ApplyRec1(scmfiller,Scm_MakeInteger(cnt));
if ((SCM_EOFP(r))||(SCM_FALSEP(r))){return (0);}else if(
!(SCM_STRINGP(r))){
Scm_Error("buffered port callback procedure returned non-string: %S",r);}
{const ScmStringBody* b=SCM_STRING_BODY(r);ScmSize siz=
SCM_STRING_BODY_SIZE(b);
if ((siz)>(cnt)){{siz=(cnt);}}
memcpy((PORT_BUF(p))->end,SCM_STRING_BODY_START(b),siz);
return (SCM_STRING_BODY_SIZE(b));}}}}

static ScmObj libioopen_input_buffered_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj filler_scm;
  ScmProcedure* filler;
  ScmObj buffer_size_scm;
  ScmSmallInt buffer_size;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("open-input-buffered-port");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  filler_scm = SCM_SUBRARGS[0];
  if (!SCM_PROCEDUREP(filler_scm)) Scm_Error("<procedure> required, but got %S", filler_scm);
  filler = SCM_PROCEDURE(filler_scm);
  buffer_size_scm = SCM_SUBRARGS[1];
  if (!SCM_INTP(buffer_size_scm)) Scm_Error("ScmSmallInt required, but got %S", buffer_size_scm);
  buffer_size = SCM_INT_VALUE(buffer_size_scm);
  {
{
ScmObj SCM_RESULT;

#line 339 "libio.scm"
{ScmPortBuffer bufrec;
(bufrec).size=(buffer_size),
(bufrec).buffer=(NULL),
(bufrec).mode=(SCM_PORT_BUFFER_FULL),
(bufrec).filler=(bufport_filler),
(bufrec).flusher=(NULL),
(bufrec).closer=(bufport_closer),
(bufrec).ready=(NULL),
(bufrec).filenum=(NULL),
(bufrec).data=(((void* )(filler)));
{SCM_RESULT=(Scm_MakeBufferedPort(SCM_CLASS_PORT,SCM_FALSE,SCM_PORT_INPUT,TRUE,&(bufrec)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static ScmSize bufport_flusher(ScmPort* p,ScmSize cnt,int G1620 SCM_UNUSED){{
#line 354 "libio.scm"
{ScmObj scmflusher=SCM_OBJ((PORT_BUF(p))->data);ScmObj s=
Scm_MakeString((PORT_BUF(p))->buffer,cnt,cnt,
(SCM_STRING_INCOMPLETE)|(SCM_STRING_COPYING));
Scm_ApplyRec1(scmflusher,s);
return (cnt);}}}

static ScmObj libioopen_output_buffered_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj flusher_scm;
  ScmProcedure* flusher;
  ScmObj buffer_size_scm;
  ScmSmallInt buffer_size;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("open-output-buffered-port");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  flusher_scm = SCM_SUBRARGS[0];
  if (!SCM_PROCEDUREP(flusher_scm)) Scm_Error("<procedure> required, but got %S", flusher_scm);
  flusher = SCM_PROCEDURE(flusher_scm);
  buffer_size_scm = SCM_SUBRARGS[1];
  if (!SCM_INTP(buffer_size_scm)) Scm_Error("ScmSmallInt required, but got %S", buffer_size_scm);
  buffer_size = SCM_INT_VALUE(buffer_size_scm);
  {
{
ScmObj SCM_RESULT;

#line 363 "libio.scm"
{ScmPortBuffer bufrec;
(bufrec).size=(buffer_size),
(bufrec).buffer=(NULL),
(bufrec).mode=(SCM_PORT_BUFFER_FULL),
(bufrec).filler=(NULL),
(bufrec).flusher=(bufport_flusher),
(bufrec).closer=(bufport_closer),
(bufrec).ready=(NULL),
(bufrec).filenum=(NULL),
(bufrec).data=(((void* )(flusher)));
{SCM_RESULT=(Scm_MakeBufferedPort(SCM_CLASS_PORT,SCM_FALSE,SCM_PORT_OUTPUT,TRUE,
&(bufrec)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioopen_input_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj string_scm;
  ScmString* string;
  ScmObj privateP_scm = SCM_FALSE;
  int privateP;
  ScmObj name_scm = SCM_OBJ(&scm__sc.d1612[84]);
  ScmObj name;
  ScmObj SCM_SUBRARGS[1];
  ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
  SCM_ENTER_SUBR("open-input-string");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  string_scm = SCM_SUBRARGS[0];
  if (!SCM_STRINGP(string_scm)) Scm_Error("<string> required, but got %S", string_scm);
  string = SCM_STRING(string_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.d1613[246])) {
      privateP_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[216])) {
      name_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  if (!SCM_BOOLP(privateP_scm)) Scm_Error("boolean required, but got %S", privateP_scm);
  privateP = SCM_BOOL_VALUE(privateP_scm);
  if (!(name_scm)) Scm_Error("scheme object required, but got %S", name_scm);
  name = (name_scm);
  {
{
ScmObj SCM_RESULT;

#line 388 "libio.scm"
{u_long flags=((privateP)?(SCM_PORT_STRING_PRIVATE):(0));
{SCM_RESULT=(Scm_MakeInputStringPortFull(string,name,flags));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioopen_output_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj privateP_scm = SCM_FALSE;
  int privateP;
  ScmObj name_scm = SCM_OBJ(&scm__sc.d1612[86]);
  ScmObj name;
  ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
  SCM_ENTER_SUBR("open-output-string");
  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.d1613[246])) {
      privateP_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1613[216])) {
      name_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  if (!SCM_BOOLP(privateP_scm)) Scm_Error("boolean required, but got %S", privateP_scm);
  privateP = SCM_BOOL_VALUE(privateP_scm);
  if (!(name_scm)) Scm_Error("scheme object required, but got %S", name_scm);
  name = (name_scm);
  {
{
ScmObj SCM_RESULT;

#line 393 "libio.scm"
{u_long flags=((privateP)?(SCM_PORT_STRING_PRIVATE):(0));
{SCM_RESULT=(Scm_MakeOutputStringPortFull(name,flags));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioget_output_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj oport_scm;
  ScmPort* oport;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("get-output-string");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  oport_scm = SCM_SUBRARGS[0];
  if (!SCM_OPORTP(oport_scm)) Scm_Error("<output-port> required, but got %S", oport_scm);
  oport = SCM_PORT(oport_scm);
  {
{
ScmObj SCM_RESULT;

#line 397 "libio.scm"
{SCM_RESULT=(Scm_GetOutputString(oport,0));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioget_output_byte_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj oport_scm;
  ScmPort* oport;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("get-output-byte-string");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  oport_scm = SCM_SUBRARGS[0];
  if (!SCM_OPORTP(oport_scm)) Scm_Error("<output-port> required, but got %S", oport_scm);
  oport = SCM_PORT(oport_scm);
  {
{
ScmObj SCM_RESULT;

#line 400 "libio.scm"
{SCM_RESULT=(Scm_GetOutputString(oport,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioget_remaining_input_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj iport_scm;
  ScmPort* iport;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("get-remaining-input-string");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  iport_scm = SCM_SUBRARGS[0];
  if (!SCM_IPORTP(iport_scm)) Scm_Error("<input-port> required, but got %S", iport_scm);
  iport = SCM_PORT(iport_scm);
  {
{
ScmObj SCM_RESULT;

#line 403 "libio.scm"
{SCM_RESULT=(Scm_GetRemainingInputString(iport,0));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioopen_coding_aware_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj iport_scm;
  ScmPort* iport;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("open-coding-aware-port");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  iport_scm = SCM_SUBRARGS[0];
  if (!SCM_IPORTP(iport_scm)) Scm_Error("<input-port> required, but got %S", iport_scm);
  iport = SCM_PORT(iport_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_MakeCodingAwarePort(iport));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_has_port_positionP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port-has-port-position?");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
int SCM_RESULT;

#line 417 "libio.scm"
{SCM_RESULT=(Scm_PortPositionable(port,FALSE));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libioport_has_set_port_positionXP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port-has-set-port-position!?");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
int SCM_RESULT;

#line 419 "libio.scm"
{SCM_RESULT=(Scm_PortPositionable(port,TRUE));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libioport_position(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port-position");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 422 "libio.scm"
{SCM_RESULT=(Scm_GetPortPosition(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioset_port_positionX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj pos_scm;
  ScmObj pos;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("set-port-position!");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  pos_scm = SCM_SUBRARGS[1];
  if (!(pos_scm)) Scm_Error("scheme object required, but got %S", pos_scm);
  pos = (pos_scm);
  {
{
ScmObj SCM_RESULT;

#line 424 "libio.scm"
{SCM_RESULT=(Scm_SetPortPosition(port,pos));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_seek(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj offset_scm;
  ScmObj offset;
  ScmObj whence_scm;
  ScmSmallInt whence;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("port-seek");
  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<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  offset_scm = SCM_SUBRARGS[1];
  if (!SCM_INTEGERP(offset_scm)) Scm_Error("exact integer required, but got %S", offset_scm);
  offset = (offset_scm);
  if (SCM_ARGCNT > 2+1) {
    whence_scm = SCM_SUBRARGS[2];
  } else {
    whence_scm = SCM_MAKE_INT(SEEK_SET);
  }
  if (!SCM_INTP(whence_scm)) Scm_Error("ScmSmallInt required, but got %S", whence_scm);
  whence = SCM_INT_VALUE(whence_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_PortSeek(port,offset,whence));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libio_25port_walkingP_SETTER(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj flag_scm;
  int flag;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("(setter %port-walking?)");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  flag_scm = SCM_SUBRARGS[1];
  if (!SCM_BOOLP(flag_scm)) Scm_Error("boolean required, but got %S", flag_scm);
  flag = SCM_BOOL_VALUE(flag_scm);
  {

#line 457 "libio.scm"
if (flag){
((port)->flags)|=(SCM_PORT_WALKING);} else {
((port)->flags)&=(~(SCM_PORT_WALKING));}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libio_25port_walkingP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%port-walking?");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(PORT_WALKER_P(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libio_25port_writing_sharedP_SETTER(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj flag_scm;
  int flag;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("(setter %port-writing-shared?)");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  flag_scm = SCM_SUBRARGS[1];
  if (!SCM_BOOLP(flag_scm)) Scm_Error("boolean required, but got %S", flag_scm);
  flag = SCM_BOOL_VALUE(flag_scm);
  {

#line 463 "libio.scm"
if (flag){
((port)->flags)|=(SCM_PORT_WRITESS);} else {
((port)->flags)&=(~(SCM_PORT_WRITESS));}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libio_25port_writing_sharedP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%port-writing-shared?");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(PORT_WRITESS_P(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj write_state_allocate(ScmClass* G1627 SCM_UNUSED,ScmObj G1628 SCM_UNUSED){{
#line 470 "libio.scm"
return (SCM_OBJ(Scm_MakeWriteState(NULL)));}}
static void write_state_print(ScmObj obj,ScmPort* port,ScmWriteContext* G1630 SCM_UNUSED){{
#line 474 "libio.scm"
Scm_Printf(port,"#<write-state %p>",obj);}}
static ScmClass *Scm_WriteStateClass_CPL[] = {
  SCM_CLASS_STATIC_PTR(Scm_TopClass),
  NULL
};
SCM_DEFINE_BUILTIN_CLASS(Scm_WriteStateClass, write_state_print, NULL, NULL, write_state_allocate, Scm_WriteStateClass_CPL);

static ScmObj Scm_WriteStateClass_shared_table_GET(ScmObj OBJARG)
{
  ScmWriteState* obj = SCM_WRITE_STATE(OBJARG);
  return SCM_MAKE_MAYBE(SCM_OBJ_SAFE, obj->sharedTable);
}

static void Scm_WriteStateClass_shared_table_SET(ScmObj OBJARG, ScmObj value)
{
  ScmWriteState* obj = SCM_WRITE_STATE(OBJARG);
  if (!SCM_MAYBE_P(SCM_HASH_TABLE_P, value)) Scm_Error("ScmHashTable* required, but got %S", value);
  obj->sharedTable = SCM_MAYBE(SCM_HASH_TABLE, value);
}

static ScmObj Scm_WriteStateClass_shared_counter_GET(ScmObj OBJARG)
{
  ScmWriteState* obj = SCM_WRITE_STATE(OBJARG);
  return Scm_MakeInteger(obj->sharedCounter);
}

static void Scm_WriteStateClass_shared_counter_SET(ScmObj OBJARG, ScmObj value)
{
  ScmWriteState* obj = SCM_WRITE_STATE(OBJARG);
  if (!SCM_INTEGERP(value)) Scm_Error("int required, but got %S", value);
  obj->sharedCounter = Scm_GetInteger(value);
}

static ScmClassStaticSlotSpec Scm_WriteStateClass__SLOTS[] = {
  SCM_CLASS_SLOT_SPEC("shared-table", Scm_WriteStateClass_shared_table_GET, Scm_WriteStateClass_shared_table_SET),
  SCM_CLASS_SLOT_SPEC("shared-counter", Scm_WriteStateClass_shared_counter_GET, Scm_WriteStateClass_shared_counter_SET),
  SCM_CLASS_SLOT_SPEC_END()
};


static ScmObj libio_25port_write_state_SETTER(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("(setter %port-write-state)");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  port_scm = SCM_SUBRARGS[0];
  if (!SCM_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  obj_scm = SCM_SUBRARGS[1];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  {

#line 487 "libio.scm"
if (SCM_WRITE_STATE_P(obj)){
Scm_PortWriteStateSet(port,SCM_WRITE_STATE(obj));} else {
Scm_PortWriteStateSet(port,NULL);}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libio_25port_write_state(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%port-write-state");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 490 "libio.scm"
{ScmWriteState* r=Scm_PortWriteState(port);
{SCM_RESULT=(((r)?(SCM_OBJ(r)):(SCM_FALSE)));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libio_25port_lockX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%port-lock!");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {

#line 494 "libio.scm"
{ScmVM* vm=Scm_VM();
PORT_LOCK(port,vm);}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libio_25port_unlockX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%port-unlock!");
  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_PORTP(port_scm)) Scm_Error("<port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {

#line 497 "libio.scm"
PORT_UNLOCK(port);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libioread(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("read");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    port_scm = SCM_SUBRARGS[0];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!SCM_IPORTP(port_scm)) Scm_Error("<input-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 536 "libio.scm"
{SCM_RESULT=(Scm_Read(SCM_OBJ(port)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioread_char(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("read-char");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    port_scm = SCM_SUBRARGS[0];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!SCM_IPORTP(port_scm)) Scm_Error("<input-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 540 "libio.scm"
{int ch;
SCM_GETC(ch,port);
{SCM_RESULT=((((ch)==(EOF))?(SCM_EOF):(SCM_MAKE_CHAR(ch))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiopeek_char(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("peek-char");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    port_scm = SCM_SUBRARGS[0];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!SCM_IPORTP(port_scm)) Scm_Error("<input-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 546 "libio.scm"
{ScmChar ch=Scm_Peekc(port);
{SCM_RESULT=((((ch)==(SCM_CHAR_INVALID))?(SCM_EOF):(SCM_MAKE_CHAR(ch))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioeof_objectP(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("eof-object?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_EOFP(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libiochar_readyP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("char-ready?");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    port_scm = SCM_SUBRARGS[0];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!SCM_IPORTP(port_scm)) Scm_Error("<input-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_CharReady(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libioeof_object(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("eof-object");
  {
{
ScmObj SCM_RESULT;

#line 558 "libio.scm"
{SCM_RESULT=(SCM_EOF);goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiobyte_readyP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("byte-ready?");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    port_scm = SCM_SUBRARGS[0];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!SCM_IPORTP(port_scm)) Scm_Error("<input-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(Scm_ByteReady(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libioread_byte(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("read-byte");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    port_scm = SCM_SUBRARGS[0];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!SCM_IPORTP(port_scm)) Scm_Error("<input-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 566 "libio.scm"
{int b;
SCM_GETB(b,port);
{SCM_RESULT=((((b)<(0))?(SCM_EOF):(SCM_MAKE_INT(b))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiopeek_byte(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("peek-byte");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    port_scm = SCM_SUBRARGS[0];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!SCM_IPORTP(port_scm)) Scm_Error("<input-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 573 "libio.scm"
{int b=Scm_Peekb(port);
{SCM_RESULT=((((b)<(0))?(SCM_EOF):(SCM_MAKE_INT(b))));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioread_line(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj allowbytestr_scm;
  ScmObj allowbytestr;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("read-line");
  if (SCM_ARGCNT >= 3
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    port_scm = SCM_SUBRARGS[0];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!SCM_IPORTP(port_scm)) Scm_Error("<input-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  if (SCM_ARGCNT > 1+1) {
    allowbytestr_scm = SCM_SUBRARGS[1];
  } else {
    allowbytestr_scm = SCM_FALSE;
  }
  if (!(allowbytestr_scm)) Scm_Error("scheme object required, but got %S", allowbytestr_scm);
  allowbytestr = (allowbytestr_scm);
  {
{
ScmObj SCM_RESULT;

#line 580 "libio.scm"
{ScmObj r=Scm_ReadLine(port);
if (((SCM_FALSEP(allowbytestr))&&(
SCM_STRINGP(r)))&&(
SCM_STRING_INCOMPLETE_P(r))){{
Scm_ReadError(port,"read-line: encountered illegal byte sequence: %S",r);}}
{SCM_RESULT=(r);goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioread_block(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj bytes_scm;
  ScmSmallInt bytes;
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("read-block");
  if (SCM_ARGCNT >= 3
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  bytes_scm = SCM_SUBRARGS[0];
  if (!SCM_INTP(bytes_scm)) Scm_Error("ScmSmallInt required, but got %S", bytes_scm);
  bytes = SCM_INT_VALUE(bytes_scm);
  if (SCM_ARGCNT > 1+1) {
    port_scm = SCM_SUBRARGS[1];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!SCM_IPORTP(port_scm)) Scm_Error("<input-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
ScmObj SCM_RESULT;

#line 631 "libio.scm"
if ((bytes)<(0)){{
Scm_Error("bytes must be non-negative integer: %ld",bytes);}}

#line 633 "libio.scm"
if ((bytes)==(0)){
{SCM_RESULT=(Scm_MakeString("",0,0,0));goto SCM_STUB_RETURN;}} else {
{char* buf=SCM_NEW_ATOMIC2(char*,(bytes)+(1));int nread=
Scm_Getz(buf,bytes,port);
if ((nread)<=(0)){{SCM_RESULT=(SCM_EOF);goto SCM_STUB_RETURN;}} else {
#line 639 "libio.scm"
SCM_ASSERT((nread)<=(bytes));
(buf)[nread]=('\x00');
{SCM_RESULT=(Scm_MakeString(buf,nread,nread,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioread_list(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj closer_scm;
  ScmChar closer;
  ScmObj port_scm;
  ScmObj port;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("read-list");
  if (SCM_ARGCNT >= 3
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  closer_scm = SCM_SUBRARGS[0];
  if (!SCM_CHARP(closer_scm)) Scm_Error("character required, but got %S", closer_scm);
  closer = SCM_CHAR_VALUE(closer_scm);
  if (SCM_ARGCNT > 1+1) {
    port_scm = SCM_SUBRARGS[1];
  } else {
    port_scm = SCM_OBJ(SCM_CURIN);
  }
  if (!(port_scm)) Scm_Error("scheme object required, but got %S", port_scm);
  port = (port_scm);
  {
{
ScmObj SCM_RESULT;

#line 646 "libio.scm"
{SCM_RESULT=(Scm_ReadList(port,closer));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioport_TObyte_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("port->byte-string");
  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);
  {
{
ScmObj SCM_RESULT;

#line 649 "libio.scm"
{ScmDString ds;char buf[1024];
Scm_DStringInit(&(ds));
for (;;){{int nbytes=Scm_Getz(buf,1024,port);
if ((nbytes)<=(0)){{break;}}
Scm_DStringPutz(&(ds),buf,nbytes);}}
{SCM_RESULT=(Scm_DStringGet(&(ds),SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioreader_lexical_mode(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj k_scm;
  ScmObj k;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("reader-lexical-mode");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    k_scm = SCM_SUBRARGS[0];
  } else {
    k_scm = SCM_UNBOUND;
  }
  if (!(k_scm)) Scm_Error("scheme object required, but got %S", k_scm);
  k = (k_scm);
  {
{
ScmObj SCM_RESULT;

#line 675 "libio.scm"
if (SCM_UNBOUNDP(k)){
{SCM_RESULT=(Scm_ReaderLexicalMode());goto SCM_STUB_RETURN;}} else {
{SCM_RESULT=(Scm_SetReaderLexicalMode(k));goto SCM_STUB_RETURN;}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libio_25port_ungotten_chars(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%port-ungotten-chars");
  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);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_UngottenChars(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libio_25port_ungotten_bytes(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%port-ungotten-bytes");
  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);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_UngottenBytes(port));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiodefine_reader_ctor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj symbol_scm;
  ScmObj symbol;
  ScmObj proc_scm;
  ScmObj proc;
  ScmObj finisher_scm;
  ScmObj finisher;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("define-reader-ctor");
  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<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  symbol_scm = SCM_SUBRARGS[0];
  if (!(symbol_scm)) Scm_Error("scheme object required, but got %S", symbol_scm);
  symbol = (symbol_scm);
  proc_scm = SCM_SUBRARGS[1];
  if (!(proc_scm)) Scm_Error("scheme object required, but got %S", proc_scm);
  proc = (proc_scm);
  if (SCM_ARGCNT > 2+1) {
    finisher_scm = SCM_SUBRARGS[2];
  } else {
    finisher_scm = SCM_FALSE;
  }
  if (!(finisher_scm)) Scm_Error("scheme object required, but got %S", finisher_scm);
  finisher = (finisher_scm);
  {
{
ScmObj SCM_RESULT;

#line 689 "libio.scm"
{SCM_RESULT=(Scm_DefineReaderCtor(symbol,proc,finisher,SCM_FALSE));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libio_25get_reader_ctor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj symbol_scm;
  ScmObj symbol;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("%get-reader-ctor");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  symbol_scm = SCM_SUBRARGS[0];
  if (!(symbol_scm)) Scm_Error("scheme object required, but got %S", symbol_scm);
  symbol = (symbol_scm);
  {
{
ScmObj SCM_RESULT;

#line 692 "libio.scm"
{SCM_RESULT=(Scm_GetReaderCtor(symbol,SCM_FALSE));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiodefine_reader_directive(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj symbol_scm;
  ScmObj symbol;
  ScmObj proc_scm;
  ScmObj proc;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("define-reader-directive");
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  symbol_scm = SCM_SUBRARGS[0];
  if (!(symbol_scm)) Scm_Error("scheme object required, but got %S", symbol_scm);
  symbol = (symbol_scm);
  proc_scm = SCM_SUBRARGS[1];
  if (!(proc_scm)) Scm_Error("scheme object required, but got %S", proc_scm);
  proc = (proc_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_DefineReaderDirective(symbol,proc));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libiocurrent_read_context(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj ctx_scm;
  ScmObj ctx;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("current-read-context");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    ctx_scm = SCM_SUBRARGS[0];
  } else {
    ctx_scm = SCM_UNBOUND;
  }
  if (!(ctx_scm)) Scm_Error("scheme object required, but got %S", ctx_scm);
  ctx = (ctx_scm);
  {
{
ScmObj SCM_RESULT;

#line 706 "libio.scm"
if (SCM_UNBOUNDP(ctx)){
{SCM_RESULT=(SCM_OBJ(Scm_CurrentReadContext()));goto SCM_STUB_RETURN;}} else {
if (SCM_READ_CONTEXT_P(ctx)){
{SCM_RESULT=(SCM_OBJ(Scm_SetCurrentReadContext(SCM_READ_CONTEXT(ctx))));goto SCM_STUB_RETURN;}} else {
{Scm_Error("<read-context> required, but got:",ctx);
{SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}}}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}


static ScmObj libioread_referenceP(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("read-reference?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  {
{
int SCM_RESULT;
{SCM_RESULT=(SCM_READ_REFERENCE_P(obj));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libioread_reference_has_valueP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj ref_scm;
  ScmReadReference* ref;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("read-reference-has-value?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  ref_scm = SCM_SUBRARGS[0];
  if (!SCM_READ_REFERENCE_P(ref_scm)) Scm_Error("read reference required, but got %S", ref_scm);
  ref = SCM_READ_REFERENCE(ref_scm);
  {
{
int SCM_RESULT;

#line 716 "libio.scm"
{SCM_RESULT=(!(SCM_UNBOUNDP((ref)->value)));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}


static ScmObj libioread_reference_value(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj ref_scm;
  ScmReadReference* ref;
  ScmObj SCM_SUBRARGS[1];
  SCM_ENTER_SUBR("read-reference-value");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  ref_scm = SCM_SUBRARGS[0];
  if (!SCM_READ_REFERENCE_P(ref_scm)) Scm_Error("read reference required, but got %S", ref_scm);
  ref = SCM_READ_REFERENCE(ref_scm);
  {
{
ScmObj SCM_RESULT;

#line 719 "libio.scm"
if (SCM_UNBOUNDP((ref)->value)){{
Scm_Error("read reference hasn't been resolved");}}

#line 721 "libio.scm"
{SCM_RESULT=((ref)->value);goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
}
  }
}

static void parse_write_optionals(ScmObj opt1,ScmObj opt2,ScmPort** pp,const ScmWriteControls** pc){{
#line 739 "libio.scm"
{ScmPort* p=SCM_CUROUT;const ScmWriteControls* c=
Scm_DefaultWriteControls();
if (!(SCM_UNBOUNDP(opt1))){{
if (SCM_PORTP(opt1)){
p=(SCM_PORT(opt1));
if (!(SCM_UNBOUNDP(opt2))){{
if (SCM_WRITE_CONTROLS_P(opt2)){
c=(SCM_WRITE_CONTROLS(opt2));} else {
Scm_Error("Expected write-controls, but got: %S",opt2);}}}}else if(
SCM_WRITE_CONTROLS_P(opt1)){
c=(SCM_WRITE_CONTROLS(opt1));
if (!(SCM_UNBOUNDP(opt2))){{
if (SCM_PORTP(opt2)){
p=(SCM_PORT(opt2));} else {
Scm_Error("Expected port, but got: %S",opt2);}}}} else {
#line 755 "libio.scm"
Scm_Error("Expected port or write-controls, but got: %S",opt1);}}}
*(pp)=(p);
*(pc)=(c);}}}

static ScmObj libiowrite(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj port_or_control_1_scm;
  ScmObj port_or_control_1;
  ScmObj port_or_control_2_scm;
  ScmObj port_or_control_2;
  ScmObj SCM_SUBRARGS[5];
  SCM_ENTER_SUBR("write");
  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);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  if (SCM_ARGCNT > 1+1) {
    port_or_control_1_scm = SCM_SUBRARGS[1];
  } else {
    port_or_control_1_scm = SCM_UNBOUND;
  }
  if (!(port_or_control_1_scm)) Scm_Error("scheme object required, but got %S", port_or_control_1_scm);
  port_or_control_1 = (port_or_control_1_scm);
  if (SCM_ARGCNT > 2+1) {
    port_or_control_2_scm = SCM_SUBRARGS[2];
  } else {
    port_or_control_2_scm = SCM_UNBOUND;
  }
  if (!(port_or_control_2_scm)) Scm_Error("scheme object required, but got %S", port_or_control_2_scm);
  port_or_control_2 = (port_or_control_2_scm);
  {

#line 763 "libio.scm"
{ScmPort* p;const ScmWriteControls* c;
parse_write_optionals(port_or_control_1,port_or_control_2,&(p),&(c));
Scm_WriteWithControls(obj,SCM_OBJ(p),SCM_WRITE_WRITE,c);}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libiowrite_simple(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("write-simple");
  if (SCM_ARGCNT >= 3
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  if (SCM_ARGCNT > 1+1) {
    port_scm = SCM_SUBRARGS[1];
  } else {
    port_scm = SCM_OBJ(SCM_CUROUT);
  }
  if (!SCM_OPORTP(port_scm)) Scm_Error("<output-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {

#line 770 "libio.scm"
Scm_Write(obj,SCM_OBJ(port),SCM_WRITE_SIMPLE);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libiowrite_shared(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj port_or_control_1_scm;
  ScmObj port_or_control_1;
  ScmObj port_or_control_2_scm;
  ScmObj port_or_control_2;
  ScmObj SCM_SUBRARGS[5];
  SCM_ENTER_SUBR("write-shared");
  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);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  if (SCM_ARGCNT > 1+1) {
    port_or_control_1_scm = SCM_SUBRARGS[1];
  } else {
    port_or_control_1_scm = SCM_UNBOUND;
  }
  if (!(port_or_control_1_scm)) Scm_Error("scheme object required, but got %S", port_or_control_1_scm);
  port_or_control_1 = (port_or_control_1_scm);
  if (SCM_ARGCNT > 2+1) {
    port_or_control_2_scm = SCM_SUBRARGS[2];
  } else {
    port_or_control_2_scm = SCM_UNBOUND;
  }
  if (!(port_or_control_2_scm)) Scm_Error("scheme object required, but got %S", port_or_control_2_scm);
  port_or_control_2 = (port_or_control_2_scm);
  {

#line 774 "libio.scm"
{ScmPort* p;const ScmWriteControls* c;
parse_write_optionals(port_or_control_1,port_or_control_2,&(p),&(c));
Scm_WriteWithControls(obj,SCM_OBJ(p),SCM_WRITE_SHARED,c);}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libiodisplay(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj port_or_control_1_scm;
  ScmObj port_or_control_1;
  ScmObj port_or_control_2_scm;
  ScmObj port_or_control_2;
  ScmObj SCM_SUBRARGS[5];
  SCM_ENTER_SUBR("display");
  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);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  if (SCM_ARGCNT > 1+1) {
    port_or_control_1_scm = SCM_SUBRARGS[1];
  } else {
    port_or_control_1_scm = SCM_UNBOUND;
  }
  if (!(port_or_control_1_scm)) Scm_Error("scheme object required, but got %S", port_or_control_1_scm);
  port_or_control_1 = (port_or_control_1_scm);
  if (SCM_ARGCNT > 2+1) {
    port_or_control_2_scm = SCM_SUBRARGS[2];
  } else {
    port_or_control_2_scm = SCM_UNBOUND;
  }
  if (!(port_or_control_2_scm)) Scm_Error("scheme object required, but got %S", port_or_control_2_scm);
  port_or_control_2 = (port_or_control_2_scm);
  {

#line 780 "libio.scm"
{ScmPort* p;const ScmWriteControls* c;
parse_write_optionals(port_or_control_1,port_or_control_2,&(p),&(c));
Scm_WriteWithControls(obj,SCM_OBJ(p),SCM_WRITE_DISPLAY,c);}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libionewline(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("newline");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    port_scm = SCM_SUBRARGS[0];
  } else {
    port_scm = SCM_OBJ(SCM_CUROUT);
  }
  if (!SCM_OPORTP(port_scm)) Scm_Error("<output-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {

#line 785 "libio.scm"
SCM_PUTC('\n',port);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libiowrite_char(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj ch_scm;
  ScmChar ch;
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("write-char");
  if (SCM_ARGCNT >= 3
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<3; 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) {
    port_scm = SCM_SUBRARGS[1];
  } else {
    port_scm = SCM_OBJ(SCM_CUROUT);
  }
  if (!SCM_OPORTP(port_scm)) Scm_Error("<output-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {

#line 789 "libio.scm"
SCM_PUTC(ch,port);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libiowrite_byte(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj byte_scm;
  ScmSmallInt byte;
  ScmObj port_scm;
  ScmPort* port;
  ScmObj SCM_SUBRARGS[3];
  SCM_ENTER_SUBR("write-byte");
  if (SCM_ARGCNT >= 3
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<3; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  byte_scm = SCM_SUBRARGS[0];
  if (!SCM_INTP(byte_scm)) Scm_Error("ScmSmallInt required, but got %S", byte_scm);
  byte = SCM_INT_VALUE(byte_scm);
  if (SCM_ARGCNT > 1+1) {
    port_scm = SCM_SUBRARGS[1];
  } else {
    port_scm = SCM_OBJ(SCM_CUROUT);
  }
  if (!SCM_OPORTP(port_scm)) Scm_Error("<output-port> required, but got %S", port_scm);
  port = SCM_PORT(port_scm);
  {
{
int SCM_RESULT;

#line 797 "libio.scm"
if (((byte)<(0))||((byte)>(255))){{
Scm_Error("argument out of range: %ld",byte);}}

#line 799 "libio.scm"
SCM_PUTB(byte,port);

#line 800 "libio.scm"
{SCM_RESULT=(1);goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}


static ScmObj libiowrite_limited(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj obj_scm;
  ScmObj obj;
  ScmObj limit_scm;
  ScmSmallInt limit;
  ScmObj port_scm;
  ScmObj port;
  ScmObj SCM_SUBRARGS[4];
  SCM_ENTER_SUBR("write-limited");
  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<4; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  limit_scm = SCM_SUBRARGS[1];
  if (!SCM_INTP(limit_scm)) Scm_Error("ScmSmallInt required, but got %S", limit_scm);
  limit = SCM_INT_VALUE(limit_scm);
  if (SCM_ARGCNT > 2+1) {
    port_scm = SCM_SUBRARGS[2];
  } else {
    port_scm = SCM_OBJ(SCM_CUROUT);
  }
  if (!(port_scm)) Scm_Error("scheme object required, but got %S", port_scm);
  port = (port_scm);
  {
{
int SCM_RESULT;

#line 806 "libio.scm"
{SCM_RESULT=(Scm_WriteLimited(obj,port,SCM_WRITE_WRITE,limit));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
}
  }
}


static ScmObj libioflush(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  ScmObj oport_scm;
  ScmPort* oport;
  ScmObj SCM_SUBRARGS[2];
  SCM_ENTER_SUBR("flush");
  if (SCM_ARGCNT >= 2
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<2; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  if (SCM_ARGCNT > 0+1) {
    oport_scm = SCM_SUBRARGS[0];
  } else {
    oport_scm = SCM_OBJ(SCM_CUROUT);
  }
  if (!SCM_OPORTP(oport_scm)) Scm_Error("<output-port> required, but got %S", oport_scm);
  oport = SCM_PORT(oport_scm);
  {
Scm_Flush(oport);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libioflush_all_ports(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
{
  SCM_ENTER_SUBR("flush-all-ports");
  {

#line 813 "libio.scm"
Scm_FlushAllPorts(FALSE);
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_UNDEFINED);
  }
}


static ScmObj libiowrite_need_recurseP(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("write-need-recurse?");
  for (int SCM_i=0; SCM_i<1; SCM_i++) {
    SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
  }
  obj_scm = SCM_SUBRARGS[0];
  if (!(obj_scm)) Scm_Error("scheme object required, but got %S", obj_scm);
  obj = (obj_scm);
  {
{
int SCM_RESULT;

#line 821 "libio.scm"
{SCM_RESULT=(!((((((!(SCM_PTRP(obj)))||(
SCM_NUMBERP(obj)))||(
SCM_KEYWORDP(obj)))||(
(SCM_SYMBOLP(obj))&&(SCM_SYMBOL_INTERNED(obj))))||(
(SCM_STRINGP(obj))&&((SCM_STRING_SIZE(obj))==(0))))||(
(SCM_VECTORP(obj))&&((SCM_VECTOR_SIZE(obj))==(0)))));goto SCM_STUB_RETURN;}
goto SCM_STUB_RETURN;
SCM_STUB_RETURN:
SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
}
  }
}

static ScmObj write_controls_allocate(ScmClass* G1664 SCM_UNUSED,ScmObj G1665 SCM_UNUSED){{
#line 875 "libio.scm"
return (SCM_OBJ(Scm_MakeWriteControls(NULL)));}}
static ScmClass *Scm_WriteControlsClass_CPL[] = {
  SCM_CLASS_STATIC_PTR(Scm_TopClass),
  NULL
};
SCM_DEFINE_BUILTIN_CLASS(Scm_WriteControlsClass, NULL, NULL, NULL, write_controls_allocate, Scm_WriteControlsClass_CPL);

static ScmObj Scm_WriteControlsClass_length_GET(ScmObj OBJARG)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
if (obj->printLength < 0) return SCM_FALSE; else return SCM_MAKE_INT(obj->printLength);
}

static void Scm_WriteControlsClass_length_SET(ScmObj OBJARG, ScmObj value)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
if (SCM_INTP(value) && SCM_INT_VALUE(value) >= 0) obj->printLength = SCM_INT_VALUE(value); else obj->printLength = -1;
}

static ScmObj Scm_WriteControlsClass_level_GET(ScmObj OBJARG)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
if (obj->printLevel < 0) return SCM_FALSE; else return SCM_MAKE_INT(obj->printLevel);
}

static void Scm_WriteControlsClass_level_SET(ScmObj OBJARG, ScmObj value)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
if (SCM_INTP(value) && SCM_INT_VALUE(value) >= 0) obj->printLevel = SCM_INT_VALUE(value); else obj->printLevel = -1;
}

static ScmObj Scm_WriteControlsClass_width_GET(ScmObj OBJARG)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
if (obj->printWidth < 0) return SCM_FALSE; else return SCM_MAKE_INT(obj->printWidth);
}

static void Scm_WriteControlsClass_width_SET(ScmObj OBJARG, ScmObj value)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
if (SCM_INTP(value) && SCM_INT_VALUE(value) >= 0) obj->printWidth = SCM_INT_VALUE(value); else obj->printWidth = -1;
}

static ScmObj Scm_WriteControlsClass_base_GET(ScmObj OBJARG)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
  return Scm_MakeInteger(obj->printBase);
}

static void Scm_WriteControlsClass_base_SET(ScmObj OBJARG, ScmObj value)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
if (SCM_INTP(value) && SCM_INT_VALUE(value) >= SCM_RADIX_MIN && SCM_INT_VALUE(value) <= SCM_RADIX_MAX) obj->printBase = SCM_INT_VALUE(value); else Scm_Error("print-base must be an integer between %d and %d, but got: %S", SCM_RADIX_MIN, SCM_RADIX_MAX, value);
}

static ScmObj Scm_WriteControlsClass_radix_GET(ScmObj OBJARG)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
  return SCM_MAKE_BOOL(obj->printRadix);
}

static void Scm_WriteControlsClass_radix_SET(ScmObj OBJARG, ScmObj value)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
obj->printRadix = !SCM_FALSEP(value);
}

static ScmObj Scm_WriteControlsClass_pretty_GET(ScmObj OBJARG)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
  return SCM_MAKE_BOOL(obj->printPretty);
}

static void Scm_WriteControlsClass_pretty_SET(ScmObj OBJARG, ScmObj value)
{
  ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
obj->printPretty = !SCM_FALSEP(value);
}

static ScmClassStaticSlotSpec Scm_WriteControlsClass__SLOTS[] = {
  SCM_CLASS_SLOT_SPEC("length", Scm_WriteControlsClass_length_GET, Scm_WriteControlsClass_length_SET),
  SCM_CLASS_SLOT_SPEC("level", Scm_WriteControlsClass_level_GET, Scm_WriteControlsClass_level_SET),
  SCM_CLASS_SLOT_SPEC("width", Scm_WriteControlsClass_width_GET, Scm_WriteControlsClass_width_SET),
  SCM_CLASS_SLOT_SPEC("base", Scm_WriteControlsClass_base_GET, Scm_WriteControlsClass_base_SET),
  SCM_CLASS_SLOT_SPEC("radix", Scm_WriteControlsClass_radix_GET, Scm_WriteControlsClass_radix_SET),
  SCM_CLASS_SLOT_SPEC("pretty", Scm_WriteControlsClass_pretty_GET, Scm_WriteControlsClass_pretty_SET),
  SCM_CLASS_SLOT_SPEC_END()
};

static ScmCompiledCode *toplevels[] = {
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[8])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[9])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[10])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[19])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[21])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[22])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[23])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[24])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[28])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[30])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[74])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[76])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[78])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[80])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[82])),
 NULL /*termination*/
};
void Scm_Init_libio() {
   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.d1613[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[0])),TRUE); /* input-port? */
  scm__rc.d1613[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[1])),TRUE); /* obj */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1]), scm__rc.d1613[1]);
  scm__rc.d1613[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[2])),TRUE); /* source-info */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[4]), scm__rc.d1613[2]);
  scm__rc.d1613[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[4])),TRUE); /* bind-info */
  scm__rc.d1613[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[5])),TRUE); /* scheme */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[5]), scm__rc.d1613[0]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[6]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[7]), scm__rc.d1613[3]);
  scm__rc.d1613[5] = Scm_MakeExtendedPair(scm__rc.d1613[0], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[9]));
  scm__rc.d1613[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[6])),TRUE); /* <top> */
  scm__rc.d1613[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[7])),TRUE); /* -> */
  scm__rc.d1613[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[8])),TRUE); /* <boolean> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[9]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[9]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[9]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[9]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("input-port?")), SCM_OBJ(&libioinput_portP__STUB), 0);
  libioinput_portP__STUB.common.info = scm__rc.d1613[5];
  libioinput_portP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[9])),TRUE); /* output-port? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[12]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[13]), scm__rc.d1613[16]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[14]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[15]), scm__rc.d1613[3]);
  scm__rc.d1613[17] = Scm_MakeExtendedPair(scm__rc.d1613[16], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[17]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("output-port?")), SCM_OBJ(&libiooutput_portP__STUB), 0);
  libiooutput_portP__STUB.common.info = scm__rc.d1613[17];
  libiooutput_portP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[10])),TRUE); /* port? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[20]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[21]), scm__rc.d1613[18]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[22]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[23]), scm__rc.d1613[3]);
  scm__rc.d1613[19] = Scm_MakeExtendedPair(scm__rc.d1613[18], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[25]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("port?")), SCM_OBJ(&libioportP__STUB), 0);
  libioportP__STUB.common.info = scm__rc.d1613[19];
  libioportP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[11])),TRUE); /* port-closed? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[28]), scm__rc.d1613[2]);
  scm__rc.d1613[21] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[12])),TRUE); /* gauche */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[29]), scm__rc.d1613[20]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[30]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[31]), scm__rc.d1613[3]);
  scm__rc.d1613[22] = Scm_MakeExtendedPair(scm__rc.d1613[20], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[33]));
  scm__rc.d1613[23] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[13])),TRUE); /* <port> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[24]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[24]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[24]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[24]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-closed?")), SCM_OBJ(&libioport_closedP__STUB), 0);
  libioport_closedP__STUB.common.info = scm__rc.d1613[22];
  libioport_closedP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[24]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[14])),TRUE); /* current-input-port */
  scm__rc.d1613[32] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[15]))); /* :optional */
  scm__rc.d1613[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[16])),TRUE); /* newport */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[34]), scm__rc.d1613[33]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[35]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[38]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[39]), scm__rc.d1613[31]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[40]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[41]), scm__rc.d1613[3]);
  scm__rc.d1613[34] = Scm_MakeExtendedPair(scm__rc.d1613[31], SCM_OBJ(&scm__rc.d1614[35]), SCM_OBJ(&scm__rc.d1614[43]));
  scm__rc.d1613[35] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[17])),TRUE); /* * */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[36]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[36]))[4] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[36]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[36]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("current-input-port")), SCM_OBJ(&libiocurrent_input_port__STUB), 0);
  libiocurrent_input_port__STUB.common.info = scm__rc.d1613[34];
  libiocurrent_input_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[36]);
  scm__rc.d1613[43] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[18])),TRUE); /* current-output-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[46]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[47]), scm__rc.d1613[43]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[48]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[49]), scm__rc.d1613[3]);
  scm__rc.d1613[44] = Scm_MakeExtendedPair(scm__rc.d1613[43], SCM_OBJ(&scm__rc.d1614[35]), SCM_OBJ(&scm__rc.d1614[51]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("current-output-port")), SCM_OBJ(&libiocurrent_output_port__STUB), 0);
  libiocurrent_output_port__STUB.common.info = scm__rc.d1613[44];
  libiocurrent_output_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[36]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[45] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[19])),TRUE); /* current-error-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[54]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[55]), scm__rc.d1613[45]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[56]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[57]), scm__rc.d1613[3]);
  scm__rc.d1613[46] = Scm_MakeExtendedPair(scm__rc.d1613[45], SCM_OBJ(&scm__rc.d1614[35]), SCM_OBJ(&scm__rc.d1614[59]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[47]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[47]))[4] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[47]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[47]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("current-error-port")), SCM_OBJ(&libiocurrent_error_port__STUB), 0);
  libiocurrent_error_port__STUB.common.info = scm__rc.d1613[46];
  libiocurrent_error_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[47]);
  scm__rc.d1613[54] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[20])),TRUE); /* standard-input-port */
  scm__rc.d1613[55] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[21])),TRUE); /* p */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[60]), scm__rc.d1613[55]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[61]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[64]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[65]), scm__rc.d1613[54]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[66]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[67]), scm__rc.d1613[3]);
  scm__rc.d1613[56] = Scm_MakeExtendedPair(scm__rc.d1613[54], SCM_OBJ(&scm__rc.d1614[61]), SCM_OBJ(&scm__rc.d1614[69]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("standard-input-port")), SCM_OBJ(&libiostandard_input_port__STUB), 0);
  libiostandard_input_port__STUB.common.info = scm__rc.d1613[56];
  libiostandard_input_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[47]);
  scm__rc.d1613[57] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[22])),TRUE); /* standard-output-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[72]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[73]), scm__rc.d1613[57]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[74]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[75]), scm__rc.d1613[3]);
  scm__rc.d1613[58] = Scm_MakeExtendedPair(scm__rc.d1613[57], SCM_OBJ(&scm__rc.d1614[61]), SCM_OBJ(&scm__rc.d1614[77]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("standard-output-port")), SCM_OBJ(&libiostandard_output_port__STUB), 0);
  libiostandard_output_port__STUB.common.info = scm__rc.d1613[58];
  libiostandard_output_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[47]);
  scm__rc.d1613[59] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[23])),TRUE); /* standard-error-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[80]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[81]), scm__rc.d1613[59]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[82]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[83]), scm__rc.d1613[3]);
  scm__rc.d1613[60] = Scm_MakeExtendedPair(scm__rc.d1613[59], SCM_OBJ(&scm__rc.d1614[61]), SCM_OBJ(&scm__rc.d1614[85]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("standard-error-port")), SCM_OBJ(&libiostandard_error_port__STUB), 0);
  libiostandard_error_port__STUB.common.info = scm__rc.d1613[60];
  libiostandard_error_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[47]);

#line 101 "libio.scm"
Scm_BindPrimitiveParameter(Scm_GaucheModule(),"current-trace-port",
#line 103 "libio.scm"
Scm_Stderr(),0);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[61] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[24])),TRUE); /* port-name */
  scm__rc.d1613[62] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[25])),TRUE); /* port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[86]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[89]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[90]), scm__rc.d1613[61]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[91]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[92]), scm__rc.d1613[3]);
  scm__rc.d1613[63] = Scm_MakeExtendedPair(scm__rc.d1613[61], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[94]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[64]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[64]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[64]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[64]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-name")), SCM_OBJ(&libioport_name__STUB), 0);
  libioport_name__STUB.common.info = scm__rc.d1613[63];
  libioport_name__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[64]);
  scm__rc.d1613[71] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[26])),TRUE); /* port-current-line */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[97]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[98]), scm__rc.d1613[71]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[99]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[100]), scm__rc.d1613[3]);
  scm__rc.d1613[72] = Scm_MakeExtendedPair(scm__rc.d1613[71], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[102]));
  scm__rc.d1613[73] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[27])),TRUE); /* <fixnum> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[74]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[74]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[74]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[74]))[6] = scm__rc.d1613[73];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-current-line")), SCM_OBJ(&libioport_current_line__STUB), 0);
  libioport_current_line__STUB.common.info = scm__rc.d1613[72];
  libioport_current_line__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[74]);
  scm__rc.d1613[81] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[28])),TRUE); /* port-file-number */
  scm__rc.d1613[82] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[29])),TRUE); /* dup? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[103]), scm__rc.d1613[82]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[104]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[105]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[108]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[109]), scm__rc.d1613[81]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[110]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[111]), scm__rc.d1613[3]);
  scm__rc.d1613[83] = Scm_MakeExtendedPair(scm__rc.d1613[81], SCM_OBJ(&scm__rc.d1614[105]), SCM_OBJ(&scm__rc.d1614[113]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[84]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[84]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[84]))[5] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[84]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[84]))[7] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-file-number")), SCM_OBJ(&libioport_file_number__STUB), 0);
  libioport_file_number__STUB.common.info = scm__rc.d1613[83];
  libioport_file_number__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[84]);
  scm__rc.d1613[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[30])),TRUE); /* port-fd-dup! */
  scm__rc.d1613[93] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[31])),TRUE); /* dst */
  scm__rc.d1613[94] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[32])),TRUE); /* src */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[114]), scm__rc.d1613[94]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[115]), scm__rc.d1613[93]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[118]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[119]), scm__rc.d1613[92]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[120]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[121]), scm__rc.d1613[3]);
  scm__rc.d1613[95] = Scm_MakeExtendedPair(scm__rc.d1613[92], SCM_OBJ(&scm__rc.d1614[115]), SCM_OBJ(&scm__rc.d1614[123]));
  scm__rc.d1613[96] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[33])),TRUE); /* <void> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[97]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[97]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[97]))[5] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[97]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[97]))[7] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-fd-dup!")), SCM_OBJ(&libioport_fd_dupX__STUB), 0);
  libioport_fd_dupX__STUB.common.info = scm__rc.d1613[95];
  libioport_fd_dupX__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[97]);
  scm__rc.d1613[105] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[34])),TRUE); /* port-attribute-set! */
  scm__rc.d1613[106] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[35])),TRUE); /* key */
  scm__rc.d1613[107] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[36])),TRUE); /* val */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[124]), scm__rc.d1613[107]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[125]), scm__rc.d1613[106]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[126]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[129]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[130]), scm__rc.d1613[105]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[131]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[132]), scm__rc.d1613[3]);
  scm__rc.d1613[108] = Scm_MakeExtendedPair(scm__rc.d1613[105], SCM_OBJ(&scm__rc.d1614[126]), SCM_OBJ(&scm__rc.d1614[134]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[109]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[109]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[109]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[109]))[6] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[109]))[7] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[109]))[8] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attribute-set!")), SCM_OBJ(&libioport_attribute_setX__STUB), 0);
  libioport_attribute_setX__STUB.common.info = scm__rc.d1613[108];
  libioport_attribute_setX__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[109]);
  scm__rc.d1613[118] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[37])),TRUE); /* port-attribute-ref */
  scm__rc.d1613[119] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[38])),TRUE); /* fallback */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[135]), scm__rc.d1613[119]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[136]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[137]), scm__rc.d1613[106]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[138]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[141]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[142]), scm__rc.d1613[118]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[143]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[144]), scm__rc.d1613[3]);
  scm__rc.d1613[120] = Scm_MakeExtendedPair(scm__rc.d1613[118], SCM_OBJ(&scm__rc.d1614[138]), SCM_OBJ(&scm__rc.d1614[146]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[121]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[121]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[121]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[121]))[6] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[121]))[7] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[121]))[8] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attribute-ref")), SCM_OBJ(&libioport_attribute_ref__STUB), 0);
  libioport_attribute_ref__STUB.common.info = scm__rc.d1613[120];
  libioport_attribute_ref__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[121]);
  Scm_SetterSet(SCM_PROCEDURE(&libioport_attribute_ref__STUB), SCM_PROCEDURE(&libioport_attribute_setX__STUB), TRUE);
  scm__rc.d1613[130] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[39])),TRUE); /* port-attribute-delete! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[147]), scm__rc.d1613[106]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[148]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[151]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[152]), scm__rc.d1613[130]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[153]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[154]), scm__rc.d1613[3]);
  scm__rc.d1613[131] = Scm_MakeExtendedPair(scm__rc.d1613[130], SCM_OBJ(&scm__rc.d1614[148]), SCM_OBJ(&scm__rc.d1614[156]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[132]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[132]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[132]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[132]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[132]))[7] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attribute-delete!")), SCM_OBJ(&libioport_attribute_deleteX__STUB), 0);
  libioport_attribute_deleteX__STUB.common.info = scm__rc.d1613[131];
  libioport_attribute_deleteX__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[132]);
  scm__rc.d1613[140] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[40])),TRUE); /* port-attributes */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[159]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[160]), scm__rc.d1613[140]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[161]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[162]), scm__rc.d1613[3]);
  scm__rc.d1613[141] = Scm_MakeExtendedPair(scm__rc.d1613[140], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[164]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attributes")), SCM_OBJ(&libioport_attributes__STUB), 0);
  libioport_attributes__STUB.common.info = scm__rc.d1613[141];
  libioport_attributes__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[64]);
  scm__rc.d1613[142] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[42])),TRUE); /* file */
  scm__rc.d1613[143] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[43])),TRUE); /* proc */
  scm__rc.d1613[144] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[44])),TRUE); /* string */
  scm__rc.d1613[145] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[41])),TRUE); /* port-type */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[167]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[168]), scm__rc.d1613[145]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[169]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[170]), scm__rc.d1613[3]);
  scm__rc.d1613[146] = Scm_MakeExtendedPair(scm__rc.d1613[145], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[172]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-type")), SCM_OBJ(&libioport_type__STUB), 0);
  libioport_type__STUB.common.info = scm__rc.d1613[146];
  libioport_type__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[64]);
  scm__rc.d1613[147] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[45])),TRUE); /* port-buffering */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[175]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[176]), scm__rc.d1613[147]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[177]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[178]), scm__rc.d1613[3]);
  scm__rc.d1613[148] = Scm_MakeExtendedPair(scm__rc.d1613[147], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[180]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-buffering")), SCM_OBJ(&libioport_buffering__STUB), 0);
  libioport_buffering__STUB.common.info = scm__rc.d1613[148];
  libioport_buffering__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[64]);
  Scm_SetterSet(SCM_PROCEDURE(&libioport_buffering__STUB), SCM_PROCEDURE(&libioport_buffering_SETTER__STUB), TRUE);
  scm__rc.d1613[149] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[47])),TRUE); /* port-case-fold-set! */
  scm__rc.d1613[150] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[48])),TRUE); /* flag */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[181]), scm__rc.d1613[150]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[182]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[185]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[186]), scm__rc.d1613[149]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[187]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[188]), scm__rc.d1613[3]);
  scm__rc.d1613[151] = Scm_MakeExtendedPair(scm__rc.d1613[149], SCM_OBJ(&scm__rc.d1614[182]), SCM_OBJ(&scm__rc.d1614[190]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[152]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[152]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[152]))[5] = scm__rc.d1613[8];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[152]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[152]))[7] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-case-fold-set!")), SCM_OBJ(&libioport_case_fold_setX__STUB), 0);
  libioport_case_fold_setX__STUB.common.info = scm__rc.d1613[151];
  libioport_case_fold_setX__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[152]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[160] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[49])),TRUE); /* close-input-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[193]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[194]), scm__rc.d1613[160]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[195]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[196]), scm__rc.d1613[3]);
  scm__rc.d1613[161] = Scm_MakeExtendedPair(scm__rc.d1613[160], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[198]));
  scm__rc.d1613[162] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[50])),TRUE); /* <input-port> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[163]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[163]))[4] = scm__rc.d1613[162];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[163]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[163]))[6] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("close-input-port")), SCM_OBJ(&libioclose_input_port__STUB), 0);
  libioclose_input_port__STUB.common.info = scm__rc.d1613[161];
  libioclose_input_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[163]);
  scm__rc.d1613[170] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[51])),TRUE); /* close-output-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[201]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[202]), scm__rc.d1613[170]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[203]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[204]), scm__rc.d1613[3]);
  scm__rc.d1613[171] = Scm_MakeExtendedPair(scm__rc.d1613[170], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[206]));
  scm__rc.d1613[172] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[52])),TRUE); /* <output-port> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[173]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[173]))[4] = scm__rc.d1613[172];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[173]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[173]))[6] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("close-output-port")), SCM_OBJ(&libioclose_output_port__STUB), 0);
  libioclose_output_port__STUB.common.info = scm__rc.d1613[171];
  libioclose_output_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[173]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[180] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[53])),TRUE); /* close-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[209]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[210]), scm__rc.d1613[180]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[211]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[212]), scm__rc.d1613[3]);
  scm__rc.d1613[181] = Scm_MakeExtendedPair(scm__rc.d1613[180], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[214]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[182]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[182]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[182]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[182]))[6] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("close-port")), SCM_OBJ(&libioclose_port__STUB), 0);
  libioclose_port__STUB.common.info = scm__rc.d1613[181];
  libioclose_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[182]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[189] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[54]))); /* :error */
  scm__rc.d1613[190] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[55]))); /* :if-does-not-exist */
  scm__rc.d1613[191] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[56]))); /* :buffering */
  scm__rc.d1613[192] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[57]))); /* :binary */
  scm__rc.d1613[193] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[58]))); /* :element-type */
  scm__rc.d1613[194] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[60]))); /* :character */
  scm__rc.d1613[195] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[59])),TRUE); /* %open-input-file */
  scm__rc.d1613[196] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[61])),TRUE); /* path */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[215]), scm__rc.d1613[196]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[218]), scm__rc.d1613[2]);
  scm__rc.d1613[197] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[62])),TRUE); /* gauche.internal */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[219]), scm__rc.d1613[195]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[220]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[221]), scm__rc.d1613[3]);
  scm__rc.d1613[198] = Scm_MakeExtendedPair(scm__rc.d1613[195], SCM_OBJ(&scm__rc.d1614[215]), SCM_OBJ(&scm__rc.d1614[223]));
  scm__rc.d1613[199] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[63])),TRUE); /* <string> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[200]))[3] = scm__rc.d1613[197];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[200]))[4] = scm__rc.d1613[199];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[200]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[200]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%open-input-file")), SCM_OBJ(&libio_25open_input_file__STUB), 0);
  libio_25open_input_file__STUB.common.info = scm__rc.d1613[198];
  libio_25open_input_file__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[200]);
  scm__rc.d1613[207] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[64]))); /* :supersede */
  scm__rc.d1613[208] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[65]))); /* :if-exists */
  scm__rc.d1613[209] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[66]))); /* :create */
  scm__rc.d1613[210] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[67]))); /* :mode */
  scm__rc.d1613[211] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[69]))); /* :overwrite */
  scm__rc.d1613[212] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[70]))); /* :append */
  scm__rc.d1613[213] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[68])),TRUE); /* %open-output-file */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[226]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[227]), scm__rc.d1613[213]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[228]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[229]), scm__rc.d1613[3]);
  scm__rc.d1613[214] = Scm_MakeExtendedPair(scm__rc.d1613[213], SCM_OBJ(&scm__rc.d1614[215]), SCM_OBJ(&scm__rc.d1614[231]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%open-output-file")), SCM_OBJ(&libio_25open_output_file__STUB), 0);
  libio_25open_output_file__STUB.common.info = scm__rc.d1613[214];
  libio_25open_output_file__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[200]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[215] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[71]))); /* :owner? */
  scm__rc.d1613[216] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[72]))); /* :name */
  scm__rc.d1613[217] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[74])),TRUE); /* dup */
  scm__rc.d1613[218] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[73])),TRUE); /* open-input-fd-port */
  scm__rc.d1613[219] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[75])),TRUE); /* fd */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[232]), scm__rc.d1613[219]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[235]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[236]), scm__rc.d1613[218]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[237]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[238]), scm__rc.d1613[3]);
  scm__rc.d1613[220] = Scm_MakeExtendedPair(scm__rc.d1613[218], SCM_OBJ(&scm__rc.d1614[232]), SCM_OBJ(&scm__rc.d1614[240]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[221]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[221]))[4] = scm__rc.d1613[73];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[221]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[221]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-input-fd-port")), SCM_OBJ(&libioopen_input_fd_port__STUB), 0);
  libioopen_input_fd_port__STUB.common.info = scm__rc.d1613[220];
  libioopen_input_fd_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[221]);
  scm__rc.d1613[228] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[76])),TRUE); /* open-output-fd-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[243]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[244]), scm__rc.d1613[228]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[245]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[246]), scm__rc.d1613[3]);
  scm__rc.d1613[229] = Scm_MakeExtendedPair(scm__rc.d1613[228], SCM_OBJ(&scm__rc.d1614[232]), SCM_OBJ(&scm__rc.d1614[248]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-output-fd-port")), SCM_OBJ(&libioopen_output_fd_port__STUB), 0);
  libioopen_output_fd_port__STUB.common.info = scm__rc.d1613[229];
  libioopen_output_fd_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[221]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[230] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[77])),TRUE); /* open-input-buffered-port */
  scm__rc.d1613[231] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[78])),TRUE); /* filler */
  scm__rc.d1613[232] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[79])),TRUE); /* buffer-size */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[249]), scm__rc.d1613[232]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[250]), scm__rc.d1613[231]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[253]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[254]), scm__rc.d1613[230]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[255]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[256]), scm__rc.d1613[3]);
  scm__rc.d1613[233] = Scm_MakeExtendedPair(scm__rc.d1613[230], SCM_OBJ(&scm__rc.d1614[250]), SCM_OBJ(&scm__rc.d1614[258]));
  scm__rc.d1613[234] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[80])),TRUE); /* <procedure> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[235]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[235]))[4] = scm__rc.d1613[234];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[235]))[5] = scm__rc.d1613[73];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[235]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[235]))[7] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-input-buffered-port")), SCM_OBJ(&libioopen_input_buffered_port__STUB), 0);
  libioopen_input_buffered_port__STUB.common.info = scm__rc.d1613[233];
  libioopen_input_buffered_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[235]);
  scm__rc.d1613[243] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[81])),TRUE); /* open-output-buffered-port */
  scm__rc.d1613[244] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[82])),TRUE); /* flusher */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[259]), scm__rc.d1613[244]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[262]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[263]), scm__rc.d1613[243]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[264]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[265]), scm__rc.d1613[3]);
  scm__rc.d1613[245] = Scm_MakeExtendedPair(scm__rc.d1613[243], SCM_OBJ(&scm__rc.d1614[259]), SCM_OBJ(&scm__rc.d1614[267]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-output-buffered-port")), SCM_OBJ(&libioopen_output_buffered_port__STUB), 0);
  libioopen_output_buffered_port__STUB.common.info = scm__rc.d1613[245];
  libioopen_output_buffered_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[235]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[246] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[83]))); /* :private? */
  scm__rc.d1613[247] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[85])),TRUE); /* open-input-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[268]), scm__rc.d1613[144]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[271]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[272]), scm__rc.d1613[247]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[273]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[274]), scm__rc.d1613[3]);
  scm__rc.d1613[248] = Scm_MakeExtendedPair(scm__rc.d1613[247], SCM_OBJ(&scm__rc.d1614[268]), SCM_OBJ(&scm__rc.d1614[276]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[249]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[249]))[4] = scm__rc.d1613[199];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[249]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[249]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-input-string")), SCM_OBJ(&libioopen_input_string__STUB), 0);
  libioopen_input_string__STUB.common.info = scm__rc.d1613[248];
  libioopen_input_string__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[249]);
  scm__rc.d1613[256] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[87])),TRUE); /* open-output-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[279]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[280]), scm__rc.d1613[256]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[281]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[282]), scm__rc.d1613[3]);
  scm__rc.d1613[257] = Scm_MakeExtendedPair(scm__rc.d1613[256], SCM_NIL, SCM_OBJ(&scm__rc.d1614[284]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[258]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[258]))[4] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[258]))[5] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-output-string")), SCM_OBJ(&libioopen_output_string__STUB), 0);
  libioopen_output_string__STUB.common.info = scm__rc.d1613[257];
  libioopen_output_string__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[258]);
  scm__rc.d1613[264] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[88])),TRUE); /* get-output-string */
  scm__rc.d1613[265] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[89])),TRUE); /* oport */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[285]), scm__rc.d1613[265]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[288]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[289]), scm__rc.d1613[264]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[290]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[291]), scm__rc.d1613[3]);
  scm__rc.d1613[266] = Scm_MakeExtendedPair(scm__rc.d1613[264], SCM_OBJ(&scm__rc.d1614[285]), SCM_OBJ(&scm__rc.d1614[293]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[267]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[267]))[4] = scm__rc.d1613[172];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[267]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[267]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("get-output-string")), SCM_OBJ(&libioget_output_string__STUB), 0);
  libioget_output_string__STUB.common.info = scm__rc.d1613[266];
  libioget_output_string__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[267]);
  scm__rc.d1613[274] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[90])),TRUE); /* get-output-byte-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[296]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[297]), scm__rc.d1613[274]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[298]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[299]), scm__rc.d1613[3]);
  scm__rc.d1613[275] = Scm_MakeExtendedPair(scm__rc.d1613[274], SCM_OBJ(&scm__rc.d1614[285]), SCM_OBJ(&scm__rc.d1614[301]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("get-output-byte-string")), SCM_OBJ(&libioget_output_byte_string__STUB), 0);
  libioget_output_byte_string__STUB.common.info = scm__rc.d1613[275];
  libioget_output_byte_string__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[267]);
  scm__rc.d1613[276] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[91])),TRUE); /* get-remaining-input-string */
  scm__rc.d1613[277] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[92])),TRUE); /* iport */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[302]), scm__rc.d1613[277]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[305]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[306]), scm__rc.d1613[276]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[307]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[308]), scm__rc.d1613[3]);
  scm__rc.d1613[278] = Scm_MakeExtendedPair(scm__rc.d1613[276], SCM_OBJ(&scm__rc.d1614[302]), SCM_OBJ(&scm__rc.d1614[310]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[279]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[279]))[4] = scm__rc.d1613[162];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[279]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[279]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("get-remaining-input-string")), SCM_OBJ(&libioget_remaining_input_string__STUB), 0);
  libioget_remaining_input_string__STUB.common.info = scm__rc.d1613[278];
  libioget_remaining_input_string__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[279]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[286] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[93])),TRUE); /* open-coding-aware-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[313]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[314]), scm__rc.d1613[286]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[315]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[316]), scm__rc.d1613[3]);
  scm__rc.d1613[287] = Scm_MakeExtendedPair(scm__rc.d1613[286], SCM_OBJ(&scm__rc.d1614[302]), SCM_OBJ(&scm__rc.d1614[318]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-coding-aware-port")), SCM_OBJ(&libioopen_coding_aware_port__STUB), 0);
  libioopen_coding_aware_port__STUB.common.info = scm__rc.d1613[287];
  libioopen_coding_aware_port__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[279]);
  scm__rc.d1613[288] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[94])),TRUE); /* port-has-port-position? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[321]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[322]), scm__rc.d1613[288]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[323]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[324]), scm__rc.d1613[3]);
  scm__rc.d1613[289] = Scm_MakeExtendedPair(scm__rc.d1613[288], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[326]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-has-port-position?")), SCM_OBJ(&libioport_has_port_positionP__STUB), 0);
  libioport_has_port_positionP__STUB.common.info = scm__rc.d1613[289];
  libioport_has_port_positionP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[24]);
  scm__rc.d1613[290] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[95])),TRUE); /* port-has-set-port-position!? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[329]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[330]), scm__rc.d1613[290]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[331]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[332]), scm__rc.d1613[3]);
  scm__rc.d1613[291] = Scm_MakeExtendedPair(scm__rc.d1613[290], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[334]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-has-set-port-position!?")), SCM_OBJ(&libioport_has_set_port_positionXP__STUB), 0);
  libioport_has_set_port_positionXP__STUB.common.info = scm__rc.d1613[291];
  libioport_has_set_port_positionXP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[24]);
  scm__rc.d1613[292] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[96])),TRUE); /* port-position */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[337]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[338]), scm__rc.d1613[292]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[339]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[340]), scm__rc.d1613[3]);
  scm__rc.d1613[293] = Scm_MakeExtendedPair(scm__rc.d1613[292], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[342]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-position")), SCM_OBJ(&libioport_position__STUB), 0);
  libioport_position__STUB.common.info = scm__rc.d1613[293];
  libioport_position__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[64]);
  scm__rc.d1613[294] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[97])),TRUE); /* set-port-position! */
  scm__rc.d1613[295] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[98])),TRUE); /* pos */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[343]), scm__rc.d1613[295]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[344]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[347]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[348]), scm__rc.d1613[294]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[349]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[350]), scm__rc.d1613[3]);
  scm__rc.d1613[296] = Scm_MakeExtendedPair(scm__rc.d1613[294], SCM_OBJ(&scm__rc.d1614[344]), SCM_OBJ(&scm__rc.d1614[352]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("set-port-position!")), SCM_OBJ(&libioset_port_positionX__STUB), 0);
  libioset_port_positionX__STUB.common.info = scm__rc.d1613[296];
  libioset_port_positionX__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[132]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[297] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[99])),TRUE); /* SEEK_SET */
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1613[297]), Scm_MakeInteger(SEEK_SET), SCM_BINDING_CONST);

  scm__rc.d1613[298] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[100])),TRUE); /* SEEK_CUR */
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1613[298]), Scm_MakeInteger(SEEK_CUR), SCM_BINDING_CONST);

  scm__rc.d1613[299] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[101])),TRUE); /* SEEK_END */
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1613[299]), Scm_MakeInteger(SEEK_END), SCM_BINDING_CONST);

  scm__rc.d1613[300] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[102])),TRUE); /* port-seek */
  scm__rc.d1613[301] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[103])),TRUE); /* offset */
  scm__rc.d1613[302] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[104])),TRUE); /* whence */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[353]), scm__rc.d1613[302]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[354]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[355]), scm__rc.d1613[301]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[356]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[359]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[360]), scm__rc.d1613[300]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[361]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[362]), scm__rc.d1613[3]);
  scm__rc.d1613[303] = Scm_MakeExtendedPair(scm__rc.d1613[300], SCM_OBJ(&scm__rc.d1614[356]), SCM_OBJ(&scm__rc.d1614[364]));
  scm__rc.d1613[304] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[105])),TRUE); /* <integer> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[305]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[305]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[305]))[5] = scm__rc.d1613[304];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[305]))[6] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[305]))[7] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[305]))[8] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-seek")), SCM_OBJ(&libioport_seek__STUB), 0);
  libioport_seek__STUB.common.info = scm__rc.d1613[303];
  libioport_seek__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[305]);
  scm__rc.d1613[314] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[106])),TRUE); /* port-tell */
  scm__rc.d1613[316] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1613[21]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
  scm__rc.d1613[315] = Scm_MakeIdentifier(scm__rc.d1613[300], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#port-seek */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[367]), scm__rc.d1613[2]);
  scm__rc.d1613[317] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[107])),TRUE); /* unused-args */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[368]), scm__rc.d1613[317]);
  scm__rc.d1613[318] = Scm_MakeExtendedPair(scm__rc.d1613[314], SCM_OBJ(&scm__rc.d1614[60]), SCM_OBJ(&scm__rc.d1614[370]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[371]), scm__rc.d1613[318]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[0]))->name = scm__rc.d1613[314];/* port-tell */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[0]))[4] = SCM_WORD(scm__rc.d1613[315]);
  ScmObj G1623 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[0]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[314]) /* port-tell */, G1623,0);

  scm__rc.d1613[319] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[108])),TRUE); /* port-position-prefix */
  scm__rc.d1613[320] = Scm_MakeIdentifier(scm__rc.d1613[18], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#port? */
  scm__rc.d1613[321] = Scm_MakeIdentifier(scm__rc.d1613[61], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#port-name */
  scm__rc.d1613[322] = Scm_MakeIdentifier(scm__rc.d1613[71], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#port-current-line */
  scm__rc.d1613[324] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[109])),TRUE); /* positive? */
  scm__rc.d1613[323] = Scm_MakeIdentifier(scm__rc.d1613[324], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#positive? */
  scm__rc.d1613[326] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[111])),TRUE); /* format */
  scm__rc.d1613[325] = Scm_MakeIdentifier(scm__rc.d1613[326], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#format */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[374]), scm__rc.d1613[2]);
  scm__rc.d1613[327] = Scm_MakeExtendedPair(scm__rc.d1613[319], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[375]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[376]), scm__rc.d1613[327]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[1]))->name = scm__rc.d1613[319];/* port-position-prefix */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]))[4] = SCM_WORD(scm__rc.d1613[320]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]))[11] = SCM_WORD(scm__rc.d1613[321]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]))[20] = SCM_WORD(scm__rc.d1613[322]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]))[26] = SCM_WORD(scm__rc.d1613[323]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]))[37] = SCM_WORD(scm__rc.d1613[325]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[6]))[47] = SCM_WORD(scm__rc.d1613[325]);
  ScmObj G1624 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[1]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[319]) /* port-position-prefix */, G1624,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[328] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[115])),TRUE); /* %port-walking? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[379]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[380]), scm__rc.d1613[328]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[381]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[382]), scm__rc.d1613[3]);
  scm__rc.d1613[329] = Scm_MakeExtendedPair(scm__rc.d1613[328], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[384]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[330]))[3] = scm__rc.d1613[197];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[330]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[330]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[330]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-walking?")), SCM_OBJ(&libio_25port_walkingP__STUB), 0);
  libio_25port_walkingP__STUB.common.info = scm__rc.d1613[329];
  libio_25port_walkingP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[330]);
  Scm_SetterSet(SCM_PROCEDURE(&libio_25port_walkingP__STUB), SCM_PROCEDURE(&libio_25port_walkingP_SETTER__STUB), TRUE);
  scm__rc.d1613[337] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[117])),TRUE); /* %port-writing-shared? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[387]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[388]), scm__rc.d1613[337]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[389]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[390]), scm__rc.d1613[3]);
  scm__rc.d1613[338] = Scm_MakeExtendedPair(scm__rc.d1613[337], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[392]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-writing-shared?")), SCM_OBJ(&libio_25port_writing_sharedP__STUB), 0);
  libio_25port_writing_sharedP__STUB.common.info = scm__rc.d1613[338];
  libio_25port_writing_sharedP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[330]);
  Scm_SetterSet(SCM_PROCEDURE(&libio_25port_writing_sharedP__STUB), SCM_PROCEDURE(&libio_25port_writing_sharedP_SETTER__STUB), TRUE);
  Scm_InitStaticClassWithMeta(&Scm_WriteStateClass, "<write-state>", SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), NULL, SCM_FALSE, Scm_WriteStateClass__SLOTS, 0);
  scm__rc.d1613[339] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[119])),TRUE); /* %port-write-state */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[395]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[396]), scm__rc.d1613[339]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[397]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[398]), scm__rc.d1613[3]);
  scm__rc.d1613[340] = Scm_MakeExtendedPair(scm__rc.d1613[339], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[400]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[341]))[3] = scm__rc.d1613[197];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[341]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[341]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[341]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-write-state")), SCM_OBJ(&libio_25port_write_state__STUB), 0);
  libio_25port_write_state__STUB.common.info = scm__rc.d1613[340];
  libio_25port_write_state__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[341]);
  Scm_SetterSet(SCM_PROCEDURE(&libio_25port_write_state__STUB), SCM_PROCEDURE(&libio_25port_write_state_SETTER__STUB), TRUE);
  scm__rc.d1613[348] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[121])),TRUE); /* %port-lock! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[403]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[404]), scm__rc.d1613[348]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[405]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[406]), scm__rc.d1613[3]);
  scm__rc.d1613[349] = Scm_MakeExtendedPair(scm__rc.d1613[348], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[408]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[350]))[3] = scm__rc.d1613[197];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[350]))[4] = scm__rc.d1613[23];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[350]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[350]))[6] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-lock!")), SCM_OBJ(&libio_25port_lockX__STUB), 0);
  libio_25port_lockX__STUB.common.info = scm__rc.d1613[349];
  libio_25port_lockX__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[350]);
  scm__rc.d1613[357] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[122])),TRUE); /* %port-unlock! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[411]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[412]), scm__rc.d1613[357]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[413]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[414]), scm__rc.d1613[3]);
  scm__rc.d1613[358] = Scm_MakeExtendedPair(scm__rc.d1613[357], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[416]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-unlock!")), SCM_OBJ(&libio_25port_unlockX__STUB), 0);
  libio_25port_unlockX__STUB.common.info = scm__rc.d1613[358];
  libio_25port_unlockX__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[350]);
  scm__rc.d1613[359] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[123])),TRUE); /* with-port-locking */
  scm__rc.d1613[361] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1613[197]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche.internal */
  scm__rc.d1613[360] = Scm_MakeIdentifier(scm__rc.d1613[348], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%port-lock! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[418]), scm__rc.d1613[359]);
  scm__rc.d1613[362] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[418]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[419]), scm__rc.d1613[362]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[59]))[4] = SCM_WORD(scm__rc.d1613[360]);
  scm__rc.d1613[363] = Scm_MakeIdentifier(scm__rc.d1613[357], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%port-unlock! */
  scm__rc.d1613[364] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[418]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[420]), scm__rc.d1613[364]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[68]))[2] = SCM_WORD(scm__rc.d1613[363]);
  scm__rc.d1613[365] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[2]))); /* :source-info */
  scm__rc.d1613[367] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[124])),TRUE); /* %unwind-protect */
  scm__rc.d1613[366] = Scm_MakeIdentifier(scm__rc.d1613[367], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%unwind-protect */
  scm__rc.d1613[368] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[125])),TRUE); /* args */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[423]), scm__rc.d1613[143]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1614[423]), scm__rc.d1613[368]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[424]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[427]), scm__rc.d1613[2]);
  scm__rc.d1613[369] = Scm_MakeExtendedPair(scm__rc.d1613[359], SCM_OBJ(&scm__rc.d1614[424]), SCM_OBJ(&scm__rc.d1614[428]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[429]), scm__rc.d1613[369]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[4]))->name = scm__rc.d1613[359];/* with-port-locking */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[72]))[7] = SCM_WORD(scm__rc.d1613[365]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[72]))[11] = SCM_WORD(scm__rc.d1613[366]);
  ScmObj G1631 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[4]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[359]) /* with-port-locking */, G1631,0);

  scm__rc.d1613[370] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[126])),TRUE); /* %with-2pass-setup */
  scm__rc.d1613[371] = Scm_MakeIdentifier(scm__rc.d1613[339], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%port-write-state */
  scm__rc.d1613[373] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[54])),TRUE); /* error */
  scm__rc.d1613[372] = Scm_MakeIdentifier(scm__rc.d1613[373], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#error */
  scm__rc.d1613[375] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[128])),TRUE); /* <write-state> */
  scm__rc.d1613[374] = Scm_MakeIdentifier(scm__rc.d1613[375], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#<write-state> */
  scm__rc.d1613[376] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[129]))); /* :shared-table */
  scm__rc.d1613[377] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[130])),TRUE); /* eq? */
  scm__rc.d1613[379] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[131])),TRUE); /* make-hash-table */
  scm__rc.d1613[378] = Scm_MakeIdentifier(scm__rc.d1613[379], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#make-hash-table */
  scm__rc.d1613[381] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[132])),TRUE); /* make */
  scm__rc.d1613[380] = Scm_MakeIdentifier(scm__rc.d1613[381], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#make */
  scm__rc.d1613[382] = Scm_MakeIdentifier(scm__rc.d1613[328], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%port-walking? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[430]), scm__rc.d1613[370]);
  scm__rc.d1613[383] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[430]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[431]), scm__rc.d1613[383]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[4] = SCM_WORD(scm__rc.d1613[360]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[9] = SCM_WORD(scm__rc.d1613[371]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[18] = SCM_WORD(scm__rc.d1613[372]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[27] = SCM_WORD(scm__rc.d1613[374]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[29] = SCM_WORD(scm__rc.d1613[376]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[33] = SCM_WORD(scm__rc.d1613[377]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[35] = SCM_WORD(scm__rc.d1613[378]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[37] = SCM_WORD(scm__rc.d1613[380]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[39] = SCM_WORD(scm__rc.d1613[371]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[48] = SCM_WORD(scm__rc.d1613[382]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[85]))[61] = SCM_WORD(scm__rc.d1613[382]);
  scm__rc.d1613[384] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[430]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[432]), scm__rc.d1613[384]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[153]))[5] = SCM_WORD(scm__rc.d1613[382]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[153]))[13] = SCM_WORD(scm__rc.d1613[371]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[153]))[18] = SCM_WORD(scm__rc.d1613[363]);
  scm__rc.d1613[385] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[133])),TRUE); /* walker */
  scm__rc.d1613[386] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[134])),TRUE); /* emitter */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[435]), scm__rc.d1613[386]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1614[435]), scm__rc.d1613[368]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[436]), scm__rc.d1613[385]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[437]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[440]), scm__rc.d1613[2]);
  scm__rc.d1613[387] = Scm_MakeExtendedPair(scm__rc.d1613[370], SCM_OBJ(&scm__rc.d1614[437]), SCM_OBJ(&scm__rc.d1614[441]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[442]), scm__rc.d1613[387]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[7]))->name = scm__rc.d1613[370];/* %with-2pass-setup */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[173]))[7] = SCM_WORD(scm__rc.d1613[365]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[173]))[11] = SCM_WORD(scm__rc.d1613[366]);
  ScmObj G1632 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[7]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())) /* gauche.internal */, SCM_SYMBOL(scm__rc.d1613[370]) /* %with-2pass-setup */, G1632,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[388] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[135])),TRUE); /* read */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[443]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[446]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[447]), scm__rc.d1613[388]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[448]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[449]), scm__rc.d1613[3]);
  scm__rc.d1613[389] = Scm_MakeExtendedPair(scm__rc.d1613[388], SCM_OBJ(&scm__rc.d1614[443]), SCM_OBJ(&scm__rc.d1614[451]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("read")), SCM_OBJ(&libioread__STUB), 0);
  libioread__STUB.common.info = scm__rc.d1613[389];
  libioread__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[36]);
  scm__rc.d1613[390] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[136])),TRUE); /* read-char */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[454]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[455]), scm__rc.d1613[390]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[456]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[457]), scm__rc.d1613[3]);
  scm__rc.d1613[391] = Scm_MakeExtendedPair(scm__rc.d1613[390], SCM_OBJ(&scm__rc.d1614[443]), SCM_OBJ(&scm__rc.d1614[459]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("read-char")), SCM_OBJ(&libioread_char__STUB), SCM_BINDING_INLINABLE);
  libioread_char__STUB.common.info = scm__rc.d1613[391];
  libioread_char__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[36]);
  scm__rc.d1613[392] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[137])),TRUE); /* peek-char */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[462]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[463]), scm__rc.d1613[392]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[464]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[465]), scm__rc.d1613[3]);
  scm__rc.d1613[393] = Scm_MakeExtendedPair(scm__rc.d1613[392], SCM_OBJ(&scm__rc.d1614[443]), SCM_OBJ(&scm__rc.d1614[467]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("peek-char")), SCM_OBJ(&libiopeek_char__STUB), SCM_BINDING_INLINABLE);
  libiopeek_char__STUB.common.info = scm__rc.d1613[393];
  libiopeek_char__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[36]);
  scm__rc.d1613[394] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[138])),TRUE); /* eof-object? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[470]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[471]), scm__rc.d1613[394]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[472]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[473]), scm__rc.d1613[3]);
  scm__rc.d1613[395] = Scm_MakeExtendedPair(scm__rc.d1613[394], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[475]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("eof-object?")), SCM_OBJ(&libioeof_objectP__STUB), SCM_BINDING_INLINABLE);
  libioeof_objectP__STUB.common.info = scm__rc.d1613[395];
  libioeof_objectP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[9]);
  scm__rc.d1613[396] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[139])),TRUE); /* char-ready? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[478]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[479]), scm__rc.d1613[396]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[480]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[481]), scm__rc.d1613[3]);
  scm__rc.d1613[397] = Scm_MakeExtendedPair(scm__rc.d1613[396], SCM_OBJ(&scm__rc.d1614[443]), SCM_OBJ(&scm__rc.d1614[483]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[398]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[398]))[4] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[398]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[398]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-ready?")), SCM_OBJ(&libiochar_readyP__STUB), 0);
  libiochar_readyP__STUB.common.info = scm__rc.d1613[397];
  libiochar_readyP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[398]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[405] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[140])),TRUE); /* eof-object */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[484]), scm__rc.d1613[405]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[485]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[486]), scm__rc.d1613[3]);
  scm__rc.d1613[406] = Scm_MakeExtendedPair(scm__rc.d1613[405], SCM_NIL, SCM_OBJ(&scm__rc.d1614[487]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("eof-object")), SCM_OBJ(&libioeof_object__STUB), SCM_BINDING_INLINABLE);
  libioeof_object__STUB.common.info = scm__rc.d1613[406];
  libioeof_object__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[258]);
  scm__rc.d1613[407] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[141])),TRUE); /* byte-ready? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[490]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[491]), scm__rc.d1613[407]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[492]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[493]), scm__rc.d1613[3]);
  scm__rc.d1613[408] = Scm_MakeExtendedPair(scm__rc.d1613[407], SCM_OBJ(&scm__rc.d1614[443]), SCM_OBJ(&scm__rc.d1614[495]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[409]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[409]))[4] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[409]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[409]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("byte-ready?")), SCM_OBJ(&libiobyte_readyP__STUB), 0);
  libiobyte_readyP__STUB.common.info = scm__rc.d1613[408];
  libiobyte_readyP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[409]);
  scm__rc.d1613[416] = Scm_MakeIdentifier(scm__rc.d1613[407], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#byte-ready? */
  scm__rc.d1613[418] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[142])),TRUE); /* u8-ready? */
  scm__rc.d1613[417] = Scm_MakeIdentifier(scm__rc.d1613[418], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#u8-ready? */
  scm__rc.d1613[419] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[143])),TRUE); /* %toplevel */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[8]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[186]))[1] = SCM_WORD(scm__rc.d1613[416]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[186]))[3] = SCM_WORD(scm__rc.d1613[417]);
  scm__rc.d1613[420] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[144])),TRUE); /* read-byte */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[498]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[499]), scm__rc.d1613[420]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[500]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[501]), scm__rc.d1613[3]);
  scm__rc.d1613[421] = Scm_MakeExtendedPair(scm__rc.d1613[420], SCM_OBJ(&scm__rc.d1614[443]), SCM_OBJ(&scm__rc.d1614[503]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-byte")), SCM_OBJ(&libioread_byte__STUB), 0);
  libioread_byte__STUB.common.info = scm__rc.d1613[421];
  libioread_byte__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[47]);
  scm__rc.d1613[422] = Scm_MakeIdentifier(scm__rc.d1613[420], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#read-byte */
  scm__rc.d1613[424] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[145])),TRUE); /* read-u8 */
  scm__rc.d1613[423] = Scm_MakeIdentifier(scm__rc.d1613[424], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#read-u8 */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[9]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[191]))[1] = SCM_WORD(scm__rc.d1613[422]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[191]))[3] = SCM_WORD(scm__rc.d1613[423]);
  scm__rc.d1613[425] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[146])),TRUE); /* peek-byte */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[506]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[507]), scm__rc.d1613[425]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[508]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[509]), scm__rc.d1613[3]);
  scm__rc.d1613[426] = Scm_MakeExtendedPair(scm__rc.d1613[425], SCM_OBJ(&scm__rc.d1614[443]), SCM_OBJ(&scm__rc.d1614[511]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("peek-byte")), SCM_OBJ(&libiopeek_byte__STUB), 0);
  libiopeek_byte__STUB.common.info = scm__rc.d1613[426];
  libiopeek_byte__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[47]);
  scm__rc.d1613[427] = Scm_MakeIdentifier(scm__rc.d1613[425], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#peek-byte */
  scm__rc.d1613[429] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[147])),TRUE); /* peek-u8 */
  scm__rc.d1613[428] = Scm_MakeIdentifier(scm__rc.d1613[429], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#peek-u8 */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[10]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[196]))[1] = SCM_WORD(scm__rc.d1613[427]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[196]))[3] = SCM_WORD(scm__rc.d1613[428]);
  scm__rc.d1613[430] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[148])),TRUE); /* read-line */
  scm__rc.d1613[431] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[149])),TRUE); /* allowbytestr */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[512]), scm__rc.d1613[431]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[513]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[514]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[517]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[518]), scm__rc.d1613[430]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[519]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[520]), scm__rc.d1613[3]);
  scm__rc.d1613[432] = Scm_MakeExtendedPair(scm__rc.d1613[430], SCM_OBJ(&scm__rc.d1614[514]), SCM_OBJ(&scm__rc.d1614[522]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-line")), SCM_OBJ(&libioread_line__STUB), 0);
  libioread_line__STUB.common.info = scm__rc.d1613[432];
  libioread_line__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[47]);
  scm__rc.d1613[433] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[150])),TRUE); /* read-string */
  scm__rc.d1613[434] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[152])),TRUE); /* lambda */
  scm__rc.d1613[435] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[153])),TRUE); /* n */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[524]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[526]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[527]), scm__rc.d1613[435]);
  scm__rc.d1613[436] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[154])),TRUE); /* define */
  scm__rc.d1613[437] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[155])),TRUE); /* o */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[529]), scm__rc.d1613[246]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[530]), scm__rc.d1613[256]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[532]), scm__rc.d1613[437]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[533]), scm__rc.d1613[436]);
  scm__rc.d1613[438] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[156])),TRUE); /* let */
  scm__rc.d1613[439] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[157])),TRUE); /* loop */
  scm__rc.d1613[440] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[158])),TRUE); /* i */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[535]), scm__rc.d1613[440]);
  scm__rc.d1613[441] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[159])),TRUE); /* if */
  scm__rc.d1613[442] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[160])),TRUE); /* >= */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[537]), scm__rc.d1613[435]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[538]), scm__rc.d1613[440]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[539]), scm__rc.d1613[442]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[540]), scm__rc.d1613[437]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[541]), scm__rc.d1613[264]);
  scm__rc.d1613[443] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[161])),TRUE); /* let1 */
  scm__rc.d1613[444] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[162])),TRUE); /* c */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[542]), scm__rc.d1613[390]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[543]), scm__rc.d1613[444]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[544]), scm__rc.d1613[394]);
  scm__rc.d1613[445] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[163])),TRUE); /* = */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[545]), scm__rc.d1613[445]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[549]), scm__rc.d1613[441]);
  scm__rc.d1613[446] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[164])),TRUE); /* begin */
  scm__rc.d1613[447] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[165])),TRUE); /* write-char */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[550]), scm__rc.d1613[444]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[551]), scm__rc.d1613[447]);
  scm__rc.d1613[448] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[166])),TRUE); /* + */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[553]), scm__rc.d1613[440]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[554]), scm__rc.d1613[448]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[556]), scm__rc.d1613[439]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[559]), scm__rc.d1613[446]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[563]), scm__rc.d1613[441]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[566]), scm__rc.d1613[444]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[567]), scm__rc.d1613[443]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[571]), scm__rc.d1613[441]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[574]), scm__rc.d1613[439]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[575]), scm__rc.d1613[438]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[579]), scm__rc.d1613[434]);
  scm__rc.d1613[449] = Scm_MakeIdentifier(scm__rc.d1613[373], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#error */
  scm__rc.d1613[450] = Scm_MakeIdentifier(scm__rc.d1613[256], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#open-output-string */
  scm__rc.d1613[451] = Scm_MakeIdentifier(scm__rc.d1613[264], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#get-output-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[583]), scm__rc.d1613[2]);
  scm__rc.d1613[452] = Scm_MakeExtendedPair(scm__rc.d1613[433], SCM_OBJ(&scm__rc.d1614[527]), SCM_OBJ(&scm__rc.d1614[584]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[585]), scm__rc.d1613[452]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[11]))->name = scm__rc.d1613[433];/* read-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]))[28] = SCM_WORD(scm__rc.d1613[449]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]))[34] = SCM_WORD(scm__rc.d1613[246]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]))[38] = SCM_WORD(scm__rc.d1613[450]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]))[47] = SCM_WORD(scm__rc.d1613[451]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[201]))[63] = SCM_WORD(scm__rc.d1613[451]);
  ScmObj G1636 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[11]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[433]) /* read-string */, G1636,0);

  scm__rc.d1613[453] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[167])),TRUE); /* write-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[587]), scm__rc.d1613[62]);
  scm__rc.d1613[454] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[168])),TRUE); /* start */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[588]), scm__rc.d1613[454]);
  scm__rc.d1613[455] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[169])),TRUE); /* end */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[590]), scm__rc.d1613[455]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[594]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[595]), scm__rc.d1613[144]);
  scm__rc.d1613[456] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[170])),TRUE); /* display */
  scm__rc.d1613[457] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[171])),TRUE); /* with-module */
  scm__rc.d1613[458] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[172])),TRUE); /* %maybe-substring */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[596]), scm__rc.d1613[458]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[597]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[598]), scm__rc.d1613[457]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[599]), scm__rc.d1613[455]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[600]), scm__rc.d1613[454]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[601]), scm__rc.d1613[144]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[604]), scm__rc.d1613[456]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[607]), scm__rc.d1613[434]);
  scm__rc.d1613[459] = Scm_MakeIdentifier(scm__rc.d1613[458], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%maybe-substring */
  scm__rc.d1613[460] = Scm_MakeIdentifier(scm__rc.d1613[456], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#display */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[610]), scm__rc.d1613[2]);
  scm__rc.d1613[461] = Scm_MakeExtendedPair(scm__rc.d1613[453], SCM_OBJ(&scm__rc.d1614[595]), SCM_OBJ(&scm__rc.d1614[611]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[612]), scm__rc.d1613[461]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[12]))->name = scm__rc.d1613[453];/* write-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]))[60] = SCM_WORD(scm__rc.d1613[449]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]))[67] = SCM_WORD(scm__rc.d1613[459]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[274]))[71] = SCM_WORD(scm__rc.d1613[460]);
  ScmObj G1642 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[12]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[453]) /* write-string */, G1642,0);

  scm__rc.d1613[462] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[173])),TRUE); /* consume-trailing-whitespaces */
  scm__rc.d1613[463] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[174])),TRUE); /* when */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[613]), scm__rc.d1613[407]);
  scm__rc.d1613[464] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[175])),TRUE); /* b */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[614]), scm__rc.d1613[425]);
  scm__rc.d1613[465] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[176])),TRUE); /* cond */
  scm__rc.d1613[466] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[177])),TRUE); /* memv */
  scm__rc.d1613[467] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[178])),TRUE); /* quote */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[618]), scm__rc.d1613[467]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[620]), scm__rc.d1613[464]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[621]), scm__rc.d1613[466]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[622]), scm__rc.d1613[420]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[623]), scm__rc.d1613[439]);
  scm__rc.d1613[468] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[179])),TRUE); /* eqv? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[628]), scm__rc.d1613[464]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[629]), scm__rc.d1613[468]);
  scm__rc.d1613[469] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[180])),TRUE); /* and */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[632]), scm__rc.d1613[468]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[635]), scm__rc.d1613[469]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[638]), scm__rc.d1613[463]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[642]), scm__rc.d1613[464]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[643]), scm__rc.d1613[468]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[648]), scm__rc.d1613[465]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[651]), scm__rc.d1613[464]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[652]), scm__rc.d1613[443]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[655]), scm__rc.d1613[463]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[658]), scm__rc.d1613[439]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[659]), scm__rc.d1613[438]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[662]), scm__rc.d1613[434]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[665]), scm__rc.d1613[2]);
  scm__rc.d1613[470] = Scm_MakeExtendedPair(scm__rc.d1613[462], SCM_OBJ(&scm__rc.d1614[526]), SCM_OBJ(&scm__rc.d1614[666]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[667]), scm__rc.d1613[470]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[13]))->name = scm__rc.d1613[462];/* consume-trailing-whitespaces */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]))[28] = SCM_WORD(scm__rc.d1613[449]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]))[33] = SCM_WORD(scm__rc.d1613[416]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]))[40] = SCM_WORD(scm__rc.d1613[427]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]))[52] = SCM_WORD(scm__rc.d1613[422]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]))[64] = SCM_WORD(scm__rc.d1613[422]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]))[69] = SCM_WORD(scm__rc.d1613[416]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]))[76] = SCM_WORD(scm__rc.d1613[427]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]))[82] = SCM_WORD(scm__rc.d1613[422]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[347]))[92] = SCM_WORD(scm__rc.d1613[422]);
  ScmObj G1646 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[13]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[462]) /* consume-trailing-whitespaces */, G1646,0);

  scm__rc.d1613[471] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[181])),TRUE); /* read-block */
  scm__rc.d1613[472] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[182])),TRUE); /* bytes */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[668]), scm__rc.d1613[472]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[671]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[672]), scm__rc.d1613[471]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[673]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[674]), scm__rc.d1613[3]);
  scm__rc.d1613[473] = Scm_MakeExtendedPair(scm__rc.d1613[471], SCM_OBJ(&scm__rc.d1614[668]), SCM_OBJ(&scm__rc.d1614[676]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[474]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[474]))[4] = scm__rc.d1613[73];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[474]))[5] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[474]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[474]))[7] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-block")), SCM_OBJ(&libioread_block__STUB), 0);
  libioread_block__STUB.common.info = scm__rc.d1613[473];
  libioread_block__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[474]);
  scm__rc.d1613[482] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[183])),TRUE); /* read-list */
  scm__rc.d1613[483] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[184])),TRUE); /* closer */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[677]), scm__rc.d1613[483]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[680]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[681]), scm__rc.d1613[482]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[682]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[683]), scm__rc.d1613[3]);
  scm__rc.d1613[484] = Scm_MakeExtendedPair(scm__rc.d1613[482], SCM_OBJ(&scm__rc.d1614[677]), SCM_OBJ(&scm__rc.d1614[685]));
  scm__rc.d1613[485] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[185])),TRUE); /* <char> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[486]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[486]))[4] = scm__rc.d1613[485];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[486]))[5] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[486]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[486]))[7] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-list")), SCM_OBJ(&libioread_list__STUB), 0);
  libioread_list__STUB.common.info = scm__rc.d1613[484];
  libioread_list__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[486]);
  scm__rc.d1613[494] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[186])),TRUE); /* port->byte-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[688]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[689]), scm__rc.d1613[494]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[690]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[691]), scm__rc.d1613[3]);
  scm__rc.d1613[495] = Scm_MakeExtendedPair(scm__rc.d1613[494], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[693]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port->byte-string")), SCM_OBJ(&libioport_TObyte_string__STUB), 0);
  libioport_TObyte_string__STUB.common.info = scm__rc.d1613[495];
  libioport_TObyte_string__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[279]);
  scm__rc.d1613[496] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[187])),TRUE); /* port->string */
  scm__rc.d1613[497] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[188]))); /* :unit */
  scm__rc.d1613[498] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[189])),TRUE); /* byte */
  scm__rc.d1613[500] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[190])),TRUE); /* copy-port */
  scm__rc.d1613[499] = Scm_MakeIdentifier(scm__rc.d1613[500], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#copy-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[696]), scm__rc.d1613[2]);
  scm__rc.d1613[501] = Scm_MakeExtendedPair(scm__rc.d1613[496], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[697]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[698]), scm__rc.d1613[501]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[14]))->name = scm__rc.d1613[496];/* port->string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[444]))[3] = SCM_WORD(scm__rc.d1613[246]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[444]))[7] = SCM_WORD(scm__rc.d1613[450]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[444]))[14] = SCM_WORD(scm__rc.d1613[497]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[444]))[16] = SCM_WORD(scm__rc.d1613[498]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[444]))[18] = SCM_WORD(scm__rc.d1613[499]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[444]))[21] = SCM_WORD(scm__rc.d1613[451]);
  ScmObj G1647 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[14]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[496]) /* port->string */, G1647,0);

  scm__rc.d1613[502] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[191])),TRUE); /* port->list */
  scm__rc.d1613[504] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[192])),TRUE); /* reverse! */
  scm__rc.d1613[503] = Scm_MakeIdentifier(scm__rc.d1613[504], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#reverse! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[699]), scm__rc.d1613[502]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[702]), scm__rc.d1613[2]);
  scm__rc.d1613[505] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[699]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[703]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[704]), scm__rc.d1613[505]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[467]))[14] = SCM_WORD(scm__rc.d1613[503]);
  scm__rc.d1613[506] = Scm_MakeIdentifier(scm__rc.d1613[359], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#with-port-locking */
  scm__rc.d1613[507] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[193])),TRUE); /* reader */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[705]), scm__rc.d1613[507]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[708]), scm__rc.d1613[2]);
  scm__rc.d1613[508] = Scm_MakeExtendedPair(scm__rc.d1613[502], SCM_OBJ(&scm__rc.d1614[705]), SCM_OBJ(&scm__rc.d1614[709]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[710]), scm__rc.d1613[508]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[16]))->name = scm__rc.d1613[502];/* port->list */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[496]))[4] = SCM_WORD(scm__rc.d1613[506]);
  ScmObj G1648 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[16]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[502]) /* port->list */, G1648,0);

  scm__rc.d1613[509] = Scm_MakeIdentifier(scm__rc.d1613[430], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#read-line */
  scm__rc.d1613[510] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[194])),TRUE); /* port->string-list */
  scm__rc.d1613[511] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[195])),FALSE); /* G1650 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[711]), scm__rc.d1613[511]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[712]), scm__rc.d1613[510]);
  scm__rc.d1613[512] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[196])),FALSE); /* G1649 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[713]), scm__rc.d1613[512]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[716]), scm__rc.d1613[2]);
  scm__rc.d1613[513] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[712]), SCM_OBJ(&scm__rc.d1614[713]), SCM_OBJ(&scm__rc.d1614[717]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[718]), scm__rc.d1613[513]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[502]))[4] = SCM_WORD(scm__rc.d1613[509]);
  scm__rc.d1613[514] = Scm_MakeIdentifier(scm__rc.d1613[502], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#port->list */
  scm__rc.d1613[515] = Scm_MakeExtendedPair(scm__rc.d1613[510], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[717]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[720]), scm__rc.d1613[515]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[18]))->name = scm__rc.d1613[510];/* port->string-list */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[508]))[3] = SCM_WORD(scm__rc.d1613[514]);
  scm__rc.d1613[516] = Scm_MakeIdentifier(scm__rc.d1613[510], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#port->string-list */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[19]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[513]))[5] = SCM_WORD(scm__rc.d1613[516]);
  scm__rc.d1613[517] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[197])),TRUE); /* port->sexp-list */
  scm__rc.d1613[518] = Scm_MakeIdentifier(scm__rc.d1613[388], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#read */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[723]), scm__rc.d1613[2]);
  scm__rc.d1613[519] = Scm_MakeExtendedPair(scm__rc.d1613[517], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[724]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[725]), scm__rc.d1613[519]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[20]))->name = scm__rc.d1613[517];/* port->sexp-list */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[520]))[1] = SCM_WORD(scm__rc.d1613[518]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[520]))[4] = SCM_WORD(scm__rc.d1613[514]);
  ScmObj G1651 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[20]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[517]) /* port->sexp-list */, G1651,0);

  scm__rc.d1613[520] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[198])),TRUE); /* reader-lexical-mode */
  scm__rc.d1613[521] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[199])),TRUE); /* k */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[726]), scm__rc.d1613[521]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[727]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[730]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[731]), scm__rc.d1613[520]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[732]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[733]), scm__rc.d1613[3]);
  scm__rc.d1613[522] = Scm_MakeExtendedPair(scm__rc.d1613[520], SCM_OBJ(&scm__rc.d1614[727]), SCM_OBJ(&scm__rc.d1614[735]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("reader-lexical-mode")), SCM_OBJ(&libioreader_lexical_mode__STUB), 0);
  libioreader_lexical_mode__STUB.common.info = scm__rc.d1613[522];
  libioreader_lexical_mode__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[47]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[523] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[200])),TRUE); /* %port-ungotten-chars */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[738]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[739]), scm__rc.d1613[523]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[740]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[741]), scm__rc.d1613[3]);
  scm__rc.d1613[524] = Scm_MakeExtendedPair(scm__rc.d1613[523], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[743]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[525]))[3] = scm__rc.d1613[197];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[525]))[4] = scm__rc.d1613[162];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[525]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[525]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-ungotten-chars")), SCM_OBJ(&libio_25port_ungotten_chars__STUB), 0);
  libio_25port_ungotten_chars__STUB.common.info = scm__rc.d1613[524];
  libio_25port_ungotten_chars__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[525]);
  scm__rc.d1613[532] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[201])),TRUE); /* %port-ungotten-bytes */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[746]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[747]), scm__rc.d1613[532]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[748]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[749]), scm__rc.d1613[3]);
  scm__rc.d1613[533] = Scm_MakeExtendedPair(scm__rc.d1613[532], SCM_OBJ(&scm__rc.d1614[86]), SCM_OBJ(&scm__rc.d1614[751]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-ungotten-bytes")), SCM_OBJ(&libio_25port_ungotten_bytes__STUB), 0);
  libio_25port_ungotten_bytes__STUB.common.info = scm__rc.d1613[533];
  libio_25port_ungotten_bytes__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[525]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[534] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[202])),TRUE); /* define-reader-ctor */
  scm__rc.d1613[535] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[203])),TRUE); /* symbol */
  scm__rc.d1613[536] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[204])),TRUE); /* finisher */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[752]), scm__rc.d1613[536]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[753]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[754]), scm__rc.d1613[143]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[755]), scm__rc.d1613[535]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[758]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[759]), scm__rc.d1613[534]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[760]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[761]), scm__rc.d1613[3]);
  scm__rc.d1613[537] = Scm_MakeExtendedPair(scm__rc.d1613[534], SCM_OBJ(&scm__rc.d1614[755]), SCM_OBJ(&scm__rc.d1614[763]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[538]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[538]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[538]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[538]))[6] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[538]))[7] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[538]))[8] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("define-reader-ctor")), SCM_OBJ(&libiodefine_reader_ctor__STUB), 0);
  libiodefine_reader_ctor__STUB.common.info = scm__rc.d1613[537];
  libiodefine_reader_ctor__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[538]);
  scm__rc.d1613[547] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[205])),TRUE); /* %get-reader-ctor */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[764]), scm__rc.d1613[535]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[767]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[768]), scm__rc.d1613[547]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[769]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[770]), scm__rc.d1613[3]);
  scm__rc.d1613[548] = Scm_MakeExtendedPair(scm__rc.d1613[547], SCM_OBJ(&scm__rc.d1614[764]), SCM_OBJ(&scm__rc.d1614[772]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[549]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[549]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[549]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[549]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%get-reader-ctor")), SCM_OBJ(&libio_25get_reader_ctor__STUB), 0);
  libio_25get_reader_ctor__STUB.common.info = scm__rc.d1613[548];
  libio_25get_reader_ctor__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[549]);
  scm__rc.d1613[556] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[206])),TRUE); /* define-reader-directive */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[773]), scm__rc.d1613[143]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[774]), scm__rc.d1613[535]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[777]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[778]), scm__rc.d1613[556]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[779]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[780]), scm__rc.d1613[3]);
  scm__rc.d1613[557] = Scm_MakeExtendedPair(scm__rc.d1613[556], SCM_OBJ(&scm__rc.d1614[774]), SCM_OBJ(&scm__rc.d1614[782]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[558]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[558]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[558]))[5] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[558]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[558]))[7] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("define-reader-directive")), SCM_OBJ(&libiodefine_reader_directive__STUB), 0);
  libiodefine_reader_directive__STUB.common.info = scm__rc.d1613[557];
  libiodefine_reader_directive__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[558]);
  scm__rc.d1613[566] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[207])),TRUE); /* current-read-context */
  scm__rc.d1613[567] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[208])),TRUE); /* ctx */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[783]), scm__rc.d1613[567]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[784]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[787]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[788]), scm__rc.d1613[566]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[789]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[790]), scm__rc.d1613[3]);
  scm__rc.d1613[568] = Scm_MakeExtendedPair(scm__rc.d1613[566], SCM_OBJ(&scm__rc.d1614[784]), SCM_OBJ(&scm__rc.d1614[792]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("current-read-context")), SCM_OBJ(&libiocurrent_read_context__STUB), 0);
  libiocurrent_read_context__STUB.common.info = scm__rc.d1613[568];
  libiocurrent_read_context__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[47]);
  scm__rc.d1613[569] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[209])),TRUE); /* read-reference? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[795]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[796]), scm__rc.d1613[569]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[797]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[798]), scm__rc.d1613[3]);
  scm__rc.d1613[570] = Scm_MakeExtendedPair(scm__rc.d1613[569], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[800]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[571]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[571]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[571]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[571]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-reference?")), SCM_OBJ(&libioread_referenceP__STUB), 0);
  libioread_referenceP__STUB.common.info = scm__rc.d1613[570];
  libioread_referenceP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[571]);
  scm__rc.d1613[578] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[210])),TRUE); /* read-reference-has-value? */
  scm__rc.d1613[579] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[211])),TRUE); /* ref */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[801]), scm__rc.d1613[579]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[804]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[805]), scm__rc.d1613[578]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[806]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[807]), scm__rc.d1613[3]);
  scm__rc.d1613[580] = Scm_MakeExtendedPair(scm__rc.d1613[578], SCM_OBJ(&scm__rc.d1614[801]), SCM_OBJ(&scm__rc.d1614[809]));
  scm__rc.d1613[581] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[212])),TRUE); /* <read-reference> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[582]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[582]))[4] = scm__rc.d1613[581];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[582]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[582]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-reference-has-value?")), SCM_OBJ(&libioread_reference_has_valueP__STUB), 0);
  libioread_reference_has_valueP__STUB.common.info = scm__rc.d1613[580];
  libioread_reference_has_valueP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[582]);
  scm__rc.d1613[589] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[213])),TRUE); /* read-reference-value */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[812]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[813]), scm__rc.d1613[589]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[814]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[815]), scm__rc.d1613[3]);
  scm__rc.d1613[590] = Scm_MakeExtendedPair(scm__rc.d1613[589], SCM_OBJ(&scm__rc.d1614[801]), SCM_OBJ(&scm__rc.d1614[817]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[591]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[591]))[4] = scm__rc.d1613[581];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[591]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[591]))[6] = scm__rc.d1613[6];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-reference-value")), SCM_OBJ(&libioread_reference_value__STUB), 0);
  libioread_reference_value__STUB.common.info = scm__rc.d1613[590];
  libioread_reference_value__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[591]);
  scm__rc.d1613[599] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[214])),TRUE); /* read-with-shared-structure */
  scm__rc.d1613[598] = Scm_MakeIdentifier(scm__rc.d1613[599], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#read-with-shared-structure */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[21]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[526]))[1] = SCM_WORD(scm__rc.d1613[518]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[526]))[3] = SCM_WORD(scm__rc.d1613[598]);
  scm__rc.d1613[601] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[215])),TRUE); /* read/ss */
  scm__rc.d1613[600] = Scm_MakeIdentifier(scm__rc.d1613[601], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#read/ss */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[22]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[531]))[1] = SCM_WORD(scm__rc.d1613[518]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[531]))[3] = SCM_WORD(scm__rc.d1613[600]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1613[602] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[216])),TRUE); /* write */
  scm__rc.d1613[603] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[217])),TRUE); /* port-or-control-1 */
  scm__rc.d1613[604] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[218])),TRUE); /* port-or-control-2 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[818]), scm__rc.d1613[604]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[819]), scm__rc.d1613[603]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[820]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[821]), scm__rc.d1613[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[824]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[825]), scm__rc.d1613[602]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[826]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[827]), scm__rc.d1613[3]);
  scm__rc.d1613[605] = Scm_MakeExtendedPair(scm__rc.d1613[602], SCM_OBJ(&scm__rc.d1614[821]), SCM_OBJ(&scm__rc.d1614[829]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[606]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[606]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[606]))[5] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[606]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[606]))[7] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("write")), SCM_OBJ(&libiowrite__STUB), 0);
  libiowrite__STUB.common.info = scm__rc.d1613[605];
  libiowrite__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[606]);
  scm__rc.d1613[614] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[219])),TRUE); /* write-simple */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[830]), scm__rc.d1613[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[833]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[834]), scm__rc.d1613[614]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[835]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[836]), scm__rc.d1613[3]);
  scm__rc.d1613[615] = Scm_MakeExtendedPair(scm__rc.d1613[614], SCM_OBJ(&scm__rc.d1614[830]), SCM_OBJ(&scm__rc.d1614[838]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("write-simple")), SCM_OBJ(&libiowrite_simple__STUB), 0);
  libiowrite_simple__STUB.common.info = scm__rc.d1613[615];
  libiowrite_simple__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[606]);
  scm__rc.d1613[616] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[220])),TRUE); /* write-shared */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[841]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[842]), scm__rc.d1613[616]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[843]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[844]), scm__rc.d1613[3]);
  scm__rc.d1613[617] = Scm_MakeExtendedPair(scm__rc.d1613[616], SCM_OBJ(&scm__rc.d1614[821]), SCM_OBJ(&scm__rc.d1614[846]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("write-shared")), SCM_OBJ(&libiowrite_shared__STUB), 0);
  libiowrite_shared__STUB.common.info = scm__rc.d1613[617];
  libiowrite_shared__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[606]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[849]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[850]), scm__rc.d1613[456]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[851]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[852]), scm__rc.d1613[3]);
  scm__rc.d1613[618] = Scm_MakeExtendedPair(scm__rc.d1613[456], SCM_OBJ(&scm__rc.d1614[821]), SCM_OBJ(&scm__rc.d1614[854]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("display")), SCM_OBJ(&libiodisplay__STUB), 0);
  libiodisplay__STUB.common.info = scm__rc.d1613[618];
  libiodisplay__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[606]);
  scm__rc.d1613[619] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[221])),TRUE); /* newline */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[857]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[858]), scm__rc.d1613[619]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[859]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[860]), scm__rc.d1613[3]);
  scm__rc.d1613[620] = Scm_MakeExtendedPair(scm__rc.d1613[619], SCM_OBJ(&scm__rc.d1614[443]), SCM_OBJ(&scm__rc.d1614[862]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[621]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[621]))[4] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[621]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[621]))[6] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("newline")), SCM_OBJ(&libionewline__STUB), 0);
  libionewline__STUB.common.info = scm__rc.d1613[620];
  libionewline__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[621]);
  scm__rc.d1613[628] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[222])),TRUE); /* ch */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[863]), scm__rc.d1613[628]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[866]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[867]), scm__rc.d1613[447]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[868]), scm__rc.d1613[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[869]), scm__rc.d1613[3]);
  scm__rc.d1613[629] = Scm_MakeExtendedPair(scm__rc.d1613[447], SCM_OBJ(&scm__rc.d1614[863]), SCM_OBJ(&scm__rc.d1614[871]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[630]))[3] = scm__rc.d1613[4];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[630]))[4] = scm__rc.d1613[485];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[630]))[5] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[630]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[630]))[7] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("write-char")), SCM_OBJ(&libiowrite_char__STUB), SCM_BINDING_INLINABLE);
  libiowrite_char__STUB.common.info = scm__rc.d1613[629];
  libiowrite_char__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[630]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1613[638] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[223])),TRUE); /* write-byte */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[872]), scm__rc.d1613[498]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[875]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[876]), scm__rc.d1613[638]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[877]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[878]), scm__rc.d1613[3]);
  scm__rc.d1613[639] = Scm_MakeExtendedPair(scm__rc.d1613[638], SCM_OBJ(&scm__rc.d1614[872]), SCM_OBJ(&scm__rc.d1614[880]));
  scm__rc.d1613[640] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[224])),TRUE); /* <int> */
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[641]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[641]))[4] = scm__rc.d1613[73];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[641]))[5] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[641]))[6] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[641]))[7] = scm__rc.d1613[640];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("write-byte")), SCM_OBJ(&libiowrite_byte__STUB), 0);
  libiowrite_byte__STUB.common.info = scm__rc.d1613[639];
  libiowrite_byte__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[641]);
  scm__rc.d1613[649] = Scm_MakeIdentifier(scm__rc.d1613[638], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#write-byte */
  scm__rc.d1613[651] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[225])),TRUE); /* write-u8 */
  scm__rc.d1613[650] = Scm_MakeIdentifier(scm__rc.d1613[651], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#write-u8 */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[23]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[536]))[1] = SCM_WORD(scm__rc.d1613[649]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[536]))[3] = SCM_WORD(scm__rc.d1613[650]);
  scm__rc.d1613[652] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[226])),TRUE); /* write-limited */
  scm__rc.d1613[653] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[227])),TRUE); /* limit */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[881]), scm__rc.d1613[653]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[882]), scm__rc.d1613[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[885]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[886]), scm__rc.d1613[652]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[887]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[888]), scm__rc.d1613[3]);
  scm__rc.d1613[654] = Scm_MakeExtendedPair(scm__rc.d1613[652], SCM_OBJ(&scm__rc.d1614[882]), SCM_OBJ(&scm__rc.d1614[890]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[655]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[655]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[655]))[5] = scm__rc.d1613[73];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[655]))[6] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[655]))[7] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[655]))[8] = scm__rc.d1613[640];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("write-limited")), SCM_OBJ(&libiowrite_limited__STUB), 0);
  libiowrite_limited__STUB.common.info = scm__rc.d1613[654];
  libiowrite_limited__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[655]);
  scm__rc.d1613[664] = Scm_MakeIdentifier(scm__rc.d1613[616], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#write-shared */
  scm__rc.d1613[666] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[228])),TRUE); /* write* */
  scm__rc.d1613[665] = Scm_MakeIdentifier(scm__rc.d1613[666], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#write* */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[24]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[541]))[1] = SCM_WORD(scm__rc.d1613[664]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[541]))[3] = SCM_WORD(scm__rc.d1613[665]);
  scm__rc.d1613[667] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[229])),TRUE); /* flush */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[891]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[894]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[895]), scm__rc.d1613[667]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[896]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[897]), scm__rc.d1613[3]);
  scm__rc.d1613[668] = Scm_MakeExtendedPair(scm__rc.d1613[667], SCM_OBJ(&scm__rc.d1614[891]), SCM_OBJ(&scm__rc.d1614[899]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[669]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[669]))[4] = scm__rc.d1613[35];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[669]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[669]))[6] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("flush")), SCM_OBJ(&libioflush__STUB), 0);
  libioflush__STUB.common.info = scm__rc.d1613[668];
  libioflush__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[669]);
  scm__rc.d1613[676] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[230])),TRUE); /* flush-all-ports */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[900]), scm__rc.d1613[676]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[901]), scm__rc.d1613[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[902]), scm__rc.d1613[3]);
  scm__rc.d1613[677] = Scm_MakeExtendedPair(scm__rc.d1613[676], SCM_NIL, SCM_OBJ(&scm__rc.d1614[903]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[678]))[3] = scm__rc.d1613[21];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[678]))[4] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[678]))[5] = scm__rc.d1613[96];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("flush-all-ports")), SCM_OBJ(&libioflush_all_ports__STUB), 0);
  libioflush_all_ports__STUB.common.info = scm__rc.d1613[677];
  libioflush_all_ports__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[678]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[684] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[231])),TRUE); /* write-need-recurse? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[906]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[907]), scm__rc.d1613[684]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[908]), scm__rc.d1613[197]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[909]), scm__rc.d1613[3]);
  scm__rc.d1613[685] = Scm_MakeExtendedPair(scm__rc.d1613[684], SCM_OBJ(&scm__rc.d1614[1]), SCM_OBJ(&scm__rc.d1614[911]));
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[686]))[3] = scm__rc.d1613[197];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[686]))[4] = scm__rc.d1613[6];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[686]))[5] = scm__rc.d1613[7];
  ((ScmObj*)SCM_OBJ(&scm__rc.d1613[686]))[6] = scm__rc.d1613[8];
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("write-need-recurse?")), SCM_OBJ(&libiowrite_need_recurseP__STUB), 0);
  libiowrite_need_recurseP__STUB.common.info = scm__rc.d1613[685];
  libiowrite_need_recurseP__STUB.common.typeHint = SCM_OBJ(&scm__rc.d1613[686]);
  scm__rc.d1613[693] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[232])),TRUE); /* write-walk */
  scm__rc.d1613[695] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[129])),TRUE); /* shared-table */
  scm__rc.d1613[694] = Scm_MakeIdentifier(scm__rc.d1613[695], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#shared-table */
  scm__rc.d1613[697] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[233])),TRUE); /* ~ */
  scm__rc.d1613[696] = Scm_MakeIdentifier(scm__rc.d1613[697], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#~ */
  scm__rc.d1613[699] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[234])),TRUE); /* %write-walk-rec */
  scm__rc.d1613[698] = Scm_MakeIdentifier(scm__rc.d1613[699], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%write-walk-rec */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[912]), scm__rc.d1613[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[915]), scm__rc.d1613[2]);
  scm__rc.d1613[700] = Scm_MakeExtendedPair(scm__rc.d1613[693], SCM_OBJ(&scm__rc.d1614[912]), SCM_OBJ(&scm__rc.d1614[916]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[917]), scm__rc.d1613[700]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[25]))->name = scm__rc.d1613[693];/* write-walk */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[546]))[4] = SCM_WORD(scm__rc.d1613[371]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[546]))[15] = SCM_WORD(scm__rc.d1613[694]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[546]))[17] = SCM_WORD(scm__rc.d1613[696]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[546]))[19] = SCM_WORD(scm__rc.d1613[698]);
  ScmObj G1652 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[25]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[693]) /* write-walk */, G1652,0);

  scm__rc.d1613[701] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[235])),FALSE); /* G1656 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[918]), scm__rc.d1613[701]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[919]), scm__rc.d1613[699]);
  scm__rc.d1613[702] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[236])),FALSE); /* G1653 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[920]), scm__rc.d1613[702]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[923]), scm__rc.d1613[2]);
  scm__rc.d1613[703] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[919]), SCM_OBJ(&scm__rc.d1614[920]), SCM_OBJ(&scm__rc.d1614[924]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[925]), scm__rc.d1613[703]);
  scm__rc.d1613[704] = Scm_MakeIdentifier(scm__rc.d1613[684], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#write-need-recurse? */
  scm__rc.d1613[706] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[237])),TRUE); /* hash-table-exists? */
  scm__rc.d1613[705] = Scm_MakeIdentifier(scm__rc.d1613[706], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#hash-table-exists? */
  scm__rc.d1613[708] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[238])),TRUE); /* hash-table-update! */
  scm__rc.d1613[707] = Scm_MakeIdentifier(scm__rc.d1613[708], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#hash-table-update! */
  scm__rc.d1613[710] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[239])),TRUE); /* hash-table-put! */
  scm__rc.d1613[709] = Scm_MakeIdentifier(scm__rc.d1613[710], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#hash-table-put! */
  scm__rc.d1613[712] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[240])),TRUE); /* box? */
  scm__rc.d1613[711] = Scm_MakeIdentifier(scm__rc.d1613[712], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#box? */
  scm__rc.d1613[714] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[241])),TRUE); /* box-arity */
  scm__rc.d1613[713] = Scm_MakeIdentifier(scm__rc.d1613[714], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#box-arity */
  scm__rc.d1613[716] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[242])),TRUE); /* unbox-value */
  scm__rc.d1613[715] = Scm_MakeIdentifier(scm__rc.d1613[716], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#unbox-value */
  scm__rc.d1613[718] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[243])),TRUE); /* write-object */
  scm__rc.d1613[717] = Scm_MakeIdentifier(scm__rc.d1613[718], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#write-object */
  scm__rc.d1613[719] = Scm_MakeIdentifier(scm__rc.d1613[337], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%port-writing-shared? */
  scm__rc.d1613[721] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[244])),TRUE); /* hash-table-get */
  scm__rc.d1613[720] = Scm_MakeIdentifier(scm__rc.d1613[721], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#hash-table-get */
  scm__rc.d1613[723] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[245])),TRUE); /* hash-table-delete! */
  scm__rc.d1613[722] = Scm_MakeIdentifier(scm__rc.d1613[723], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#hash-table-delete! */
  scm__rc.d1613[724] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[246])),TRUE); /* tab */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[927]), scm__rc.d1613[724]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[928]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[929]), scm__rc.d1613[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[932]), scm__rc.d1613[2]);
  scm__rc.d1613[725] = Scm_MakeExtendedPair(scm__rc.d1613[699], SCM_OBJ(&scm__rc.d1614[929]), SCM_OBJ(&scm__rc.d1614[933]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[934]), scm__rc.d1613[725]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[27]))->name = scm__rc.d1613[699];/* %write-walk-rec */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[4] = SCM_WORD(scm__rc.d1613[704]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[12] = SCM_WORD(scm__rc.d1613[705]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[19] = SCM_WORD(scm__rc.d1613[707]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[27] = SCM_WORD(scm__rc.d1613[709]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[51] = SCM_WORD(scm__rc.d1613[698]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[59] = SCM_WORD(scm__rc.d1613[698]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[86] = SCM_WORD(scm__rc.d1613[698]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[98] = SCM_WORD(scm__rc.d1613[711]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[107] = SCM_WORD(scm__rc.d1613[713]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[122] = SCM_WORD(scm__rc.d1613[715]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[127] = SCM_WORD(scm__rc.d1613[698]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[140] = SCM_WORD(scm__rc.d1613[717]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[145] = SCM_WORD(scm__rc.d1613[719]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[155] = SCM_WORD(scm__rc.d1613[720]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[570]))[162] = SCM_WORD(scm__rc.d1613[722]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[28]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[736]))[5] = SCM_WORD(scm__rc.d1613[698]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[726] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[247])),TRUE); /* write-with-shared-structure */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[936]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[937]), scm__rc.d1613[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[938]), scm__rc.d1613[666]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[941]), scm__rc.d1613[434]);
  scm__rc.d1613[727] = Scm_MakeIdentifier(scm__rc.d1613[666], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#write* */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[944]), scm__rc.d1613[2]);
  scm__rc.d1613[728] = Scm_MakeExtendedPair(scm__rc.d1613[726], SCM_OBJ(&scm__rc.d1614[937]), SCM_OBJ(&scm__rc.d1614[945]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[946]), scm__rc.d1613[728]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[29]))->name = scm__rc.d1613[726];/* write-with-shared-structure */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[743]))[28] = SCM_WORD(scm__rc.d1613[372]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[743]))[32] = SCM_WORD(scm__rc.d1613[727]);
  ScmObj G1660 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[29]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[726]) /* write-with-shared-structure */, G1660,0);

  scm__rc.d1613[729] = Scm_MakeIdentifier(scm__rc.d1613[726], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#write-with-shared-structure */
  scm__rc.d1613[731] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[248])),TRUE); /* write/ss */
  scm__rc.d1613[730] = Scm_MakeIdentifier(scm__rc.d1613[731], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#write/ss */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[30]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[777]))[1] = SCM_WORD(scm__rc.d1613[729]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[777]))[3] = SCM_WORD(scm__rc.d1613[730]);
  scm__rc.d1613[732] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[249])),TRUE); /* print */
  scm__rc.d1613[733] = Scm_MakeIdentifier(scm__rc.d1613[456], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#display */
  scm__rc.d1613[735] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[250])),TRUE); /* for-each */
  scm__rc.d1613[734] = Scm_MakeIdentifier(scm__rc.d1613[735], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#for-each */
  scm__rc.d1613[736] = Scm_MakeIdentifier(scm__rc.d1613[619], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#newline */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[949]), scm__rc.d1613[2]);
  scm__rc.d1613[737] = Scm_MakeExtendedPair(scm__rc.d1613[732], scm__rc.d1613[368], SCM_OBJ(&scm__rc.d1614[950]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[951]), scm__rc.d1613[737]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[31]))->name = scm__rc.d1613[732];/* print */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[782]))[3] = SCM_WORD(scm__rc.d1613[733]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[782]))[6] = SCM_WORD(scm__rc.d1613[734]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[782]))[8] = SCM_WORD(scm__rc.d1613[736]);
  ScmObj G1661 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[31]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[732]) /* print */, G1661,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  Scm_InitStaticClassWithMeta(&Scm_WriteControlsClass, "<write-controls>", SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), NULL, SCM_FALSE, Scm_WriteControlsClass__SLOTS, 0);
  scm__rc.d1613[738] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[251])),TRUE); /* make-write-controls */
  scm__rc.d1613[740] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[252])),TRUE); /* undefined? */
  scm__rc.d1613[739] = Scm_MakeIdentifier(scm__rc.d1613[740], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#undefined? */
  scm__rc.d1613[742] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[253])),TRUE); /* <write-controls> */
  scm__rc.d1613[741] = Scm_MakeIdentifier(scm__rc.d1613[742], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#<write-controls> */
  scm__rc.d1613[743] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[254]))); /* :length */
  scm__rc.d1613[744] = Scm_MakeIdentifier(scm__rc.d1613[740], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#undefined? */
  scm__rc.d1613[745] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[255]))); /* :level */
  scm__rc.d1613[746] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[256]))); /* :width */
  scm__rc.d1613[747] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[257]))); /* :base */
  scm__rc.d1613[748] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[258]))); /* :radix */
  scm__rc.d1613[749] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[259]))); /* :pretty */
  scm__rc.d1613[750] = Scm_MakeIdentifier(scm__rc.d1613[381], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#make */
  scm__rc.d1613[751] = Scm_MakeIdentifier(scm__rc.d1613[373], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#error */
  scm__rc.d1613[753] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[261])),TRUE); /* unwrap-syntax-1 */
  scm__rc.d1613[752] = Scm_MakeIdentifier(scm__rc.d1613[753], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#unwrap-syntax-1 */
  scm__rc.d1613[754] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[262]))); /* :print-length */
  scm__rc.d1613[755] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[263]))); /* :print-level */
  scm__rc.d1613[756] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[264]))); /* :print-width */
  scm__rc.d1613[757] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[265]))); /* :print-base */
  scm__rc.d1613[758] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[266]))); /* :print-radix */
  scm__rc.d1613[759] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[267]))); /* :print-pretty */
  scm__rc.d1613[761] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[269])),TRUE); /* errorf */
  scm__rc.d1613[760] = Scm_MakeIdentifier(scm__rc.d1613[761], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#errorf */
  scm__rc.d1613[762] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[35]))); /* :key */
  scm__rc.d1613[763] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[254])),TRUE); /* length */
  scm__rc.d1613[764] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[255])),TRUE); /* level */
  scm__rc.d1613[765] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[256])),TRUE); /* width */
  scm__rc.d1613[766] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[257])),TRUE); /* base */
  scm__rc.d1613[767] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[258])),TRUE); /* radix */
  scm__rc.d1613[768] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[259])),TRUE); /* pretty */
  scm__rc.d1613[769] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[262])),TRUE); /* print-length */
  scm__rc.d1613[770] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[263])),TRUE); /* print-level */
  scm__rc.d1613[771] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[264])),TRUE); /* print-width */
  scm__rc.d1613[772] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[265])),TRUE); /* print-base */
  scm__rc.d1613[773] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[266])),TRUE); /* print-radix */
  scm__rc.d1613[774] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[267])),TRUE); /* print-pretty */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[952]), scm__rc.d1613[774]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[953]), scm__rc.d1613[773]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[954]), scm__rc.d1613[772]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[955]), scm__rc.d1613[771]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[956]), scm__rc.d1613[770]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[957]), scm__rc.d1613[769]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[958]), scm__rc.d1613[768]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[959]), scm__rc.d1613[767]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[960]), scm__rc.d1613[766]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[961]), scm__rc.d1613[765]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[962]), scm__rc.d1613[764]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[963]), scm__rc.d1613[763]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[964]), scm__rc.d1613[762]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[967]), scm__rc.d1613[2]);
  scm__rc.d1613[775] = Scm_MakeExtendedPair(scm__rc.d1613[738], SCM_OBJ(&scm__rc.d1614[964]), SCM_OBJ(&scm__rc.d1614[968]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[969]), scm__rc.d1613[775]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[32]))->name = scm__rc.d1613[738];/* make-write-controls */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[32] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[44] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[56] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[68] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[80] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[92] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[104] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[116] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[128] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[140] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[152] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[164] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[173] = SCM_WORD(scm__rc.d1613[741]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[175] = SCM_WORD(scm__rc.d1613[743]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[180] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[189] = SCM_WORD(scm__rc.d1613[745]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[194] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[203] = SCM_WORD(scm__rc.d1613[746]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[208] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[217] = SCM_WORD(scm__rc.d1613[747]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[222] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[231] = SCM_WORD(scm__rc.d1613[748]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[236] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[245] = SCM_WORD(scm__rc.d1613[749]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[250] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[258] = SCM_WORD(scm__rc.d1613[750]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[268] = SCM_WORD(scm__rc.d1613[751]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[275] = SCM_WORD(scm__rc.d1613[752]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[279] = SCM_WORD(scm__rc.d1613[743]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[301] = SCM_WORD(scm__rc.d1613[745]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[323] = SCM_WORD(scm__rc.d1613[746]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[345] = SCM_WORD(scm__rc.d1613[747]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[367] = SCM_WORD(scm__rc.d1613[748]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[389] = SCM_WORD(scm__rc.d1613[749]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[411] = SCM_WORD(scm__rc.d1613[754]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[433] = SCM_WORD(scm__rc.d1613[755]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[455] = SCM_WORD(scm__rc.d1613[756]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[477] = SCM_WORD(scm__rc.d1613[757]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[499] = SCM_WORD(scm__rc.d1613[758]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[521] = SCM_WORD(scm__rc.d1613[759]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[792]))[548] = SCM_WORD(scm__rc.d1613[760]);
  ScmObj G1681 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[32]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[738]) /* make-write-controls */, G1681,0);

  scm__rc.d1613[776] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[270])),TRUE); /* write-controls-copy */
  scm__rc.d1613[778] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[271])),TRUE); /* slot-ref */
  scm__rc.d1613[777] = Scm_MakeIdentifier(scm__rc.d1613[778], SCM_MODULE(scm__rc.d1613[316]), SCM_NIL); /* gauche#slot-ref */
  scm__rc.d1613[779] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[272])),TRUE); /* wc */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[970]), scm__rc.d1613[779]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[973]), scm__rc.d1613[2]);
  scm__rc.d1613[780] = Scm_MakeExtendedPair(scm__rc.d1613[776], SCM_OBJ(&scm__rc.d1614[970]), SCM_OBJ(&scm__rc.d1614[974]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[975]), scm__rc.d1613[780]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[33]))->name = scm__rc.d1613[776];/* write-controls-copy */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[32] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[44] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[56] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[68] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[80] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[92] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[104] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[116] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[128] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[140] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[152] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[164] = SCM_WORD(scm__rc.d1613[739]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[176] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[183] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[190] = SCM_WORD(scm__rc.d1613[763]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[192] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[203] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[210] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[217] = SCM_WORD(scm__rc.d1613[764]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[219] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[230] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[237] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[244] = SCM_WORD(scm__rc.d1613[765]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[246] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[257] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[264] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[271] = SCM_WORD(scm__rc.d1613[766]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[273] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[284] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[291] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[298] = SCM_WORD(scm__rc.d1613[767]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[300] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[311] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[318] = SCM_WORD(scm__rc.d1613[744]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[325] = SCM_WORD(scm__rc.d1613[768]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[327] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[340] = SCM_WORD(scm__rc.d1613[763]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[342] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[350] = SCM_WORD(scm__rc.d1613[764]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[352] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[360] = SCM_WORD(scm__rc.d1613[765]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[362] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[370] = SCM_WORD(scm__rc.d1613[766]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[372] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[380] = SCM_WORD(scm__rc.d1613[767]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[382] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[390] = SCM_WORD(scm__rc.d1613[768]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[392] = SCM_WORD(scm__rc.d1613[777]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[397] = SCM_WORD(scm__rc.d1613[741]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[399] = SCM_WORD(scm__rc.d1613[743]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[402] = SCM_WORD(scm__rc.d1613[745]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[405] = SCM_WORD(scm__rc.d1613[746]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[408] = SCM_WORD(scm__rc.d1613[747]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[411] = SCM_WORD(scm__rc.d1613[748]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[414] = SCM_WORD(scm__rc.d1613[749]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[417] = SCM_WORD(scm__rc.d1613[750]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[442] = SCM_WORD(scm__rc.d1613[751]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[449] = SCM_WORD(scm__rc.d1613[752]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[453] = SCM_WORD(scm__rc.d1613[743]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[475] = SCM_WORD(scm__rc.d1613[745]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[497] = SCM_WORD(scm__rc.d1613[746]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[519] = SCM_WORD(scm__rc.d1613[747]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[541] = SCM_WORD(scm__rc.d1613[748]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[563] = SCM_WORD(scm__rc.d1613[749]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[585] = SCM_WORD(scm__rc.d1613[754]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[607] = SCM_WORD(scm__rc.d1613[755]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[629] = SCM_WORD(scm__rc.d1613[756]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[651] = SCM_WORD(scm__rc.d1613[757]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[673] = SCM_WORD(scm__rc.d1613[758]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[695] = SCM_WORD(scm__rc.d1613[759]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[1359]))[722] = SCM_WORD(scm__rc.d1613[760]);
  ScmObj G1697 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[33]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1613[776]) /* write-controls-copy */, G1697,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1613[781] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[273])),TRUE); /* open-input-file */
  scm__rc.d1613[782] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1612[274]))); /* :encoding */
  scm__rc.d1613[784] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[275])),TRUE); /* get-keyword */
  scm__rc.d1613[783] = Scm_MakeIdentifier(scm__rc.d1613[784], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#get-keyword */
  scm__rc.d1613[785] = Scm_MakeIdentifier(scm__rc.d1613[195], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%open-input-file */
  scm__rc.d1613[787] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[276])),TRUE); /* delete-keyword */
  scm__rc.d1613[786] = Scm_MakeIdentifier(scm__rc.d1613[787], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#delete-keyword */
  scm__rc.d1613[788] = Scm_MakeIdentifier(scm__rc.d1613[286], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#open-coding-aware-port */
  scm__rc.d1613[790] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[277])),TRUE); /* %open-input-file/conv */
  scm__rc.d1613[789] = Scm_MakeIdentifier(scm__rc.d1613[790], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%open-input-file/conv */
  scm__rc.d1613[791] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[278])),TRUE); /* filename */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[976]), scm__rc.d1613[791]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1614[976]), scm__rc.d1613[368]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[979]), scm__rc.d1613[2]);
  scm__rc.d1613[792] = Scm_MakeExtendedPair(scm__rc.d1613[781], SCM_OBJ(&scm__rc.d1614[976]), SCM_OBJ(&scm__rc.d1614[980]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[981]), scm__rc.d1613[792]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[34]))->name = scm__rc.d1613[781];/* open-input-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]))[3] = SCM_WORD(scm__rc.d1613[782]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]))[7] = SCM_WORD(scm__rc.d1613[783]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]))[14] = SCM_WORD(scm__rc.d1613[785]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]))[26] = SCM_WORD(scm__rc.d1613[785]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]))[31] = SCM_WORD(scm__rc.d1613[782]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]))[34] = SCM_WORD(scm__rc.d1613[786]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]))[41] = SCM_WORD(scm__rc.d1613[788]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2100]))[44] = SCM_WORD(scm__rc.d1613[789]);
  ScmObj G1698 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[34]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[781]) /* open-input-file */, G1698,0);

  scm__rc.d1613[793] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[279])),TRUE); /* open-output-file */
  scm__rc.d1613[795] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[280])),TRUE); /* %open-output-file/conv */
  scm__rc.d1613[794] = Scm_MakeIdentifier(scm__rc.d1613[795], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%open-output-file/conv */
  scm__rc.d1613[796] = Scm_MakeIdentifier(scm__rc.d1613[213], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%open-output-file */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[984]), scm__rc.d1613[2]);
  scm__rc.d1613[797] = Scm_MakeExtendedPair(scm__rc.d1613[793], SCM_OBJ(&scm__rc.d1614[976]), SCM_OBJ(&scm__rc.d1614[985]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[986]), scm__rc.d1613[797]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[35]))->name = scm__rc.d1613[793];/* open-output-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2149]))[3] = SCM_WORD(scm__rc.d1613[782]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2149]))[7] = SCM_WORD(scm__rc.d1613[783]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2149]))[11] = SCM_WORD(scm__rc.d1613[794]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2149]))[17] = SCM_WORD(scm__rc.d1613[796]);
  ScmObj G1699 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[35]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[793]) /* open-output-file */, G1699,0);

  scm__rc.d1613[798] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[281])),TRUE); /* call-with-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[987]), scm__rc.d1613[798]);
  scm__rc.d1613[799] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[987]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[988]), scm__rc.d1613[799]);
  scm__rc.d1613[800] = Scm_MakeIdentifier(scm__rc.d1613[180], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#close-port */
  scm__rc.d1613[801] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[987]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[989]), scm__rc.d1613[801]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2175]))[2] = SCM_WORD(scm__rc.d1613[800]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[992]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[995]), scm__rc.d1613[2]);
  scm__rc.d1613[802] = Scm_MakeExtendedPair(scm__rc.d1613[798], SCM_OBJ(&scm__rc.d1614[992]), SCM_OBJ(&scm__rc.d1614[996]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[997]), scm__rc.d1613[802]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[38]))->name = scm__rc.d1613[798];/* call-with-port */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2179]))[7] = SCM_WORD(scm__rc.d1613[365]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2179]))[11] = SCM_WORD(scm__rc.d1613[366]);
  ScmObj G1700 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[38]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[798]) /* call-with-port */, G1700,0);

  scm__rc.d1613[803] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[282])),TRUE); /* call-with-input-file */
  scm__rc.d1613[804] = Scm_MakeIdentifier(scm__rc.d1613[781], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#open-input-file */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[998]), scm__rc.d1613[803]);
  scm__rc.d1613[805] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[998]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[999]), scm__rc.d1613[805]);
  scm__rc.d1613[806] = Scm_MakeIdentifier(scm__rc.d1613[160], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#close-input-port */
  scm__rc.d1613[807] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[998]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1000]), scm__rc.d1613[807]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2196]))[5] = SCM_WORD(scm__rc.d1613[806]);
  scm__rc.d1613[808] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[283])),TRUE); /* flags */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1003]), scm__rc.d1613[143]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1614[1003]), scm__rc.d1613[808]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1004]), scm__rc.d1613[791]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1007]), scm__rc.d1613[2]);
  scm__rc.d1613[809] = Scm_MakeExtendedPair(scm__rc.d1613[803], SCM_OBJ(&scm__rc.d1614[1004]), SCM_OBJ(&scm__rc.d1614[1008]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1009]), scm__rc.d1613[809]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[41]))->name = scm__rc.d1613[803];/* call-with-input-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2204]))[3] = SCM_WORD(scm__rc.d1613[804]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2204]))[15] = SCM_WORD(scm__rc.d1613[365]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2204]))[19] = SCM_WORD(scm__rc.d1613[366]);
  ScmObj G1701 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[41]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[803]) /* call-with-input-file */, G1701,0);

  scm__rc.d1613[810] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[284])),TRUE); /* call-with-output-file */
  scm__rc.d1613[811] = Scm_MakeIdentifier(scm__rc.d1613[793], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#open-output-file */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1010]), scm__rc.d1613[810]);
  scm__rc.d1613[812] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1010]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1011]), scm__rc.d1613[812]);
  scm__rc.d1613[813] = Scm_MakeIdentifier(scm__rc.d1613[170], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#close-output-port */
  scm__rc.d1613[814] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1010]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1012]), scm__rc.d1613[814]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2229]))[5] = SCM_WORD(scm__rc.d1613[813]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1017]), scm__rc.d1613[2]);
  scm__rc.d1613[815] = Scm_MakeExtendedPair(scm__rc.d1613[810], SCM_OBJ(&scm__rc.d1614[1004]), SCM_OBJ(&scm__rc.d1614[1018]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1019]), scm__rc.d1613[815]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[44]))->name = scm__rc.d1613[810];/* call-with-output-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2237]))[3] = SCM_WORD(scm__rc.d1613[811]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2237]))[15] = SCM_WORD(scm__rc.d1613[365]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2237]))[19] = SCM_WORD(scm__rc.d1613[366]);
  ScmObj G1702 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[44]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[810]) /* call-with-output-file */, G1702,0);

  scm__rc.d1613[816] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[285])),TRUE); /* with-input-from-file */
  scm__rc.d1613[818] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[286])),TRUE); /* with-input-from-port */
  scm__rc.d1613[817] = Scm_MakeIdentifier(scm__rc.d1613[818], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#with-input-from-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1020]), scm__rc.d1613[816]);
  scm__rc.d1613[819] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1020]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1021]), scm__rc.d1613[819]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2258]))[3] = SCM_WORD(scm__rc.d1613[817]);
  scm__rc.d1613[820] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1020]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1022]), scm__rc.d1613[820]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2263]))[2] = SCM_WORD(scm__rc.d1613[806]);
  scm__rc.d1613[821] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[287])),TRUE); /* thunk */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1025]), scm__rc.d1613[821]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1614[1025]), scm__rc.d1613[808]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1026]), scm__rc.d1613[791]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1029]), scm__rc.d1613[2]);
  scm__rc.d1613[822] = Scm_MakeExtendedPair(scm__rc.d1613[816], SCM_OBJ(&scm__rc.d1614[1026]), SCM_OBJ(&scm__rc.d1614[1030]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1031]), scm__rc.d1613[822]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[47]))->name = scm__rc.d1613[816];/* with-input-from-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2267]))[3] = SCM_WORD(scm__rc.d1613[804]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2267]))[17] = SCM_WORD(scm__rc.d1613[365]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2267]))[21] = SCM_WORD(scm__rc.d1613[366]);
  ScmObj G1703 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[47]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[816]) /* with-input-from-file */, G1703,0);

  scm__rc.d1613[823] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[288])),TRUE); /* with-output-to-file */
  scm__rc.d1613[825] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[289])),TRUE); /* with-output-to-port */
  scm__rc.d1613[824] = Scm_MakeIdentifier(scm__rc.d1613[825], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#with-output-to-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1032]), scm__rc.d1613[823]);
  scm__rc.d1613[826] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1032]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1033]), scm__rc.d1613[826]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2290]))[3] = SCM_WORD(scm__rc.d1613[824]);
  scm__rc.d1613[827] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1032]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1034]), scm__rc.d1613[827]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2295]))[2] = SCM_WORD(scm__rc.d1613[813]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1039]), scm__rc.d1613[2]);
  scm__rc.d1613[828] = Scm_MakeExtendedPair(scm__rc.d1613[823], SCM_OBJ(&scm__rc.d1614[1026]), SCM_OBJ(&scm__rc.d1614[1040]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1041]), scm__rc.d1613[828]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[50]))->name = scm__rc.d1613[823];/* with-output-to-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2299]))[3] = SCM_WORD(scm__rc.d1613[811]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2299]))[17] = SCM_WORD(scm__rc.d1613[365]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2299]))[21] = SCM_WORD(scm__rc.d1613[366]);
  ScmObj G1704 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[50]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1613[823]) /* with-output-to-file */, G1704,0);

  scm__rc.d1613[829] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[290])),TRUE); /* with-output-to-string */
  scm__rc.d1613[830] = Scm_MakeIdentifier(scm__rc.d1613[256], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#open-output-string */
  scm__rc.d1613[831] = Scm_MakeIdentifier(scm__rc.d1613[264], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#get-output-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1042]), scm__rc.d1613[821]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1045]), scm__rc.d1613[2]);
  scm__rc.d1613[832] = Scm_MakeExtendedPair(scm__rc.d1613[829], SCM_OBJ(&scm__rc.d1614[1042]), SCM_OBJ(&scm__rc.d1614[1046]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1047]), scm__rc.d1613[832]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[51]))->name = scm__rc.d1613[829];/* with-output-to-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2322]))[3] = SCM_WORD(scm__rc.d1613[830]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2322]))[10] = SCM_WORD(scm__rc.d1613[824]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2322]))[13] = SCM_WORD(scm__rc.d1613[831]);
  ScmObj G1705 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[51]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[829]) /* with-output-to-string */, G1705,0);

  scm__rc.d1613[833] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[291])),TRUE); /* with-input-from-string */
  scm__rc.d1613[834] = Scm_MakeIdentifier(scm__rc.d1613[247], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#open-input-string */
  scm__rc.d1613[835] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[292])),TRUE); /* str */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1048]), scm__rc.d1613[835]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1051]), scm__rc.d1613[2]);
  scm__rc.d1613[836] = Scm_MakeExtendedPair(scm__rc.d1613[833], SCM_OBJ(&scm__rc.d1614[1048]), SCM_OBJ(&scm__rc.d1614[1052]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1053]), scm__rc.d1613[836]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[52]))->name = scm__rc.d1613[833];/* with-input-from-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2337]))[4] = SCM_WORD(scm__rc.d1613[834]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2337]))[8] = SCM_WORD(scm__rc.d1613[817]);
  ScmObj G1706 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[52]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[833]) /* with-input-from-string */, G1706,0);

  scm__rc.d1613[837] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[293])),TRUE); /* call-with-output-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1056]), scm__rc.d1613[2]);
  scm__rc.d1613[838] = Scm_MakeExtendedPair(scm__rc.d1613[837], SCM_OBJ(&scm__rc.d1614[773]), SCM_OBJ(&scm__rc.d1614[1057]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1058]), scm__rc.d1613[838]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[53]))->name = scm__rc.d1613[837];/* call-with-output-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2347]))[3] = SCM_WORD(scm__rc.d1613[830]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2347]))[12] = SCM_WORD(scm__rc.d1613[831]);
  ScmObj G1707 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[53]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[837]) /* call-with-output-string */, G1707,0);

  scm__rc.d1613[839] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[294])),TRUE); /* call-with-input-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1059]), scm__rc.d1613[835]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1062]), scm__rc.d1613[2]);
  scm__rc.d1613[840] = Scm_MakeExtendedPair(scm__rc.d1613[839], SCM_OBJ(&scm__rc.d1614[1059]), SCM_OBJ(&scm__rc.d1614[1063]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1064]), scm__rc.d1613[840]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[54]))->name = scm__rc.d1613[839];/* call-with-input-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2361]))[4] = SCM_WORD(scm__rc.d1613[834]);
  ScmObj G1708 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[54]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[839]) /* call-with-input-string */, G1708,0);

  scm__rc.d1613[841] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[295])),TRUE); /* call-with-string-io */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1067]), scm__rc.d1613[2]);
  scm__rc.d1613[842] = Scm_MakeExtendedPair(scm__rc.d1613[841], SCM_OBJ(&scm__rc.d1614[1059]), SCM_OBJ(&scm__rc.d1614[1068]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1069]), scm__rc.d1613[842]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[55]))->name = scm__rc.d1613[841];/* call-with-string-io */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2370]))[3] = SCM_WORD(scm__rc.d1613[830]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2370]))[8] = SCM_WORD(scm__rc.d1613[834]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2370]))[18] = SCM_WORD(scm__rc.d1613[831]);
  ScmObj G1709 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[55]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[841]) /* call-with-string-io */, G1709,0);

  scm__rc.d1613[843] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[296])),TRUE); /* with-string-io */
  scm__rc.d1613[844] = Scm_MakeIdentifier(scm__rc.d1613[833], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#with-input-from-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1070]), scm__rc.d1613[843]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1073]), scm__rc.d1613[2]);
  scm__rc.d1613[845] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1070]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[1074]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1075]), scm__rc.d1613[845]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2390]))[3] = SCM_WORD(scm__rc.d1613[844]);
  scm__rc.d1613[846] = Scm_MakeIdentifier(scm__rc.d1613[829], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#with-output-to-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1078]), scm__rc.d1613[2]);
  scm__rc.d1613[847] = Scm_MakeExtendedPair(scm__rc.d1613[843], SCM_OBJ(&scm__rc.d1614[1048]), SCM_OBJ(&scm__rc.d1614[1079]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1080]), scm__rc.d1613[847]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[57]))->name = scm__rc.d1613[843];/* with-string-io */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2395]))[3] = SCM_WORD(scm__rc.d1613[846]);
  ScmObj G1710 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[57]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[843]) /* with-string-io */, G1710,0);

  scm__rc.d1613[848] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[297])),TRUE); /* write-to-string */
  scm__rc.d1613[849] = Scm_MakeIdentifier(scm__rc.d1613[602], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#write */
  scm__rc.d1613[850] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[298])),TRUE); /* writer */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1081]), scm__rc.d1613[850]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1083]), scm__rc.d1613[32]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1084]), scm__rc.d1613[1]);
  scm__rc.d1613[851] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[299])),TRUE); /* cut */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1085]), scm__rc.d1613[850]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1086]), scm__rc.d1613[851]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1088]), scm__rc.d1613[829]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1091]), scm__rc.d1613[434]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1092]), scm__rc.d1613[848]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1095]), scm__rc.d1613[2]);
  scm__rc.d1613[852] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1092]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[1096]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1097]), scm__rc.d1613[852]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1100]), scm__rc.d1613[2]);
  scm__rc.d1613[853] = Scm_MakeExtendedPair(scm__rc.d1613[848], SCM_OBJ(&scm__rc.d1614[1084]), SCM_OBJ(&scm__rc.d1614[1101]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1102]), scm__rc.d1613[853]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[59]))->name = scm__rc.d1613[848];/* write-to-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]))[4] = SCM_WORD(scm__rc.d1613[849]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]))[29] = SCM_WORD(scm__rc.d1613[372]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2404]))[33] = SCM_WORD(scm__rc.d1613[846]);
  ScmObj G1714 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[59]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[848]) /* write-to-string */, G1714,0);

  scm__rc.d1613[854] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[300])),TRUE); /* read-from-string */
  scm__rc.d1613[855] = Scm_MakeIdentifier(scm__rc.d1613[458], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#%maybe-substring */
  scm__rc.d1613[856] = Scm_MakeIdentifier(scm__rc.d1613[388], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#read */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1103]), scm__rc.d1613[144]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1614[1103]), scm__rc.d1613[368]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1106]), scm__rc.d1613[2]);
  scm__rc.d1613[857] = Scm_MakeExtendedPair(scm__rc.d1613[854], SCM_OBJ(&scm__rc.d1614[1103]), SCM_OBJ(&scm__rc.d1614[1107]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1108]), scm__rc.d1613[857]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[60]))->name = scm__rc.d1613[854];/* read-from-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2439]))[9] = SCM_WORD(scm__rc.d1613[855]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2439]))[14] = SCM_WORD(scm__rc.d1613[856]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2439]))[16] = SCM_WORD(scm__rc.d1613[844]);
  ScmObj G1715 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[60]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[854]) /* read-from-string */, G1715,0);

  scm__rc.d1613[858] = Scm_MakeIdentifier(scm__rc.d1613[31], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#current-input-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1109]), scm__rc.d1613[818]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1110]), scm__rc.d1613[818]);
  scm__rc.d1613[859] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1110]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1111]), scm__rc.d1613[859]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[61]))->name = scm__rc.d1613[818];/* (with-input-from-port with-input-from-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2457]))[5] = SCM_WORD(scm__rc.d1613[858]);
  scm__rc.d1613[860] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1110]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1112]), scm__rc.d1613[860]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[62]))->name = scm__rc.d1613[818];/* (with-input-from-port with-input-from-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2465]))[7] = SCM_WORD(scm__rc.d1613[858]);
  scm__rc.d1613[862] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[301])),TRUE); /* values */
  scm__rc.d1613[861] = Scm_MakeIdentifier(scm__rc.d1613[862], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#values */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1113]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1116]), scm__rc.d1613[2]);
  scm__rc.d1613[863] = Scm_MakeExtendedPair(scm__rc.d1613[818], SCM_OBJ(&scm__rc.d1614[1113]), SCM_OBJ(&scm__rc.d1614[1117]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1118]), scm__rc.d1613[863]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[63]))->name = scm__rc.d1613[818];/* with-input-from-port */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2476]))[27] = SCM_WORD(scm__rc.d1613[861]);
  ScmObj G1716 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[63]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[818]) /* with-input-from-port */, G1716,0);

  scm__rc.d1613[864] = Scm_MakeIdentifier(scm__rc.d1613[43], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#current-output-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1119]), scm__rc.d1613[825]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1120]), scm__rc.d1613[825]);
  scm__rc.d1613[865] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1120]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1121]), scm__rc.d1613[865]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[64]))->name = scm__rc.d1613[825];/* (with-output-to-port with-output-to-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2507]))[5] = SCM_WORD(scm__rc.d1613[864]);
  scm__rc.d1613[866] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1120]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1122]), scm__rc.d1613[866]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[65]))->name = scm__rc.d1613[825];/* (with-output-to-port with-output-to-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2515]))[7] = SCM_WORD(scm__rc.d1613[864]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1125]), scm__rc.d1613[2]);
  scm__rc.d1613[867] = Scm_MakeExtendedPair(scm__rc.d1613[825], SCM_OBJ(&scm__rc.d1614[1113]), SCM_OBJ(&scm__rc.d1614[1126]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1127]), scm__rc.d1613[867]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[66]))->name = scm__rc.d1613[825];/* with-output-to-port */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2526]))[27] = SCM_WORD(scm__rc.d1613[861]);
  ScmObj G1717 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[66]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[825]) /* with-output-to-port */, G1717,0);

  scm__rc.d1613[868] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[302])),TRUE); /* with-error-to-port */
  scm__rc.d1613[869] = Scm_MakeIdentifier(scm__rc.d1613[45], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#current-error-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1128]), scm__rc.d1613[868]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1129]), scm__rc.d1613[868]);
  scm__rc.d1613[870] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1129]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1130]), scm__rc.d1613[870]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[67]))->name = scm__rc.d1613[868];/* (with-error-to-port with-error-to-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2557]))[5] = SCM_WORD(scm__rc.d1613[869]);
  scm__rc.d1613[871] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1129]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1131]), scm__rc.d1613[871]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[68]))->name = scm__rc.d1613[868];/* (with-error-to-port with-error-to-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2565]))[7] = SCM_WORD(scm__rc.d1613[869]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1134]), scm__rc.d1613[2]);
  scm__rc.d1613[872] = Scm_MakeExtendedPair(scm__rc.d1613[868], SCM_OBJ(&scm__rc.d1614[1113]), SCM_OBJ(&scm__rc.d1614[1135]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1136]), scm__rc.d1613[872]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[69]))->name = scm__rc.d1613[868];/* with-error-to-port */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2576]))[27] = SCM_WORD(scm__rc.d1613[861]);
  ScmObj G1718 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[69]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[868]) /* with-error-to-port */, G1718,0);

  scm__rc.d1613[873] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[303])),TRUE); /* with-ports */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1137]), scm__rc.d1613[873]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1138]), scm__rc.d1613[873]);
  scm__rc.d1613[874] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1138]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1139]), scm__rc.d1613[874]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[70]))->name = scm__rc.d1613[873];/* (with-ports with-ports) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]))[7] = SCM_WORD(scm__rc.d1613[858]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]))[17] = SCM_WORD(scm__rc.d1613[864]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2607]))[25] = SCM_WORD(scm__rc.d1613[869]);
  scm__rc.d1613[875] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1614[1138]), SCM_NIL, SCM_OBJ(&scm__rc.d1614[369]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1140]), scm__rc.d1613[875]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[71]))->name = scm__rc.d1613[873];/* (with-ports with-ports) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]))[7] = SCM_WORD(scm__rc.d1613[858]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]))[18] = SCM_WORD(scm__rc.d1613[864]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2635]))[29] = SCM_WORD(scm__rc.d1613[869]);
  scm__rc.d1613[876] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[304])),TRUE); /* eport */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1141]), scm__rc.d1613[876]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1142]), scm__rc.d1613[265]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1143]), scm__rc.d1613[277]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1146]), scm__rc.d1613[2]);
  scm__rc.d1613[877] = Scm_MakeExtendedPair(scm__rc.d1613[873], SCM_OBJ(&scm__rc.d1614[1143]), SCM_OBJ(&scm__rc.d1614[1147]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1148]), scm__rc.d1613[877]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[72]))->name = scm__rc.d1613[873];/* with-ports */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2668]))[31] = SCM_WORD(scm__rc.d1613[861]);
  ScmObj G1719 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1622[72]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1613[873]) /* with-ports */, G1719,0);

  scm__rc.d1613[878] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[305])),TRUE); /* r6rs */
  scm__rc.d1613[880] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[307])),TRUE); /* warn */
  scm__rc.d1613[879] = Scm_MakeIdentifier(scm__rc.d1613[880], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#warn */
  scm__rc.d1613[881] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[308])),TRUE); /* sym */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1149]), scm__rc.d1613[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1150]), scm__rc.d1613[881]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1153]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1154]), scm__rc.d1613[317]);
  scm__rc.d1613[882] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1614[1150]), SCM_OBJ(&scm__rc.d1614[1156]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1157]), scm__rc.d1613[882]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2703]))[5] = SCM_WORD(scm__rc.d1613[879]);
  scm__rc.d1613[883] = Scm_MakeIdentifier(scm__rc.d1613[556], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#define-reader-directive */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[74]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2710]))[1] = SCM_WORD(scm__rc.d1613[878]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2710]))[5] = SCM_WORD(scm__rc.d1613[883]);
  scm__rc.d1613[884] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[309])),TRUE); /* fold-case */
  scm__rc.d1613[885] = Scm_MakeIdentifier(scm__rc.d1613[149], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#port-case-fold-set! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1160]), scm__rc.d1613[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1161]), scm__rc.d1613[881]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1162]), scm__rc.d1613[317]);
  scm__rc.d1613[886] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1614[1150]), SCM_OBJ(&scm__rc.d1614[1164]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1165]), scm__rc.d1613[886]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2717]))[6] = SCM_WORD(scm__rc.d1613[885]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[76]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2725]))[1] = SCM_WORD(scm__rc.d1613[884]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2725]))[5] = SCM_WORD(scm__rc.d1613[883]);
  scm__rc.d1613[887] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[310])),TRUE); /* no-fold-case */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1168]), scm__rc.d1613[2]);
  scm__rc.d1613[888] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1614[1150]), SCM_OBJ(&scm__rc.d1614[1169]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1170]), scm__rc.d1613[888]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2732]))[5] = SCM_WORD(scm__rc.d1613[885]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[78]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2739]))[1] = SCM_WORD(scm__rc.d1613[887]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2739]))[5] = SCM_WORD(scm__rc.d1613[883]);
  scm__rc.d1613[889] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[311])),TRUE); /* gauche-legacy */
  scm__rc.d1613[890] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[312])),TRUE); /* legacy */
  scm__rc.d1613[891] = Scm_MakeIdentifier(scm__rc.d1613[105], SCM_MODULE(scm__rc.d1613[361]), SCM_NIL); /* gauche.internal#port-attribute-set! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1173]), scm__rc.d1613[2]);
  scm__rc.d1613[892] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1614[1150]), SCM_OBJ(&scm__rc.d1614[1174]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1175]), scm__rc.d1613[892]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2746]))[4] = SCM_WORD(scm__rc.d1613[520]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2746]))[6] = SCM_WORD(scm__rc.d1613[890]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2746]))[8] = SCM_WORD(scm__rc.d1613[891]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[80]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2756]))[1] = SCM_WORD(scm__rc.d1613[889]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2756]))[5] = SCM_WORD(scm__rc.d1613[883]);
  scm__rc.d1613[893] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[313])),TRUE); /* r7rs */
  scm__rc.d1613[894] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1612[314])),TRUE); /* strict-r7 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1178]), scm__rc.d1613[2]);
  scm__rc.d1613[895] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1614[1150]), SCM_OBJ(&scm__rc.d1614[1179]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1614[1180]), scm__rc.d1613[895]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2763]))[4] = SCM_WORD(scm__rc.d1613[520]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2763]))[6] = SCM_WORD(scm__rc.d1613[894]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2763]))[8] = SCM_WORD(scm__rc.d1613[891]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1622[82]))->name = scm__rc.d1613[419];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2773]))[1] = SCM_WORD(scm__rc.d1613[893]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1621[2773]))[5] = SCM_WORD(scm__rc.d1613[883]);
  Scm_VMExecuteToplevels(toplevels);
}
