/* 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/class.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_createX(ScmObj*, int, void*);
static SCM_DEFINE_SUBR(libioport_attribute_createX__STUB, 2, 3,SCM_FALSE,libioport_attribute_createX, 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 forcep);

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* klass,ScmObj initargs);
static void write_state_print(ScmObj obj,ScmPort* port,ScmWriteContext* ctx);

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* klass,ScmObj initargs);
#if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
#define SCM_CGEN_CONST /*empty*/
#else
#define SCM_CGEN_CONST const
#endif
static SCM_CGEN_CONST struct scm__scRec {
  ScmString d1561[300];
} scm__sc SCM_UNUSED = {
  {   /* ScmString d1561 */
      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("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("current-input-port", 18, 18),
      SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
      SCM_STRING_CONST_INITIALIZER("newport", 7, 7),
      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("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("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-create!", 22, 22),
      SCM_STRING_CONST_INITIALIZER("get", 3, 3),
      SCM_STRING_CONST_INITIALIZER("set", 3, 3),
      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("close-output-port", 17, 17),
      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("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("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("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("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("G1591", 5, 5),
      SCM_STRING_CONST_INITIALIZER("G1590", 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-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("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("G1596", 5, 5),
      SCM_STRING_CONST_INITIALIZER("G1594", 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("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 d1569[83];
  ScmWord d1568[2739];
  ScmPair d1563[1194] SCM_ALIGN_PAIR;
  ScmObj d1562[545];
} scm__rc SCM_UNUSED = {
  {   /* ScmCompiledCode d1569 */
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port-tell */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[0])), 6,
            6, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[384]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port-position-prefix */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[6])), 53,
            21, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[389]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[59])), 9,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[432]),
            SCM_OBJ(&scm__rc.d1569[4]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[68])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[433]),
            SCM_OBJ(&scm__rc.d1569[4]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-port-locking */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[72])), 13,
            7, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[442]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[85])), 68,
            22, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[444]),
            SCM_OBJ(&scm__rc.d1569[7]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[153])), 20,
            11, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[445]),
            SCM_OBJ(&scm__rc.d1569[7]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %with-2pass-setup */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[173])), 13,
            7, 3, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[455]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[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.d1568[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.d1568[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.d1568[201])), 73,
            27, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[598]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* write-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[274])), 73,
            28, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[625]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* consume-trailing-whitespaces */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[347])), 97,
            25, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[680]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port->string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[444])), 23,
            17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[711]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[467])), 29,
            22, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[717]),
            SCM_OBJ(&scm__rc.d1569[16]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port->list */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[496])), 6,
            5, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[723]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (port->string-list G1591) */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[502])), 6,
            5, 1, 0, SCM_OBJ(&scm__rc.d1563[725]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[731]),
            SCM_OBJ(&scm__rc.d1569[19]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* port->string-list */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[508])), 5,
            5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[733]),
            SCM_OBJ(&scm__rc.d1569[19]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[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.d1568[520])), 6,
            5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[738]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[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.d1568[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.d1568[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.d1568[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.d1568[546])), 22,
            15, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[930]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (%write-walk-rec G1596) */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[568])), 2,
            0, 1, 0, SCM_OBJ(&scm__rc.d1563[932]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[938]),
            SCM_OBJ(&scm__rc.d1569[28]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %write-walk-rec */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[570])), 125,
            23, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[947]),
            SCM_OBJ(&scm__rc.d1569[28]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[695])), 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.d1568[702])), 34,
            16, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[959]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[736])), 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.d1568[741])), 10,
            11, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[964]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* make-write-controls */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[751])), 567,
            91, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[982]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* write-controls-copy */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[1318])), 741,
            95, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[988]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* open-input-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2059])), 49,
            24, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[994]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* open-output-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2108])), 22,
            12, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[999]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2130])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1001]),
            SCM_OBJ(&scm__rc.d1569[38]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2134])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1002]),
            SCM_OBJ(&scm__rc.d1569[38]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2138])), 13,
            7, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1010]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2151])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1012]),
            SCM_OBJ(&scm__rc.d1569[41]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2155])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1013]),
            SCM_OBJ(&scm__rc.d1569[41]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-input-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2163])), 21,
            11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1022]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2184])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1024]),
            SCM_OBJ(&scm__rc.d1569[44]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2188])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1025]),
            SCM_OBJ(&scm__rc.d1569[44]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-output-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2196])), 21,
            11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1032]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2217])), 5,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1034]),
            SCM_OBJ(&scm__rc.d1569[47]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2222])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1035]),
            SCM_OBJ(&scm__rc.d1569[47]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2226])), 23,
            11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1044]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2249])), 5,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1046]),
            SCM_OBJ(&scm__rc.d1569[50]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2254])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1047]),
            SCM_OBJ(&scm__rc.d1569[50]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-file */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2258])), 23,
            11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1054]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2281])), 15,
            15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1060]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2296])), 10,
            11, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1066]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-output-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2306])), 14,
            14, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1071]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-input-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2320])), 9,
            10, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1077]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* call-with-string-io */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2329])), 20,
            16, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1082]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2349])), 5,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1088]),
            SCM_OBJ(&scm__rc.d1569[57]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-string-io */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2354])), 5,
            4, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1093]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2359])), 4,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1110]),
            SCM_OBJ(&scm__rc.d1569[59]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* write-to-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2363])), 35,
            16, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1115]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* read-from-string */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2398])), 18,
            10, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1121]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2416])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1124]),
            SCM_OBJ(&scm__rc.d1569[63]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2424])), 11,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1125]),
            SCM_OBJ(&scm__rc.d1569[63]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-input-from-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2435])), 31,
            19, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1131]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2466])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1134]),
            SCM_OBJ(&scm__rc.d1569[66]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2474])), 11,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1135]),
            SCM_OBJ(&scm__rc.d1569[66]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-output-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2485])), 31,
            19, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1140]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-error-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2516])), 8,
            4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1143]),
            SCM_OBJ(&scm__rc.d1569[69]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-error-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2524])), 11,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1144]),
            SCM_OBJ(&scm__rc.d1569[69]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-error-to-port */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2535])), 31,
            19, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1149]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-ports */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2566])), 28,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1152]),
            SCM_OBJ(&scm__rc.d1569[72]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-ports */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2594])), 33,
            10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1153]),
            SCM_OBJ(&scm__rc.d1569[72]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* with-ports */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2627])), 35,
            21, 4, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1161]),
            SCM_FALSE, SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2662])), 7,
            10, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1170]),
            SCM_OBJ(&scm__rc.d1569[74]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2669])), 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.d1568[2676])), 8,
            11, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1178]),
            SCM_OBJ(&scm__rc.d1569[76]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2684])), 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.d1568[2691])), 7,
            11, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1183]),
            SCM_OBJ(&scm__rc.d1569[78]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2698])), 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.d1568[2705])), 10,
            12, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1188]),
            SCM_OBJ(&scm__rc.d1569[80]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2715])), 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.d1568[2722])), 10,
            12, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1193]),
            SCM_OBJ(&scm__rc.d1569[82]), SCM_FALSE),
        SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
            (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2732])), 7,
            5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
            SCM_FALSE, SCM_FALSE),
  },
  {   /* ScmWord d1568 */
    /* 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.3ce23500> */,
    0x00000014    /*   5 (RET) */,
    /* port-position-prefix */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port?.3ce79e40> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 51),
    0x0000100e    /*   7 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 12),
    0x00000048    /*   9 (LREF0-PUSH) */,
    0x0000105f    /*  10 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-name.3ce79c40> */,
    0x00001018    /*  12 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*  13 (LREF0) */,
    0x0000001e    /*  14 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 50),
    0x0000100e    /*  16 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 21),
    0x0000004c    /*  18 (LREF10-PUSH) */,
    0x0000105f    /*  19 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-current-line.3ce799c0> */,
    0x00001018    /*  21 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  22 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 27),
    0x00000048    /*  24 (LREF0-PUSH) */,
    0x0000105f    /*  25 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#positive?.3ce79880> */,
    0x0000001e    /*  27 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 40),
    0x0000400e    /*  29 (PRE-CALL 4) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 48),
    0x00000009    /*  31 (CONSTF-PUSH) */,
    0x00000006    /*  32 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[101])) /* "~s:line ~a: " */,
    0x0000004c    /*  34 (LREF10-PUSH) */,
    0x00000048    /*  35 (LREF0-PUSH) */,
    0x0000405f    /*  36 (GREF-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#format.3ce797a0> */,
    0x00000013    /*  38 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 48),
    0x0000300e    /*  40 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 48),
    0x00000009    /*  42 (CONSTF-PUSH) */,
    0x00000006    /*  43 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[103])) /* "~s: " */,
    0x0000004c    /*  45 (LREF10-PUSH) */,
    0x0000305f    /*  46 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#format.3ce794c0> */,
    0x0000000a    /*  48 (CONST-RET) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "" */,
    0x0000000c    /*  50 (CONSTU-RET) */,
    0x0000000a    /*  51 (CONST-RET) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[105])) /* "???" */,
    /* (with-port-locking #f) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[59]) + 5),
    0x0000004a    /*   2 (LREF2-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-lock!.3c5fd4a0> */,
    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!.3c5fd340> */,
    0x00000014    /*   3 (RET) */,
    /* with-port-locking */
    0x00000016    /*   0 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[2])) /* #<compiled-code (with-port-locking #f)@0x7fc33d0273c0> */,
    0x0000000d    /*   2 (PUSH) */,
    0x00000016    /*   3 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[3])) /* #<compiled-code (with-port-locking #f)@0x7fc33d027360> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000006    /*   6 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*   8 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[435])) /* ("libio.scm" 510) */,
    0x00004060    /*  10 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3c5fd5a0> */,
    0x00000014    /*  12 (RET) */,
    /* (%with-2pass-setup #f) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 5),
    0x0000004b    /*   2 (LREF3-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-lock!.3c7494a0> */,
    0x0000100e    /*   5 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 10),
    0x0000004b    /*   7 (LREF3-PUSH) */,
    0x0000105f    /*   8 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.3c749420> */,
    0x0000001e    /*  10 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 21),
    0x0000200e    /*  12 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 21),
    0x00000006    /*  14 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[118])) /* "[internal] %with-2pass-setup called recursively on port:" */,
    0x0000004b    /*  16 (LREF3-PUSH) */,
    0x0000205f    /*  17 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.3c7493c0> */,
    0x00000013    /*  19 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 21),
    0x0000200e    /*  21 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 42),
    0x0000004b    /*  23 (LREF3-PUSH) */,
    0x0000300e    /*  24 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 38),
    0x0000005e    /*  26 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<write-state>.3c7491e0> */,
    0x00000006    /*  28 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :shared-table */,
    0x0000100e    /*  30 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.3c749160> */,
    0x00003062    /*  36 (PUSH-GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.3c749220> */,
    0x00000061    /*  38 (PUSH-GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.3c749280> */,
    0x000000a1    /*  40 (SETTER) */,
    0x00002011    /*  41 (CALL 2) */,
    0x0000200e    /*  42 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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?.3c749040> */,
    0x000000a1    /*  49 (SETTER) */,
    0x00002011    /*  50 (CALL 2) */,
    0x0000000e    /*  51 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.d1568[85]) + 64),
    0x0000004b    /*  58 (LREF3-PUSH) */,
    0x00000009    /*  59 (CONSTF-PUSH) */,
    0x0000005d    /*  60 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-walking?.3c750ea0> */,
    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.d1568[153]) + 8),
    0x0000004b    /*   2 (LREF3-PUSH) */,
    0x00000009    /*   3 (CONSTF-PUSH) */,
    0x0000005d    /*   4 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-walking?.3c750cc0> */,
    0x000000a1    /*   6 (SETTER) */,
    0x00002011    /*   7 (CALL 2) */,
    0x0000200e    /*   8 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[153]) + 16),
    0x0000004b    /*  10 (LREF3-PUSH) */,
    0x00000009    /*  11 (CONSTF-PUSH) */,
    0x0000005d    /*  12 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.3c750be0> */,
    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!.3c750b60> */,
    0x00000014    /*  19 (RET) */,
    /* %with-2pass-setup */
    0x00000016    /*   0 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[5])) /* #<compiled-code (%with-2pass-setup #f)@0x7fc33d027180> */,
    0x0000000d    /*   2 (PUSH) */,
    0x00000016    /*   3 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[6])) /* #<compiled-code (%with-2pass-setup #f)@0x7fc33d0270c0> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000006    /*   6 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*   8 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[447])) /* ("libio.scm" 521) */,
    0x00004060    /*  10 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3c7495a0> */,
    0x00000014    /*  12 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-ready?.3dc2b4e0> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#u8-ready?.3dc2b580> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3db13980> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-u8.3db13a60> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-byte.3dbb0a60> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-u8.3dbb0ae0> */,
    0x00000014    /*   4 (RET) */,
    /* read-string */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 6),
    0x000000de    /*   3 (CURIN) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 7),
    0x0000006a    /*   6 (LREF0-CAR) */,
    0x0000000d    /*   7 (PUSH) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000022    /*   9 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 14),
    0x00000003    /*  11 (CONSTN) */,
    0x00000013    /*  12 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.d1568[201]) + 21),
    0x00000013    /*  19 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 29),
    0x0000200e    /*  21 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 29),
    0x00000006    /*  23 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
    0x00000006    /*  25 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[592])) /* (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.3d462800> */,
    0x00001019    /*  29 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[593])) /* (#<undef>) */,
    0x0000200e    /*  31 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.3d469500> */,
    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.d1568[201]) + 49),
    0x0000004c    /*  45 (LREF10-PUSH) */,
    0x00001060    /*  46 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.3d4692e0> */,
    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.d1568[201]) + 65),
    0x00000041    /*  56 (LREF10) */,
    0x0000002d    /*  57 (BNUMNEI 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.3d46cd80> */,
    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.d1568[201]) + 42),
    0x00000014    /*  71 (RET) */,
    0x00000014    /*  72 (RET) */,
    /* write-string */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 6),
    0x000000df    /*   3 (CUROUT) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 7),
    0x0000006a    /*   6 (LREF0-CAR) */,
    0x0000000d    /*   7 (PUSH) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000022    /*   9 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 14),
    0x00000003    /*  11 (CONSTN) */,
    0x00000013    /*  12 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.d1568[274]) + 22),
    0x00000002    /*  19 (CONSTI 0) */,
    0x00000013    /*  20 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 23),
    0x0000006a    /*  22 (LREF0-CAR) */,
    0x0000000d    /*  23 (PUSH) */,
    0x0000003d    /*  24 (LREF0) */,
    0x00000022    /*  25 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 30),
    0x00000003    /*  27 (CONSTN) */,
    0x00000013    /*  28 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.d1568[274]) + 38),
    -0x00000ffe   /*  35 (CONSTI -1) */,
    0x00000013    /*  36 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 39),
    0x0000006a    /*  38 (LREF0-CAR) */,
    0x0000000d    /*  39 (PUSH) */,
    0x0000003d    /*  40 (LREF0) */,
    0x00000022    /*  41 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 46),
    0x00000003    /*  43 (CONSTN) */,
    0x00000013    /*  44 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.d1568[274]) + 53),
    0x00000013    /*  51 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 61),
    0x0000200e    /*  53 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 61),
    0x00000006    /*  55 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
    0x00000006    /*  57 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[620])) /* (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.3d315b60> */,
    0x0000300e    /*  61 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.3d31f7a0> */,
    0x0000000d    /*  68 (PUSH) */,
    0x00000050    /*  69 (LREF21-PUSH) */,
    0x00002060    /*  70 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.3d31f880> */,
    0x00000014    /*  72 (RET) */,
    /* consume-trailing-whitespaces */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 6),
    0x000000de    /*   3 (CURIN) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 7),
    0x0000006a    /*   6 (LREF0-CAR) */,
    0x0000000d    /*   7 (PUSH) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000022    /*   9 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 14),
    0x00000003    /*  11 (CONSTN) */,
    0x00000013    /*  12 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.d1568[347]) + 21),
    0x00000013    /*  19 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 29),
    0x0000200e    /*  21 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 29),
    0x00000006    /*  23 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
    0x00000006    /*  25 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[675])) /* (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.3ce12d20> */,
    0x0000100e    /*  29 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 34),
    0x00000049    /*  31 (LREF1-PUSH) */,
    0x0000105f    /*  32 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-ready?.3ce1dec0> */,
    0x0000001e    /*  34 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 95),
    0x0000100e    /*  36 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 41),
    0x00000049    /*  38 (LREF1-PUSH) */,
    0x0000105f    /*  39 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-byte.3ce1dd80> */,
    0x00001018    /*  41 (PUSH-LOCAL-ENV 1) */,
    0x00000048    /*  42 (LREF0-PUSH) */,
    0x00000001    /*  43 (CONST) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[629])) /* (9 32) */,
    0x0000008c    /*  45 (MEMV) */,
    0x0000001e    /*  46 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 56),
    0x0000100e    /*  48 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 53),
    0x0000004d    /*  50 (LREF11-PUSH) */,
    0x0000105f    /*  51 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3ce1da60> */,
    0x0000101b    /*  53 (LOCAL-ENV-JUMP 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.d1568[347]) + 86)  /*     86 */,
    0x0000100e    /*  60 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 65),
    0x0000004d    /*  62 (LREF11-PUSH) */,
    0x0000105f    /*  63 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3ce1d8e0> */,
    0x0000100e    /*  65 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 70),
    0x0000004d    /*  67 (LREF11-PUSH) */,
    0x0000105f    /*  68 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-ready?.3ce1d820> */,
    0x0000001e    /*  70 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 85),
    0x0000100e    /*  72 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 77),
    0x0000004d    /*  74 (LREF11-PUSH) */,
    0x0000105f    /*  75 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-byte.3ce1d760> */,
    0x0000002f    /*  77 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(10U)) /* 10 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 84)  /*     84 */,
    0x0000004d    /*  80 (LREF11-PUSH) */,
    0x00001060    /*  81 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3ce1d620> */,
    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.d1568[347]) + 94)  /*     94 */,
    0x0000004d    /*  90 (LREF11-PUSH) */,
    0x00001060    /*  91 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3ce1d4e0> */,
    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.d1568[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.3c664560> */,
    0x00001018    /*   8 (PUSH-LOCAL-ENV 1) */,
    0x0000400e    /*   9 (PRE-CALL 4) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.3c6644a0> */,
    0x00000048    /*  19 (LREF0-PUSH) */,
    0x00001060    /*  20 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.3c664360> */,
    0x00000014    /*  22 (RET) */,
    /* (port->list #f) */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.d1568[467]) + 16),
    0x00000048    /*  12 (LREF0-PUSH) */,
    0x00001060    /*  13 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#reverse!.3c73afe0> */,
    0x00000014    /*  15 (RET) */,
    0x0000100e    /*  16 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.d1568[467]) + 8),
    0x00000014    /*  27 (RET) */,
    0x00000014    /*  28 (RET) */,
    /* port->list */
    0x00000048    /*   0 (LREF0-PUSH) */,
    0x00000016    /*   1 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[15])) /* #<compiled-code (port->list #f)@0x7fc33d5d96c0> */,
    0x00002063    /*   3 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-port-locking.3c7351c0> */,
    0x00000014    /*   5 (RET) */,
    /* (port->string-list G1591) */
    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.3e407140> */,
    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.3e4034e0> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[732])) /* (#<compiled-code (port->string-list #:G1591)@0x7fc33fc60e40>) */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[18])) /* #<compiled-code port->string-list@0x7fc33fc60d20> */,
    0x00000015    /*   4 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port->string-list.3f5b51a0> */,
    0x00000014    /*   6 (RET) */,
    /* port->sexp-list */
    0x0000005e    /*   0 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.3e53b120> */,
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x00002060    /*   3 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port->list.3e53b440> */,
    0x00000014    /*   5 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.3d145440> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#read-with-shared-structure.3d1454c0> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.3d173060> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#read/ss.3d1730c0> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-byte.3ce29a40> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-u8.3ce29ac0> */,
    0x00000014    /*   4 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-shared.3ceab6a0> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write*.3ceab720> */,
    0x00000014    /*   4 (RET) */,
    /* write-walk */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]) + 5),
    0x00000048    /*   2 (LREF0-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.3cfddd00> */,
    0x00001018    /*   5 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   6 (LREF0) */,
    0x0000001e    /*   7 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]) + 21),
    0x0000004d    /*   9 (LREF11-PUSH) */,
    0x0000004c    /*  10 (LREF10-PUSH) */,
    0x0000200e    /*  11 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]) + 18),
    0x00000048    /*  13 (LREF0-PUSH) */,
    0x0000005e    /*  14 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#shared-table.3cfddb20> */,
    0x0000205f    /*  16 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#~.3cfddbc0> */,
    0x00003063    /*  18 (PUSH-GREF-TAIL-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.3cfddc40> */,
    0x00000014    /*  20 (RET) */,
    0x0000000c    /*  21 (CONSTU-RET) */,
    /* (%write-walk-rec G1596) */
    0x000010bd    /*   0 (LREF0-NUMADDI 1) */,
    0x00000014    /*   1 (RET) */,
    /* %write-walk-rec */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 5),
    0x0000004a    /*   2 (LREF2-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-need-recurse?.3c9265c0> */,
    0x0000001e    /*   5 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 124),
    0x0000200e    /*   7 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 13),
    0x00000048    /*   9 (LREF0-PUSH) */,
    0x0000004a    /*  10 (LREF2-PUSH) */,
    0x0000205f    /*  11 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-exists?.3c926540> */,
    0x0000001e    /*  13 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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!.3c9264c0> */,
    0x00000014    /*  20 (RET) */,
    0x0000300e    /*  21 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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!.3c93df40> */,
    0x0000003f    /*  28 (LREF2) */,
    0x0000009c    /*  29 (SYMBOLP) */,
    0x0000001e    /*  30 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 34),
    0x00000013    /*  32 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
    0x0000003f    /*  34 (LREF2) */,
    0x0000009b    /*  35 (STRINGP) */,
    0x0000001e    /*  36 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 40),
    0x00000013    /*  38 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
    0x0000003f    /*  40 (LREF2) */,
    0x00000098    /*  41 (PAIRP) */,
    0x0000001e    /*  42 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 62),
    0x0000300e    /*  44 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.3c93dd40> */,
    0x0000300e    /*  52 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
    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.3c93dc80> */,
    0x00000013    /*  60 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
    0x0000003f    /*  62 (LREF2) */,
    0x0000009d    /*  63 (VECTORP) */,
    0x0000001e    /*  64 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 94),
    0x0000200e    /*  66 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
    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.d1568[570]) + 77),
    0x0000000c    /*  76 (CONSTU-RET) */,
    0x0000300e    /*  77 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[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.3c93d9c0> */,
    0x00000049    /*  87 (LREF1-PUSH) */,
    0x000010c7    /*  88 (LREF0-NUMADDI-PUSH 1) */,
    0x0000101b    /*  89 (LOCAL-ENV-JUMP 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 73),
    0x00000014    /*  91 (RET) */,
    0x00000013    /*  92 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
    0x0000200e    /*  94 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
    0x0000004a    /*  96 (LREF2-PUSH) */,
    0x00000049    /*  97 (LREF1-PUSH) */,
    0x0000205f    /*  98 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-object.3c93d700> */,
    0x0000100e    /* 100 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 105),
    0x00000049    /* 102 (LREF1-PUSH) */,
    0x0000105f    /* 103 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-writing-shared?.3c93d660> */,
    0x0000001e    /* 105 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 108),
    0x0000000c    /* 107 (CONSTU-RET) */,
    0x0000300e    /* 108 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 115),
    0x00000048    /* 110 (LREF0-PUSH) */,
    0x0000004a    /* 111 (LREF2-PUSH) */,
    0x00000009    /* 112 (CONSTF-PUSH) */,
    0x0000305f    /* 113 (GREF-CALL 3) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-get.3c93d5c0> */,
    0x0000002f    /* 115 (BNEQVC) */,
    SCM_WORD(SCM_MAKE_INT(1U)) /* 1 */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 123)  /*    123 */,
    0x00000048    /* 118 (LREF0-PUSH) */,
    0x0000004a    /* 119 (LREF2-PUSH) */,
    0x00002060    /* 120 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-delete!.3c93d500> */,
    0x00000014    /* 122 (RET) */,
    0x0000000c    /* 123 (CONSTU-RET) */,
    0x0000000c    /* 124 (CONSTU-RET) */,
    /* %toplevel */
    0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[939])) /* (#<compiled-code (%write-walk-rec #:G1596)@0x7fc33d027300>) */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[27])) /* #<compiled-code %write-walk-rec@0x7fc33d0272a0> */,
    0x00000015    /*   4 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.3c9266c0> */,
    0x00000014    /*   6 (RET) */,
    /* write-with-shared-structure */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 6),
    0x000000df    /*   3 (CUROUT) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 7),
    0x0000006a    /*   6 (LREF0-CAR) */,
    0x0000000d    /*   7 (PUSH) */,
    0x0000003d    /*   8 (LREF0) */,
    0x00000022    /*   9 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 14),
    0x00000003    /*  11 (CONSTN) */,
    0x00000013    /*  12 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 15),
    0x00000076    /*  14 (LREF0-CDR) */,
    0x00002018    /*  15 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  16 (LREF0) */,
    0x00000022    /*  17 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 21),
    0x00000013    /*  19 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 29),
    0x0000200e    /*  21 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 29),
    0x00000006    /*  23 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
    0x00000006    /*  25 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[954])) /* (lambda (obj :optional (port (current-output-port))) (write* obj port)) */,
    0x0000205f    /*  27 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.3cb5e320> */,
    0x0000004d    /*  29 (LREF11-PUSH) */,
    0x00000049    /*  30 (LREF1-PUSH) */,
    0x00002060    /*  31 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write*.3cb60f00> */,
    0x00000014    /*  33 (RET) */,
    /* %toplevel */
    0x0000005d    /*   0 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-with-shared-structure.3e4cf460> */,
    0x00000015    /*   2 (DEFINE 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#write/ss.3e4cfd40> */,
    0x00000014    /*   4 (RET) */,
    /* print */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[741]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.3e513e00> */,
    0x00000048    /*   4 (LREF0-PUSH) */,
    0x0000205f    /*   5 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#for-each.3e513e40> */,
    0x00000060    /*   7 (GREF-TAIL-CALL 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#newline.3e513da0> */,
    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.d1568[751]) + 260),
    0x0000100e    /*  28 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 33),
    0x02c00047    /*  30 (LREF-PUSH 0 11) */,
    0x0000105f    /*  31 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /*  33 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 38),
    0x00000005    /*  35 (CONSTU) */,
    0x00000013    /*  36 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 39),
    0x02c0003c    /*  38 (LREF 0 11) */,
    0x00001018    /*  39 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  40 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 45),
    0x02801047    /*  42 (LREF-PUSH 1 10) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /*  45 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 50),
    0x00000005    /*  47 (CONSTU) */,
    0x00000013    /*  48 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 51),
    0x0280103c    /*  50 (LREF 1 10) */,
    0x00001018    /*  51 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  52 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 57),
    0x02402047    /*  54 (LREF-PUSH 2 9) */,
    0x0000105f    /*  55 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /*  57 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 62),
    0x00000005    /*  59 (CONSTU) */,
    0x00000013    /*  60 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 63),
    0x0240203c    /*  62 (LREF 2 9) */,
    0x00001018    /*  63 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  64 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 69),
    0x02003047    /*  66 (LREF-PUSH 3 8) */,
    0x0000105f    /*  67 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /*  69 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 74),
    0x00000005    /*  71 (CONSTU) */,
    0x00000013    /*  72 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 75),
    0x0200303c    /*  74 (LREF 3 8) */,
    0x00001018    /*  75 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  76 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 81),
    0x01c04047    /*  78 (LREF-PUSH 4 7) */,
    0x0000105f    /*  79 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /*  81 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 86),
    0x00000005    /*  83 (CONSTU) */,
    0x00000013    /*  84 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 87),
    0x01c0403c    /*  86 (LREF 4 7) */,
    0x00001018    /*  87 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  88 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 93),
    0x01805047    /*  90 (LREF-PUSH 5 6) */,
    0x0000105f    /*  91 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /*  93 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 98),
    0x00000005    /*  95 (CONSTU) */,
    0x00000013    /*  96 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 99),
    0x0180503c    /*  98 (LREF 5 6) */,
    0x00001018    /*  99 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 100 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 105),
    0x01406047    /* 102 (LREF-PUSH 6 5) */,
    0x0000105f    /* 103 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /* 105 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 110),
    0x00000005    /* 107 (CONSTU) */,
    0x00000013    /* 108 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 111),
    0x0140603c    /* 110 (LREF 6 5) */,
    0x00001018    /* 111 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 112 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 117),
    0x01007047    /* 114 (LREF-PUSH 7 4) */,
    0x0000105f    /* 115 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /* 117 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 122),
    0x00000005    /* 119 (CONSTU) */,
    0x00000013    /* 120 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 123),
    0x0100703c    /* 122 (LREF 7 4) */,
    0x00001018    /* 123 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 124 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 129),
    0x00c08047    /* 126 (LREF-PUSH 8 3) */,
    0x0000105f    /* 127 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /* 129 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 134),
    0x00000005    /* 131 (CONSTU) */,
    0x00000013    /* 132 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 135),
    0x00c0803c    /* 134 (LREF 8 3) */,
    0x00001018    /* 135 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 136 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 141),
    0x00809047    /* 138 (LREF-PUSH 9 2) */,
    0x0000105f    /* 139 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /* 141 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 146),
    0x00000005    /* 143 (CONSTU) */,
    0x00000013    /* 144 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 147),
    0x0080903c    /* 146 (LREF 9 2) */,
    0x00001018    /* 147 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 148 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 153),
    0x0040a047    /* 150 (LREF-PUSH 10 1) */,
    0x0000105f    /* 151 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /* 153 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 158),
    0x00000005    /* 155 (CONSTU) */,
    0x00000013    /* 156 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 159),
    0x0040a03c    /* 158 (LREF 10 1) */,
    0x00001018    /* 159 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 160 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 165),
    0x0000b047    /* 162 (LREF-PUSH 11 0) */,
    0x0000105f    /* 163 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
    0x0000001e    /* 165 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 170),
    0x00000005    /* 167 (CONSTU) */,
    0x00000013    /* 168 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 171),
    0x0000b03c    /* 170 (LREF 11 0) */,
    0x00001018    /* 171 (PUSH-LOCAL-ENV 1) */,
    0x0000005e    /* 172 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<write-controls>.3db11240> */,
    0x00000006    /* 174 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :length */,
    0x0000100e    /* 176 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 181),
    0x00005047    /* 178 (LREF-PUSH 5 0) */,
    0x0000105f    /* 179 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
    0x0000001e    /* 181 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 186),
    0x0000b03c    /* 183 (LREF 11 0) */,
    0x00000013    /* 184 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 195),
    0x00004047    /* 192 (LREF-PUSH 4 0) */,
    0x0000105f    /* 193 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
    0x0000001e    /* 195 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 200),
    0x0000a03c    /* 197 (LREF 10 0) */,
    0x00000013    /* 198 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 209),
    0x00000051    /* 206 (LREF30-PUSH) */,
    0x0000105f    /* 207 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
    0x0000001e    /* 209 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 214),
    0x0000903c    /* 211 (LREF 9 0) */,
    0x00000013    /* 212 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 223),
    0x0000004f    /* 220 (LREF20-PUSH) */,
    0x0000105f    /* 221 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
    0x0000001e    /* 223 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 228),
    0x0000803c    /* 225 (LREF 8 0) */,
    0x00000013    /* 226 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 237),
    0x0000004c    /* 234 (LREF10-PUSH) */,
    0x0000105f    /* 235 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
    0x0000001e    /* 237 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 242),
    0x0000703c    /* 239 (LREF 7 0) */,
    0x00000013    /* 240 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 251),
    0x00000048    /* 248 (LREF0-PUSH) */,
    0x0000105f    /* 249 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
    0x0000001e    /* 251 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 256),
    0x0000603c    /* 253 (LREF 6 0) */,
    0x00000013    /* 254 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 257),
    0x0000003d    /* 256 (LREF0) */,
    0x0000d063    /* 257 (PUSH-GREF-TAIL-CALL 13) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.3db11280> */,
    0x00000014    /* 259 (RET) */,
    0x0300003c    /* 260 (LREF 0 12) */,
    0x00000074    /* 261 (CDR) */,
    0x00000022    /* 262 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 270),
    0x00000006    /* 264 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[245])) /* "keyword list not even" */,
    0x03000047    /* 266 (LREF-PUSH 0 12) */,
    0x00002060    /* 267 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#error.3db0efe0> */,
    0x00000014    /* 269 (RET) */,
    0x0000100e    /* 270 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 276),
    0x0300003c    /* 272 (LREF 0 12) */,
    0x00000069    /* 273 (CAR-PUSH) */,
    0x0000105f    /* 274 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#unwrap-syntax-1.3db0ef60> */,
    0x00001018    /* 276 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /* 277 (LREF0) */,
    0x0000002e    /* 278 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :length */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 298 (RET) */,
    0x0000003d    /* 299 (LREF0) */,
    0x0000002e    /* 300 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :level */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 320 (RET) */,
    0x0000003d    /* 321 (LREF0) */,
    0x0000002e    /* 322 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :width */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 342 (RET) */,
    0x0000003d    /* 343 (LREF0) */,
    0x0000002e    /* 344 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :base */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 364 (RET) */,
    0x0000003d    /* 365 (LREF0) */,
    0x0000002e    /* 366 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :radix */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 386 (RET) */,
    0x0000003d    /* 387 (LREF0) */,
    0x0000002e    /* 388 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :pretty */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 408 (RET) */,
    0x0000003d    /* 409 (LREF0) */,
    0x0000002e    /* 410 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-length */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 430 (RET) */,
    0x0000003d    /* 431 (LREF0) */,
    0x0000002e    /* 432 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-level */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 452 (RET) */,
    0x0000003d    /* 453 (LREF0) */,
    0x0000002e    /* 454 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-width */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 474 (RET) */,
    0x0000003d    /* 475 (LREF0) */,
    0x0000002e    /* 476 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-base */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 496 (RET) */,
    0x0000003d    /* 497 (LREF0) */,
    0x0000002e    /* 498 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-radix */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 518 (RET) */,
    0x0000003d    /* 519 (LREF0) */,
    0x0000002e    /* 520 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-pretty */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 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.d1568[751]) + 25),
    0x00000014    /* 540 (RET) */,
    0x0000200e    /* 541 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 549),
    0x00000006    /* 543 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[253])) /* "unknown keyword ~S" */,
    0x0300103c    /* 545 (LREF 1 12) */,
    0x00000069    /* 546 (CAR-PUSH) */,
    0x0000205f    /* 547 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.3db0eba0> */,
    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.d1568[751]) + 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.d1568[1318]) + 434),
    0x0000100e    /*  28 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 33),
    0x02c00047    /*  30 (LREF-PUSH 0 11) */,
    0x0000105f    /*  31 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /*  33 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 38),
    0x00000005    /*  35 (CONSTU) */,
    0x00000013    /*  36 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 39),
    0x02c0003c    /*  38 (LREF 0 11) */,
    0x00001018    /*  39 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  40 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 45),
    0x02801047    /*  42 (LREF-PUSH 1 10) */,
    0x0000105f    /*  43 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /*  45 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 50),
    0x00000005    /*  47 (CONSTU) */,
    0x00000013    /*  48 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 51),
    0x0280103c    /*  50 (LREF 1 10) */,
    0x00001018    /*  51 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  52 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 57),
    0x02402047    /*  54 (LREF-PUSH 2 9) */,
    0x0000105f    /*  55 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /*  57 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 62),
    0x00000005    /*  59 (CONSTU) */,
    0x00000013    /*  60 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 63),
    0x0240203c    /*  62 (LREF 2 9) */,
    0x00001018    /*  63 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  64 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 69),
    0x02003047    /*  66 (LREF-PUSH 3 8) */,
    0x0000105f    /*  67 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /*  69 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 74),
    0x00000005    /*  71 (CONSTU) */,
    0x00000013    /*  72 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 75),
    0x0200303c    /*  74 (LREF 3 8) */,
    0x00001018    /*  75 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  76 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 81),
    0x01c04047    /*  78 (LREF-PUSH 4 7) */,
    0x0000105f    /*  79 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /*  81 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 86),
    0x00000005    /*  83 (CONSTU) */,
    0x00000013    /*  84 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 87),
    0x01c0403c    /*  86 (LREF 4 7) */,
    0x00001018    /*  87 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*  88 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 93),
    0x01805047    /*  90 (LREF-PUSH 5 6) */,
    0x0000105f    /*  91 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /*  93 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 98),
    0x00000005    /*  95 (CONSTU) */,
    0x00000013    /*  96 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 99),
    0x0180503c    /*  98 (LREF 5 6) */,
    0x00001018    /*  99 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 100 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 105),
    0x01406047    /* 102 (LREF-PUSH 6 5) */,
    0x0000105f    /* 103 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /* 105 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 110),
    0x00000005    /* 107 (CONSTU) */,
    0x00000013    /* 108 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 111),
    0x0140603c    /* 110 (LREF 6 5) */,
    0x00001018    /* 111 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 112 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 117),
    0x01007047    /* 114 (LREF-PUSH 7 4) */,
    0x0000105f    /* 115 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /* 117 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 122),
    0x00000005    /* 119 (CONSTU) */,
    0x00000013    /* 120 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 123),
    0x0100703c    /* 122 (LREF 7 4) */,
    0x00001018    /* 123 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 124 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 129),
    0x00c08047    /* 126 (LREF-PUSH 8 3) */,
    0x0000105f    /* 127 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /* 129 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 134),
    0x00000005    /* 131 (CONSTU) */,
    0x00000013    /* 132 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 135),
    0x00c0803c    /* 134 (LREF 8 3) */,
    0x00001018    /* 135 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 136 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 141),
    0x00809047    /* 138 (LREF-PUSH 9 2) */,
    0x0000105f    /* 139 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /* 141 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 146),
    0x00000005    /* 143 (CONSTU) */,
    0x00000013    /* 144 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 147),
    0x0080903c    /* 146 (LREF 9 2) */,
    0x00001018    /* 147 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 148 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 153),
    0x0040a047    /* 150 (LREF-PUSH 10 1) */,
    0x0000105f    /* 151 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /* 153 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 158),
    0x00000005    /* 155 (CONSTU) */,
    0x00000013    /* 156 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 159),
    0x0040a03c    /* 158 (LREF 10 1) */,
    0x00001018    /* 159 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 160 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 165),
    0x0000b047    /* 162 (LREF-PUSH 11 0) */,
    0x0000105f    /* 163 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
    0x0000001e    /* 165 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 170),
    0x00000005    /* 167 (CONSTU) */,
    0x00000013    /* 168 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 171),
    0x0000b03c    /* 170 (LREF 11 0) */,
    0x00001018    /* 171 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /* 172 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 177),
    0x0000b047    /* 174 (LREF-PUSH 11 0) */,
    0x0000105f    /* 175 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d0fb2e0> */,
    0x0000001e    /* 177 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 198),
    0x0000100e    /* 179 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 184),
    0x00005047    /* 181 (LREF-PUSH 5 0) */,
    0x0000105f    /* 182 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d0fb2e0> */,
    0x0000001e    /* 184 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 195),
    0x0000200e    /* 186 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d0fb2c0> */,
    0x00000013    /* 193 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 199),
    0x0000503c    /* 195 (LREF 5 0) */,
    0x00000013    /* 196 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 199),
    0x0000b03c    /* 198 (LREF 11 0) */,
    0x0000100f    /* 199 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 204),
    0x0000a047    /* 201 (LREF-PUSH 10 0) */,
    0x0000105f    /* 202 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10ed60> */,
    0x0000001e    /* 204 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 225),
    0x0000100e    /* 206 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 211),
    0x00004047    /* 208 (LREF-PUSH 4 0) */,
    0x0000105f    /* 209 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10ed60> */,
    0x0000001e    /* 211 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 222),
    0x0000200e    /* 213 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d10ece0> */,
    0x00000013    /* 220 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 226),
    0x0000403c    /* 222 (LREF 4 0) */,
    0x00000013    /* 223 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 226),
    0x0000a03c    /* 225 (LREF 10 0) */,
    0x0000100f    /* 226 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 231),
    0x00009047    /* 228 (LREF-PUSH 9 0) */,
    0x0000105f    /* 229 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e960> */,
    0x0000001e    /* 231 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 252),
    0x0000100e    /* 233 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 238),
    0x00000051    /* 235 (LREF30-PUSH) */,
    0x0000105f    /* 236 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e960> */,
    0x0000001e    /* 238 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 249),
    0x0000200e    /* 240 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d10e940> */,
    0x00000013    /* 247 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 253),
    0x00000046    /* 249 (LREF30) */,
    0x00000013    /* 250 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 253),
    0x0000903c    /* 252 (LREF 9 0) */,
    0x0000100f    /* 253 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 258),
    0x00008047    /* 255 (LREF-PUSH 8 0) */,
    0x0000105f    /* 256 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e300> */,
    0x0000001e    /* 258 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 279),
    0x0000100e    /* 260 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 265),
    0x0000004f    /* 262 (LREF20-PUSH) */,
    0x0000105f    /* 263 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e300> */,
    0x0000001e    /* 265 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 276),
    0x0000200e    /* 267 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d10e2e0> */,
    0x00000013    /* 274 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 280),
    0x00000044    /* 276 (LREF20) */,
    0x00000013    /* 277 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 280),
    0x0000803c    /* 279 (LREF 8 0) */,
    0x0000100f    /* 280 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 285),
    0x00007047    /* 282 (LREF-PUSH 7 0) */,
    0x0000105f    /* 283 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e080> */,
    0x0000001e    /* 285 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 306),
    0x0000100e    /* 287 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 292),
    0x0000004c    /* 289 (LREF10-PUSH) */,
    0x0000105f    /* 290 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e080> */,
    0x0000001e    /* 292 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 303),
    0x0000200e    /* 294 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d10e060> */,
    0x00000013    /* 301 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 307),
    0x00000041    /* 303 (LREF10) */,
    0x00000013    /* 304 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 307),
    0x0000703c    /* 306 (LREF 7 0) */,
    0x0000100f    /* 307 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 312),
    0x00006047    /* 309 (LREF-PUSH 6 0) */,
    0x0000105f    /* 310 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d115da0> */,
    0x0000001e    /* 312 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 333),
    0x0000100e    /* 314 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 319),
    0x00000048    /* 316 (LREF0-PUSH) */,
    0x0000105f    /* 317 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d115da0> */,
    0x0000001e    /* 319 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 330),
    0x0000200e    /* 321 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d115d80> */,
    0x00000013    /* 328 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 334),
    0x0000003d    /* 330 (LREF0) */,
    0x00000013    /* 331 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 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.3d115ac0> */,
    0x00000021    /* 343 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x01000047    /* 345 (LREF-PUSH 0 4) */,
    0x0000200e    /* 346 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d1158a0> */,
    0x00000021    /* 353 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x0000004b    /* 355 (LREF3-PUSH) */,
    0x0000200e    /* 356 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d115740> */,
    0x00000021    /* 363 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x0000004a    /* 365 (LREF2-PUSH) */,
    0x0000200e    /* 366 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d115620> */,
    0x00000021    /* 373 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x00000049    /* 375 (LREF1-PUSH) */,
    0x0000200e    /* 376 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d115500> */,
    0x00000021    /* 383 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x00000048    /* 385 (LREF0-PUSH) */,
    0x0000200e    /* 386 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.3d115380> */,
    0x00000021    /* 393 (BNEQV) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x0040e052    /* 395 (LREF-RET 14 1) */,
    0x0000005e    /* 396 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<write-controls>.3d115220> */,
    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.3d115260> */,
    0x00000014    /* 418 (RET) */,
    0x00000013    /* 419 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x00000014    /* 421 (RET) */,
    0x00000013    /* 422 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x00000014    /* 424 (RET) */,
    0x00000013    /* 425 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x00000014    /* 427 (RET) */,
    0x00000013    /* 428 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x00000014    /* 430 (RET) */,
    0x00000013    /* 431 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
    0x00000014    /* 433 (RET) */,
    0x0300003c    /* 434 (LREF 0 12) */,
    0x00000074    /* 435 (CDR) */,
    0x00000022    /* 436 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 444),
    0x00000006    /* 438 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[245])) /* "keyword list not even" */,
    0x03000047    /* 440 (LREF-PUSH 0 12) */,
    0x00002060    /* 441 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#error.3d0f4dc0> */,
    0x00000014    /* 443 (RET) */,
    0x0000100e    /* 444 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 450),
    0x0300003c    /* 446 (LREF 0 12) */,
    0x00000069    /* 447 (CAR-PUSH) */,
    0x0000105f    /* 448 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#unwrap-syntax-1.3d0f4ae0> */,
    0x00001018    /* 450 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /* 451 (LREF0) */,
    0x0000002e    /* 452 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :length */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 472 (RET) */,
    0x0000003d    /* 473 (LREF0) */,
    0x0000002e    /* 474 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :level */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 494 (RET) */,
    0x0000003d    /* 495 (LREF0) */,
    0x0000002e    /* 496 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :width */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 516 (RET) */,
    0x0000003d    /* 517 (LREF0) */,
    0x0000002e    /* 518 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :base */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 538 (RET) */,
    0x0000003d    /* 539 (LREF0) */,
    0x0000002e    /* 540 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :radix */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 560 (RET) */,
    0x0000003d    /* 561 (LREF0) */,
    0x0000002e    /* 562 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :pretty */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 582 (RET) */,
    0x0000003d    /* 583 (LREF0) */,
    0x0000002e    /* 584 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-length */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 604 (RET) */,
    0x0000003d    /* 605 (LREF0) */,
    0x0000002e    /* 606 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-level */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 626 (RET) */,
    0x0000003d    /* 627 (LREF0) */,
    0x0000002e    /* 628 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-width */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 648 (RET) */,
    0x0000003d    /* 649 (LREF0) */,
    0x0000002e    /* 650 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-base */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 670 (RET) */,
    0x0000003d    /* 671 (LREF0) */,
    0x0000002e    /* 672 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-radix */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 692 (RET) */,
    0x0000003d    /* 693 (LREF0) */,
    0x0000002e    /* 694 (BNEQC) */,
    SCM_WORD(SCM_UNDEFINED) /* :print-pretty */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 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.d1568[1318]) + 25),
    0x00000014    /* 714 (RET) */,
    0x0000200e    /* 715 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 723),
    0x00000006    /* 717 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[253])) /* "unknown keyword ~S" */,
    0x0300103c    /* 719 (LREF 1 12) */,
    0x00000069    /* 720 (CAR-PUSH) */,
    0x0000205f    /* 721 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.3d0f46e0> */,
    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.d1568[1318]) + 25),
    0x00000014    /* 739 (RET) */,
    0x00000014    /* 740 (RET) */,
    /* open-input-file */
    0x0000300e    /*   0 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]) + 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.3c91eee0> */,
    0x00001018    /*   8 (PUSH-LOCAL-ENV 1) */,
    0x0000003d    /*   9 (LREF0) */,
    0x0000002e    /*  10 (BNEQC) */,
    SCM_WORD(SCM_FALSE) /* #f */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]) + 19)  /*     19 */,
    0x0000005e    /*  13 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-input-file.3c91ebc0> */,
    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.d1568[2059]) + 43)  /*     43 */,
    0x0000000e    /*  23 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]) + 36),
    0x0000005e    /*  25 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-input-file.3c91ea60> */,
    0x0000004d    /*  27 (LREF11-PUSH) */,
    0x0000200e    /*  28 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]) + 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.3c91ea00> */,
    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.3c91e920> */,
    0x00000014    /*  42 (RET) */,
    0x0000005e    /*  43 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-input-file/conv.3c91e800> */,
    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.d1568[2108]) + 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.3c59e4c0> */,
    0x0000001e    /*   8 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]) + 16),
    0x0000005e    /*  10 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-output-file/conv.3c59e3e0> */,
    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.3c59e340> */,
    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.3fc80c60> */,
    0x00000014    /*   3 (RET) */,
    /* call-with-port */
    0x00000016    /*   0 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[36])) /* #<compiled-code (call-with-port #f)@0x7fc33d4c6e40> */,
    0x0000000d    /*   2 (PUSH) */,
    0x00000016    /*   3 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[37])) /* #<compiled-code (call-with-port #f)@0x7fc33d4c6de0> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000006    /*   6 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*   8 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[1004])) /* ("libio.scm" 1001) */,
    0x00004060    /*  10 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3fc80e60> */,
    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.d1568[2155]) + 7),
    0x00000048    /*   3 (LREF0-PUSH) */,
    0x00001060    /*   4 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-input-port.3e4e4a80> */,
    0x00000014    /*   6 (RET) */,
    0x0000000c    /*   7 (CONSTU-RET) */,
    /* call-with-input-file */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2163]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-file.3e4de4c0> */,
    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.d1569[39])) /* #<compiled-code (call-with-input-file #f)@0x7fc33d4c60c0> */,
    0x0000000d    /*  10 (PUSH) */,
    0x00000016    /*  11 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[40])) /* #<compiled-code (call-with-input-file #f)@0x7fc33d4c6060> */,
    0x0000000d    /*  13 (PUSH) */,
    0x00000006    /*  14 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*  16 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[1015])) /* ("libio.scm" 1008) */,
    0x00004060    /*  18 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3e4e4e00> */,
    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.d1568[2188]) + 7),
    0x00000048    /*   3 (LREF0-PUSH) */,
    0x00001060    /*   4 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-output-port.3db7e460> */,
    0x00000014    /*   6 (RET) */,
    0x0000000c    /*   7 (CONSTU-RET) */,
    /* call-with-output-file */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2196]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-file.3db7eb20> */,
    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.d1569[42])) /* #<compiled-code (call-with-output-file #f)@0x7fc33d4eca80> */,
    0x0000000d    /*  10 (PUSH) */,
    0x00000016    /*  11 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[43])) /* #<compiled-code (call-with-output-file #f)@0x7fc33d4ec960> */,
    0x0000000d    /*  13 (PUSH) */,
    0x00000006    /*  14 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*  16 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[1027])) /* ("libio.scm" 1013) */,
    0x00004060    /*  18 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3db7e800> */,
    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.3d481380> */,
    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.3d482b80> */,
    0x00000014    /*   3 (RET) */,
    /* with-input-from-file */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2226]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-file.3d481b20> */,
    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.d1569[45])) /* #<compiled-code (with-input-from-file #f)@0x7fc33d4ec600> */,
    0x0000000d    /*  12 (PUSH) */,
    0x00000016    /*  13 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[46])) /* #<compiled-code (with-input-from-file #f)@0x7fc33d4ec5a0> */,
    0x0000000d    /*  15 (PUSH) */,
    0x00000006    /*  16 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*  18 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[1037])) /* ("libio.scm" 1019) */,
    0x00004060    /*  20 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3d4816c0> */,
    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.3d14a660> */,
    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.3d14a4c0> */,
    0x00000014    /*   3 (RET) */,
    /* with-output-to-file */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2258]) + 7),
    0x0000005e    /*   2 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-file.3d14ac80> */,
    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.d1569[48])) /* #<compiled-code (with-output-to-file #f)@0x7fc33d5455a0> */,
    0x0000000d    /*  12 (PUSH) */,
    0x00000016    /*  13 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[49])) /* #<compiled-code (with-output-to-file #f)@0x7fc33d545300> */,
    0x0000000d    /*  15 (PUSH) */,
    0x00000006    /*  16 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* :source-info */,
    0x00000006    /*  18 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[1049])) /* ("libio.scm" 1025) */,
    0x00004060    /*  20 (GREF-TAIL-CALL 4) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3d14a940> */,
    0x00000014    /*  22 (RET) */,
    /* with-output-to-string */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]) + 4),
    0x0000005f    /*   2 (GREF-CALL 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.3d2fa1c0> */,
    0x00001018    /*   4 (PUSH-LOCAL-ENV 1) */,
    0x0000200e    /*   5 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]) + 11),
    0x00000048    /*   7 (LREF0-PUSH) */,
    0x0000004c    /*   8 (LREF10-PUSH) */,
    0x0000205f    /*   9 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-port.3d2fa160> */,
    0x00000048    /*  11 (LREF0-PUSH) */,
    0x00001060    /*  12 (GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.3d2fa0c0> */,
    0x00000014    /*  14 (RET) */,
    /* with-input-from-string */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2296]) + 5),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-string.3d3b41e0> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000048    /*   6 (LREF0-PUSH) */,
    0x00002060    /*   7 (GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-port.3d3b4240> */,
    0x00000014    /*   9 (RET) */,
    /* call-with-output-string */
    0x0000000e    /*   0 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2306]) + 4),
    0x0000005f    /*   2 (GREF-CALL 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.3ccb9480> */,
    0x00001018    /*   4 (PUSH-LOCAL-ENV 1) */,
    0x0000100e    /*   5 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2306]) + 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.3ccb93c0> */,
    0x00000014    /*  13 (RET) */,
    /* call-with-input-string */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2320]) + 5),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x0000105f    /*   3 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-string.3cd2a9a0> */,
    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.d1568[2329]) + 4),
    0x0000005f    /*   2 (GREF-CALL 0) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.3cd903a0> */,
    0x0000100f    /*   4 (PUSH-PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]) + 9),
    0x00000049    /*   6 (LREF1-PUSH) */,
    0x0000105f    /*   7 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-string.3cd90360> */,
    0x00002018    /*   9 (PUSH-LOCAL-ENV 2) */,
    0x0000200e    /*  10 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]) + 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.3cd902a0> */,
    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.3ce57200> */,
    0x00000014    /*   4 (RET) */,
    /* with-string-io */
    0x00000016    /*   0 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[56])) /* #<compiled-code (with-string-io #f)@0x7fc33d638c60> */,
    0x00001063    /*   2 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-string.3ce57800> */,
    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.d1568[2363]) + 7),
    0x0000005d    /*   3 (GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write.3cee6860> */,
    0x00000013    /*   5 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 8),
    0x0000006a    /*   7 (LREF0-CAR) */,
    0x0000000d    /*   8 (PUSH) */,
    0x0000003d    /*   9 (LREF0) */,
    0x00000022    /*  10 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 15),
    0x00000003    /*  12 (CONSTN) */,
    0x00000013    /*  13 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 16),
    0x00000076    /*  15 (LREF0-CDR) */,
    0x00002018    /*  16 (PUSH-LOCAL-ENV 2) */,
    0x0000003d    /*  17 (LREF0) */,
    0x00000022    /*  18 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 22),
    0x00000013    /*  20 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 30),
    0x0000200e    /*  22 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 30),
    0x00000006    /*  24 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
    0x00000006    /*  26 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1563[1104])) /* (lambda (obj :optional (writer write)) (with-output-to-string (cut writer obj))) */,
    0x0000205f    /*  28 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.3cee6620> */,
    0x00000016    /*  30 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[58])) /* #<compiled-code (write-to-string #f)@0x7fc33d638540> */,
    0x00001063    /*  32 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-string.3ceeeaa0> */,
    0x00000014    /*  34 (RET) */,
    /* read-from-string */
    0x0000003d    /*   0 (LREF0) */,
    0x00000022    /*   1 (BNNULL) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]) + 6),
    0x0000003e    /*   3 (LREF1) */,
    0x00000013    /*   4 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]) + 13),
    0x0000000e    /*   6 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]) + 13),
    0x0000005e    /*   8 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%maybe-substring.3c880780> */,
    0x00000049    /*  10 (LREF1-PUSH) */,
    0x0000003d    /*  11 (LREF0) */,
    0x00003095    /*  12 (TAIL-APPLY 3) */,
    0x00000061    /*  13 (PUSH-GREF) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.3c880700> */,
    0x00002063    /*  15 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-string.3c8808c0> */,
    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.d1568[2416]) + 7),
    0x000000ea    /*   3 (LREF-UNBOX 0 0) */,
    0x00001063    /*   4 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.3c9b97e0> */,
    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.d1568[2424]) + 10),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2424]) + 8),
    0x0000004d    /*   5 (LREF11-PUSH) */,
    0x0000105f    /*   6 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.3c9b9960> */,
    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.d1569[61])) /* #<compiled-code (with-input-from-port with-input-from-port)@0x7fc33d666f00> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000016    /*   6 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[62])) /* #<compiled-code (with-input-from-port with-input-from-port)@0x7fc33d666de0> */,
    0x00002018    /*   8 (PUSH-LOCAL-ENV 2) */,
    0x0000000e    /*   9 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2435]) + 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.d1568[2435]) + 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.d1568[2435]) + 26),
    0x00000042    /*  24 (LREF11) */,
    0x0000001c    /*  25 (LOCAL-ENV-CALL 0) */,
    0x0000005e    /*  26 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.403ba0c0> */,
    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.d1568[2466]) + 7),
    0x000000ea    /*   3 (LREF-UNBOX 0 0) */,
    0x00001063    /*   4 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.3c664c40> */,
    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.d1568[2474]) + 10),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2474]) + 8),
    0x0000004d    /*   5 (LREF11-PUSH) */,
    0x0000105f    /*   6 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.3c664e00> */,
    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.d1569[64])) /* #<compiled-code (with-output-to-port with-output-to-port)@0x7fc33d6669c0> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000016    /*   6 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[65])) /* #<compiled-code (with-output-to-port with-output-to-port)@0x7fc33d6667e0> */,
    0x00002018    /*   8 (PUSH-LOCAL-ENV 2) */,
    0x0000000e    /*   9 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2485]) + 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.d1568[2485]) + 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.d1568[2485]) + 26),
    0x00000042    /*  24 (LREF11) */,
    0x0000001c    /*  25 (LOCAL-ENV-CALL 0) */,
    0x0000005e    /*  26 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.403ba0c0> */,
    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.d1568[2516]) + 7),
    0x000000ea    /*   3 (LREF-UNBOX 0 0) */,
    0x00001063    /*   4 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.3e4b7540> */,
    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.d1568[2524]) + 10),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2524]) + 8),
    0x0000004d    /*   5 (LREF11-PUSH) */,
    0x0000105f    /*   6 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.3e4b7740> */,
    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.d1569[67])) /* #<compiled-code (with-error-to-port with-error-to-port)@0x7fc33d666480> */,
    0x0000000d    /*   5 (PUSH) */,
    0x00000016    /*   6 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[68])) /* #<compiled-code (with-error-to-port with-error-to-port)@0x7fc33d666420> */,
    0x00002018    /*   8 (PUSH-LOCAL-ENV 2) */,
    0x0000000e    /*   9 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2535]) + 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.d1568[2535]) + 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.d1568[2535]) + 26),
    0x00000042    /*  24 (LREF11) */,
    0x0000001c    /*  25 (LOCAL-ENV-CALL 0) */,
    0x0000005e    /*  26 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.403ba0c0> */,
    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.d1568[2566]) + 10),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 10),
    0x008000ea    /*   5 (LREF-UNBOX 0 2) */,
    0x00001062    /*   6 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.3dbc4580> */,
    0x00000013    /*   8 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 10),
    0x004000ea    /*  10 (LREF-UNBOX 0 1) */,
    0x0000001e    /*  11 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 20),
    0x0000100e    /*  13 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 20),
    0x004000ea    /*  15 (LREF-UNBOX 0 1) */,
    0x00001062    /*  16 (PUSH-GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.3dbc44e0> */,
    0x00000013    /*  18 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 20),
    0x000000ea    /*  20 (LREF-UNBOX 0 0) */,
    0x0000001e    /*  21 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 27),
    0x000000ea    /*  23 (LREF-UNBOX 0 0) */,
    0x00001063    /*  24 (PUSH-GREF-TAIL-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.3dbc4400> */,
    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.d1568[2594]) + 11),
    0x0000100e    /*   3 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 8),
    0x00c01047    /*   5 (LREF-PUSH 1 3) */,
    0x0000105f    /*   6 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.3dbc4880> */,
    0x0080003a    /*   8 (LSET 0 2) */,
    0x00000013    /*   9 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 11),
    0x00000043    /*  11 (LREF12) */,
    0x0000001e    /*  12 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 22),
    0x0000100e    /*  14 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 19),
    0x0000004e    /*  16 (LREF12-PUSH) */,
    0x0000105f    /*  17 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.3dbc47a0> */,
    0x0040003a    /*  19 (LSET 0 1) */,
    0x00000013    /*  20 (JUMP) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 22),
    0x00000042    /*  22 (LREF11) */,
    0x0000001e    /*  23 (BF) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 32),
    0x0000100e    /*  25 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 30),
    0x0000004d    /*  27 (LREF11-PUSH) */,
    0x0000105f    /*  28 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.3dbc4700> */,
    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.d1569[70])) /* #<compiled-code (with-ports with-ports)@0x7fc33d6660c0> */,
    0x0000000d    /*   9 (PUSH) */,
    0x00000016    /*  10 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[71])) /* #<compiled-code (with-ports with-ports)@0x7fc33d666060> */,
    0x00002018    /*  12 (PUSH-LOCAL-ENV 2) */,
    0x0000000e    /*  13 (PRE-CALL 0) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2627]) + 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.d1568[2627]) + 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.d1568[2627]) + 30),
    0x00000042    /*  28 (LREF11) */,
    0x0000001c    /*  29 (LOCAL-ENV-CALL 0) */,
    0x0000005e    /*  30 (GREF-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.403ba0c0> */,
    0x0000003d    /*  32 (LREF0) */,
    0x00002095    /*  33 (TAIL-APPLY 2) */,
    0x00000014    /*  34 (RET) */,
    /* #f */
    0x0000100e    /*   0 (PRE-CALL 1) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2662]) + 6),
    0x00000006    /*   2 (CONST-PUSH) */,
    SCM_WORD(SCM_OBJ(&scm__sc.d1561[291])) /* "Reading R6RS source file.  Note that Gauche is not R6RS compliant." */,
    0x0000105f    /*   4 (GREF-CALL 1) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#warn.3d2367a0> */,
    0x000000a3    /*   6 (VALUES-RET 0) */,
    /* %toplevel */
    0x00000006    /*   0 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* r6rs */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[73])) /* #<compiled-code #f@0x7fc33d653600> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3d236940> */,
    0x00000014    /*   6 (RET) */,
    /* #f */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2676]) + 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!.3d339ce0> */,
    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.d1569[75])) /* #<compiled-code #f@0x7fc33d653360> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3d334140> */,
    0x00000014    /*   6 (RET) */,
    /* #f */
    0x0000200e    /*   0 (PRE-CALL 2) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2691]) + 6),
    0x00000049    /*   2 (LREF1-PUSH) */,
    0x00000009    /*   3 (CONSTF-PUSH) */,
    0x0000205f    /*   4 (GREF-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-case-fold-set!.3d3e08c0> */,
    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.d1569[77])) /* #<compiled-code #f@0x7fc33d001720> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3d3e0ae0> */,
    0x00000014    /*   6 (RET) */,
    /* #f */
    0x0000300e    /*   0 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2705]) + 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!.3ccde760> */,
    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.d1569[79])) /* #<compiled-code #f@0x7fc33d0012a0> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3ccdea60> */,
    0x00000014    /*   6 (RET) */,
    /* #f */
    0x0000300e    /*   0 (PRE-CALL 3) */,
    SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2722]) + 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!.3cd81f80> */,
    0x000000a3    /*   9 (VALUES-RET 0) */,
    /* %toplevel */
    0x00000006    /*   0 (CONST-PUSH) */,
    SCM_WORD(SCM_UNDEFINED) /* r7rs */,
    0x00000016    /*   2 (CLOSURE) */,
    SCM_WORD(SCM_OBJ(&scm__rc.d1569[81])) /* #<compiled-code #f@0x7fc33d027e40> */,
    0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
    SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3cd7c1c0> */,
    0x00000014    /*   6 (RET) */,
  },
  {   /* ScmPair d1563 */
       { SCM_NIL, SCM_NIL },
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(54U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[2])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[3])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[5])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])},
       { SCM_OBJ(&scm__rc.d1563[7]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[4]), SCM_OBJ(&scm__rc.d1563[8])},
       { SCM_MAKE_INT(55U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[10])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[11])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[13])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[14])},
       { SCM_OBJ(&scm__rc.d1563[15]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[12]), SCM_OBJ(&scm__rc.d1563[16])},
       { SCM_MAKE_INT(56U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[18])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[19])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[21])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[22])},
       { SCM_OBJ(&scm__rc.d1563[23]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[20]), SCM_OBJ(&scm__rc.d1563[24])},
       { SCM_MAKE_INT(59U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[26])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[27])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[29])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])},
       { SCM_OBJ(&scm__rc.d1563[31]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[28]), SCM_OBJ(&scm__rc.d1563[32])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[34])},
       { SCM_MAKE_INT(67U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[36])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[37])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[39])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[40])},
       { SCM_OBJ(&scm__rc.d1563[41]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[38]), SCM_OBJ(&scm__rc.d1563[42])},
       { SCM_MAKE_INT(75U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[44])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[45])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
       { SCM_OBJ(&scm__rc.d1563[49]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[46]), SCM_OBJ(&scm__rc.d1563[50])},
       { SCM_MAKE_INT(85U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[52])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[53])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[55])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[56])},
       { SCM_OBJ(&scm__rc.d1563[57]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[54]), SCM_OBJ(&scm__rc.d1563[58])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[60])},
       { SCM_MAKE_INT(93U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[62])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[63])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[65])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[66])},
       { SCM_OBJ(&scm__rc.d1563[67]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[64]), SCM_OBJ(&scm__rc.d1563[68])},
       { SCM_MAKE_INT(95U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[70])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[71])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[73])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[74])},
       { SCM_OBJ(&scm__rc.d1563[75]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[72]), SCM_OBJ(&scm__rc.d1563[76])},
       { SCM_MAKE_INT(97U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[78])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[79])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[81])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[82])},
       { SCM_OBJ(&scm__rc.d1563[83]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[80]), SCM_OBJ(&scm__rc.d1563[84])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(112U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[87])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[88])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[90])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[91])},
       { SCM_OBJ(&scm__rc.d1563[92]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[89]), SCM_OBJ(&scm__rc.d1563[93])},
       { SCM_MAKE_INT(113U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[95])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[96])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[98])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[99])},
       { SCM_OBJ(&scm__rc.d1563[100]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[97]), SCM_OBJ(&scm__rc.d1563[101])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[103])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[104])},
       { SCM_MAKE_INT(115U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[106])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[107])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[109])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[110])},
       { SCM_OBJ(&scm__rc.d1563[111]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[108]), SCM_OBJ(&scm__rc.d1563[112])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[114])},
       { SCM_MAKE_INT(124U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[116])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[117])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[119])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[120])},
       { SCM_OBJ(&scm__rc.d1563[121]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[118]), SCM_OBJ(&scm__rc.d1563[122])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[124])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[125])},
       { SCM_MAKE_INT(126U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[127])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[128])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[130])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[131])},
       { SCM_OBJ(&scm__rc.d1563[132]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[129]), SCM_OBJ(&scm__rc.d1563[133])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[135])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[136])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[137])},
       { SCM_MAKE_INT(128U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[139])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[140])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[142])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[143])},
       { SCM_OBJ(&scm__rc.d1563[144]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[141]), SCM_OBJ(&scm__rc.d1563[145])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[147])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[148])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[149])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[150])},
       { SCM_MAKE_INT(131U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[152])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[153])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[155])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[156])},
       { SCM_OBJ(&scm__rc.d1563[157]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[154]), SCM_OBJ(&scm__rc.d1563[158])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[160])},
       { SCM_MAKE_INT(134U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[162])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[163])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[165])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[166])},
       { SCM_OBJ(&scm__rc.d1563[167]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[164]), SCM_OBJ(&scm__rc.d1563[168])},
       { SCM_MAKE_INT(136U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[170])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[171])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[173])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[174])},
       { SCM_OBJ(&scm__rc.d1563[175]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[172]), SCM_OBJ(&scm__rc.d1563[176])},
       { SCM_MAKE_INT(140U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[178])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[179])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[181])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[182])},
       { SCM_OBJ(&scm__rc.d1563[183]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[180]), SCM_OBJ(&scm__rc.d1563[184])},
       { SCM_MAKE_INT(147U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[186])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[187])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[189])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[190])},
       { SCM_OBJ(&scm__rc.d1563[191]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[188]), SCM_OBJ(&scm__rc.d1563[192])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])},
       { SCM_MAKE_INT(155U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[196])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[197])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[199])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[200])},
       { SCM_OBJ(&scm__rc.d1563[201]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[198]), SCM_OBJ(&scm__rc.d1563[202])},
       { SCM_MAKE_INT(165U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[204])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[205])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[207])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[208])},
       { SCM_OBJ(&scm__rc.d1563[209]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[210])},
       { SCM_MAKE_INT(166U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[212])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[213])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[215])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[216])},
       { SCM_OBJ(&scm__rc.d1563[217]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[214]), SCM_OBJ(&scm__rc.d1563[218])},
       { SCM_MAKE_INT(168U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[220])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[221])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[223])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[224])},
       { SCM_OBJ(&scm__rc.d1563[225]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[222]), SCM_OBJ(&scm__rc.d1563[226])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(197U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[229])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[230])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[232])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])},
       { SCM_OBJ(&scm__rc.d1563[234]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[231]), SCM_OBJ(&scm__rc.d1563[235])},
       { SCM_MAKE_INT(224U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[237])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[238])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[240])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[241])},
       { SCM_OBJ(&scm__rc.d1563[242]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[239]), SCM_OBJ(&scm__rc.d1563[243])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(273U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[246])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[247])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[249])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[250])},
       { SCM_OBJ(&scm__rc.d1563[251]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[248]), SCM_OBJ(&scm__rc.d1563[252])},
       { SCM_MAKE_INT(292U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[254])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[255])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[257])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[258])},
       { SCM_OBJ(&scm__rc.d1563[259]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[260])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[262])},
       { SCM_MAKE_INT(342U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[264])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[265])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[267])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[268])},
       { SCM_OBJ(&scm__rc.d1563[269]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[266]), SCM_OBJ(&scm__rc.d1563[270])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[262])},
       { SCM_MAKE_INT(367U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[273])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[274])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[276])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[277])},
       { SCM_OBJ(&scm__rc.d1563[278]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[275]), SCM_OBJ(&scm__rc.d1563[279])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(390U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[282])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[283])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[285])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[286])},
       { SCM_OBJ(&scm__rc.d1563[287]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[284]), SCM_OBJ(&scm__rc.d1563[288])},
       { SCM_MAKE_INT(396U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[290])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[291])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[293])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[294])},
       { SCM_OBJ(&scm__rc.d1563[295]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[292]), SCM_OBJ(&scm__rc.d1563[296])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(401U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[299])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[300])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[302])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[303])},
       { SCM_OBJ(&scm__rc.d1563[304]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[301]), SCM_OBJ(&scm__rc.d1563[305])},
       { SCM_MAKE_INT(404U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[307])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[308])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[310])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[311])},
       { SCM_OBJ(&scm__rc.d1563[312]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[309]), SCM_OBJ(&scm__rc.d1563[313])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(407U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[316])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[317])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[319])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[320])},
       { SCM_OBJ(&scm__rc.d1563[321]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[318]), SCM_OBJ(&scm__rc.d1563[322])},
       { SCM_MAKE_INT(413U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[324])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[325])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[327])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[328])},
       { SCM_OBJ(&scm__rc.d1563[329]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[326]), SCM_OBJ(&scm__rc.d1563[330])},
       { SCM_MAKE_INT(421U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[332])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[333])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[335])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[336])},
       { SCM_OBJ(&scm__rc.d1563[337]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[334]), SCM_OBJ(&scm__rc.d1563[338])},
       { SCM_MAKE_INT(423U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[340])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[341])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[343])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[344])},
       { SCM_OBJ(&scm__rc.d1563[345]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[342]), SCM_OBJ(&scm__rc.d1563[346])},
       { SCM_MAKE_INT(426U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[348])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[349])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[351])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[352])},
       { SCM_OBJ(&scm__rc.d1563[353]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[350]), SCM_OBJ(&scm__rc.d1563[354])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[356])},
       { SCM_MAKE_INT(428U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[358])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[359])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[361])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[362])},
       { SCM_OBJ(&scm__rc.d1563[363]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[360]), SCM_OBJ(&scm__rc.d1563[364])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[366])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[367])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[368])},
       { SCM_MAKE_INT(439U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[370])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[371])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[373])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[374])},
       { SCM_OBJ(&scm__rc.d1563[375]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[372]), SCM_OBJ(&scm__rc.d1563[376])},
       { SCM_MAKE_INT(444U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[378])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[379])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[381]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[380]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(447U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[385])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[386])},
       { SCM_OBJ(&scm__rc.d1563[387]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(460U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[390])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[391])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[393])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[394])},
       { SCM_OBJ(&scm__rc.d1563[395]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[392]), SCM_OBJ(&scm__rc.d1563[396])},
       { SCM_MAKE_INT(466U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[398])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[399])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[401])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[402])},
       { SCM_OBJ(&scm__rc.d1563[403]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[400]), SCM_OBJ(&scm__rc.d1563[404])},
       { SCM_MAKE_INT(493U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[406])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[407])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[409])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[410])},
       { SCM_OBJ(&scm__rc.d1563[411]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[408]), SCM_OBJ(&scm__rc.d1563[412])},
       { SCM_MAKE_INT(501U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[414])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[415])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[417])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[418])},
       { SCM_OBJ(&scm__rc.d1563[419]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[416]), SCM_OBJ(&scm__rc.d1563[420])},
       { SCM_MAKE_INT(504U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[422])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[423])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[425])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[426])},
       { SCM_OBJ(&scm__rc.d1563[427]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[424]), SCM_OBJ(&scm__rc.d1563[428])},
       { SCM_FALSE, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(510U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[434])},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[436])},
       { SCM_MAKE_INT(509U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[438])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[439])},
       { SCM_OBJ(&scm__rc.d1563[440]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(521U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[446])},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[448])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[449])},
       { SCM_MAKE_INT(515U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[451])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[452])},
       { SCM_OBJ(&scm__rc.d1563[453]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_MAKE_INT(543U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[457])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[458])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[460])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[461])},
       { SCM_OBJ(&scm__rc.d1563[462]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[459]), SCM_OBJ(&scm__rc.d1563[463])},
       { SCM_MAKE_INT(546U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[465])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[466])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[468])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[469])},
       { SCM_OBJ(&scm__rc.d1563[470]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[467]), SCM_OBJ(&scm__rc.d1563[471])},
       { SCM_MAKE_INT(552U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[473])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[474])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[476])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[477])},
       { SCM_OBJ(&scm__rc.d1563[478]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[475]), SCM_OBJ(&scm__rc.d1563[479])},
       { SCM_MAKE_INT(557U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[481])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[482])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[484])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[485])},
       { SCM_OBJ(&scm__rc.d1563[486]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[483]), SCM_OBJ(&scm__rc.d1563[487])},
       { SCM_MAKE_INT(560U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[489])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[490])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[492])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[493])},
       { SCM_OBJ(&scm__rc.d1563[494]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[491]), SCM_OBJ(&scm__rc.d1563[495])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[497])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[498])},
       { SCM_OBJ(&scm__rc.d1563[499]), SCM_NIL},
       { SCM_MAKE_INT(568U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[501])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[502])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[504])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[505])},
       { SCM_OBJ(&scm__rc.d1563[506]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[503]), SCM_OBJ(&scm__rc.d1563[507])},
       { SCM_MAKE_INT(573U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[509])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[510])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[512])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[513])},
       { SCM_OBJ(&scm__rc.d1563[514]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[511]), SCM_OBJ(&scm__rc.d1563[515])},
       { SCM_MAKE_INT(580U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[517])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[518])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[520])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[521])},
       { SCM_OBJ(&scm__rc.d1563[522]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[519]), SCM_OBJ(&scm__rc.d1563[523])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[525])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[526])},
       { SCM_MAKE_INT(586U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[528])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[529])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[531])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[532])},
       { SCM_OBJ(&scm__rc.d1563[533]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[530]), SCM_OBJ(&scm__rc.d1563[534])},
       { SCM_OBJ(&scm__rc.d1563[39]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[536])},
       { SCM_OBJ(&scm__rc.d1563[537]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[538])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[539])},
       { SCM_TRUE, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[541])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[542])},
       { SCM_OBJ(&scm__rc.d1563[543]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[544])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[545])},
       { SCM_MAKE_INT(0), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[547])},
       { SCM_OBJ(&scm__rc.d1563[548]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[550])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[551])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[553])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[556])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[548])},
       { SCM_OBJ(&scm__rc.d1563[554]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[497]), SCM_OBJ(&scm__rc.d1563[559])},
       { SCM_OBJ(&scm__rc.d1563[558]), SCM_OBJ(&scm__rc.d1563[560])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[561])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[553])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[563])},
       { SCM_MAKE_INT(1U), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[565])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[566])},
       { SCM_OBJ(&scm__rc.d1563[567]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[568])},
       { SCM_OBJ(&scm__rc.d1563[569]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[564]), SCM_OBJ(&scm__rc.d1563[570])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[571])},
       { SCM_OBJ(&scm__rc.d1563[572]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[562]), SCM_OBJ(&scm__rc.d1563[573])},
       { SCM_OBJ(&scm__rc.d1563[557]), SCM_OBJ(&scm__rc.d1563[574])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[575])},
       { SCM_OBJ(&scm__rc.d1563[576]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[555]), SCM_OBJ(&scm__rc.d1563[577])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[578])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[579])},
       { SCM_OBJ(&scm__rc.d1563[580]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[554]), SCM_OBJ(&scm__rc.d1563[581])},
       { SCM_OBJ(&scm__rc.d1563[552]), SCM_OBJ(&scm__rc.d1563[582])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[583])},
       { SCM_OBJ(&scm__rc.d1563[584]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[549]), SCM_OBJ(&scm__rc.d1563[585])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[586])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[587])},
       { SCM_OBJ(&scm__rc.d1563[588]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[546]), SCM_OBJ(&scm__rc.d1563[589])},
       { SCM_OBJ(&scm__rc.d1563[540]), SCM_OBJ(&scm__rc.d1563[590])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[591])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(595U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[594])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[595])},
       { SCM_OBJ(&scm__rc.d1563[596]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[47]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[599])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[547])},
       { SCM_MAKE_INT(-1), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[602])},
       { SCM_OBJ(&scm__rc.d1563[603]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[601]), SCM_OBJ(&scm__rc.d1563[604])},
       { SCM_OBJ(&scm__rc.d1563[600]), SCM_OBJ(&scm__rc.d1563[605])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[606])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[607])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[609])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[610])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[612])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[613])},
       { SCM_OBJ(&scm__rc.d1563[611]), SCM_OBJ(&scm__rc.d1563[614])},
       { SCM_OBJ(&scm__rc.d1563[615]), SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[616])},
       { SCM_OBJ(&scm__rc.d1563[617]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[608]), SCM_OBJ(&scm__rc.d1563[618])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[619])},
       { SCM_MAKE_INT(607U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[621])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[622])},
       { SCM_OBJ(&scm__rc.d1563[623]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_MAKE_INT(32U), SCM_NIL},
       { SCM_MAKE_INT(9U), SCM_OBJ(&scm__rc.d1563[628])},
       { SCM_OBJ(&scm__rc.d1563[629]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[630])},
       { SCM_OBJ(&scm__rc.d1563[631]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[632])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[633])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[636]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[635]), SCM_OBJ(&scm__rc.d1563[637])},
       { SCM_OBJ(&scm__rc.d1563[634]), SCM_OBJ(&scm__rc.d1563[638])},
       { SCM_MAKE_INT(13U), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[640])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[641])},
       { SCM_MAKE_INT(10U), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[627]), SCM_OBJ(&scm__rc.d1563[643])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[644])},
       { SCM_OBJ(&scm__rc.d1563[645]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[626]), SCM_OBJ(&scm__rc.d1563[646])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[647])},
       { SCM_OBJ(&scm__rc.d1563[635]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[648]), SCM_OBJ(&scm__rc.d1563[649])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[650])},
       { SCM_OBJ(&scm__rc.d1563[651]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[635]), SCM_OBJ(&scm__rc.d1563[652])},
       { SCM_OBJ(&scm__rc.d1563[642]), SCM_OBJ(&scm__rc.d1563[653])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[643])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[655])},
       { SCM_OBJ(&scm__rc.d1563[656]), SCM_OBJ(&scm__rc.d1563[649])},
       { SCM_OBJ(&scm__rc.d1563[657]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[654]), SCM_OBJ(&scm__rc.d1563[658])},
       { SCM_OBJ(&scm__rc.d1563[639]), SCM_OBJ(&scm__rc.d1563[659])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[660])},
       { SCM_OBJ(&scm__rc.d1563[661]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[627]), SCM_OBJ(&scm__rc.d1563[662])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[663])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[664])},
       { SCM_OBJ(&scm__rc.d1563[665]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[626]), SCM_OBJ(&scm__rc.d1563[666])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[667])},
       { SCM_OBJ(&scm__rc.d1563[668]), SCM_NIL},
       { SCM_NIL, SCM_OBJ(&scm__rc.d1563[669])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[670])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[671])},
       { SCM_OBJ(&scm__rc.d1563[672]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[539]), SCM_OBJ(&scm__rc.d1563[673])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[674])},
       { SCM_MAKE_INT(624U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[676])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[677])},
       { SCM_OBJ(&scm__rc.d1563[678]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
       { SCM_MAKE_INT(637U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[682])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[683])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[685])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[686])},
       { SCM_OBJ(&scm__rc.d1563[687]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[684]), SCM_OBJ(&scm__rc.d1563[688])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
       { SCM_MAKE_INT(652U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[691])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[692])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[694])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[695])},
       { SCM_OBJ(&scm__rc.d1563[696]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[693]), SCM_OBJ(&scm__rc.d1563[697])},
       { SCM_MAKE_INT(656U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[699])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[700])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[702])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[703])},
       { SCM_OBJ(&scm__rc.d1563[704]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[701]), SCM_OBJ(&scm__rc.d1563[705])},
       { SCM_MAKE_INT(664U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[707])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[708])},
       { SCM_OBJ(&scm__rc.d1563[709]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_MAKE_INT(671U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[713])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[714])},
       { SCM_OBJ(&scm__rc.d1563[715]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_MAKE_INT(669U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[719])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[720])},
       { SCM_OBJ(&scm__rc.d1563[721]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[724])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(678U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[727])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[728])},
       { SCM_OBJ(&scm__rc.d1563[729]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1569[17]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(679U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[734])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[735])},
       { SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[739])},
       { SCM_MAKE_INT(682U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[741])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[742])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[744])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[745])},
       { SCM_OBJ(&scm__rc.d1563[746]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[743]), SCM_OBJ(&scm__rc.d1563[747])},
       { SCM_MAKE_INT(688U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[749])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[750])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[752])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[753])},
       { SCM_OBJ(&scm__rc.d1563[754]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[751]), SCM_OBJ(&scm__rc.d1563[755])},
       { SCM_MAKE_INT(690U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[757])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[758])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[760])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[761])},
       { SCM_OBJ(&scm__rc.d1563[762]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[759]), SCM_OBJ(&scm__rc.d1563[763])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[765])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[766])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[767])},
       { SCM_MAKE_INT(696U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[769])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[770])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[772])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[773])},
       { SCM_OBJ(&scm__rc.d1563[774]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[771]), SCM_OBJ(&scm__rc.d1563[775])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(699U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[778])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[779])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[781])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[782])},
       { SCM_OBJ(&scm__rc.d1563[783]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[780]), SCM_OBJ(&scm__rc.d1563[784])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[786])},
       { SCM_MAKE_INT(702U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[788])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[789])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[791])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[792])},
       { SCM_OBJ(&scm__rc.d1563[793]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[790]), SCM_OBJ(&scm__rc.d1563[794])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[796])},
       { SCM_MAKE_INT(713U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[798])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[799])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[801])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[802])},
       { SCM_OBJ(&scm__rc.d1563[803]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[800]), SCM_OBJ(&scm__rc.d1563[804])},
       { SCM_MAKE_INT(721U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[806])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[807])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[809])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[810])},
       { SCM_OBJ(&scm__rc.d1563[811]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[808]), SCM_OBJ(&scm__rc.d1563[812])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(723U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[815])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[816])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[818])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[819])},
       { SCM_OBJ(&scm__rc.d1563[820]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[817]), SCM_OBJ(&scm__rc.d1563[821])},
       { SCM_MAKE_INT(726U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[823])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[824])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[826])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[827])},
       { SCM_OBJ(&scm__rc.d1563[828]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[825]), SCM_OBJ(&scm__rc.d1563[829])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[831])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[832])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[833])},
       { SCM_MAKE_INT(769U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[835])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[836])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[838])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[839])},
       { SCM_OBJ(&scm__rc.d1563[840]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[837]), SCM_OBJ(&scm__rc.d1563[841])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
       { SCM_MAKE_INT(775U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[844])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[845])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[847])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[848])},
       { SCM_OBJ(&scm__rc.d1563[849]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[846]), SCM_OBJ(&scm__rc.d1563[850])},
       { SCM_MAKE_INT(780U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[852])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[853])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[855])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[856])},
       { SCM_OBJ(&scm__rc.d1563[857]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[854]), SCM_OBJ(&scm__rc.d1563[858])},
       { SCM_MAKE_INT(786U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[860])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[861])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[863])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[864])},
       { SCM_OBJ(&scm__rc.d1563[865]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[862]), SCM_OBJ(&scm__rc.d1563[866])},
       { SCM_MAKE_INT(792U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[868])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[869])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[871])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[872])},
       { SCM_OBJ(&scm__rc.d1563[873]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[870]), SCM_OBJ(&scm__rc.d1563[874])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
       { SCM_MAKE_INT(796U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[877])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[878])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[880])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[881])},
       { SCM_OBJ(&scm__rc.d1563[882]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[879]), SCM_OBJ(&scm__rc.d1563[883])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
       { SCM_MAKE_INT(802U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[886])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[887])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[889])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[890])},
       { SCM_OBJ(&scm__rc.d1563[891]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[888]), SCM_OBJ(&scm__rc.d1563[892])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[894])},
       { SCM_MAKE_INT(812U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[896])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[897])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[899])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[900])},
       { SCM_OBJ(&scm__rc.d1563[901]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[898]), SCM_OBJ(&scm__rc.d1563[902])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[298])},
       { SCM_MAKE_INT(818U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[905])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[906])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[908])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[909])},
       { SCM_OBJ(&scm__rc.d1563[910]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[907]), SCM_OBJ(&scm__rc.d1563[911])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[913])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[914])},
       { SCM_OBJ(&scm__rc.d1563[915]), SCM_NIL},
       { SCM_MAKE_INT(828U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[917])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[918])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[920])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[921])},
       { SCM_OBJ(&scm__rc.d1563[922]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[919]), SCM_OBJ(&scm__rc.d1563[923])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
       { SCM_MAKE_INT(836U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[926])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[927])},
       { SCM_OBJ(&scm__rc.d1563[928]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[931])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(843U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[934])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[935])},
       { SCM_OBJ(&scm__rc.d1563[936]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1569[26]), SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[940])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[941])},
       { SCM_MAKE_INT(840U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[943])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[944])},
       { SCM_OBJ(&scm__rc.d1563[945]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[600]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[948])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[949])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[925])},
       { SCM_OBJ(&scm__rc.d1563[951]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[950]), SCM_OBJ(&scm__rc.d1563[952])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[953])},
       { SCM_MAKE_INT(866U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[955])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[956])},
       { SCM_OBJ(&scm__rc.d1563[957]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(870U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[960])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[961])},
       { SCM_OBJ(&scm__rc.d1563[962]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[965])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[966])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[967])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[968])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[969])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[970])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[971])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[972])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[973])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[974])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[975])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[976])},
       { SCM_MAKE_INT(925U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[978])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[979])},
       { SCM_OBJ(&scm__rc.d1563[980]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[977])},
       { SCM_MAKE_INT(943U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[984])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[985])},
       { SCM_OBJ(&scm__rc.d1563[986]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_MAKE_INT(984U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[990])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[991])},
       { SCM_OBJ(&scm__rc.d1563[992]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(993U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[995])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[996])},
       { SCM_OBJ(&scm__rc.d1563[997]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1001U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1003])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[786])},
       { SCM_MAKE_INT(1000U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1006])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1007])},
       { SCM_OBJ(&scm__rc.d1563[1008]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1008U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1014])},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1016])},
       { SCM_MAKE_INT(1006U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1018])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1019])},
       { SCM_OBJ(&scm__rc.d1563[1020]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1013U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1026])},
       { SCM_MAKE_INT(1011U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1028])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1029])},
       { SCM_OBJ(&scm__rc.d1563[1030]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1019U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1036])},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1038])},
       { SCM_MAKE_INT(1016U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1040])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1041])},
       { SCM_OBJ(&scm__rc.d1563[1042]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1025U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1048])},
       { SCM_MAKE_INT(1022U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1050])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1051])},
       { SCM_OBJ(&scm__rc.d1563[1052]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1029U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1056])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1057])},
       { SCM_OBJ(&scm__rc.d1563[1058]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1055])},
       { SCM_MAKE_INT(1034U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1062])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1063])},
       { SCM_OBJ(&scm__rc.d1563[1064]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1037U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1067])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1068])},
       { SCM_OBJ(&scm__rc.d1563[1069]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[786])},
       { SCM_MAKE_INT(1042U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1073])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1074])},
       { SCM_OBJ(&scm__rc.d1563[1075]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1045U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1078])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1079])},
       { SCM_OBJ(&scm__rc.d1563[1080]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_MAKE_INT(1052U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1084])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1085])},
       { SCM_OBJ(&scm__rc.d1563[1086]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1051U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1089])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1090])},
       { SCM_OBJ(&scm__rc.d1563[1091]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[838])},
       { SCM_OBJ(&scm__rc.d1563[1094]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1095])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1096])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1098])},
       { SCM_OBJ(&scm__rc.d1563[1099]), SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1100])},
       { SCM_OBJ(&scm__rc.d1563[1101]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[1097]), SCM_OBJ(&scm__rc.d1563[1102])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1103])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
       { SCM_MAKE_INT(1055U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1106])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1107])},
       { SCM_OBJ(&scm__rc.d1563[1108]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1054U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1111])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1112])},
       { SCM_OBJ(&scm__rc.d1563[1113]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_UNDEFINED},
       { SCM_MAKE_INT(1057U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1117])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1118])},
       { SCM_OBJ(&scm__rc.d1563[1119]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1122])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1055])},
       { SCM_MAKE_INT(1077U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1127])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1128])},
       { SCM_OBJ(&scm__rc.d1563[1129]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1132])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1080U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1136])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1137])},
       { SCM_OBJ(&scm__rc.d1563[1138]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1141])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1083U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1145])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1146])},
       { SCM_OBJ(&scm__rc.d1563[1147]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1150])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1055])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1154])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1155])},
       { SCM_MAKE_INT(1086U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1157])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1158])},
       { SCM_OBJ(&scm__rc.d1563[1159]), SCM_OBJ(&scm__rc.d1563[382])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[796])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1162])},
       { SCM_MAKE_INT(1097U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1164])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1165])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1163])},
       { SCM_OBJ(&scm__rc.d1563[1167]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[1166]), SCM_OBJ(&scm__rc.d1563[1168])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1104U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1171])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1172])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[796])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1174])},
       { SCM_OBJ(&scm__rc.d1563[1175]), SCM_NIL},
       { SCM_OBJ(&scm__rc.d1563[1173]), SCM_OBJ(&scm__rc.d1563[1176])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1109U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1179])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1180])},
       { SCM_OBJ(&scm__rc.d1563[1181]), SCM_OBJ(&scm__rc.d1563[1176])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1114U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1184])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1185])},
       { SCM_OBJ(&scm__rc.d1563[1186]), SCM_OBJ(&scm__rc.d1563[1176])},
       { SCM_UNDEFINED, SCM_NIL},
       { SCM_MAKE_INT(1119U), SCM_NIL},
       { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1189])},
       { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1190])},
       { SCM_OBJ(&scm__rc.d1563[1191]), SCM_OBJ(&scm__rc.d1563[1176])},
       { SCM_UNDEFINED, SCM_NIL},
  },
  {   /* ScmObj d1562 */
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    SCM_UNBOUND,
    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];
  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];
  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];
  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;
  }
  newport = (newport_scm);
  {
{
ScmObj SCM_RESULT;

#line 68 "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;
  }
  newport = (newport_scm);
  {
{
ScmObj SCM_RESULT;

#line 76 "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;
  }
  newport = (newport_scm);
  {
{
ScmObj SCM_RESULT;

#line 86 "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 94 "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 96 "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 98 "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 116 "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];
  key = (key_scm);
  val_scm = SCM_SUBRARGS[2];
  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];
  key = (key_scm);
  if (SCM_ARGCNT > 2+1) {
    fallback_scm = SCM_SUBRARGS[2];
  } else {
    fallback_scm = SCM_UNBOUND;
  }
  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_createX(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 get_scm;
  ScmObj get;
  ScmObj set_scm;
  ScmObj set;
  ScmObj SCM_SUBRARGS[6];
  SCM_ENTER_SUBR("port-attribute-create!");
  if (SCM_ARGCNT >= 5
      && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
    Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
  for (int SCM_i=0; SCM_i<6; 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];
  key = (key_scm);
  if (SCM_ARGCNT > 2+1) {
    get_scm = SCM_SUBRARGS[2];
  } else {
    get_scm = SCM_FALSE;
  }
  get = (get_scm);
  if (SCM_ARGCNT > 3+1) {
    set_scm = SCM_SUBRARGS[3];
  } else {
    set_scm = SCM_FALSE;
  }
  set = (set_scm);
  {
{
ScmObj SCM_RESULT;
{SCM_RESULT=(Scm_PortAttrCreate(port,key,get,set));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];
  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 141 "libio.scm"
switch (SCM_PORT_TYPE(port)) {
case SCM_PORT_FILE : {{SCM_RESULT=(scm__rc.d1562[55]);goto SCM_STUB_RETURN;}break;}
case SCM_PORT_PROC : {{SCM_RESULT=(scm__rc.d1562[56]);goto SCM_STUB_RETURN;}break;}
case SCM_PORT_OSTR : case SCM_PORT_ISTR : {{SCM_RESULT=(scm__rc.d1562[57]);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];
  mode = (mode_scm);
  {

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

#line 151 "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 153 "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 156 "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.d1562[71];
  ScmObj if_does_not_exist;
  ScmObj buffering_scm = SCM_FALSE;
  ScmObj buffering;
  ScmObj element_type_scm = scm__rc.d1562[74];
  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.d1562[72])) {
      if_does_not_exist_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[73])) {
      buffering_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[75])) {
      element_type_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  if_does_not_exist = (if_does_not_exist_scm);
  buffering = (buffering_scm);
  element_type = (element_type_scm);
  {
{
ScmObj SCM_RESULT;

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

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

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

#line 215 "libio.scm"
{int bufmode=Scm_BufferingMode(buffering,SCM_PORT_INPUT,SCM_PORT_BUFFER_FULL);ScmObj o=
#line 217 "libio.scm"
Scm_OpenFilePort(Scm_GetStringConst(path),flags,bufmode,0);
#line 219 "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.d1562[81];
  ScmObj if_exists;
  ScmObj if_does_not_exist_scm = scm__rc.d1562[83];
  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.d1562[74];
  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.d1562[82])) {
      if_exists_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[72])) {
      if_does_not_exist_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[84])) {
      mode_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[73])) {
      buffering_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[75])) {
      element_type_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  if_exists = (if_exists_scm);
  if_does_not_exist = (if_does_not_exist_scm);
  if (!SCM_INTP(mode_scm)) Scm_Error("small integer required, but got %S", mode_scm);
  mode = SCM_INT_VALUE(mode_scm);
  buffering = (buffering_scm);
  element_type = (element_type_scm);
  {
{
ScmObj SCM_RESULT;

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

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

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

#line 242 "libio.scm"
if (
SCM_EQ(if_exists,scm__rc.d1562[86])){(flags)|=(O_APPEND);}else if(
SCM_EQ(if_exists,scm__rc.d1562[71])){
(flags)|=(O_EXCL);
if (SCM_EQ(if_does_not_exist,scm__rc.d1562[71])){{
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.d1562[81])){(flags)|=(O_TRUNC);}else if(
SCM_EQ(if_exists,scm__rc.d1562[85])){}else if(
SCM_FALSEP(if_exists)){(flags)|=(O_EXCL);ignerr_exist=(TRUE);} else {
#line 252 "libio.scm"
Scm_TypeError(":if-exists",":supersede, :overwrite, :append, :error or #f",if_exists);}
#line 254 "libio.scm"
if (
SCM_EQ(if_does_not_exist,scm__rc.d1562[83])){(flags)|=(O_CREAT);}else if(
SCM_FALSEP(if_does_not_exist)){ignerr_noexist=(TRUE);}else if(
SCM_EQ(if_does_not_exist,scm__rc.d1562[71])){} else {
Scm_TypeError(":if-does-not-exist",":error, :create or #f",if_does_not_exist);}
#line 260 "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 264 "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("small integer 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.d1562[73])) {
      buffering_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[89])) {
      ownerP_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[90])) {
      name_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  buffering = (buffering_scm);
  ownerP = (ownerP_scm);
  name = (name_scm);
  {
{
ScmObj SCM_RESULT;

#line 277 "libio.scm"
{int bufmode=Scm_BufferingMode(buffering,SCM_PORT_INPUT,SCM_PORT_BUFFER_FULL);
#line 279 "libio.scm"
if ((fd)<(0)){{Scm_Error("bad file descriptor: %ld",fd);}}
if (
SCM_EQ(ownerP,scm__rc.d1562[91])){
{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 289 "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("small integer 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.d1562[73])) {
      buffering_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[89])) {
      ownerP_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[90])) {
      name_scm = SCM_CADR(SCM_OPTARGS);
    }
    else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
    SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
  }
  buffering = (buffering_scm);
  ownerP = (ownerP_scm);
  name = (name_scm);
  {
{
ScmObj SCM_RESULT;

#line 296 "libio.scm"
{int bufmode=Scm_BufferingMode(buffering,SCM_PORT_OUTPUT,SCM_PORT_BUFFER_FULL);
#line 298 "libio.scm"
if ((fd)<(0)){{Scm_Error("bad file descriptor: %d",fd);}}
if (
SCM_EQ(ownerP,scm__rc.d1562[91])){
{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 308 "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 317 "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 326 "libio.scm"
Scm_ApplyRec1(scmflusher,SCM_FALSE);}}}}}
static ScmSize bufport_filler(ScmPort* p,ScmSize cnt){{
#line 329 "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("small integer required, but got %S", buffer_size_scm);
  buffer_size = SCM_INT_VALUE(buffer_size_scm);
  {
{
ScmObj SCM_RESULT;

#line 343 "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 forcep){{
#line 358 "libio.scm"
((void )(forcep));
{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("small integer required, but got %S", buffer_size_scm);
  buffer_size = SCM_INT_VALUE(buffer_size_scm);
  {
{
ScmObj SCM_RESULT;

#line 368 "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.d1561[76]);
  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.d1562[104])) {
      privateP_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[90])) {
      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);
  name = (name_scm);
  {
{
ScmObj SCM_RESULT;

#line 393 "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.d1561[78]);
  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.d1562[104])) {
      privateP_scm = SCM_CADR(SCM_OPTARGS);
    } else 
    if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[90])) {
      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);
  name = (name_scm);
  {
{
ScmObj SCM_RESULT;

#line 398 "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 402 "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 405 "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 408 "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 422 "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 424 "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 427 "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];
  pos = (pos_scm);
  {
{
ScmObj SCM_RESULT;

#line 429 "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("small integer 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 462 "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 468 "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* klass,ScmObj initargs){{
#line 475 "libio.scm"
((void )(klass));
((void )(initargs));
return (SCM_OBJ(Scm_MakeWriteState(NULL)));}}
static void write_state_print(ScmObj obj,ScmPort* port,ScmWriteContext* ctx){{
#line 481 "libio.scm"
((void )(ctx));
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_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];
  obj = (obj_scm);
  {

#line 495 "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 498 "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 502 "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 505 "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 544 "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 548 "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 554 "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];
  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 566 "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 574 "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 581 "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;
  }
  allowbytestr = (allowbytestr_scm);
  {
{
ScmObj SCM_RESULT;

#line 588 "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("small integer 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 639 "libio.scm"
if ((bytes)<(0)){{
Scm_Error("bytes must be non-negative integer: %ld",bytes);}}

#line 641 "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 647 "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);
  }
  port = (port_scm);
  {
{
ScmObj SCM_RESULT;

#line 654 "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 657 "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;
  }
  k = (k_scm);
  {
{
ScmObj SCM_RESULT;

#line 683 "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];
  symbol = (symbol_scm);
  proc_scm = SCM_SUBRARGS[1];
  proc = (proc_scm);
  if (SCM_ARGCNT > 2+1) {
    finisher_scm = SCM_SUBRARGS[2];
  } else {
    finisher_scm = SCM_FALSE;
  }
  finisher = (finisher_scm);
  {
{
ScmObj SCM_RESULT;

#line 697 "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];
  symbol = (symbol_scm);
  {
{
ScmObj SCM_RESULT;

#line 700 "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];
  symbol = (symbol_scm);
  proc_scm = SCM_SUBRARGS[1];
  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;
  }
  ctx = (ctx_scm);
  {
{
ScmObj SCM_RESULT;

#line 714 "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];
  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 724 "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 727 "libio.scm"
if (SCM_UNBOUNDP((ref)->value)){{
Scm_Error("read reference hasn't been resolved");}}

#line 729 "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 747 "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 763 "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];
  obj = (obj_scm);
  if (SCM_ARGCNT > 1+1) {
    port_or_control_1_scm = SCM_SUBRARGS[1];
  } else {
    port_or_control_1_scm = SCM_UNBOUND;
  }
  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;
  }
  port_or_control_2 = (port_or_control_2_scm);
  {

#line 771 "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];
  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 778 "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];
  obj = (obj_scm);
  if (SCM_ARGCNT > 1+1) {
    port_or_control_1_scm = SCM_SUBRARGS[1];
  } else {
    port_or_control_1_scm = SCM_UNBOUND;
  }
  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;
  }
  port_or_control_2 = (port_or_control_2_scm);
  {

#line 782 "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];
  obj = (obj_scm);
  if (SCM_ARGCNT > 1+1) {
    port_or_control_1_scm = SCM_SUBRARGS[1];
  } else {
    port_or_control_1_scm = SCM_UNBOUND;
  }
  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;
  }
  port_or_control_2 = (port_or_control_2_scm);
  {

#line 788 "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 793 "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 797 "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("small integer 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 805 "libio.scm"
if (((byte)<(0))||((byte)>(255))){{
Scm_Error("argument out of range: %ld",byte);}}

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

#line 808 "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];
  obj = (obj_scm);
  limit_scm = SCM_SUBRARGS[1];
  if (!SCM_INTP(limit_scm)) Scm_Error("small integer 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);
  }
  port = (port_scm);
  {
{
int SCM_RESULT;

#line 814 "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 821 "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];
  obj = (obj_scm);
  {
{
int SCM_RESULT;

#line 829 "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* klass,ScmObj initargs){{
#line 880 "libio.scm"
((void )(klass));
((void )(initargs));
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.d1569[8])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[9])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[10])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[19])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[21])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[22])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[23])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[24])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[28])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[30])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[74])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[76])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[78])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[80])),
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[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.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* input-port? */
  scm__rc.d1562[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1])),TRUE); /* obj */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[1]);
  scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* source-info */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[4]), scm__rc.d1562[2]);
  scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[4])),TRUE); /* bind-info */
  scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* scheme */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[0]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[3]);
  scm__rc.d1562[5] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[9]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("input-port?")), SCM_OBJ(&libioinput_portP__STUB), 0);
  libioinput_portP__STUB.common.info = scm__rc.d1562[5];
  scm__rc.d1562[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* output-port? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[12]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[13]), scm__rc.d1562[6]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[14]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[15]), scm__rc.d1562[3]);
  scm__rc.d1562[7] = Scm_MakeExtendedPair(scm__rc.d1562[6], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[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.d1562[7];
  scm__rc.d1562[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* port? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[20]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[21]), scm__rc.d1562[8]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[22]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[3]);
  scm__rc.d1562[9] = Scm_MakeExtendedPair(scm__rc.d1562[8], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[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.d1562[9];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[10] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* port-closed? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[28]), scm__rc.d1562[2]);
  scm__rc.d1562[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9])),TRUE); /* gauche */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[29]), scm__rc.d1562[10]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[30]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[31]), scm__rc.d1562[3]);
  scm__rc.d1562[12] = Scm_MakeExtendedPair(scm__rc.d1562[10], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[33]));
  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.d1562[12];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[13] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[10])),TRUE); /* current-input-port */
  scm__rc.d1562[14] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11]))); /* :optional */
  scm__rc.d1562[15] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* newport */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[34]), scm__rc.d1562[15]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[35]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[38]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[39]), scm__rc.d1562[13]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[40]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[41]), scm__rc.d1562[3]);
  scm__rc.d1562[16] = Scm_MakeExtendedPair(scm__rc.d1562[13], SCM_OBJ(&scm__rc.d1563[35]), SCM_OBJ(&scm__rc.d1563[43]));
  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.d1562[16];
  scm__rc.d1562[17] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[13])),TRUE); /* current-output-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[46]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[47]), scm__rc.d1562[17]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[48]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[49]), scm__rc.d1562[3]);
  scm__rc.d1562[18] = Scm_MakeExtendedPair(scm__rc.d1562[17], SCM_OBJ(&scm__rc.d1563[35]), SCM_OBJ(&scm__rc.d1563[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.d1562[18];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[19] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* current-error-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[54]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[55]), scm__rc.d1562[19]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[56]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[57]), scm__rc.d1562[3]);
  scm__rc.d1562[20] = Scm_MakeExtendedPair(scm__rc.d1562[19], SCM_OBJ(&scm__rc.d1563[35]), SCM_OBJ(&scm__rc.d1563[59]));
  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.d1562[20];
  scm__rc.d1562[21] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* standard-input-port */
  scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* p */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[60]), scm__rc.d1562[22]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[61]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[64]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[65]), scm__rc.d1562[21]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[66]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[67]), scm__rc.d1562[3]);
  scm__rc.d1562[23] = Scm_MakeExtendedPair(scm__rc.d1562[21], SCM_OBJ(&scm__rc.d1563[61]), SCM_OBJ(&scm__rc.d1563[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.d1562[23];
  scm__rc.d1562[24] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17])),TRUE); /* standard-output-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[72]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[73]), scm__rc.d1562[24]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[74]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[75]), scm__rc.d1562[3]);
  scm__rc.d1562[25] = Scm_MakeExtendedPair(scm__rc.d1562[24], SCM_OBJ(&scm__rc.d1563[61]), SCM_OBJ(&scm__rc.d1563[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.d1562[25];
  scm__rc.d1562[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* standard-error-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[80]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[81]), scm__rc.d1562[26]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[82]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[83]), scm__rc.d1562[3]);
  scm__rc.d1562[27] = Scm_MakeExtendedPair(scm__rc.d1562[26], SCM_OBJ(&scm__rc.d1563[61]), SCM_OBJ(&scm__rc.d1563[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.d1562[27];

#line 102 "libio.scm"
Scm_BindPrimitiveParameter(Scm_GaucheModule(),"current-trace-port",
#line 104 "libio.scm"
Scm_Stderr(),0);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* port-name */
  scm__rc.d1562[29] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[86]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[89]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[90]), scm__rc.d1562[28]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[91]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[92]), scm__rc.d1562[3]);
  scm__rc.d1562[30] = Scm_MakeExtendedPair(scm__rc.d1562[28], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[94]));
  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.d1562[30];
  scm__rc.d1562[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* port-current-line */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[97]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[98]), scm__rc.d1562[31]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[99]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[100]), scm__rc.d1562[3]);
  scm__rc.d1562[32] = Scm_MakeExtendedPair(scm__rc.d1562[31], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[102]));
  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.d1562[32];
  scm__rc.d1562[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* port-file-number */
  scm__rc.d1562[34] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[23])),TRUE); /* dup? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[103]), scm__rc.d1562[34]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[104]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[105]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[108]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[109]), scm__rc.d1562[33]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[110]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[111]), scm__rc.d1562[3]);
  scm__rc.d1562[35] = Scm_MakeExtendedPair(scm__rc.d1562[33], SCM_OBJ(&scm__rc.d1563[105]), SCM_OBJ(&scm__rc.d1563[113]));
  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.d1562[35];
  scm__rc.d1562[36] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),TRUE); /* port-fd-dup! */
  scm__rc.d1562[37] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* dst */
  scm__rc.d1562[38] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* src */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[114]), scm__rc.d1562[38]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[115]), scm__rc.d1562[37]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[118]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[119]), scm__rc.d1562[36]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[120]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[121]), scm__rc.d1562[3]);
  scm__rc.d1562[39] = Scm_MakeExtendedPair(scm__rc.d1562[36], SCM_OBJ(&scm__rc.d1563[115]), SCM_OBJ(&scm__rc.d1563[123]));
  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.d1562[39];
  scm__rc.d1562[40] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* port-attribute-set! */
  scm__rc.d1562[41] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28])),TRUE); /* key */
  scm__rc.d1562[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),TRUE); /* val */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[124]), scm__rc.d1562[42]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[125]), scm__rc.d1562[41]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[126]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[129]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[130]), scm__rc.d1562[40]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[131]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[132]), scm__rc.d1562[3]);
  scm__rc.d1562[43] = Scm_MakeExtendedPair(scm__rc.d1562[40], SCM_OBJ(&scm__rc.d1563[126]), SCM_OBJ(&scm__rc.d1563[134]));
  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.d1562[43];
  scm__rc.d1562[44] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),TRUE); /* port-attribute-ref */
  scm__rc.d1562[45] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* fallback */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[135]), scm__rc.d1562[45]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[136]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[137]), scm__rc.d1562[41]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[138]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[141]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[142]), scm__rc.d1562[44]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[143]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[144]), scm__rc.d1562[3]);
  scm__rc.d1562[46] = Scm_MakeExtendedPair(scm__rc.d1562[44], SCM_OBJ(&scm__rc.d1563[138]), SCM_OBJ(&scm__rc.d1563[146]));
  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.d1562[46];
  Scm_SetterSet(SCM_PROCEDURE(&libioport_attribute_ref__STUB), SCM_PROCEDURE(&libioport_attribute_setX__STUB), TRUE);
  scm__rc.d1562[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32])),TRUE); /* port-attribute-create! */
  scm__rc.d1562[48] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* get */
  scm__rc.d1562[49] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* set */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[147]), scm__rc.d1562[49]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[148]), scm__rc.d1562[48]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[149]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[150]), scm__rc.d1562[41]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[151]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[154]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[155]), scm__rc.d1562[47]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[156]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[157]), scm__rc.d1562[3]);
  scm__rc.d1562[50] = Scm_MakeExtendedPair(scm__rc.d1562[47], SCM_OBJ(&scm__rc.d1563[151]), SCM_OBJ(&scm__rc.d1563[159]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attribute-create!")), SCM_OBJ(&libioport_attribute_createX__STUB), 0);
  libioport_attribute_createX__STUB.common.info = scm__rc.d1562[50];
  scm__rc.d1562[51] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* port-attribute-delete! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[160]), scm__rc.d1562[41]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[161]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[164]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[165]), scm__rc.d1562[51]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[166]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[167]), scm__rc.d1562[3]);
  scm__rc.d1562[52] = Scm_MakeExtendedPair(scm__rc.d1562[51], SCM_OBJ(&scm__rc.d1563[161]), SCM_OBJ(&scm__rc.d1563[169]));
  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.d1562[52];
  scm__rc.d1562[53] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[36])),TRUE); /* port-attributes */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[172]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[173]), scm__rc.d1562[53]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[174]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[175]), scm__rc.d1562[3]);
  scm__rc.d1562[54] = Scm_MakeExtendedPair(scm__rc.d1562[53], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[177]));
  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.d1562[54];
  scm__rc.d1562[55] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[38])),TRUE); /* file */
  scm__rc.d1562[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[39])),TRUE); /* proc */
  scm__rc.d1562[57] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[40])),TRUE); /* string */
  scm__rc.d1562[58] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[37])),TRUE); /* port-type */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[180]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[181]), scm__rc.d1562[58]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[182]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[183]), scm__rc.d1562[3]);
  scm__rc.d1562[59] = Scm_MakeExtendedPair(scm__rc.d1562[58], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[185]));
  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.d1562[59];
  scm__rc.d1562[60] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[41])),TRUE); /* port-buffering */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[188]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[189]), scm__rc.d1562[60]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[190]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[191]), scm__rc.d1562[3]);
  scm__rc.d1562[61] = Scm_MakeExtendedPair(scm__rc.d1562[60], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[193]));
  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.d1562[61];
  Scm_SetterSet(SCM_PROCEDURE(&libioport_buffering__STUB), SCM_PROCEDURE(&libioport_buffering_SETTER__STUB), TRUE);
  scm__rc.d1562[62] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[43])),TRUE); /* port-case-fold-set! */
  scm__rc.d1562[63] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[44])),TRUE); /* flag */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[194]), scm__rc.d1562[63]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[195]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[198]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[199]), scm__rc.d1562[62]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[200]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[201]), scm__rc.d1562[3]);
  scm__rc.d1562[64] = Scm_MakeExtendedPair(scm__rc.d1562[62], SCM_OBJ(&scm__rc.d1563[195]), SCM_OBJ(&scm__rc.d1563[203]));
  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.d1562[64];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[65] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[45])),TRUE); /* close-input-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[206]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[207]), scm__rc.d1562[65]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[208]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[209]), scm__rc.d1562[3]);
  scm__rc.d1562[66] = Scm_MakeExtendedPair(scm__rc.d1562[65], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[211]));
  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.d1562[66];
  scm__rc.d1562[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[46])),TRUE); /* close-output-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[214]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[215]), scm__rc.d1562[67]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[216]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[217]), scm__rc.d1562[3]);
  scm__rc.d1562[68] = Scm_MakeExtendedPair(scm__rc.d1562[67], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[219]));
  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.d1562[68];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[69] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[47])),TRUE); /* close-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[222]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[223]), scm__rc.d1562[69]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[224]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[225]), scm__rc.d1562[3]);
  scm__rc.d1562[70] = Scm_MakeExtendedPair(scm__rc.d1562[69], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[227]));
  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.d1562[70];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[71] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48]))); /* :error */
  scm__rc.d1562[72] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[49]))); /* :if-does-not-exist */
  scm__rc.d1562[73] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[50]))); /* :buffering */
  scm__rc.d1562[74] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[51]))); /* :binary */
  scm__rc.d1562[75] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[52]))); /* :element-type */
  scm__rc.d1562[76] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[54]))); /* :character */
  scm__rc.d1562[77] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[53])),TRUE); /* %open-input-file */
  scm__rc.d1562[78] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[55])),TRUE); /* path */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[228]), scm__rc.d1562[78]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[231]), scm__rc.d1562[2]);
  scm__rc.d1562[79] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[56])),TRUE); /* gauche.internal */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[232]), scm__rc.d1562[77]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[233]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[234]), scm__rc.d1562[3]);
  scm__rc.d1562[80] = Scm_MakeExtendedPair(scm__rc.d1562[77], SCM_OBJ(&scm__rc.d1563[228]), SCM_OBJ(&scm__rc.d1563[236]));
  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.d1562[80];
  scm__rc.d1562[81] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[57]))); /* :supersede */
  scm__rc.d1562[82] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[58]))); /* :if-exists */
  scm__rc.d1562[83] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[59]))); /* :create */
  scm__rc.d1562[84] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[60]))); /* :mode */
  scm__rc.d1562[85] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[62]))); /* :overwrite */
  scm__rc.d1562[86] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[63]))); /* :append */
  scm__rc.d1562[87] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[61])),TRUE); /* %open-output-file */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[239]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[240]), scm__rc.d1562[87]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[241]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[242]), scm__rc.d1562[3]);
  scm__rc.d1562[88] = Scm_MakeExtendedPair(scm__rc.d1562[87], SCM_OBJ(&scm__rc.d1563[228]), SCM_OBJ(&scm__rc.d1563[244]));
  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.d1562[88];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[89] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[64]))); /* :owner? */
  scm__rc.d1562[90] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[65]))); /* :name */
  scm__rc.d1562[91] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[67])),TRUE); /* dup */
  scm__rc.d1562[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[66])),TRUE); /* open-input-fd-port */
  scm__rc.d1562[93] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[68])),TRUE); /* fd */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[245]), scm__rc.d1562[93]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[248]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[249]), scm__rc.d1562[92]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[250]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[251]), scm__rc.d1562[3]);
  scm__rc.d1562[94] = Scm_MakeExtendedPair(scm__rc.d1562[92], SCM_OBJ(&scm__rc.d1563[245]), SCM_OBJ(&scm__rc.d1563[253]));
  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.d1562[94];
  scm__rc.d1562[95] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[69])),TRUE); /* open-output-fd-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[256]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[257]), scm__rc.d1562[95]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[258]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[259]), scm__rc.d1562[3]);
  scm__rc.d1562[96] = Scm_MakeExtendedPair(scm__rc.d1562[95], SCM_OBJ(&scm__rc.d1563[245]), SCM_OBJ(&scm__rc.d1563[261]));
  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.d1562[96];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[97] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[70])),TRUE); /* open-input-buffered-port */
  scm__rc.d1562[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[71])),TRUE); /* filler */
  scm__rc.d1562[99] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[72])),TRUE); /* buffer-size */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[262]), scm__rc.d1562[99]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[263]), scm__rc.d1562[98]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[266]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[267]), scm__rc.d1562[97]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[268]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[269]), scm__rc.d1562[3]);
  scm__rc.d1562[100] = Scm_MakeExtendedPair(scm__rc.d1562[97], SCM_OBJ(&scm__rc.d1563[263]), SCM_OBJ(&scm__rc.d1563[271]));
  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.d1562[100];
  scm__rc.d1562[101] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[73])),TRUE); /* open-output-buffered-port */
  scm__rc.d1562[102] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[74])),TRUE); /* flusher */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[272]), scm__rc.d1562[102]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[275]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[276]), scm__rc.d1562[101]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[277]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[278]), scm__rc.d1562[3]);
  scm__rc.d1562[103] = Scm_MakeExtendedPair(scm__rc.d1562[101], SCM_OBJ(&scm__rc.d1563[272]), SCM_OBJ(&scm__rc.d1563[280]));
  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.d1562[103];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[104] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[75]))); /* :private? */
  scm__rc.d1562[105] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[77])),TRUE); /* open-input-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[281]), scm__rc.d1562[57]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[284]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[285]), scm__rc.d1562[105]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[286]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[287]), scm__rc.d1562[3]);
  scm__rc.d1562[106] = Scm_MakeExtendedPair(scm__rc.d1562[105], SCM_OBJ(&scm__rc.d1563[281]), SCM_OBJ(&scm__rc.d1563[289]));
  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.d1562[106];
  scm__rc.d1562[107] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[79])),TRUE); /* open-output-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[292]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[293]), scm__rc.d1562[107]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[294]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[295]), scm__rc.d1562[3]);
  scm__rc.d1562[108] = Scm_MakeExtendedPair(scm__rc.d1562[107], SCM_NIL, SCM_OBJ(&scm__rc.d1563[297]));
  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.d1562[108];
  scm__rc.d1562[109] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[80])),TRUE); /* get-output-string */
  scm__rc.d1562[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[81])),TRUE); /* oport */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[298]), scm__rc.d1562[110]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[301]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[302]), scm__rc.d1562[109]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[303]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[304]), scm__rc.d1562[3]);
  scm__rc.d1562[111] = Scm_MakeExtendedPair(scm__rc.d1562[109], SCM_OBJ(&scm__rc.d1563[298]), SCM_OBJ(&scm__rc.d1563[306]));
  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.d1562[111];
  scm__rc.d1562[112] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[82])),TRUE); /* get-output-byte-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[309]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[310]), scm__rc.d1562[112]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[311]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[312]), scm__rc.d1562[3]);
  scm__rc.d1562[113] = Scm_MakeExtendedPair(scm__rc.d1562[112], SCM_OBJ(&scm__rc.d1563[298]), SCM_OBJ(&scm__rc.d1563[314]));
  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.d1562[113];
  scm__rc.d1562[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[83])),TRUE); /* get-remaining-input-string */
  scm__rc.d1562[115] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[84])),TRUE); /* iport */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[315]), scm__rc.d1562[115]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[318]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[319]), scm__rc.d1562[114]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[320]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[321]), scm__rc.d1562[3]);
  scm__rc.d1562[116] = Scm_MakeExtendedPair(scm__rc.d1562[114], SCM_OBJ(&scm__rc.d1563[315]), SCM_OBJ(&scm__rc.d1563[323]));
  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.d1562[116];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[117] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[85])),TRUE); /* open-coding-aware-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[326]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[327]), scm__rc.d1562[117]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[328]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[329]), scm__rc.d1562[3]);
  scm__rc.d1562[118] = Scm_MakeExtendedPair(scm__rc.d1562[117], SCM_OBJ(&scm__rc.d1563[315]), SCM_OBJ(&scm__rc.d1563[331]));
  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.d1562[118];
  scm__rc.d1562[119] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[86])),TRUE); /* port-has-port-position? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[334]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[335]), scm__rc.d1562[119]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[336]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[337]), scm__rc.d1562[3]);
  scm__rc.d1562[120] = Scm_MakeExtendedPair(scm__rc.d1562[119], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[339]));
  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.d1562[120];
  scm__rc.d1562[121] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[87])),TRUE); /* port-has-set-port-position!? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[342]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[343]), scm__rc.d1562[121]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[344]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[345]), scm__rc.d1562[3]);
  scm__rc.d1562[122] = Scm_MakeExtendedPair(scm__rc.d1562[121], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[347]));
  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.d1562[122];
  scm__rc.d1562[123] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[88])),TRUE); /* port-position */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[350]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[351]), scm__rc.d1562[123]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[352]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[353]), scm__rc.d1562[3]);
  scm__rc.d1562[124] = Scm_MakeExtendedPair(scm__rc.d1562[123], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[355]));
  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.d1562[124];
  scm__rc.d1562[125] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[89])),TRUE); /* set-port-position! */
  scm__rc.d1562[126] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[90])),TRUE); /* pos */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[356]), scm__rc.d1562[126]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[357]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[360]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[361]), scm__rc.d1562[125]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[362]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[363]), scm__rc.d1562[3]);
  scm__rc.d1562[127] = Scm_MakeExtendedPair(scm__rc.d1562[125], SCM_OBJ(&scm__rc.d1563[357]), SCM_OBJ(&scm__rc.d1563[365]));
  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.d1562[127];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[128] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[91])),TRUE); /* SEEK_SET */
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[128]), Scm_MakeInteger(SEEK_SET), SCM_BINDING_CONST);

  scm__rc.d1562[129] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92])),TRUE); /* SEEK_CUR */
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[129]), Scm_MakeInteger(SEEK_CUR), SCM_BINDING_CONST);

  scm__rc.d1562[130] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[93])),TRUE); /* SEEK_END */
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[130]), Scm_MakeInteger(SEEK_END), SCM_BINDING_CONST);

  scm__rc.d1562[131] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[94])),TRUE); /* port-seek */
  scm__rc.d1562[132] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[95])),TRUE); /* offset */
  scm__rc.d1562[133] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[96])),TRUE); /* whence */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[366]), scm__rc.d1562[133]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[367]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[368]), scm__rc.d1562[132]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[369]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[372]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[373]), scm__rc.d1562[131]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[374]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[375]), scm__rc.d1562[3]);
  scm__rc.d1562[134] = Scm_MakeExtendedPair(scm__rc.d1562[131], SCM_OBJ(&scm__rc.d1563[369]), SCM_OBJ(&scm__rc.d1563[377]));
  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.d1562[134];
  scm__rc.d1562[135] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[97])),TRUE); /* port-tell */
  scm__rc.d1562[137] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[11]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
  scm__rc.d1562[136] = Scm_MakeIdentifier(scm__rc.d1562[131], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port-seek */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[380]), scm__rc.d1562[2]);
  scm__rc.d1562[138] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[98])),TRUE); /* unused-args */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[381]), scm__rc.d1562[138]);
  scm__rc.d1562[139] = Scm_MakeExtendedPair(scm__rc.d1562[135], SCM_OBJ(&scm__rc.d1563[60]), SCM_OBJ(&scm__rc.d1563[383]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[384]), scm__rc.d1562[139]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[0]))->name = scm__rc.d1562[135];/* port-tell */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[0]))[4] = SCM_WORD(scm__rc.d1562[136]);
  ScmObj G1570 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[0]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[135]) /* port-tell */, G1570,0);

  scm__rc.d1562[140] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[99])),TRUE); /* port-position-prefix */
  scm__rc.d1562[141] = Scm_MakeIdentifier(scm__rc.d1562[8], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port? */
  scm__rc.d1562[142] = Scm_MakeIdentifier(scm__rc.d1562[28], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port-name */
  scm__rc.d1562[143] = Scm_MakeIdentifier(scm__rc.d1562[31], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port-current-line */
  scm__rc.d1562[145] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[100])),TRUE); /* positive? */
  scm__rc.d1562[144] = Scm_MakeIdentifier(scm__rc.d1562[145], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#positive? */
  scm__rc.d1562[147] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[102])),TRUE); /* format */
  scm__rc.d1562[146] = Scm_MakeIdentifier(scm__rc.d1562[147], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#format */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[387]), scm__rc.d1562[2]);
  scm__rc.d1562[148] = Scm_MakeExtendedPair(scm__rc.d1562[140], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[388]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[389]), scm__rc.d1562[148]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[1]))->name = scm__rc.d1562[140];/* port-position-prefix */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[4] = SCM_WORD(scm__rc.d1562[141]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[11] = SCM_WORD(scm__rc.d1562[142]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[20] = SCM_WORD(scm__rc.d1562[143]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[26] = SCM_WORD(scm__rc.d1562[144]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[37] = SCM_WORD(scm__rc.d1562[146]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[47] = SCM_WORD(scm__rc.d1562[146]);
  ScmObj G1571 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[1]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[140]) /* port-position-prefix */, G1571,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[149] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[106])),TRUE); /* %port-walking? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[392]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[393]), scm__rc.d1562[149]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[394]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[395]), scm__rc.d1562[3]);
  scm__rc.d1562[150] = Scm_MakeExtendedPair(scm__rc.d1562[149], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[397]));
  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.d1562[150];
  Scm_SetterSet(SCM_PROCEDURE(&libio_25port_walkingP__STUB), SCM_PROCEDURE(&libio_25port_walkingP_SETTER__STUB), TRUE);
  scm__rc.d1562[151] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[108])),TRUE); /* %port-writing-shared? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[400]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[401]), scm__rc.d1562[151]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[402]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[403]), scm__rc.d1562[3]);
  scm__rc.d1562[152] = Scm_MakeExtendedPair(scm__rc.d1562[151], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[405]));
  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.d1562[152];
  Scm_SetterSet(SCM_PROCEDURE(&libio_25port_writing_sharedP__STUB), SCM_PROCEDURE(&libio_25port_writing_sharedP_SETTER__STUB), TRUE);
  Scm_InitBuiltinClass(&Scm_WriteStateClass, "<write-state>", Scm_WriteStateClass__SLOTS, TRUE, SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[153] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[110])),TRUE); /* %port-write-state */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[408]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[409]), scm__rc.d1562[153]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[410]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[411]), scm__rc.d1562[3]);
  scm__rc.d1562[154] = Scm_MakeExtendedPair(scm__rc.d1562[153], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[413]));
  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.d1562[154];
  Scm_SetterSet(SCM_PROCEDURE(&libio_25port_write_state__STUB), SCM_PROCEDURE(&libio_25port_write_state_SETTER__STUB), TRUE);
  scm__rc.d1562[155] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[112])),TRUE); /* %port-lock! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[416]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[417]), scm__rc.d1562[155]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[418]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[419]), scm__rc.d1562[3]);
  scm__rc.d1562[156] = Scm_MakeExtendedPair(scm__rc.d1562[155], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[421]));
  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.d1562[156];
  scm__rc.d1562[157] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[113])),TRUE); /* %port-unlock! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[424]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[425]), scm__rc.d1562[157]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[426]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[427]), scm__rc.d1562[3]);
  scm__rc.d1562[158] = Scm_MakeExtendedPair(scm__rc.d1562[157], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[429]));
  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.d1562[158];
  scm__rc.d1562[159] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[114])),TRUE); /* with-port-locking */
  scm__rc.d1562[161] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[79]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche.internal */
  scm__rc.d1562[160] = Scm_MakeIdentifier(scm__rc.d1562[155], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-lock! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[431]), scm__rc.d1562[159]);
  scm__rc.d1562[162] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[431]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[432]), scm__rc.d1562[162]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[59]))[4] = SCM_WORD(scm__rc.d1562[160]);
  scm__rc.d1562[163] = Scm_MakeIdentifier(scm__rc.d1562[157], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-unlock! */
  scm__rc.d1562[164] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[431]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[433]), scm__rc.d1562[164]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[68]))[2] = SCM_WORD(scm__rc.d1562[163]);
  scm__rc.d1562[165] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2]))); /* :source-info */
  scm__rc.d1562[167] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[115])),TRUE); /* %unwind-protect */
  scm__rc.d1562[166] = Scm_MakeIdentifier(scm__rc.d1562[167], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%unwind-protect */
  scm__rc.d1562[168] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[116])),TRUE); /* args */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[56]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[168]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[437]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[440]), scm__rc.d1562[2]);
  scm__rc.d1562[169] = Scm_MakeExtendedPair(scm__rc.d1562[159], SCM_OBJ(&scm__rc.d1563[437]), SCM_OBJ(&scm__rc.d1563[441]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[442]), scm__rc.d1562[169]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[4]))->name = scm__rc.d1562[159];/* with-port-locking */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[72]))[7] = SCM_WORD(scm__rc.d1562[165]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[72]))[11] = SCM_WORD(scm__rc.d1562[166]);
  ScmObj G1572 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[4]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[159]) /* with-port-locking */, G1572,0);

  scm__rc.d1562[170] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[117])),TRUE); /* %with-2pass-setup */
  scm__rc.d1562[171] = Scm_MakeIdentifier(scm__rc.d1562[153], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-write-state */
  scm__rc.d1562[173] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48])),TRUE); /* error */
  scm__rc.d1562[172] = Scm_MakeIdentifier(scm__rc.d1562[173], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#error */
  scm__rc.d1562[175] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[119])),TRUE); /* <write-state> */
  scm__rc.d1562[174] = Scm_MakeIdentifier(scm__rc.d1562[175], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#<write-state> */
  scm__rc.d1562[176] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120]))); /* :shared-table */
  scm__rc.d1562[177] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[121])),TRUE); /* eq? */
  scm__rc.d1562[179] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[122])),TRUE); /* make-hash-table */
  scm__rc.d1562[178] = Scm_MakeIdentifier(scm__rc.d1562[179], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#make-hash-table */
  scm__rc.d1562[181] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[123])),TRUE); /* make */
  scm__rc.d1562[180] = Scm_MakeIdentifier(scm__rc.d1562[181], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#make */
  scm__rc.d1562[182] = Scm_MakeIdentifier(scm__rc.d1562[149], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-walking? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[443]), scm__rc.d1562[170]);
  scm__rc.d1562[183] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[443]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[444]), scm__rc.d1562[183]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[4] = SCM_WORD(scm__rc.d1562[160]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[9] = SCM_WORD(scm__rc.d1562[171]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[18] = SCM_WORD(scm__rc.d1562[172]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[27] = SCM_WORD(scm__rc.d1562[174]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[29] = SCM_WORD(scm__rc.d1562[176]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[33] = SCM_WORD(scm__rc.d1562[177]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[35] = SCM_WORD(scm__rc.d1562[178]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[37] = SCM_WORD(scm__rc.d1562[180]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[39] = SCM_WORD(scm__rc.d1562[171]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[48] = SCM_WORD(scm__rc.d1562[182]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[61] = SCM_WORD(scm__rc.d1562[182]);
  scm__rc.d1562[184] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[443]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[445]), scm__rc.d1562[184]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[153]))[5] = SCM_WORD(scm__rc.d1562[182]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[153]))[13] = SCM_WORD(scm__rc.d1562[171]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[153]))[18] = SCM_WORD(scm__rc.d1562[163]);
  scm__rc.d1562[185] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[124])),TRUE); /* walker */
  scm__rc.d1562[186] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[125])),TRUE); /* emitter */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[448]), scm__rc.d1562[186]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[448]), scm__rc.d1562[168]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[449]), scm__rc.d1562[185]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[450]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[453]), scm__rc.d1562[2]);
  scm__rc.d1562[187] = Scm_MakeExtendedPair(scm__rc.d1562[170], SCM_OBJ(&scm__rc.d1563[450]), SCM_OBJ(&scm__rc.d1563[454]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[455]), scm__rc.d1562[187]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[7]))->name = scm__rc.d1562[170];/* %with-2pass-setup */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[173]))[7] = SCM_WORD(scm__rc.d1562[165]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[173]))[11] = SCM_WORD(scm__rc.d1562[166]);
  ScmObj G1573 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[7]), NULL);

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

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[188] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[126])),TRUE); /* read */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[456]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[459]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[460]), scm__rc.d1562[188]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[461]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[462]), scm__rc.d1562[3]);
  scm__rc.d1562[189] = Scm_MakeExtendedPair(scm__rc.d1562[188], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[464]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("read")), SCM_OBJ(&libioread__STUB), 0);
  libioread__STUB.common.info = scm__rc.d1562[189];
  scm__rc.d1562[190] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[127])),TRUE); /* read-char */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[467]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[468]), scm__rc.d1562[190]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[469]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[470]), scm__rc.d1562[3]);
  scm__rc.d1562[191] = Scm_MakeExtendedPair(scm__rc.d1562[190], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[472]));
  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.d1562[191];
  scm__rc.d1562[192] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[128])),TRUE); /* peek-char */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[475]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[476]), scm__rc.d1562[192]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[477]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[478]), scm__rc.d1562[3]);
  scm__rc.d1562[193] = Scm_MakeExtendedPair(scm__rc.d1562[192], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[480]));
  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.d1562[193];
  scm__rc.d1562[194] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[129])),TRUE); /* eof-object? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[483]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[484]), scm__rc.d1562[194]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[485]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[486]), scm__rc.d1562[3]);
  scm__rc.d1562[195] = Scm_MakeExtendedPair(scm__rc.d1562[194], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[488]));
  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.d1562[195];
  scm__rc.d1562[196] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[130])),TRUE); /* char-ready? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[491]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[492]), scm__rc.d1562[196]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[493]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[494]), scm__rc.d1562[3]);
  scm__rc.d1562[197] = Scm_MakeExtendedPair(scm__rc.d1562[196], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[496]));
  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.d1562[197];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[198] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[131])),TRUE); /* eof-object */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[497]), scm__rc.d1562[198]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[498]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[499]), scm__rc.d1562[3]);
  scm__rc.d1562[199] = Scm_MakeExtendedPair(scm__rc.d1562[198], SCM_NIL, SCM_OBJ(&scm__rc.d1563[500]));
  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.d1562[199];
  scm__rc.d1562[200] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[132])),TRUE); /* byte-ready? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[503]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[504]), scm__rc.d1562[200]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[505]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[506]), scm__rc.d1562[3]);
  scm__rc.d1562[201] = Scm_MakeExtendedPair(scm__rc.d1562[200], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[508]));
  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.d1562[201];
  scm__rc.d1562[202] = Scm_MakeIdentifier(scm__rc.d1562[200], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#byte-ready? */
  scm__rc.d1562[204] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[133])),TRUE); /* u8-ready? */
  scm__rc.d1562[203] = Scm_MakeIdentifier(scm__rc.d1562[204], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#u8-ready? */
  scm__rc.d1562[205] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[134])),TRUE); /* %toplevel */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[8]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[186]))[1] = SCM_WORD(scm__rc.d1562[202]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[186]))[3] = SCM_WORD(scm__rc.d1562[203]);
  scm__rc.d1562[206] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[135])),TRUE); /* read-byte */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[511]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[512]), scm__rc.d1562[206]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[513]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[514]), scm__rc.d1562[3]);
  scm__rc.d1562[207] = Scm_MakeExtendedPair(scm__rc.d1562[206], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[516]));
  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.d1562[207];
  scm__rc.d1562[208] = Scm_MakeIdentifier(scm__rc.d1562[206], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#read-byte */
  scm__rc.d1562[210] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[136])),TRUE); /* read-u8 */
  scm__rc.d1562[209] = Scm_MakeIdentifier(scm__rc.d1562[210], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#read-u8 */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[9]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[191]))[1] = SCM_WORD(scm__rc.d1562[208]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[191]))[3] = SCM_WORD(scm__rc.d1562[209]);
  scm__rc.d1562[211] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[137])),TRUE); /* peek-byte */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[519]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[520]), scm__rc.d1562[211]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[521]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[522]), scm__rc.d1562[3]);
  scm__rc.d1562[212] = Scm_MakeExtendedPair(scm__rc.d1562[211], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[524]));
  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.d1562[212];
  scm__rc.d1562[213] = Scm_MakeIdentifier(scm__rc.d1562[211], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#peek-byte */
  scm__rc.d1562[215] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[138])),TRUE); /* peek-u8 */
  scm__rc.d1562[214] = Scm_MakeIdentifier(scm__rc.d1562[215], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#peek-u8 */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[10]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[196]))[1] = SCM_WORD(scm__rc.d1562[213]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[196]))[3] = SCM_WORD(scm__rc.d1562[214]);
  scm__rc.d1562[216] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[139])),TRUE); /* read-line */
  scm__rc.d1562[217] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[140])),TRUE); /* allowbytestr */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[525]), scm__rc.d1562[217]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[526]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[527]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[530]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[531]), scm__rc.d1562[216]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[532]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[533]), scm__rc.d1562[3]);
  scm__rc.d1562[218] = Scm_MakeExtendedPair(scm__rc.d1562[216], SCM_OBJ(&scm__rc.d1563[527]), SCM_OBJ(&scm__rc.d1563[535]));
  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.d1562[218];
  scm__rc.d1562[219] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[141])),TRUE); /* read-string */
  scm__rc.d1562[220] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[143])),TRUE); /* lambda */
  scm__rc.d1562[221] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[144])),TRUE); /* n */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[537]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[539]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[540]), scm__rc.d1562[221]);
  scm__rc.d1562[222] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[145])),TRUE); /* define */
  scm__rc.d1562[223] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[146])),TRUE); /* o */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[542]), scm__rc.d1562[104]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[543]), scm__rc.d1562[107]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[545]), scm__rc.d1562[223]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[546]), scm__rc.d1562[222]);
  scm__rc.d1562[224] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[147])),TRUE); /* let */
  scm__rc.d1562[225] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[148])),TRUE); /* loop */
  scm__rc.d1562[226] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[149])),TRUE); /* i */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[548]), scm__rc.d1562[226]);
  scm__rc.d1562[227] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[150])),TRUE); /* if */
  scm__rc.d1562[228] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[151])),TRUE); /* >= */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[550]), scm__rc.d1562[221]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[551]), scm__rc.d1562[226]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[552]), scm__rc.d1562[228]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[553]), scm__rc.d1562[223]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[554]), scm__rc.d1562[109]);
  scm__rc.d1562[229] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[152])),TRUE); /* let1 */
  scm__rc.d1562[230] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[153])),TRUE); /* c */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[555]), scm__rc.d1562[190]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[556]), scm__rc.d1562[230]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[557]), scm__rc.d1562[194]);
  scm__rc.d1562[231] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[154])),TRUE); /* = */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[558]), scm__rc.d1562[231]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[562]), scm__rc.d1562[227]);
  scm__rc.d1562[232] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[155])),TRUE); /* begin */
  scm__rc.d1562[233] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[156])),TRUE); /* write-char */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[563]), scm__rc.d1562[230]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[564]), scm__rc.d1562[233]);
  scm__rc.d1562[234] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[157])),TRUE); /* + */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[566]), scm__rc.d1562[226]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[567]), scm__rc.d1562[234]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[569]), scm__rc.d1562[225]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[572]), scm__rc.d1562[232]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[576]), scm__rc.d1562[227]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[579]), scm__rc.d1562[230]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[580]), scm__rc.d1562[229]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[584]), scm__rc.d1562[227]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[587]), scm__rc.d1562[225]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[588]), scm__rc.d1562[224]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[592]), scm__rc.d1562[220]);
  scm__rc.d1562[235] = Scm_MakeIdentifier(scm__rc.d1562[173], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#error */
  scm__rc.d1562[236] = Scm_MakeIdentifier(scm__rc.d1562[107], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#open-output-string */
  scm__rc.d1562[237] = Scm_MakeIdentifier(scm__rc.d1562[109], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#get-output-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[596]), scm__rc.d1562[2]);
  scm__rc.d1562[238] = Scm_MakeExtendedPair(scm__rc.d1562[219], SCM_OBJ(&scm__rc.d1563[540]), SCM_OBJ(&scm__rc.d1563[597]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[598]), scm__rc.d1562[238]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[11]))->name = scm__rc.d1562[219];/* read-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[28] = SCM_WORD(scm__rc.d1562[235]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[34] = SCM_WORD(scm__rc.d1562[104]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[38] = SCM_WORD(scm__rc.d1562[236]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[47] = SCM_WORD(scm__rc.d1562[237]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[63] = SCM_WORD(scm__rc.d1562[237]);
  ScmObj G1577 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[11]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[219]) /* read-string */, G1577,0);

  scm__rc.d1562[239] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[158])),TRUE); /* write-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[600]), scm__rc.d1562[29]);
  scm__rc.d1562[240] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[159])),TRUE); /* start */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[601]), scm__rc.d1562[240]);
  scm__rc.d1562[241] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[160])),TRUE); /* end */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[603]), scm__rc.d1562[241]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[607]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[608]), scm__rc.d1562[57]);
  scm__rc.d1562[242] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[161])),TRUE); /* display */
  scm__rc.d1562[243] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[162])),TRUE); /* with-module */
  scm__rc.d1562[244] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[163])),TRUE); /* %maybe-substring */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[609]), scm__rc.d1562[244]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[610]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[611]), scm__rc.d1562[243]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[612]), scm__rc.d1562[241]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[613]), scm__rc.d1562[240]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[614]), scm__rc.d1562[57]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[617]), scm__rc.d1562[242]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[620]), scm__rc.d1562[220]);
  scm__rc.d1562[245] = Scm_MakeIdentifier(scm__rc.d1562[244], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%maybe-substring */
  scm__rc.d1562[246] = Scm_MakeIdentifier(scm__rc.d1562[242], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#display */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[623]), scm__rc.d1562[2]);
  scm__rc.d1562[247] = Scm_MakeExtendedPair(scm__rc.d1562[239], SCM_OBJ(&scm__rc.d1563[608]), SCM_OBJ(&scm__rc.d1563[624]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[625]), scm__rc.d1562[247]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[12]))->name = scm__rc.d1562[239];/* write-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]))[60] = SCM_WORD(scm__rc.d1562[235]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]))[67] = SCM_WORD(scm__rc.d1562[245]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]))[71] = SCM_WORD(scm__rc.d1562[246]);
  ScmObj G1583 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[12]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[239]) /* write-string */, G1583,0);

  scm__rc.d1562[248] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[164])),TRUE); /* consume-trailing-whitespaces */
  scm__rc.d1562[249] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[165])),TRUE); /* when */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[626]), scm__rc.d1562[200]);
  scm__rc.d1562[250] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[166])),TRUE); /* b */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[627]), scm__rc.d1562[211]);
  scm__rc.d1562[251] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[167])),TRUE); /* cond */
  scm__rc.d1562[252] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[168])),TRUE); /* memv */
  scm__rc.d1562[253] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[169])),TRUE); /* quote */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[631]), scm__rc.d1562[253]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[633]), scm__rc.d1562[250]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[634]), scm__rc.d1562[252]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[635]), scm__rc.d1562[206]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[636]), scm__rc.d1562[225]);
  scm__rc.d1562[254] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[170])),TRUE); /* eqv? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[641]), scm__rc.d1562[250]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[642]), scm__rc.d1562[254]);
  scm__rc.d1562[255] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[171])),TRUE); /* and */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[645]), scm__rc.d1562[254]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[648]), scm__rc.d1562[255]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[651]), scm__rc.d1562[249]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[655]), scm__rc.d1562[250]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[656]), scm__rc.d1562[254]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[661]), scm__rc.d1562[251]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[664]), scm__rc.d1562[250]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[665]), scm__rc.d1562[229]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[668]), scm__rc.d1562[249]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[671]), scm__rc.d1562[225]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[672]), scm__rc.d1562[224]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[675]), scm__rc.d1562[220]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[678]), scm__rc.d1562[2]);
  scm__rc.d1562[256] = Scm_MakeExtendedPair(scm__rc.d1562[248], SCM_OBJ(&scm__rc.d1563[539]), SCM_OBJ(&scm__rc.d1563[679]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[680]), scm__rc.d1562[256]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[13]))->name = scm__rc.d1562[248];/* consume-trailing-whitespaces */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[28] = SCM_WORD(scm__rc.d1562[235]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[33] = SCM_WORD(scm__rc.d1562[202]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[40] = SCM_WORD(scm__rc.d1562[213]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[52] = SCM_WORD(scm__rc.d1562[208]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[64] = SCM_WORD(scm__rc.d1562[208]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[69] = SCM_WORD(scm__rc.d1562[202]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[76] = SCM_WORD(scm__rc.d1562[213]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[82] = SCM_WORD(scm__rc.d1562[208]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[92] = SCM_WORD(scm__rc.d1562[208]);
  ScmObj G1587 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[13]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[248]) /* consume-trailing-whitespaces */, G1587,0);

  scm__rc.d1562[257] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[172])),TRUE); /* read-block */
  scm__rc.d1562[258] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[173])),TRUE); /* bytes */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[681]), scm__rc.d1562[258]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[684]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[685]), scm__rc.d1562[257]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[686]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[687]), scm__rc.d1562[3]);
  scm__rc.d1562[259] = Scm_MakeExtendedPair(scm__rc.d1562[257], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[689]));
  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.d1562[259];
  scm__rc.d1562[260] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[174])),TRUE); /* read-list */
  scm__rc.d1562[261] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[175])),TRUE); /* closer */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[690]), scm__rc.d1562[261]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[693]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[694]), scm__rc.d1562[260]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[695]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[696]), scm__rc.d1562[3]);
  scm__rc.d1562[262] = Scm_MakeExtendedPair(scm__rc.d1562[260], SCM_OBJ(&scm__rc.d1563[690]), SCM_OBJ(&scm__rc.d1563[698]));
  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.d1562[262];
  scm__rc.d1562[263] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[176])),TRUE); /* port->byte-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[701]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[702]), scm__rc.d1562[263]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[703]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[704]), scm__rc.d1562[3]);
  scm__rc.d1562[264] = Scm_MakeExtendedPair(scm__rc.d1562[263], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[706]));
  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.d1562[264];
  scm__rc.d1562[265] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[177])),TRUE); /* port->string */
  scm__rc.d1562[266] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[178]))); /* :unit */
  scm__rc.d1562[267] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[179])),TRUE); /* byte */
  scm__rc.d1562[269] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[180])),TRUE); /* copy-port */
  scm__rc.d1562[268] = Scm_MakeIdentifier(scm__rc.d1562[269], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#copy-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[709]), scm__rc.d1562[2]);
  scm__rc.d1562[270] = Scm_MakeExtendedPair(scm__rc.d1562[265], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[710]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[711]), scm__rc.d1562[270]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[14]))->name = scm__rc.d1562[265];/* port->string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[3] = SCM_WORD(scm__rc.d1562[104]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[7] = SCM_WORD(scm__rc.d1562[236]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[14] = SCM_WORD(scm__rc.d1562[266]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[16] = SCM_WORD(scm__rc.d1562[267]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[18] = SCM_WORD(scm__rc.d1562[268]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[21] = SCM_WORD(scm__rc.d1562[237]);
  ScmObj G1588 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[14]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[265]) /* port->string */, G1588,0);

  scm__rc.d1562[271] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[181])),TRUE); /* port->list */
  scm__rc.d1562[273] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[182])),TRUE); /* reverse! */
  scm__rc.d1562[272] = Scm_MakeIdentifier(scm__rc.d1562[273], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#reverse! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[712]), scm__rc.d1562[271]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[715]), scm__rc.d1562[2]);
  scm__rc.d1562[274] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[712]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[716]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[717]), scm__rc.d1562[274]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[467]))[14] = SCM_WORD(scm__rc.d1562[272]);
  scm__rc.d1562[275] = Scm_MakeIdentifier(scm__rc.d1562[159], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#with-port-locking */
  scm__rc.d1562[276] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[183])),TRUE); /* reader */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[718]), scm__rc.d1562[276]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[721]), scm__rc.d1562[2]);
  scm__rc.d1562[277] = Scm_MakeExtendedPair(scm__rc.d1562[271], SCM_OBJ(&scm__rc.d1563[718]), SCM_OBJ(&scm__rc.d1563[722]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[723]), scm__rc.d1562[277]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[16]))->name = scm__rc.d1562[271];/* port->list */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[496]))[4] = SCM_WORD(scm__rc.d1562[275]);
  ScmObj G1589 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[16]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[271]) /* port->list */, G1589,0);

  scm__rc.d1562[278] = Scm_MakeIdentifier(scm__rc.d1562[216], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#read-line */
  scm__rc.d1562[279] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[184])),TRUE); /* port->string-list */
  scm__rc.d1562[280] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[185])),FALSE); /* G1591 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[724]), scm__rc.d1562[280]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[725]), scm__rc.d1562[279]);
  scm__rc.d1562[281] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[186])),FALSE); /* G1590 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[726]), scm__rc.d1562[281]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[729]), scm__rc.d1562[2]);
  scm__rc.d1562[282] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[725]), SCM_OBJ(&scm__rc.d1563[726]), SCM_OBJ(&scm__rc.d1563[730]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[731]), scm__rc.d1562[282]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[502]))[4] = SCM_WORD(scm__rc.d1562[278]);
  scm__rc.d1562[283] = Scm_MakeIdentifier(scm__rc.d1562[271], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port->list */
  scm__rc.d1562[284] = Scm_MakeExtendedPair(scm__rc.d1562[279], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[730]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[733]), scm__rc.d1562[284]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[18]))->name = scm__rc.d1562[279];/* port->string-list */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[508]))[3] = SCM_WORD(scm__rc.d1562[283]);
  scm__rc.d1562[285] = Scm_MakeIdentifier(scm__rc.d1562[279], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port->string-list */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[19]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[513]))[5] = SCM_WORD(scm__rc.d1562[285]);
  scm__rc.d1562[286] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[187])),TRUE); /* port->sexp-list */
  scm__rc.d1562[287] = Scm_MakeIdentifier(scm__rc.d1562[188], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#read */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[736]), scm__rc.d1562[2]);
  scm__rc.d1562[288] = Scm_MakeExtendedPair(scm__rc.d1562[286], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[737]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[738]), scm__rc.d1562[288]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[20]))->name = scm__rc.d1562[286];/* port->sexp-list */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[520]))[1] = SCM_WORD(scm__rc.d1562[287]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[520]))[4] = SCM_WORD(scm__rc.d1562[283]);
  ScmObj G1592 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[20]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[286]) /* port->sexp-list */, G1592,0);

  scm__rc.d1562[289] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[188])),TRUE); /* reader-lexical-mode */
  scm__rc.d1562[290] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[189])),TRUE); /* k */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[739]), scm__rc.d1562[290]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[740]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[743]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[744]), scm__rc.d1562[289]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[745]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[746]), scm__rc.d1562[3]);
  scm__rc.d1562[291] = Scm_MakeExtendedPair(scm__rc.d1562[289], SCM_OBJ(&scm__rc.d1563[740]), SCM_OBJ(&scm__rc.d1563[748]));
  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.d1562[291];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[292] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[190])),TRUE); /* %port-ungotten-chars */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[751]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[752]), scm__rc.d1562[292]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[753]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[754]), scm__rc.d1562[3]);
  scm__rc.d1562[293] = Scm_MakeExtendedPair(scm__rc.d1562[292], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[756]));
  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.d1562[293];
  scm__rc.d1562[294] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[191])),TRUE); /* %port-ungotten-bytes */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[759]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[760]), scm__rc.d1562[294]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[761]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[762]), scm__rc.d1562[3]);
  scm__rc.d1562[295] = Scm_MakeExtendedPair(scm__rc.d1562[294], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[764]));
  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.d1562[295];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[296] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[192])),TRUE); /* define-reader-ctor */
  scm__rc.d1562[297] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[193])),TRUE); /* symbol */
  scm__rc.d1562[298] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[194])),TRUE); /* finisher */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[765]), scm__rc.d1562[298]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[766]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[767]), scm__rc.d1562[56]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[768]), scm__rc.d1562[297]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[771]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[772]), scm__rc.d1562[296]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[773]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[774]), scm__rc.d1562[3]);
  scm__rc.d1562[299] = Scm_MakeExtendedPair(scm__rc.d1562[296], SCM_OBJ(&scm__rc.d1563[768]), SCM_OBJ(&scm__rc.d1563[776]));
  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.d1562[299];
  scm__rc.d1562[300] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[195])),TRUE); /* %get-reader-ctor */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[777]), scm__rc.d1562[297]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[780]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[781]), scm__rc.d1562[300]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[782]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[783]), scm__rc.d1562[3]);
  scm__rc.d1562[301] = Scm_MakeExtendedPair(scm__rc.d1562[300], SCM_OBJ(&scm__rc.d1563[777]), SCM_OBJ(&scm__rc.d1563[785]));
  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.d1562[301];
  scm__rc.d1562[302] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[196])),TRUE); /* define-reader-directive */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[786]), scm__rc.d1562[56]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[787]), scm__rc.d1562[297]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[790]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[791]), scm__rc.d1562[302]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[792]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[793]), scm__rc.d1562[3]);
  scm__rc.d1562[303] = Scm_MakeExtendedPair(scm__rc.d1562[302], SCM_OBJ(&scm__rc.d1563[787]), SCM_OBJ(&scm__rc.d1563[795]));
  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.d1562[303];
  scm__rc.d1562[304] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[197])),TRUE); /* current-read-context */
  scm__rc.d1562[305] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[198])),TRUE); /* ctx */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[796]), scm__rc.d1562[305]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[797]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[800]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[801]), scm__rc.d1562[304]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[802]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[803]), scm__rc.d1562[3]);
  scm__rc.d1562[306] = Scm_MakeExtendedPair(scm__rc.d1562[304], SCM_OBJ(&scm__rc.d1563[797]), SCM_OBJ(&scm__rc.d1563[805]));
  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.d1562[306];
  scm__rc.d1562[307] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[199])),TRUE); /* read-reference? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[808]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[809]), scm__rc.d1562[307]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[810]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[811]), scm__rc.d1562[3]);
  scm__rc.d1562[308] = Scm_MakeExtendedPair(scm__rc.d1562[307], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[813]));
  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.d1562[308];
  scm__rc.d1562[309] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[200])),TRUE); /* read-reference-has-value? */
  scm__rc.d1562[310] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[201])),TRUE); /* ref */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[814]), scm__rc.d1562[310]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[817]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[818]), scm__rc.d1562[309]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[819]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[820]), scm__rc.d1562[3]);
  scm__rc.d1562[311] = Scm_MakeExtendedPair(scm__rc.d1562[309], SCM_OBJ(&scm__rc.d1563[814]), SCM_OBJ(&scm__rc.d1563[822]));
  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.d1562[311];
  scm__rc.d1562[312] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[202])),TRUE); /* read-reference-value */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[825]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[826]), scm__rc.d1562[312]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[827]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[828]), scm__rc.d1562[3]);
  scm__rc.d1562[313] = Scm_MakeExtendedPair(scm__rc.d1562[312], SCM_OBJ(&scm__rc.d1563[814]), SCM_OBJ(&scm__rc.d1563[830]));
  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.d1562[313];
  scm__rc.d1562[315] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[203])),TRUE); /* read-with-shared-structure */
  scm__rc.d1562[314] = Scm_MakeIdentifier(scm__rc.d1562[315], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#read-with-shared-structure */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[21]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[526]))[1] = SCM_WORD(scm__rc.d1562[287]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[526]))[3] = SCM_WORD(scm__rc.d1562[314]);
  scm__rc.d1562[317] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[204])),TRUE); /* read/ss */
  scm__rc.d1562[316] = Scm_MakeIdentifier(scm__rc.d1562[317], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#read/ss */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[22]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[531]))[1] = SCM_WORD(scm__rc.d1562[287]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[531]))[3] = SCM_WORD(scm__rc.d1562[316]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
  scm__rc.d1562[318] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[205])),TRUE); /* write */
  scm__rc.d1562[319] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[206])),TRUE); /* port-or-control-1 */
  scm__rc.d1562[320] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[207])),TRUE); /* port-or-control-2 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[831]), scm__rc.d1562[320]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[832]), scm__rc.d1562[319]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[833]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[834]), scm__rc.d1562[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[837]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[838]), scm__rc.d1562[318]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[839]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[840]), scm__rc.d1562[3]);
  scm__rc.d1562[321] = Scm_MakeExtendedPair(scm__rc.d1562[318], SCM_OBJ(&scm__rc.d1563[834]), SCM_OBJ(&scm__rc.d1563[842]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("write")), SCM_OBJ(&libiowrite__STUB), 0);
  libiowrite__STUB.common.info = scm__rc.d1562[321];
  scm__rc.d1562[322] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[208])),TRUE); /* write-simple */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[843]), scm__rc.d1562[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[846]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[847]), scm__rc.d1562[322]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[848]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[849]), scm__rc.d1562[3]);
  scm__rc.d1562[323] = Scm_MakeExtendedPair(scm__rc.d1562[322], SCM_OBJ(&scm__rc.d1563[843]), SCM_OBJ(&scm__rc.d1563[851]));
  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.d1562[323];
  scm__rc.d1562[324] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[209])),TRUE); /* write-shared */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[854]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[855]), scm__rc.d1562[324]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[856]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[857]), scm__rc.d1562[3]);
  scm__rc.d1562[325] = Scm_MakeExtendedPair(scm__rc.d1562[324], SCM_OBJ(&scm__rc.d1563[834]), SCM_OBJ(&scm__rc.d1563[859]));
  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.d1562[325];
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[862]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[863]), scm__rc.d1562[242]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[864]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[865]), scm__rc.d1562[3]);
  scm__rc.d1562[326] = Scm_MakeExtendedPair(scm__rc.d1562[242], SCM_OBJ(&scm__rc.d1563[834]), SCM_OBJ(&scm__rc.d1563[867]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("display")), SCM_OBJ(&libiodisplay__STUB), 0);
  libiodisplay__STUB.common.info = scm__rc.d1562[326];
  scm__rc.d1562[327] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[210])),TRUE); /* newline */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[870]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[871]), scm__rc.d1562[327]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[872]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[873]), scm__rc.d1562[3]);
  scm__rc.d1562[328] = Scm_MakeExtendedPair(scm__rc.d1562[327], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[875]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("newline")), SCM_OBJ(&libionewline__STUB), 0);
  libionewline__STUB.common.info = scm__rc.d1562[328];
  scm__rc.d1562[329] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[211])),TRUE); /* ch */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[876]), scm__rc.d1562[329]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[879]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[880]), scm__rc.d1562[233]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[881]), scm__rc.d1562[4]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[882]), scm__rc.d1562[3]);
  scm__rc.d1562[330] = Scm_MakeExtendedPair(scm__rc.d1562[233], SCM_OBJ(&scm__rc.d1563[876]), SCM_OBJ(&scm__rc.d1563[884]));
  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.d1562[330];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[331] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[212])),TRUE); /* write-byte */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[885]), scm__rc.d1562[267]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[888]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[889]), scm__rc.d1562[331]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[890]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[891]), scm__rc.d1562[3]);
  scm__rc.d1562[332] = Scm_MakeExtendedPair(scm__rc.d1562[331], SCM_OBJ(&scm__rc.d1563[885]), SCM_OBJ(&scm__rc.d1563[893]));
  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.d1562[332];
  scm__rc.d1562[333] = Scm_MakeIdentifier(scm__rc.d1562[331], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#write-byte */
  scm__rc.d1562[335] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[213])),TRUE); /* write-u8 */
  scm__rc.d1562[334] = Scm_MakeIdentifier(scm__rc.d1562[335], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#write-u8 */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[23]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[536]))[1] = SCM_WORD(scm__rc.d1562[333]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[536]))[3] = SCM_WORD(scm__rc.d1562[334]);
  scm__rc.d1562[336] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[214])),TRUE); /* write-limited */
  scm__rc.d1562[337] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[215])),TRUE); /* limit */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[894]), scm__rc.d1562[337]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[895]), scm__rc.d1562[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[898]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[899]), scm__rc.d1562[336]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[900]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[901]), scm__rc.d1562[3]);
  scm__rc.d1562[338] = Scm_MakeExtendedPair(scm__rc.d1562[336], SCM_OBJ(&scm__rc.d1563[895]), SCM_OBJ(&scm__rc.d1563[903]));
  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.d1562[338];
  scm__rc.d1562[339] = Scm_MakeIdentifier(scm__rc.d1562[324], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#write-shared */
  scm__rc.d1562[341] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[216])),TRUE); /* write* */
  scm__rc.d1562[340] = Scm_MakeIdentifier(scm__rc.d1562[341], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#write* */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[24]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[541]))[1] = SCM_WORD(scm__rc.d1562[339]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[541]))[3] = SCM_WORD(scm__rc.d1562[340]);
  scm__rc.d1562[342] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[217])),TRUE); /* flush */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[904]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[907]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[908]), scm__rc.d1562[342]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[909]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[910]), scm__rc.d1562[3]);
  scm__rc.d1562[343] = Scm_MakeExtendedPair(scm__rc.d1562[342], SCM_OBJ(&scm__rc.d1563[904]), SCM_OBJ(&scm__rc.d1563[912]));
  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("flush")), SCM_OBJ(&libioflush__STUB), 0);
  libioflush__STUB.common.info = scm__rc.d1562[343];
  scm__rc.d1562[344] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[218])),TRUE); /* flush-all-ports */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[913]), scm__rc.d1562[344]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[914]), scm__rc.d1562[11]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[915]), scm__rc.d1562[3]);
  scm__rc.d1562[345] = Scm_MakeExtendedPair(scm__rc.d1562[344], SCM_NIL, SCM_OBJ(&scm__rc.d1563[916]));
  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.d1562[345];
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[346] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[219])),TRUE); /* write-need-recurse? */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[919]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[920]), scm__rc.d1562[346]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[921]), scm__rc.d1562[79]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[922]), scm__rc.d1562[3]);
  scm__rc.d1562[347] = Scm_MakeExtendedPair(scm__rc.d1562[346], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[924]));
  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.d1562[347];
  scm__rc.d1562[348] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[220])),TRUE); /* write-walk */
  scm__rc.d1562[350] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120])),TRUE); /* shared-table */
  scm__rc.d1562[349] = Scm_MakeIdentifier(scm__rc.d1562[350], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#shared-table */
  scm__rc.d1562[352] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[221])),TRUE); /* ~ */
  scm__rc.d1562[351] = Scm_MakeIdentifier(scm__rc.d1562[352], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#~ */
  scm__rc.d1562[354] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[222])),TRUE); /* %write-walk-rec */
  scm__rc.d1562[353] = Scm_MakeIdentifier(scm__rc.d1562[354], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%write-walk-rec */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[925]), scm__rc.d1562[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[928]), scm__rc.d1562[2]);
  scm__rc.d1562[355] = Scm_MakeExtendedPair(scm__rc.d1562[348], SCM_OBJ(&scm__rc.d1563[925]), SCM_OBJ(&scm__rc.d1563[929]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[930]), scm__rc.d1562[355]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[25]))->name = scm__rc.d1562[348];/* write-walk */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]))[4] = SCM_WORD(scm__rc.d1562[171]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]))[15] = SCM_WORD(scm__rc.d1562[349]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]))[17] = SCM_WORD(scm__rc.d1562[351]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]))[19] = SCM_WORD(scm__rc.d1562[353]);
  ScmObj G1593 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[25]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[348]) /* write-walk */, G1593,0);

  scm__rc.d1562[356] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[223])),FALSE); /* G1596 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[931]), scm__rc.d1562[356]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[932]), scm__rc.d1562[354]);
  scm__rc.d1562[357] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[224])),FALSE); /* G1594 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[933]), scm__rc.d1562[357]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[936]), scm__rc.d1562[2]);
  scm__rc.d1562[358] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[932]), SCM_OBJ(&scm__rc.d1563[933]), SCM_OBJ(&scm__rc.d1563[937]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[938]), scm__rc.d1562[358]);
  scm__rc.d1562[359] = Scm_MakeIdentifier(scm__rc.d1562[346], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write-need-recurse? */
  scm__rc.d1562[361] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[225])),TRUE); /* hash-table-exists? */
  scm__rc.d1562[360] = Scm_MakeIdentifier(scm__rc.d1562[361], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-exists? */
  scm__rc.d1562[363] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[226])),TRUE); /* hash-table-update! */
  scm__rc.d1562[362] = Scm_MakeIdentifier(scm__rc.d1562[363], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-update! */
  scm__rc.d1562[365] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[227])),TRUE); /* hash-table-put! */
  scm__rc.d1562[364] = Scm_MakeIdentifier(scm__rc.d1562[365], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-put! */
  scm__rc.d1562[367] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[228])),TRUE); /* write-object */
  scm__rc.d1562[366] = Scm_MakeIdentifier(scm__rc.d1562[367], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write-object */
  scm__rc.d1562[368] = Scm_MakeIdentifier(scm__rc.d1562[151], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-writing-shared? */
  scm__rc.d1562[370] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[229])),TRUE); /* hash-table-get */
  scm__rc.d1562[369] = Scm_MakeIdentifier(scm__rc.d1562[370], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-get */
  scm__rc.d1562[372] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[230])),TRUE); /* hash-table-delete! */
  scm__rc.d1562[371] = Scm_MakeIdentifier(scm__rc.d1562[372], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-delete! */
  scm__rc.d1562[373] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[231])),TRUE); /* tab */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[940]), scm__rc.d1562[373]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[941]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[942]), scm__rc.d1562[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[945]), scm__rc.d1562[2]);
  scm__rc.d1562[374] = Scm_MakeExtendedPair(scm__rc.d1562[354], SCM_OBJ(&scm__rc.d1563[942]), SCM_OBJ(&scm__rc.d1563[946]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[947]), scm__rc.d1562[374]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[27]))->name = scm__rc.d1562[354];/* %write-walk-rec */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[4] = SCM_WORD(scm__rc.d1562[359]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[12] = SCM_WORD(scm__rc.d1562[360]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[19] = SCM_WORD(scm__rc.d1562[362]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[27] = SCM_WORD(scm__rc.d1562[364]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[51] = SCM_WORD(scm__rc.d1562[353]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[59] = SCM_WORD(scm__rc.d1562[353]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[86] = SCM_WORD(scm__rc.d1562[353]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[99] = SCM_WORD(scm__rc.d1562[366]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[104] = SCM_WORD(scm__rc.d1562[368]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[114] = SCM_WORD(scm__rc.d1562[369]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[121] = SCM_WORD(scm__rc.d1562[371]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[28]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[695]))[5] = SCM_WORD(scm__rc.d1562[353]);
   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[375] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[232])),TRUE); /* write-with-shared-structure */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[949]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[950]), scm__rc.d1562[1]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[951]), scm__rc.d1562[341]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[954]), scm__rc.d1562[220]);
  scm__rc.d1562[376] = Scm_MakeIdentifier(scm__rc.d1562[341], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write* */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[957]), scm__rc.d1562[2]);
  scm__rc.d1562[377] = Scm_MakeExtendedPair(scm__rc.d1562[375], SCM_OBJ(&scm__rc.d1563[950]), SCM_OBJ(&scm__rc.d1563[958]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[959]), scm__rc.d1562[377]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[29]))->name = scm__rc.d1562[375];/* write-with-shared-structure */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]))[28] = SCM_WORD(scm__rc.d1562[172]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]))[32] = SCM_WORD(scm__rc.d1562[376]);
  ScmObj G1600 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[29]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[375]) /* write-with-shared-structure */, G1600,0);

  scm__rc.d1562[378] = Scm_MakeIdentifier(scm__rc.d1562[375], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write-with-shared-structure */
  scm__rc.d1562[380] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[233])),TRUE); /* write/ss */
  scm__rc.d1562[379] = Scm_MakeIdentifier(scm__rc.d1562[380], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#write/ss */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[30]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[736]))[1] = SCM_WORD(scm__rc.d1562[378]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[736]))[3] = SCM_WORD(scm__rc.d1562[379]);
  scm__rc.d1562[381] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[234])),TRUE); /* print */
  scm__rc.d1562[382] = Scm_MakeIdentifier(scm__rc.d1562[242], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#display */
  scm__rc.d1562[384] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[235])),TRUE); /* for-each */
  scm__rc.d1562[383] = Scm_MakeIdentifier(scm__rc.d1562[384], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#for-each */
  scm__rc.d1562[385] = Scm_MakeIdentifier(scm__rc.d1562[327], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#newline */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[962]), scm__rc.d1562[2]);
  scm__rc.d1562[386] = Scm_MakeExtendedPair(scm__rc.d1562[381], scm__rc.d1562[168], SCM_OBJ(&scm__rc.d1563[963]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[964]), scm__rc.d1562[386]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[31]))->name = scm__rc.d1562[381];/* print */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[741]))[3] = SCM_WORD(scm__rc.d1562[382]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[741]))[6] = SCM_WORD(scm__rc.d1562[383]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[741]))[8] = SCM_WORD(scm__rc.d1562[385]);
  ScmObj G1601 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[31]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[381]) /* print */, G1601,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  Scm_InitBuiltinClass(&Scm_WriteControlsClass, "<write-controls>", Scm_WriteControlsClass__SLOTS, TRUE, SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
  scm__rc.d1562[387] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[236])),TRUE); /* make-write-controls */
  scm__rc.d1562[389] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[237])),TRUE); /* undefined? */
  scm__rc.d1562[388] = Scm_MakeIdentifier(scm__rc.d1562[389], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#undefined? */
  scm__rc.d1562[391] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[238])),TRUE); /* <write-controls> */
  scm__rc.d1562[390] = Scm_MakeIdentifier(scm__rc.d1562[391], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#<write-controls> */
  scm__rc.d1562[392] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[239]))); /* :length */
  scm__rc.d1562[393] = Scm_MakeIdentifier(scm__rc.d1562[389], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#undefined? */
  scm__rc.d1562[394] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[240]))); /* :level */
  scm__rc.d1562[395] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[241]))); /* :width */
  scm__rc.d1562[396] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[242]))); /* :base */
  scm__rc.d1562[397] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[243]))); /* :radix */
  scm__rc.d1562[398] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[244]))); /* :pretty */
  scm__rc.d1562[399] = Scm_MakeIdentifier(scm__rc.d1562[181], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#make */
  scm__rc.d1562[400] = Scm_MakeIdentifier(scm__rc.d1562[173], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#error */
  scm__rc.d1562[402] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[246])),TRUE); /* unwrap-syntax-1 */
  scm__rc.d1562[401] = Scm_MakeIdentifier(scm__rc.d1562[402], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#unwrap-syntax-1 */
  scm__rc.d1562[403] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[247]))); /* :print-length */
  scm__rc.d1562[404] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[248]))); /* :print-level */
  scm__rc.d1562[405] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[249]))); /* :print-width */
  scm__rc.d1562[406] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[250]))); /* :print-base */
  scm__rc.d1562[407] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[251]))); /* :print-radix */
  scm__rc.d1562[408] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[252]))); /* :print-pretty */
  scm__rc.d1562[410] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[254])),TRUE); /* errorf */
  scm__rc.d1562[409] = Scm_MakeIdentifier(scm__rc.d1562[410], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#errorf */
  scm__rc.d1562[411] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28]))); /* :key */
  scm__rc.d1562[412] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[239])),TRUE); /* length */
  scm__rc.d1562[413] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[240])),TRUE); /* level */
  scm__rc.d1562[414] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[241])),TRUE); /* width */
  scm__rc.d1562[415] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[242])),TRUE); /* base */
  scm__rc.d1562[416] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[243])),TRUE); /* radix */
  scm__rc.d1562[417] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[244])),TRUE); /* pretty */
  scm__rc.d1562[418] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[247])),TRUE); /* print-length */
  scm__rc.d1562[419] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[248])),TRUE); /* print-level */
  scm__rc.d1562[420] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[249])),TRUE); /* print-width */
  scm__rc.d1562[421] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[250])),TRUE); /* print-base */
  scm__rc.d1562[422] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[251])),TRUE); /* print-radix */
  scm__rc.d1562[423] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[252])),TRUE); /* print-pretty */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[965]), scm__rc.d1562[423]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[966]), scm__rc.d1562[422]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[967]), scm__rc.d1562[421]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[968]), scm__rc.d1562[420]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[969]), scm__rc.d1562[419]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[970]), scm__rc.d1562[418]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[971]), scm__rc.d1562[417]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[972]), scm__rc.d1562[416]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[973]), scm__rc.d1562[415]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[974]), scm__rc.d1562[414]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[975]), scm__rc.d1562[413]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[976]), scm__rc.d1562[412]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[977]), scm__rc.d1562[411]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[980]), scm__rc.d1562[2]);
  scm__rc.d1562[424] = Scm_MakeExtendedPair(scm__rc.d1562[387], SCM_OBJ(&scm__rc.d1563[977]), SCM_OBJ(&scm__rc.d1563[981]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[982]), scm__rc.d1562[424]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[32]))->name = scm__rc.d1562[387];/* make-write-controls */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[32] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[44] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[56] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[68] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[80] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[92] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[104] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[116] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[128] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[140] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[152] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[164] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[173] = SCM_WORD(scm__rc.d1562[390]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[175] = SCM_WORD(scm__rc.d1562[392]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[180] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[189] = SCM_WORD(scm__rc.d1562[394]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[194] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[203] = SCM_WORD(scm__rc.d1562[395]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[208] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[217] = SCM_WORD(scm__rc.d1562[396]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[222] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[231] = SCM_WORD(scm__rc.d1562[397]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[236] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[245] = SCM_WORD(scm__rc.d1562[398]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[250] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[258] = SCM_WORD(scm__rc.d1562[399]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[268] = SCM_WORD(scm__rc.d1562[400]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[275] = SCM_WORD(scm__rc.d1562[401]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[279] = SCM_WORD(scm__rc.d1562[392]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[301] = SCM_WORD(scm__rc.d1562[394]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[323] = SCM_WORD(scm__rc.d1562[395]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[345] = SCM_WORD(scm__rc.d1562[396]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[367] = SCM_WORD(scm__rc.d1562[397]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[389] = SCM_WORD(scm__rc.d1562[398]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[411] = SCM_WORD(scm__rc.d1562[403]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[433] = SCM_WORD(scm__rc.d1562[404]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[455] = SCM_WORD(scm__rc.d1562[405]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[477] = SCM_WORD(scm__rc.d1562[406]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[499] = SCM_WORD(scm__rc.d1562[407]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[521] = SCM_WORD(scm__rc.d1562[408]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[548] = SCM_WORD(scm__rc.d1562[409]);
  ScmObj G1617 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[32]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[387]) /* make-write-controls */, G1617,0);

  scm__rc.d1562[425] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[255])),TRUE); /* write-controls-copy */
  scm__rc.d1562[427] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[256])),TRUE); /* slot-ref */
  scm__rc.d1562[426] = Scm_MakeIdentifier(scm__rc.d1562[427], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#slot-ref */
  scm__rc.d1562[428] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[257])),TRUE); /* wc */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[983]), scm__rc.d1562[428]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[986]), scm__rc.d1562[2]);
  scm__rc.d1562[429] = Scm_MakeExtendedPair(scm__rc.d1562[425], SCM_OBJ(&scm__rc.d1563[983]), SCM_OBJ(&scm__rc.d1563[987]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[988]), scm__rc.d1562[429]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[33]))->name = scm__rc.d1562[425];/* write-controls-copy */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[32] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[44] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[56] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[68] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[80] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[92] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[104] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[116] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[128] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[140] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[152] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[164] = SCM_WORD(scm__rc.d1562[388]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[176] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[183] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[190] = SCM_WORD(scm__rc.d1562[412]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[192] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[203] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[210] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[217] = SCM_WORD(scm__rc.d1562[413]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[219] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[230] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[237] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[244] = SCM_WORD(scm__rc.d1562[414]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[246] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[257] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[264] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[271] = SCM_WORD(scm__rc.d1562[415]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[273] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[284] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[291] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[298] = SCM_WORD(scm__rc.d1562[416]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[300] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[311] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[318] = SCM_WORD(scm__rc.d1562[393]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[325] = SCM_WORD(scm__rc.d1562[417]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[327] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[340] = SCM_WORD(scm__rc.d1562[412]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[342] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[350] = SCM_WORD(scm__rc.d1562[413]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[352] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[360] = SCM_WORD(scm__rc.d1562[414]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[362] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[370] = SCM_WORD(scm__rc.d1562[415]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[372] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[380] = SCM_WORD(scm__rc.d1562[416]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[382] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[390] = SCM_WORD(scm__rc.d1562[417]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[392] = SCM_WORD(scm__rc.d1562[426]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[397] = SCM_WORD(scm__rc.d1562[390]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[399] = SCM_WORD(scm__rc.d1562[392]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[402] = SCM_WORD(scm__rc.d1562[394]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[405] = SCM_WORD(scm__rc.d1562[395]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[408] = SCM_WORD(scm__rc.d1562[396]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[411] = SCM_WORD(scm__rc.d1562[397]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[414] = SCM_WORD(scm__rc.d1562[398]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[417] = SCM_WORD(scm__rc.d1562[399]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[442] = SCM_WORD(scm__rc.d1562[400]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[449] = SCM_WORD(scm__rc.d1562[401]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[453] = SCM_WORD(scm__rc.d1562[392]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[475] = SCM_WORD(scm__rc.d1562[394]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[497] = SCM_WORD(scm__rc.d1562[395]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[519] = SCM_WORD(scm__rc.d1562[396]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[541] = SCM_WORD(scm__rc.d1562[397]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[563] = SCM_WORD(scm__rc.d1562[398]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[585] = SCM_WORD(scm__rc.d1562[403]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[607] = SCM_WORD(scm__rc.d1562[404]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[629] = SCM_WORD(scm__rc.d1562[405]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[651] = SCM_WORD(scm__rc.d1562[406]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[673] = SCM_WORD(scm__rc.d1562[407]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[695] = SCM_WORD(scm__rc.d1562[408]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[722] = SCM_WORD(scm__rc.d1562[409]);
  ScmObj G1633 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[33]), NULL);

  Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[425]) /* write-controls-copy */, G1633,0);

   Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
  scm__rc.d1562[430] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[258])),TRUE); /* open-input-file */
  scm__rc.d1562[431] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[259]))); /* :encoding */
  scm__rc.d1562[433] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[260])),TRUE); /* get-keyword */
  scm__rc.d1562[432] = Scm_MakeIdentifier(scm__rc.d1562[433], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#get-keyword */
  scm__rc.d1562[434] = Scm_MakeIdentifier(scm__rc.d1562[77], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%open-input-file */
  scm__rc.d1562[436] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[261])),TRUE); /* delete-keyword */
  scm__rc.d1562[435] = Scm_MakeIdentifier(scm__rc.d1562[436], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#delete-keyword */
  scm__rc.d1562[437] = Scm_MakeIdentifier(scm__rc.d1562[117], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-coding-aware-port */
  scm__rc.d1562[439] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[262])),TRUE); /* %open-input-file/conv */
  scm__rc.d1562[438] = Scm_MakeIdentifier(scm__rc.d1562[439], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%open-input-file/conv */
  scm__rc.d1562[440] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[263])),TRUE); /* filename */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[989]), scm__rc.d1562[440]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[989]), scm__rc.d1562[168]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[992]), scm__rc.d1562[2]);
  scm__rc.d1562[441] = Scm_MakeExtendedPair(scm__rc.d1562[430], SCM_OBJ(&scm__rc.d1563[989]), SCM_OBJ(&scm__rc.d1563[993]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[994]), scm__rc.d1562[441]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[34]))->name = scm__rc.d1562[430];/* open-input-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[3] = SCM_WORD(scm__rc.d1562[431]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[7] = SCM_WORD(scm__rc.d1562[432]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[14] = SCM_WORD(scm__rc.d1562[434]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[26] = SCM_WORD(scm__rc.d1562[434]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[31] = SCM_WORD(scm__rc.d1562[431]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[34] = SCM_WORD(scm__rc.d1562[435]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[41] = SCM_WORD(scm__rc.d1562[437]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[44] = SCM_WORD(scm__rc.d1562[438]);
  ScmObj G1634 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[34]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[430]) /* open-input-file */, G1634,0);

  scm__rc.d1562[442] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[264])),TRUE); /* open-output-file */
  scm__rc.d1562[444] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[265])),TRUE); /* %open-output-file/conv */
  scm__rc.d1562[443] = Scm_MakeIdentifier(scm__rc.d1562[444], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%open-output-file/conv */
  scm__rc.d1562[445] = Scm_MakeIdentifier(scm__rc.d1562[87], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%open-output-file */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[997]), scm__rc.d1562[2]);
  scm__rc.d1562[446] = Scm_MakeExtendedPair(scm__rc.d1562[442], SCM_OBJ(&scm__rc.d1563[989]), SCM_OBJ(&scm__rc.d1563[998]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[999]), scm__rc.d1562[446]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[35]))->name = scm__rc.d1562[442];/* open-output-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]))[3] = SCM_WORD(scm__rc.d1562[431]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]))[7] = SCM_WORD(scm__rc.d1562[432]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]))[11] = SCM_WORD(scm__rc.d1562[443]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]))[17] = SCM_WORD(scm__rc.d1562[445]);
  ScmObj G1635 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[35]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[442]) /* open-output-file */, G1635,0);

  scm__rc.d1562[447] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[266])),TRUE); /* call-with-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1000]), scm__rc.d1562[447]);
  scm__rc.d1562[448] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1000]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1001]), scm__rc.d1562[448]);
  scm__rc.d1562[449] = Scm_MakeIdentifier(scm__rc.d1562[69], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#close-port */
  scm__rc.d1562[450] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1000]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1002]), scm__rc.d1562[450]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2134]))[2] = SCM_WORD(scm__rc.d1562[449]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1005]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1008]), scm__rc.d1562[2]);
  scm__rc.d1562[451] = Scm_MakeExtendedPair(scm__rc.d1562[447], SCM_OBJ(&scm__rc.d1563[1005]), SCM_OBJ(&scm__rc.d1563[1009]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1010]), scm__rc.d1562[451]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[38]))->name = scm__rc.d1562[447];/* call-with-port */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2138]))[7] = SCM_WORD(scm__rc.d1562[165]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2138]))[11] = SCM_WORD(scm__rc.d1562[166]);
  ScmObj G1636 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[38]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[447]) /* call-with-port */, G1636,0);

  scm__rc.d1562[452] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[267])),TRUE); /* call-with-input-file */
  scm__rc.d1562[453] = Scm_MakeIdentifier(scm__rc.d1562[430], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-input-file */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1011]), scm__rc.d1562[452]);
  scm__rc.d1562[454] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1011]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1012]), scm__rc.d1562[454]);
  scm__rc.d1562[455] = Scm_MakeIdentifier(scm__rc.d1562[65], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#close-input-port */
  scm__rc.d1562[456] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1011]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1013]), scm__rc.d1562[456]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2155]))[5] = SCM_WORD(scm__rc.d1562[455]);
  scm__rc.d1562[457] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[268])),TRUE); /* flags */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1016]), scm__rc.d1562[56]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[1016]), scm__rc.d1562[457]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1017]), scm__rc.d1562[440]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1020]), scm__rc.d1562[2]);
  scm__rc.d1562[458] = Scm_MakeExtendedPair(scm__rc.d1562[452], SCM_OBJ(&scm__rc.d1563[1017]), SCM_OBJ(&scm__rc.d1563[1021]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1022]), scm__rc.d1562[458]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[41]))->name = scm__rc.d1562[452];/* call-with-input-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2163]))[3] = SCM_WORD(scm__rc.d1562[453]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2163]))[15] = SCM_WORD(scm__rc.d1562[165]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2163]))[19] = SCM_WORD(scm__rc.d1562[166]);
  ScmObj G1637 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[41]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[452]) /* call-with-input-file */, G1637,0);

  scm__rc.d1562[459] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[269])),TRUE); /* call-with-output-file */
  scm__rc.d1562[460] = Scm_MakeIdentifier(scm__rc.d1562[442], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-output-file */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1023]), scm__rc.d1562[459]);
  scm__rc.d1562[461] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1023]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1024]), scm__rc.d1562[461]);
  scm__rc.d1562[462] = Scm_MakeIdentifier(scm__rc.d1562[67], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#close-output-port */
  scm__rc.d1562[463] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1023]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1025]), scm__rc.d1562[463]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2188]))[5] = SCM_WORD(scm__rc.d1562[462]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1030]), scm__rc.d1562[2]);
  scm__rc.d1562[464] = Scm_MakeExtendedPair(scm__rc.d1562[459], SCM_OBJ(&scm__rc.d1563[1017]), SCM_OBJ(&scm__rc.d1563[1031]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1032]), scm__rc.d1562[464]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[44]))->name = scm__rc.d1562[459];/* call-with-output-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2196]))[3] = SCM_WORD(scm__rc.d1562[460]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2196]))[15] = SCM_WORD(scm__rc.d1562[165]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2196]))[19] = SCM_WORD(scm__rc.d1562[166]);
  ScmObj G1638 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[44]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[459]) /* call-with-output-file */, G1638,0);

  scm__rc.d1562[465] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[270])),TRUE); /* with-input-from-file */
  scm__rc.d1562[467] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[271])),TRUE); /* with-input-from-port */
  scm__rc.d1562[466] = Scm_MakeIdentifier(scm__rc.d1562[467], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#with-input-from-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1033]), scm__rc.d1562[465]);
  scm__rc.d1562[468] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1033]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1034]), scm__rc.d1562[468]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2217]))[3] = SCM_WORD(scm__rc.d1562[466]);
  scm__rc.d1562[469] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1033]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1035]), scm__rc.d1562[469]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2222]))[2] = SCM_WORD(scm__rc.d1562[455]);
  scm__rc.d1562[470] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[272])),TRUE); /* thunk */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1038]), scm__rc.d1562[470]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[1038]), scm__rc.d1562[457]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1039]), scm__rc.d1562[440]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1042]), scm__rc.d1562[2]);
  scm__rc.d1562[471] = Scm_MakeExtendedPair(scm__rc.d1562[465], SCM_OBJ(&scm__rc.d1563[1039]), SCM_OBJ(&scm__rc.d1563[1043]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1044]), scm__rc.d1562[471]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[47]))->name = scm__rc.d1562[465];/* with-input-from-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2226]))[3] = SCM_WORD(scm__rc.d1562[453]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2226]))[17] = SCM_WORD(scm__rc.d1562[165]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2226]))[21] = SCM_WORD(scm__rc.d1562[166]);
  ScmObj G1639 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[47]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[465]) /* with-input-from-file */, G1639,0);

  scm__rc.d1562[472] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[273])),TRUE); /* with-output-to-file */
  scm__rc.d1562[474] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[274])),TRUE); /* with-output-to-port */
  scm__rc.d1562[473] = Scm_MakeIdentifier(scm__rc.d1562[474], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#with-output-to-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1045]), scm__rc.d1562[472]);
  scm__rc.d1562[475] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1045]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1046]), scm__rc.d1562[475]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2249]))[3] = SCM_WORD(scm__rc.d1562[473]);
  scm__rc.d1562[476] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1045]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1047]), scm__rc.d1562[476]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2254]))[2] = SCM_WORD(scm__rc.d1562[462]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1052]), scm__rc.d1562[2]);
  scm__rc.d1562[477] = Scm_MakeExtendedPair(scm__rc.d1562[472], SCM_OBJ(&scm__rc.d1563[1039]), SCM_OBJ(&scm__rc.d1563[1053]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1054]), scm__rc.d1562[477]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[50]))->name = scm__rc.d1562[472];/* with-output-to-file */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2258]))[3] = SCM_WORD(scm__rc.d1562[460]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2258]))[17] = SCM_WORD(scm__rc.d1562[165]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2258]))[21] = SCM_WORD(scm__rc.d1562[166]);
  ScmObj G1640 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[50]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[472]) /* with-output-to-file */, G1640,0);

  scm__rc.d1562[478] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[275])),TRUE); /* with-output-to-string */
  scm__rc.d1562[479] = Scm_MakeIdentifier(scm__rc.d1562[107], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-output-string */
  scm__rc.d1562[480] = Scm_MakeIdentifier(scm__rc.d1562[109], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#get-output-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1055]), scm__rc.d1562[470]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1058]), scm__rc.d1562[2]);
  scm__rc.d1562[481] = Scm_MakeExtendedPair(scm__rc.d1562[478], SCM_OBJ(&scm__rc.d1563[1055]), SCM_OBJ(&scm__rc.d1563[1059]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1060]), scm__rc.d1562[481]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[51]))->name = scm__rc.d1562[478];/* with-output-to-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]))[3] = SCM_WORD(scm__rc.d1562[479]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]))[10] = SCM_WORD(scm__rc.d1562[473]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]))[13] = SCM_WORD(scm__rc.d1562[480]);
  ScmObj G1641 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[51]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[478]) /* with-output-to-string */, G1641,0);

  scm__rc.d1562[482] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[276])),TRUE); /* with-input-from-string */
  scm__rc.d1562[483] = Scm_MakeIdentifier(scm__rc.d1562[105], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-input-string */
  scm__rc.d1562[484] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[277])),TRUE); /* str */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1061]), scm__rc.d1562[484]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1064]), scm__rc.d1562[2]);
  scm__rc.d1562[485] = Scm_MakeExtendedPair(scm__rc.d1562[482], SCM_OBJ(&scm__rc.d1563[1061]), SCM_OBJ(&scm__rc.d1563[1065]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1066]), scm__rc.d1562[485]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[52]))->name = scm__rc.d1562[482];/* with-input-from-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2296]))[4] = SCM_WORD(scm__rc.d1562[483]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2296]))[8] = SCM_WORD(scm__rc.d1562[466]);
  ScmObj G1642 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[52]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[482]) /* with-input-from-string */, G1642,0);

  scm__rc.d1562[486] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[278])),TRUE); /* call-with-output-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1069]), scm__rc.d1562[2]);
  scm__rc.d1562[487] = Scm_MakeExtendedPair(scm__rc.d1562[486], SCM_OBJ(&scm__rc.d1563[786]), SCM_OBJ(&scm__rc.d1563[1070]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1071]), scm__rc.d1562[487]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[53]))->name = scm__rc.d1562[486];/* call-with-output-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2306]))[3] = SCM_WORD(scm__rc.d1562[479]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2306]))[12] = SCM_WORD(scm__rc.d1562[480]);
  ScmObj G1643 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[53]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[486]) /* call-with-output-string */, G1643,0);

  scm__rc.d1562[488] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[279])),TRUE); /* call-with-input-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1072]), scm__rc.d1562[484]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1075]), scm__rc.d1562[2]);
  scm__rc.d1562[489] = Scm_MakeExtendedPair(scm__rc.d1562[488], SCM_OBJ(&scm__rc.d1563[1072]), SCM_OBJ(&scm__rc.d1563[1076]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1077]), scm__rc.d1562[489]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[54]))->name = scm__rc.d1562[488];/* call-with-input-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2320]))[4] = SCM_WORD(scm__rc.d1562[483]);
  ScmObj G1644 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[54]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[488]) /* call-with-input-string */, G1644,0);

  scm__rc.d1562[490] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[280])),TRUE); /* call-with-string-io */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1080]), scm__rc.d1562[2]);
  scm__rc.d1562[491] = Scm_MakeExtendedPair(scm__rc.d1562[490], SCM_OBJ(&scm__rc.d1563[1072]), SCM_OBJ(&scm__rc.d1563[1081]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1082]), scm__rc.d1562[491]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[55]))->name = scm__rc.d1562[490];/* call-with-string-io */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]))[3] = SCM_WORD(scm__rc.d1562[479]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]))[8] = SCM_WORD(scm__rc.d1562[483]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]))[18] = SCM_WORD(scm__rc.d1562[480]);
  ScmObj G1645 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[55]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[490]) /* call-with-string-io */, G1645,0);

  scm__rc.d1562[492] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[281])),TRUE); /* with-string-io */
  scm__rc.d1562[493] = Scm_MakeIdentifier(scm__rc.d1562[482], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#with-input-from-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1083]), scm__rc.d1562[492]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1086]), scm__rc.d1562[2]);
  scm__rc.d1562[494] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1083]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[1087]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1088]), scm__rc.d1562[494]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2349]))[3] = SCM_WORD(scm__rc.d1562[493]);
  scm__rc.d1562[495] = Scm_MakeIdentifier(scm__rc.d1562[478], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#with-output-to-string */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1091]), scm__rc.d1562[2]);
  scm__rc.d1562[496] = Scm_MakeExtendedPair(scm__rc.d1562[492], SCM_OBJ(&scm__rc.d1563[1061]), SCM_OBJ(&scm__rc.d1563[1092]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1093]), scm__rc.d1562[496]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[57]))->name = scm__rc.d1562[492];/* with-string-io */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2354]))[3] = SCM_WORD(scm__rc.d1562[495]);
  ScmObj G1646 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[57]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[492]) /* with-string-io */, G1646,0);

  scm__rc.d1562[497] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[282])),TRUE); /* write-to-string */
  scm__rc.d1562[498] = Scm_MakeIdentifier(scm__rc.d1562[318], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write */
  scm__rc.d1562[499] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[283])),TRUE); /* writer */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1094]), scm__rc.d1562[499]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1096]), scm__rc.d1562[14]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1097]), scm__rc.d1562[1]);
  scm__rc.d1562[500] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[284])),TRUE); /* cut */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1098]), scm__rc.d1562[499]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1099]), scm__rc.d1562[500]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1101]), scm__rc.d1562[478]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1104]), scm__rc.d1562[220]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1105]), scm__rc.d1562[497]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1108]), scm__rc.d1562[2]);
  scm__rc.d1562[501] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1105]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[1109]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1110]), scm__rc.d1562[501]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1113]), scm__rc.d1562[2]);
  scm__rc.d1562[502] = Scm_MakeExtendedPair(scm__rc.d1562[497], SCM_OBJ(&scm__rc.d1563[1097]), SCM_OBJ(&scm__rc.d1563[1114]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1115]), scm__rc.d1562[502]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[59]))->name = scm__rc.d1562[497];/* write-to-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]))[4] = SCM_WORD(scm__rc.d1562[498]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]))[29] = SCM_WORD(scm__rc.d1562[172]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]))[33] = SCM_WORD(scm__rc.d1562[495]);
  ScmObj G1650 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[59]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[497]) /* write-to-string */, G1650,0);

  scm__rc.d1562[503] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[285])),TRUE); /* read-from-string */
  scm__rc.d1562[504] = Scm_MakeIdentifier(scm__rc.d1562[244], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%maybe-substring */
  scm__rc.d1562[505] = Scm_MakeIdentifier(scm__rc.d1562[188], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#read */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1116]), scm__rc.d1562[57]);
  SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[1116]), scm__rc.d1562[168]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1119]), scm__rc.d1562[2]);
  scm__rc.d1562[506] = Scm_MakeExtendedPair(scm__rc.d1562[503], SCM_OBJ(&scm__rc.d1563[1116]), SCM_OBJ(&scm__rc.d1563[1120]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1121]), scm__rc.d1562[506]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[60]))->name = scm__rc.d1562[503];/* read-from-string */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]))[9] = SCM_WORD(scm__rc.d1562[504]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]))[14] = SCM_WORD(scm__rc.d1562[505]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]))[16] = SCM_WORD(scm__rc.d1562[493]);
  ScmObj G1651 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[60]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[503]) /* read-from-string */, G1651,0);

  scm__rc.d1562[507] = Scm_MakeIdentifier(scm__rc.d1562[13], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#current-input-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1122]), scm__rc.d1562[467]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1123]), scm__rc.d1562[467]);
  scm__rc.d1562[508] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1123]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1124]), scm__rc.d1562[508]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[61]))->name = scm__rc.d1562[467];/* (with-input-from-port with-input-from-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2416]))[5] = SCM_WORD(scm__rc.d1562[507]);
  scm__rc.d1562[509] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1123]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1125]), scm__rc.d1562[509]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[62]))->name = scm__rc.d1562[467];/* (with-input-from-port with-input-from-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2424]))[7] = SCM_WORD(scm__rc.d1562[507]);
  scm__rc.d1562[511] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[286])),TRUE); /* values */
  scm__rc.d1562[510] = Scm_MakeIdentifier(scm__rc.d1562[511], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#values */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1126]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1129]), scm__rc.d1562[2]);
  scm__rc.d1562[512] = Scm_MakeExtendedPair(scm__rc.d1562[467], SCM_OBJ(&scm__rc.d1563[1126]), SCM_OBJ(&scm__rc.d1563[1130]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1131]), scm__rc.d1562[512]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[63]))->name = scm__rc.d1562[467];/* with-input-from-port */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2435]))[27] = SCM_WORD(scm__rc.d1562[510]);
  ScmObj G1652 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[63]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[467]) /* with-input-from-port */, G1652,0);

  scm__rc.d1562[513] = Scm_MakeIdentifier(scm__rc.d1562[17], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#current-output-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1132]), scm__rc.d1562[474]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1133]), scm__rc.d1562[474]);
  scm__rc.d1562[514] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1133]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1134]), scm__rc.d1562[514]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[64]))->name = scm__rc.d1562[474];/* (with-output-to-port with-output-to-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2466]))[5] = SCM_WORD(scm__rc.d1562[513]);
  scm__rc.d1562[515] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1133]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1135]), scm__rc.d1562[515]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[65]))->name = scm__rc.d1562[474];/* (with-output-to-port with-output-to-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2474]))[7] = SCM_WORD(scm__rc.d1562[513]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1138]), scm__rc.d1562[2]);
  scm__rc.d1562[516] = Scm_MakeExtendedPair(scm__rc.d1562[474], SCM_OBJ(&scm__rc.d1563[1126]), SCM_OBJ(&scm__rc.d1563[1139]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1140]), scm__rc.d1562[516]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[66]))->name = scm__rc.d1562[474];/* with-output-to-port */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2485]))[27] = SCM_WORD(scm__rc.d1562[510]);
  ScmObj G1653 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[66]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[474]) /* with-output-to-port */, G1653,0);

  scm__rc.d1562[517] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[287])),TRUE); /* with-error-to-port */
  scm__rc.d1562[518] = Scm_MakeIdentifier(scm__rc.d1562[19], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#current-error-port */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1141]), scm__rc.d1562[517]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1142]), scm__rc.d1562[517]);
  scm__rc.d1562[519] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1142]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1143]), scm__rc.d1562[519]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[67]))->name = scm__rc.d1562[517];/* (with-error-to-port with-error-to-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2516]))[5] = SCM_WORD(scm__rc.d1562[518]);
  scm__rc.d1562[520] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1142]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1144]), scm__rc.d1562[520]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[68]))->name = scm__rc.d1562[517];/* (with-error-to-port with-error-to-port) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2524]))[7] = SCM_WORD(scm__rc.d1562[518]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1147]), scm__rc.d1562[2]);
  scm__rc.d1562[521] = Scm_MakeExtendedPair(scm__rc.d1562[517], SCM_OBJ(&scm__rc.d1563[1126]), SCM_OBJ(&scm__rc.d1563[1148]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1149]), scm__rc.d1562[521]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[69]))->name = scm__rc.d1562[517];/* with-error-to-port */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2535]))[27] = SCM_WORD(scm__rc.d1562[510]);
  ScmObj G1654 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[69]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[517]) /* with-error-to-port */, G1654,0);

  scm__rc.d1562[522] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[288])),TRUE); /* with-ports */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1150]), scm__rc.d1562[522]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1151]), scm__rc.d1562[522]);
  scm__rc.d1562[523] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1151]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1152]), scm__rc.d1562[523]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[70]))->name = scm__rc.d1562[522];/* (with-ports with-ports) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]))[7] = SCM_WORD(scm__rc.d1562[507]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]))[17] = SCM_WORD(scm__rc.d1562[513]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]))[25] = SCM_WORD(scm__rc.d1562[518]);
  scm__rc.d1562[524] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1151]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1153]), scm__rc.d1562[524]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[71]))->name = scm__rc.d1562[522];/* (with-ports with-ports) */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]))[7] = SCM_WORD(scm__rc.d1562[507]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]))[18] = SCM_WORD(scm__rc.d1562[513]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]))[29] = SCM_WORD(scm__rc.d1562[518]);
  scm__rc.d1562[525] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[289])),TRUE); /* eport */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1154]), scm__rc.d1562[525]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1155]), scm__rc.d1562[110]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1156]), scm__rc.d1562[115]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1159]), scm__rc.d1562[2]);
  scm__rc.d1562[526] = Scm_MakeExtendedPair(scm__rc.d1562[522], SCM_OBJ(&scm__rc.d1563[1156]), SCM_OBJ(&scm__rc.d1563[1160]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1161]), scm__rc.d1562[526]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[72]))->name = scm__rc.d1562[522];/* with-ports */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2627]))[31] = SCM_WORD(scm__rc.d1562[510]);
  ScmObj G1655 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[72]), NULL);

  Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[522]) /* with-ports */, G1655,0);

  scm__rc.d1562[527] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[290])),TRUE); /* r6rs */
  scm__rc.d1562[529] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[292])),TRUE); /* warn */
  scm__rc.d1562[528] = Scm_MakeIdentifier(scm__rc.d1562[529], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#warn */
  scm__rc.d1562[530] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[293])),TRUE); /* sym */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1162]), scm__rc.d1562[29]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1163]), scm__rc.d1562[530]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1166]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1167]), scm__rc.d1562[138]);
  scm__rc.d1562[531] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1169]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1170]), scm__rc.d1562[531]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2662]))[5] = SCM_WORD(scm__rc.d1562[528]);
  scm__rc.d1562[532] = Scm_MakeIdentifier(scm__rc.d1562[302], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#define-reader-directive */
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[74]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2669]))[1] = SCM_WORD(scm__rc.d1562[527]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2669]))[5] = SCM_WORD(scm__rc.d1562[532]);
  scm__rc.d1562[533] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[294])),TRUE); /* fold-case */
  scm__rc.d1562[534] = Scm_MakeIdentifier(scm__rc.d1562[62], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#port-case-fold-set! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1173]), scm__rc.d1562[2]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1174]), scm__rc.d1562[530]);
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1175]), scm__rc.d1562[138]);
  scm__rc.d1562[535] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1177]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1178]), scm__rc.d1562[535]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2676]))[6] = SCM_WORD(scm__rc.d1562[534]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[76]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2684]))[1] = SCM_WORD(scm__rc.d1562[533]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2684]))[5] = SCM_WORD(scm__rc.d1562[532]);
  scm__rc.d1562[536] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[295])),TRUE); /* no-fold-case */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1181]), scm__rc.d1562[2]);
  scm__rc.d1562[537] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1182]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1183]), scm__rc.d1562[537]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2691]))[5] = SCM_WORD(scm__rc.d1562[534]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[78]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2698]))[1] = SCM_WORD(scm__rc.d1562[536]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2698]))[5] = SCM_WORD(scm__rc.d1562[532]);
  scm__rc.d1562[538] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[296])),TRUE); /* gauche-legacy */
  scm__rc.d1562[539] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[297])),TRUE); /* legacy */
  scm__rc.d1562[540] = Scm_MakeIdentifier(scm__rc.d1562[40], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#port-attribute-set! */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1186]), scm__rc.d1562[2]);
  scm__rc.d1562[541] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1187]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1188]), scm__rc.d1562[541]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2705]))[4] = SCM_WORD(scm__rc.d1562[289]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2705]))[6] = SCM_WORD(scm__rc.d1562[539]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2705]))[8] = SCM_WORD(scm__rc.d1562[540]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[80]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2715]))[1] = SCM_WORD(scm__rc.d1562[538]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2715]))[5] = SCM_WORD(scm__rc.d1562[532]);
  scm__rc.d1562[542] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[298])),TRUE); /* r7rs */
  scm__rc.d1562[543] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[299])),TRUE); /* strict-r7 */
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1191]), scm__rc.d1562[2]);
  scm__rc.d1562[544] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1192]));
  SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1193]), scm__rc.d1562[544]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2722]))[4] = SCM_WORD(scm__rc.d1562[289]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2722]))[6] = SCM_WORD(scm__rc.d1562[543]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2722]))[8] = SCM_WORD(scm__rc.d1562[540]);
  SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[82]))->name = scm__rc.d1562[205];/* %toplevel */
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2732]))[1] = SCM_WORD(scm__rc.d1562[542]);
  ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2732]))[5] = SCM_WORD(scm__rc.d1562[532]);
  Scm_VMExecuteToplevels(toplevels);
}
