1 /* Generated automatically from libio.scm. DO NOT EDIT */
2 #define LIBGAUCHE_BODY
3 #include <gauche.h>
4 #include <gauche/code.h>
5
6 #line 37 "libio.scm"
7 #include <gauche/vminsn.h>
8 #include <gauche/class.h>
9 #include <gauche/exception.h>
10 #include <gauche/priv/portP.h>
11 #include <gauche/priv/writerP.h>
12 #include <stdlib.h>
13 #include <fcntl.h>
14
15
16 static ScmObj libioinput_portP(ScmObj*, int, void*);
17 static SCM_DEFINE_SUBR(libioinput_portP__STUB, 1, 0,SCM_FALSE,libioinput_portP, NULL, NULL);
18
19
20 static ScmObj libiooutput_portP(ScmObj*, int, void*);
21 static SCM_DEFINE_SUBR(libiooutput_portP__STUB, 1, 0,SCM_FALSE,libiooutput_portP, NULL, NULL);
22
23
24 static ScmObj libioportP(ScmObj*, int, void*);
25 static SCM_DEFINE_SUBR(libioportP__STUB, 1, 0,SCM_FALSE,libioportP, NULL, NULL);
26
27
28 static ScmObj libioport_closedP(ScmObj*, int, void*);
29 static SCM_DEFINE_SUBRX(libioport_closedP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_closedP, NULL, NULL);
30
31
32 static ScmObj libiocurrent_input_port(ScmObj*, int, void*);
33 static SCM_DEFINE_SUBR(libiocurrent_input_port__STUB, 0, 2,SCM_FALSE,libiocurrent_input_port, NULL, NULL);
34
35
36 static ScmObj libiocurrent_output_port(ScmObj*, int, void*);
37 static SCM_DEFINE_SUBR(libiocurrent_output_port__STUB, 0, 2,SCM_FALSE,libiocurrent_output_port, NULL, NULL);
38
39
40 static ScmObj libiocurrent_error_port(ScmObj*, int, void*);
41 static SCM_DEFINE_SUBR(libiocurrent_error_port__STUB, 0, 2,SCM_FALSE,libiocurrent_error_port, NULL, NULL);
42
43
44 static ScmObj libiostandard_input_port(ScmObj*, int, void*);
45 static SCM_DEFINE_SUBRX(libiostandard_input_port__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiostandard_input_port, NULL, NULL);
46
47
48 static ScmObj libiostandard_output_port(ScmObj*, int, void*);
49 static SCM_DEFINE_SUBRX(libiostandard_output_port__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiostandard_output_port, NULL, NULL);
50
51
52 static ScmObj libiostandard_error_port(ScmObj*, int, void*);
53 static SCM_DEFINE_SUBRX(libiostandard_error_port__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiostandard_error_port, NULL, NULL);
54
55
56 static ScmObj libioport_name(ScmObj*, int, void*);
57 static SCM_DEFINE_SUBRX(libioport_name__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_name, NULL, NULL);
58
59
60 static ScmObj libioport_current_line(ScmObj*, int, void*);
61 static SCM_DEFINE_SUBRX(libioport_current_line__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_current_line, NULL, NULL);
62
63
64 static ScmObj libioport_file_number(ScmObj*, int, void*);
65 static SCM_DEFINE_SUBRX(libioport_file_number__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_file_number, NULL, NULL);
66
67
68 static ScmObj libioport_fd_dupX(ScmObj*, int, void*);
69 static SCM_DEFINE_SUBRX(libioport_fd_dupX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_fd_dupX, NULL, NULL);
70
71
72 static ScmObj libioport_attribute_setX(ScmObj*, int, void*);
73 static SCM_DEFINE_SUBR(libioport_attribute_setX__STUB, 3, 0,SCM_FALSE,libioport_attribute_setX, NULL, NULL);
74
75
76 static ScmObj libioport_attribute_ref(ScmObj*, int, void*);
77 static SCM_DEFINE_SUBR(libioport_attribute_ref__STUB, 2, 2,SCM_FALSE,libioport_attribute_ref, NULL, NULL);
78
79
80 static ScmObj libioport_attribute_createX(ScmObj*, int, void*);
81 static SCM_DEFINE_SUBR(libioport_attribute_createX__STUB, 2, 3,SCM_FALSE,libioport_attribute_createX, NULL, NULL);
82
83
84 static ScmObj libioport_attribute_deleteX(ScmObj*, int, void*);
85 static SCM_DEFINE_SUBR(libioport_attribute_deleteX__STUB, 2, 0,SCM_FALSE,libioport_attribute_deleteX, NULL, NULL);
86
87
88 static ScmObj libioport_attributes(ScmObj*, int, void*);
89 static SCM_DEFINE_SUBRX(libioport_attributes__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_attributes, NULL, NULL);
90
91
92 static ScmObj libioport_type(ScmObj*, int, void*);
93 static SCM_DEFINE_SUBRX(libioport_type__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_type, NULL, NULL);
94
95
96 static ScmObj libioport_buffering_SETTER(ScmObj*, int, void*);
97 static SCM_DEFINE_SUBR(libioport_buffering_SETTER__STUB, 2, 0,SCM_FALSE,libioport_buffering_SETTER, NULL, NULL);
98
99
100 static ScmObj libioport_buffering(ScmObj*, int, void*);
101 static SCM_DEFINE_SUBRX(libioport_buffering__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_buffering, NULL, NULL);
102
103
104 static ScmObj libioport_case_fold_setX(ScmObj*, int, void*);
105 static SCM_DEFINE_SUBRX(libioport_case_fold_setX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_case_fold_setX, NULL, NULL);
106
107
108 static ScmObj libioclose_input_port(ScmObj*, int, void*);
109 static SCM_DEFINE_SUBRX(libioclose_input_port__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioclose_input_port, NULL, NULL);
110
111
112 static ScmObj libioclose_output_port(ScmObj*, int, void*);
113 static SCM_DEFINE_SUBRX(libioclose_output_port__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioclose_output_port, NULL, NULL);
114
115
116 static ScmObj libioclose_port(ScmObj*, int, void*);
117 static SCM_DEFINE_SUBRX(libioclose_port__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioclose_port, NULL, NULL);
118
119
120 static ScmObj libio_25open_input_file(ScmObj*, int, void*);
121 static SCM_DEFINE_SUBRX(libio_25open_input_file__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25open_input_file, NULL, NULL);
122
123
124 static ScmObj libio_25open_output_file(ScmObj*, int, void*);
125 static SCM_DEFINE_SUBRX(libio_25open_output_file__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25open_output_file, NULL, NULL);
126
127
128 static ScmObj libioopen_input_fd_port(ScmObj*, int, void*);
129 static SCM_DEFINE_SUBRX(libioopen_input_fd_port__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_input_fd_port, NULL, NULL);
130
131
132 static ScmObj libioopen_output_fd_port(ScmObj*, int, void*);
133 static SCM_DEFINE_SUBRX(libioopen_output_fd_port__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_output_fd_port, NULL, NULL);
134
135 static void bufport_closer(ScmPort* p);
136 static ScmSize bufport_filler(ScmPort* p,ScmSize cnt);
137
138 static ScmObj libioopen_input_buffered_port(ScmObj*, int, void*);
139 static SCM_DEFINE_SUBRX(libioopen_input_buffered_port__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_input_buffered_port, NULL, NULL);
140
141 static ScmSize bufport_flusher(ScmPort* p,ScmSize cnt,int forcep);
142
143 static ScmObj libioopen_output_buffered_port(ScmObj*, int, void*);
144 static SCM_DEFINE_SUBRX(libioopen_output_buffered_port__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_output_buffered_port, NULL, NULL);
145
146
147 static ScmObj libioopen_input_string(ScmObj*, int, void*);
148 static SCM_DEFINE_SUBRX(libioopen_input_string__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_input_string, NULL, NULL);
149
150
151 static ScmObj libioopen_output_string(ScmObj*, int, void*);
152 static SCM_DEFINE_SUBRX(libioopen_output_string__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_output_string, NULL, NULL);
153
154
155 static ScmObj libioget_output_string(ScmObj*, int, void*);
156 static SCM_DEFINE_SUBRX(libioget_output_string__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioget_output_string, NULL, NULL);
157
158
159 static ScmObj libioget_output_byte_string(ScmObj*, int, void*);
160 static SCM_DEFINE_SUBRX(libioget_output_byte_string__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioget_output_byte_string, NULL, NULL);
161
162
163 static ScmObj libioget_remaining_input_string(ScmObj*, int, void*);
164 static SCM_DEFINE_SUBRX(libioget_remaining_input_string__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioget_remaining_input_string, NULL, NULL);
165
166
167 static ScmObj libioopen_coding_aware_port(ScmObj*, int, void*);
168 static SCM_DEFINE_SUBRX(libioopen_coding_aware_port__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioopen_coding_aware_port, NULL, NULL);
169
170
171 static ScmObj libioport_has_port_positionP(ScmObj*, int, void*);
172 static SCM_DEFINE_SUBRX(libioport_has_port_positionP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_has_port_positionP, NULL, NULL);
173
174
175 static ScmObj libioport_has_set_port_positionXP(ScmObj*, int, void*);
176 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);
177
178
179 static ScmObj libioport_position(ScmObj*, int, void*);
180 static SCM_DEFINE_SUBRX(libioport_position__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_position, NULL, NULL);
181
182
183 static ScmObj libioset_port_positionX(ScmObj*, int, void*);
184 static SCM_DEFINE_SUBR(libioset_port_positionX__STUB, 2, 0,SCM_FALSE,libioset_port_positionX, NULL, NULL);
185
186
187 static ScmObj libioport_seek(ScmObj*, int, void*);
188 static SCM_DEFINE_SUBRX(libioport_seek__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_seek, NULL, NULL);
189
190
191 static ScmObj libio_25port_walkingP_SETTER(ScmObj*, int, void*);
192 static SCM_DEFINE_SUBR(libio_25port_walkingP_SETTER__STUB, 2, 0,SCM_FALSE,libio_25port_walkingP_SETTER, NULL, NULL);
193
194
195 static ScmObj libio_25port_walkingP(ScmObj*, int, void*);
196 static SCM_DEFINE_SUBRX(libio_25port_walkingP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_walkingP, NULL, NULL);
197
198
199 static ScmObj libio_25port_writing_sharedP_SETTER(ScmObj*, int, void*);
200 static SCM_DEFINE_SUBR(libio_25port_writing_sharedP_SETTER__STUB, 2, 0,SCM_FALSE,libio_25port_writing_sharedP_SETTER, NULL, NULL);
201
202
203 static ScmObj libio_25port_writing_sharedP(ScmObj*, int, void*);
204 static SCM_DEFINE_SUBRX(libio_25port_writing_sharedP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_writing_sharedP, NULL, NULL);
205
206 static ScmObj write_state_allocate(ScmClass* klass,ScmObj initargs);
207 static void write_state_print(ScmObj obj,ScmPort* port,ScmWriteContext* ctx);
208
209 static ScmObj libio_25port_write_state_SETTER(ScmObj*, int, void*);
210 static SCM_DEFINE_SUBR(libio_25port_write_state_SETTER__STUB, 2, 0,SCM_FALSE,libio_25port_write_state_SETTER, NULL, NULL);
211
212
213 static ScmObj libio_25port_write_state(ScmObj*, int, void*);
214 static SCM_DEFINE_SUBRX(libio_25port_write_state__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_write_state, NULL, NULL);
215
216
217 static ScmObj libio_25port_lockX(ScmObj*, int, void*);
218 static SCM_DEFINE_SUBRX(libio_25port_lockX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_lockX, NULL, NULL);
219
220
221 static ScmObj libio_25port_unlockX(ScmObj*, int, void*);
222 static SCM_DEFINE_SUBRX(libio_25port_unlockX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_unlockX, NULL, NULL);
223
224
225 static ScmObj libioread(ScmObj*, int, void*);
226 static SCM_DEFINE_SUBRX(libioread__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread, NULL, NULL);
227
228
229 static ScmObj libioread_char(ScmObj*, int, void*);
230 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);
231
232
233 static ScmObj libiopeek_char(ScmObj*, int, void*);
234 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);
235
236
237 static ScmObj libioeof_objectP(ScmObj*, int, void*);
238 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);
239
240
241 static ScmObj libiochar_readyP(ScmObj*, int, void*);
242 static SCM_DEFINE_SUBRX(libiochar_readyP__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiochar_readyP, NULL, NULL);
243
244
245 static ScmObj libioeof_object(ScmObj*, int, void*);
246 static SCM_DEFINE_SUBRX(libioeof_object__STUB, 0, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioeof_object, NULL, NULL);
247
248
249 static ScmObj libiobyte_readyP(ScmObj*, int, void*);
250 static SCM_DEFINE_SUBRX(libiobyte_readyP__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiobyte_readyP, NULL, NULL);
251
252
253 static ScmObj libioread_byte(ScmObj*, int, void*);
254 static SCM_DEFINE_SUBRX(libioread_byte__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread_byte, NULL, NULL);
255
256
257 static ScmObj libiopeek_byte(ScmObj*, int, void*);
258 static SCM_DEFINE_SUBRX(libiopeek_byte__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiopeek_byte, NULL, NULL);
259
260
261 static ScmObj libioread_line(ScmObj*, int, void*);
262 static SCM_DEFINE_SUBR(libioread_line__STUB, 0, 3,SCM_FALSE,libioread_line, NULL, NULL);
263
264
265 static ScmObj libioread_block(ScmObj*, int, void*);
266 static SCM_DEFINE_SUBRX(libioread_block__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread_block, NULL, NULL);
267
268
269 static ScmObj libioread_list(ScmObj*, int, void*);
270 static SCM_DEFINE_SUBR(libioread_list__STUB, 1, 2,SCM_FALSE,libioread_list, NULL, NULL);
271
272
273 static ScmObj libioport_TObyte_string(ScmObj*, int, void*);
274 static SCM_DEFINE_SUBRX(libioport_TObyte_string__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioport_TObyte_string, NULL, NULL);
275
276
277 static ScmObj libioreader_lexical_mode(ScmObj*, int, void*);
278 static SCM_DEFINE_SUBR(libioreader_lexical_mode__STUB, 0, 2,SCM_FALSE,libioreader_lexical_mode, NULL, NULL);
279
280
281 static ScmObj libio_25port_ungotten_chars(ScmObj*, int, void*);
282 static SCM_DEFINE_SUBRX(libio_25port_ungotten_chars__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_ungotten_chars, NULL, NULL);
283
284
285 static ScmObj libio_25port_ungotten_bytes(ScmObj*, int, void*);
286 static SCM_DEFINE_SUBRX(libio_25port_ungotten_bytes__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libio_25port_ungotten_bytes, NULL, NULL);
287
288
289 static ScmObj libiodefine_reader_ctor(ScmObj*, int, void*);
290 static SCM_DEFINE_SUBR(libiodefine_reader_ctor__STUB, 2, 2,SCM_FALSE,libiodefine_reader_ctor, NULL, NULL);
291
292
293 static ScmObj libio_25get_reader_ctor(ScmObj*, int, void*);
294 static SCM_DEFINE_SUBR(libio_25get_reader_ctor__STUB, 1, 0,SCM_FALSE,libio_25get_reader_ctor, NULL, NULL);
295
296
297 static ScmObj libiodefine_reader_directive(ScmObj*, int, void*);
298 static SCM_DEFINE_SUBR(libiodefine_reader_directive__STUB, 2, 0,SCM_FALSE,libiodefine_reader_directive, NULL, NULL);
299
300
301 static ScmObj libiocurrent_read_context(ScmObj*, int, void*);
302 static SCM_DEFINE_SUBR(libiocurrent_read_context__STUB, 0, 2,SCM_FALSE,libiocurrent_read_context, NULL, NULL);
303
304
305 static ScmObj libioread_referenceP(ScmObj*, int, void*);
306 static SCM_DEFINE_SUBR(libioread_referenceP__STUB, 1, 0,SCM_FALSE,libioread_referenceP, NULL, NULL);
307
308
309 static ScmObj libioread_reference_has_valueP(ScmObj*, int, void*);
310 static SCM_DEFINE_SUBRX(libioread_reference_has_valueP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread_reference_has_valueP, NULL, NULL);
311
312
313 static ScmObj libioread_reference_value(ScmObj*, int, void*);
314 static SCM_DEFINE_SUBRX(libioread_reference_value__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioread_reference_value, NULL, NULL);
315
316 static void parse_write_optionals(ScmObj opt1,ScmObj opt2,ScmPort** pp,const ScmWriteControls** pc);
317
318 static ScmObj libiowrite(ScmObj*, int, void*);
319 static SCM_DEFINE_SUBR(libiowrite__STUB, 1, 3,SCM_FALSE,libiowrite, NULL, NULL);
320
321
322 static ScmObj libiowrite_simple(ScmObj*, int, void*);
323 static SCM_DEFINE_SUBR(libiowrite_simple__STUB, 1, 2,SCM_FALSE,libiowrite_simple, NULL, NULL);
324
325
326 static ScmObj libiowrite_shared(ScmObj*, int, void*);
327 static SCM_DEFINE_SUBR(libiowrite_shared__STUB, 1, 3,SCM_FALSE,libiowrite_shared, NULL, NULL);
328
329
330 static ScmObj libiodisplay(ScmObj*, int, void*);
331 static SCM_DEFINE_SUBR(libiodisplay__STUB, 1, 3,SCM_FALSE,libiodisplay, NULL, NULL);
332
333
334 static ScmObj libionewline(ScmObj*, int, void*);
335 static SCM_DEFINE_SUBRX(libionewline__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libionewline, NULL, NULL);
336
337
338 static ScmObj libiowrite_char(ScmObj*, int, void*);
339 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);
340
341
342 static ScmObj libiowrite_byte(ScmObj*, int, void*);
343 static SCM_DEFINE_SUBRX(libiowrite_byte__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libiowrite_byte, NULL, NULL);
344
345
346 static ScmObj libiowrite_limited(ScmObj*, int, void*);
347 static SCM_DEFINE_SUBR(libiowrite_limited__STUB, 2, 2,SCM_FALSE,libiowrite_limited, NULL, NULL);
348
349
350 static ScmObj libioflush(ScmObj*, int, void*);
351 static SCM_DEFINE_SUBRX(libioflush__STUB, 0, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioflush, NULL, NULL);
352
353
354 static ScmObj libioflush_all_ports(ScmObj*, int, void*);
355 static SCM_DEFINE_SUBRX(libioflush_all_ports__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libioflush_all_ports, NULL, NULL);
356
357
358 static ScmObj libiowrite_need_recurseP(ScmObj*, int, void*);
359 static SCM_DEFINE_SUBR(libiowrite_need_recurseP__STUB, 1, 0,SCM_FALSE,libiowrite_need_recurseP, NULL, NULL);
360
361 static ScmObj write_controls_allocate(ScmClass* klass,ScmObj initargs);
362 #if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
363 #define SCM_CGEN_CONST /*empty*/
364 #else
365 #define SCM_CGEN_CONST const
366 #endif
367 static SCM_CGEN_CONST struct scm__scRec {
368 ScmString d1561[300];
369 } scm__sc SCM_UNUSED = {
370 { /* ScmString d1561 */
371 SCM_STRING_CONST_INITIALIZER("input-port\077", 11, 11),
372 SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
373 SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
374 SCM_STRING_CONST_INITIALIZER("libio.scm", 9, 9),
375 SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
376 SCM_STRING_CONST_INITIALIZER("scheme", 6, 6),
377 SCM_STRING_CONST_INITIALIZER("output-port\077", 12, 12),
378 SCM_STRING_CONST_INITIALIZER("port\077", 5, 5),
379 SCM_STRING_CONST_INITIALIZER("port-closed\077", 12, 12),
380 SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
381 SCM_STRING_CONST_INITIALIZER("current-input-port", 18, 18),
382 SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
383 SCM_STRING_CONST_INITIALIZER("newport", 7, 7),
384 SCM_STRING_CONST_INITIALIZER("current-output-port", 19, 19),
385 SCM_STRING_CONST_INITIALIZER("current-error-port", 18, 18),
386 SCM_STRING_CONST_INITIALIZER("standard-input-port", 19, 19),
387 SCM_STRING_CONST_INITIALIZER("p", 1, 1),
388 SCM_STRING_CONST_INITIALIZER("standard-output-port", 20, 20),
389 SCM_STRING_CONST_INITIALIZER("standard-error-port", 19, 19),
390 SCM_STRING_CONST_INITIALIZER("port-name", 9, 9),
391 SCM_STRING_CONST_INITIALIZER("port", 4, 4),
392 SCM_STRING_CONST_INITIALIZER("port-current-line", 17, 17),
393 SCM_STRING_CONST_INITIALIZER("port-file-number", 16, 16),
394 SCM_STRING_CONST_INITIALIZER("dup\077", 4, 4),
395 SCM_STRING_CONST_INITIALIZER("port-fd-dup!", 12, 12),
396 SCM_STRING_CONST_INITIALIZER("dst", 3, 3),
397 SCM_STRING_CONST_INITIALIZER("src", 3, 3),
398 SCM_STRING_CONST_INITIALIZER("port-attribute-set!", 19, 19),
399 SCM_STRING_CONST_INITIALIZER("key", 3, 3),
400 SCM_STRING_CONST_INITIALIZER("val", 3, 3),
401 SCM_STRING_CONST_INITIALIZER("port-attribute-ref", 18, 18),
402 SCM_STRING_CONST_INITIALIZER("fallback", 8, 8),
403 SCM_STRING_CONST_INITIALIZER("port-attribute-create!", 22, 22),
404 SCM_STRING_CONST_INITIALIZER("get", 3, 3),
405 SCM_STRING_CONST_INITIALIZER("set", 3, 3),
406 SCM_STRING_CONST_INITIALIZER("port-attribute-delete!", 22, 22),
407 SCM_STRING_CONST_INITIALIZER("port-attributes", 15, 15),
408 SCM_STRING_CONST_INITIALIZER("port-type", 9, 9),
409 SCM_STRING_CONST_INITIALIZER("file", 4, 4),
410 SCM_STRING_CONST_INITIALIZER("proc", 4, 4),
411 SCM_STRING_CONST_INITIALIZER("string", 6, 6),
412 SCM_STRING_CONST_INITIALIZER("port-buffering", 14, 14),
413 SCM_STRING_CONST_INITIALIZER("(setter port-buffering)", 23, 23),
414 SCM_STRING_CONST_INITIALIZER("port-case-fold-set!", 19, 19),
415 SCM_STRING_CONST_INITIALIZER("flag", 4, 4),
416 SCM_STRING_CONST_INITIALIZER("close-input-port", 16, 16),
417 SCM_STRING_CONST_INITIALIZER("close-output-port", 17, 17),
418 SCM_STRING_CONST_INITIALIZER("close-port", 10, 10),
419 SCM_STRING_CONST_INITIALIZER("error", 5, 5),
420 SCM_STRING_CONST_INITIALIZER("if-does-not-exist", 17, 17),
421 SCM_STRING_CONST_INITIALIZER("buffering", 9, 9),
422 SCM_STRING_CONST_INITIALIZER("binary", 6, 6),
423 SCM_STRING_CONST_INITIALIZER("element-type", 12, 12),
424 SCM_STRING_CONST_INITIALIZER("%open-input-file", 16, 16),
425 SCM_STRING_CONST_INITIALIZER("character", 9, 9),
426 SCM_STRING_CONST_INITIALIZER("path", 4, 4),
427 SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
428 SCM_STRING_CONST_INITIALIZER("supersede", 9, 9),
429 SCM_STRING_CONST_INITIALIZER("if-exists", 9, 9),
430 SCM_STRING_CONST_INITIALIZER("create", 6, 6),
431 SCM_STRING_CONST_INITIALIZER("mode", 4, 4),
432 SCM_STRING_CONST_INITIALIZER("%open-output-file", 17, 17),
433 SCM_STRING_CONST_INITIALIZER("overwrite", 9, 9),
434 SCM_STRING_CONST_INITIALIZER("append", 6, 6),
435 SCM_STRING_CONST_INITIALIZER("owner\077", 6, 6),
436 SCM_STRING_CONST_INITIALIZER("name", 4, 4),
437 SCM_STRING_CONST_INITIALIZER("open-input-fd-port", 18, 18),
438 SCM_STRING_CONST_INITIALIZER("dup", 3, 3),
439 SCM_STRING_CONST_INITIALIZER("fd", 2, 2),
440 SCM_STRING_CONST_INITIALIZER("open-output-fd-port", 19, 19),
441 SCM_STRING_CONST_INITIALIZER("open-input-buffered-port", 24, 24),
442 SCM_STRING_CONST_INITIALIZER("filler", 6, 6),
443 SCM_STRING_CONST_INITIALIZER("buffer-size", 11, 11),
444 SCM_STRING_CONST_INITIALIZER("open-output-buffered-port", 25, 25),
445 SCM_STRING_CONST_INITIALIZER("flusher", 7, 7),
446 SCM_STRING_CONST_INITIALIZER("private\077", 8, 8),
447 SCM_STRING_CONST_INITIALIZER("(input string port)", 19, 19),
448 SCM_STRING_CONST_INITIALIZER("open-input-string", 17, 17),
449 SCM_STRING_CONST_INITIALIZER("(output string port)", 20, 20),
450 SCM_STRING_CONST_INITIALIZER("open-output-string", 18, 18),
451 SCM_STRING_CONST_INITIALIZER("get-output-string", 17, 17),
452 SCM_STRING_CONST_INITIALIZER("oport", 5, 5),
453 SCM_STRING_CONST_INITIALIZER("get-output-byte-string", 22, 22),
454 SCM_STRING_CONST_INITIALIZER("get-remaining-input-string", 26, 26),
455 SCM_STRING_CONST_INITIALIZER("iport", 5, 5),
456 SCM_STRING_CONST_INITIALIZER("open-coding-aware-port", 22, 22),
457 SCM_STRING_CONST_INITIALIZER("port-has-port-position\077", 23, 23),
458 SCM_STRING_CONST_INITIALIZER("port-has-set-port-position!\077", 28, 28),
459 SCM_STRING_CONST_INITIALIZER("port-position", 13, 13),
460 SCM_STRING_CONST_INITIALIZER("set-port-position!", 18, 18),
461 SCM_STRING_CONST_INITIALIZER("pos", 3, 3),
462 SCM_STRING_CONST_INITIALIZER("SEEK_SET", 8, 8),
463 SCM_STRING_CONST_INITIALIZER("SEEK_CUR", 8, 8),
464 SCM_STRING_CONST_INITIALIZER("SEEK_END", 8, 8),
465 SCM_STRING_CONST_INITIALIZER("port-seek", 9, 9),
466 SCM_STRING_CONST_INITIALIZER("offset", 6, 6),
467 SCM_STRING_CONST_INITIALIZER("whence", 6, 6),
468 SCM_STRING_CONST_INITIALIZER("port-tell", 9, 9),
469 SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
470 SCM_STRING_CONST_INITIALIZER("port-position-prefix", 20, 20),
471 SCM_STRING_CONST_INITIALIZER("positive\077", 9, 9),
472 SCM_STRING_CONST_INITIALIZER("~s:line ~a: ", 12, 12),
473 SCM_STRING_CONST_INITIALIZER("format", 6, 6),
474 SCM_STRING_CONST_INITIALIZER("~s: ", 4, 4),
475 SCM_STRING_CONST_INITIALIZER("", 0, 0),
476 SCM_STRING_CONST_INITIALIZER("\077\077\077", 3, 3),
477 SCM_STRING_CONST_INITIALIZER("%port-walking\077", 14, 14),
478 SCM_STRING_CONST_INITIALIZER("(setter %port-walking\077)", 23, 23),
479 SCM_STRING_CONST_INITIALIZER("%port-writing-shared\077", 21, 21),
480 SCM_STRING_CONST_INITIALIZER("(setter %port-writing-shared\077)", 30, 30),
481 SCM_STRING_CONST_INITIALIZER("%port-write-state", 17, 17),
482 SCM_STRING_CONST_INITIALIZER("(setter %port-write-state)", 26, 26),
483 SCM_STRING_CONST_INITIALIZER("%port-lock!", 11, 11),
484 SCM_STRING_CONST_INITIALIZER("%port-unlock!", 13, 13),
485 SCM_STRING_CONST_INITIALIZER("with-port-locking", 17, 17),
486 SCM_STRING_CONST_INITIALIZER("%unwind-protect", 15, 15),
487 SCM_STRING_CONST_INITIALIZER("args", 4, 4),
488 SCM_STRING_CONST_INITIALIZER("%with-2pass-setup", 17, 17),
489 SCM_STRING_CONST_INITIALIZER("[internal] %with-2pass-setup called recursively on port:", 56, 56),
490 SCM_STRING_CONST_INITIALIZER("<write-state>", 13, 13),
491 SCM_STRING_CONST_INITIALIZER("shared-table", 12, 12),
492 SCM_STRING_CONST_INITIALIZER("eq\077", 3, 3),
493 SCM_STRING_CONST_INITIALIZER("make-hash-table", 15, 15),
494 SCM_STRING_CONST_INITIALIZER("make", 4, 4),
495 SCM_STRING_CONST_INITIALIZER("walker", 6, 6),
496 SCM_STRING_CONST_INITIALIZER("emitter", 7, 7),
497 SCM_STRING_CONST_INITIALIZER("read", 4, 4),
498 SCM_STRING_CONST_INITIALIZER("read-char", 9, 9),
499 SCM_STRING_CONST_INITIALIZER("peek-char", 9, 9),
500 SCM_STRING_CONST_INITIALIZER("eof-object\077", 11, 11),
501 SCM_STRING_CONST_INITIALIZER("char-ready\077", 11, 11),
502 SCM_STRING_CONST_INITIALIZER("eof-object", 10, 10),
503 SCM_STRING_CONST_INITIALIZER("byte-ready\077", 11, 11),
504 SCM_STRING_CONST_INITIALIZER("u8-ready\077", 9, 9),
505 SCM_STRING_CONST_INITIALIZER("%toplevel", 9, 9),
506 SCM_STRING_CONST_INITIALIZER("read-byte", 9, 9),
507 SCM_STRING_CONST_INITIALIZER("read-u8", 7, 7),
508 SCM_STRING_CONST_INITIALIZER("peek-byte", 9, 9),
509 SCM_STRING_CONST_INITIALIZER("peek-u8", 7, 7),
510 SCM_STRING_CONST_INITIALIZER("read-line", 9, 9),
511 SCM_STRING_CONST_INITIALIZER("allowbytestr", 12, 12),
512 SCM_STRING_CONST_INITIALIZER("read-string", 11, 11),
513 SCM_STRING_CONST_INITIALIZER("too many arguments for", 22, 22),
514 SCM_STRING_CONST_INITIALIZER("lambda", 6, 6),
515 SCM_STRING_CONST_INITIALIZER("n", 1, 1),
516 SCM_STRING_CONST_INITIALIZER("define", 6, 6),
517 SCM_STRING_CONST_INITIALIZER("o", 1, 1),
518 SCM_STRING_CONST_INITIALIZER("let", 3, 3),
519 SCM_STRING_CONST_INITIALIZER("loop", 4, 4),
520 SCM_STRING_CONST_INITIALIZER("i", 1, 1),
521 SCM_STRING_CONST_INITIALIZER("if", 2, 2),
522 SCM_STRING_CONST_INITIALIZER(">=", 2, 2),
523 SCM_STRING_CONST_INITIALIZER("let1", 4, 4),
524 SCM_STRING_CONST_INITIALIZER("c", 1, 1),
525 SCM_STRING_CONST_INITIALIZER("=", 1, 1),
526 SCM_STRING_CONST_INITIALIZER("begin", 5, 5),
527 SCM_STRING_CONST_INITIALIZER("write-char", 10, 10),
528 SCM_STRING_CONST_INITIALIZER("+", 1, 1),
529 SCM_STRING_CONST_INITIALIZER("write-string", 12, 12),
530 SCM_STRING_CONST_INITIALIZER("start", 5, 5),
531 SCM_STRING_CONST_INITIALIZER("end", 3, 3),
532 SCM_STRING_CONST_INITIALIZER("display", 7, 7),
533 SCM_STRING_CONST_INITIALIZER("with-module", 11, 11),
534 SCM_STRING_CONST_INITIALIZER("%maybe-substring", 16, 16),
535 SCM_STRING_CONST_INITIALIZER("consume-trailing-whitespaces", 28, 28),
536 SCM_STRING_CONST_INITIALIZER("when", 4, 4),
537 SCM_STRING_CONST_INITIALIZER("b", 1, 1),
538 SCM_STRING_CONST_INITIALIZER("cond", 4, 4),
539 SCM_STRING_CONST_INITIALIZER("memv", 4, 4),
540 SCM_STRING_CONST_INITIALIZER("quote", 5, 5),
541 SCM_STRING_CONST_INITIALIZER("eqv\077", 4, 4),
542 SCM_STRING_CONST_INITIALIZER("and", 3, 3),
543 SCM_STRING_CONST_INITIALIZER("read-block", 10, 10),
544 SCM_STRING_CONST_INITIALIZER("bytes", 5, 5),
545 SCM_STRING_CONST_INITIALIZER("read-list", 9, 9),
546 SCM_STRING_CONST_INITIALIZER("closer", 6, 6),
547 SCM_STRING_CONST_INITIALIZER("port->byte-string", 17, 17),
548 SCM_STRING_CONST_INITIALIZER("port->string", 12, 12),
549 SCM_STRING_CONST_INITIALIZER("unit", 4, 4),
550 SCM_STRING_CONST_INITIALIZER("byte", 4, 4),
551 SCM_STRING_CONST_INITIALIZER("copy-port", 9, 9),
552 SCM_STRING_CONST_INITIALIZER("port->list", 10, 10),
553 SCM_STRING_CONST_INITIALIZER("reverse!", 8, 8),
554 SCM_STRING_CONST_INITIALIZER("reader", 6, 6),
555 SCM_STRING_CONST_INITIALIZER("port->string-list", 17, 17),
556 SCM_STRING_CONST_INITIALIZER("G1591", 5, 5),
557 SCM_STRING_CONST_INITIALIZER("G1590", 5, 5),
558 SCM_STRING_CONST_INITIALIZER("port->sexp-list", 15, 15),
559 SCM_STRING_CONST_INITIALIZER("reader-lexical-mode", 19, 19),
560 SCM_STRING_CONST_INITIALIZER("k", 1, 1),
561 SCM_STRING_CONST_INITIALIZER("%port-ungotten-chars", 20, 20),
562 SCM_STRING_CONST_INITIALIZER("%port-ungotten-bytes", 20, 20),
563 SCM_STRING_CONST_INITIALIZER("define-reader-ctor", 18, 18),
564 SCM_STRING_CONST_INITIALIZER("symbol", 6, 6),
565 SCM_STRING_CONST_INITIALIZER("finisher", 8, 8),
566 SCM_STRING_CONST_INITIALIZER("%get-reader-ctor", 16, 16),
567 SCM_STRING_CONST_INITIALIZER("define-reader-directive", 23, 23),
568 SCM_STRING_CONST_INITIALIZER("current-read-context", 20, 20),
569 SCM_STRING_CONST_INITIALIZER("ctx", 3, 3),
570 SCM_STRING_CONST_INITIALIZER("read-reference\077", 15, 15),
571 SCM_STRING_CONST_INITIALIZER("read-reference-has-value\077", 25, 25),
572 SCM_STRING_CONST_INITIALIZER("ref", 3, 3),
573 SCM_STRING_CONST_INITIALIZER("read-reference-value", 20, 20),
574 SCM_STRING_CONST_INITIALIZER("read-with-shared-structure", 26, 26),
575 SCM_STRING_CONST_INITIALIZER("read/ss", 7, 7),
576 SCM_STRING_CONST_INITIALIZER("write", 5, 5),
577 SCM_STRING_CONST_INITIALIZER("port-or-control-1", 17, 17),
578 SCM_STRING_CONST_INITIALIZER("port-or-control-2", 17, 17),
579 SCM_STRING_CONST_INITIALIZER("write-simple", 12, 12),
580 SCM_STRING_CONST_INITIALIZER("write-shared", 12, 12),
581 SCM_STRING_CONST_INITIALIZER("newline", 7, 7),
582 SCM_STRING_CONST_INITIALIZER("ch", 2, 2),
583 SCM_STRING_CONST_INITIALIZER("write-byte", 10, 10),
584 SCM_STRING_CONST_INITIALIZER("write-u8", 8, 8),
585 SCM_STRING_CONST_INITIALIZER("write-limited", 13, 13),
586 SCM_STRING_CONST_INITIALIZER("limit", 5, 5),
587 SCM_STRING_CONST_INITIALIZER("write*", 6, 6),
588 SCM_STRING_CONST_INITIALIZER("flush", 5, 5),
589 SCM_STRING_CONST_INITIALIZER("flush-all-ports", 15, 15),
590 SCM_STRING_CONST_INITIALIZER("write-need-recurse\077", 19, 19),
591 SCM_STRING_CONST_INITIALIZER("write-walk", 10, 10),
592 SCM_STRING_CONST_INITIALIZER("~", 1, 1),
593 SCM_STRING_CONST_INITIALIZER("%write-walk-rec", 15, 15),
594 SCM_STRING_CONST_INITIALIZER("G1596", 5, 5),
595 SCM_STRING_CONST_INITIALIZER("G1594", 5, 5),
596 SCM_STRING_CONST_INITIALIZER("hash-table-exists\077", 18, 18),
597 SCM_STRING_CONST_INITIALIZER("hash-table-update!", 18, 18),
598 SCM_STRING_CONST_INITIALIZER("hash-table-put!", 15, 15),
599 SCM_STRING_CONST_INITIALIZER("write-object", 12, 12),
600 SCM_STRING_CONST_INITIALIZER("hash-table-get", 14, 14),
601 SCM_STRING_CONST_INITIALIZER("hash-table-delete!", 18, 18),
602 SCM_STRING_CONST_INITIALIZER("tab", 3, 3),
603 SCM_STRING_CONST_INITIALIZER("write-with-shared-structure", 27, 27),
604 SCM_STRING_CONST_INITIALIZER("write/ss", 8, 8),
605 SCM_STRING_CONST_INITIALIZER("print", 5, 5),
606 SCM_STRING_CONST_INITIALIZER("for-each", 8, 8),
607 SCM_STRING_CONST_INITIALIZER("make-write-controls", 19, 19),
608 SCM_STRING_CONST_INITIALIZER("undefined\077", 10, 10),
609 SCM_STRING_CONST_INITIALIZER("<write-controls>", 16, 16),
610 SCM_STRING_CONST_INITIALIZER("length", 6, 6),
611 SCM_STRING_CONST_INITIALIZER("level", 5, 5),
612 SCM_STRING_CONST_INITIALIZER("width", 5, 5),
613 SCM_STRING_CONST_INITIALIZER("base", 4, 4),
614 SCM_STRING_CONST_INITIALIZER("radix", 5, 5),
615 SCM_STRING_CONST_INITIALIZER("pretty", 6, 6),
616 SCM_STRING_CONST_INITIALIZER("keyword list not even", 21, 21),
617 SCM_STRING_CONST_INITIALIZER("unwrap-syntax-1", 15, 15),
618 SCM_STRING_CONST_INITIALIZER("print-length", 12, 12),
619 SCM_STRING_CONST_INITIALIZER("print-level", 11, 11),
620 SCM_STRING_CONST_INITIALIZER("print-width", 11, 11),
621 SCM_STRING_CONST_INITIALIZER("print-base", 10, 10),
622 SCM_STRING_CONST_INITIALIZER("print-radix", 11, 11),
623 SCM_STRING_CONST_INITIALIZER("print-pretty", 12, 12),
624 SCM_STRING_CONST_INITIALIZER("unknown keyword ~S", 18, 18),
625 SCM_STRING_CONST_INITIALIZER("errorf", 6, 6),
626 SCM_STRING_CONST_INITIALIZER("write-controls-copy", 19, 19),
627 SCM_STRING_CONST_INITIALIZER("slot-ref", 8, 8),
628 SCM_STRING_CONST_INITIALIZER("wc", 2, 2),
629 SCM_STRING_CONST_INITIALIZER("open-input-file", 15, 15),
630 SCM_STRING_CONST_INITIALIZER("encoding", 8, 8),
631 SCM_STRING_CONST_INITIALIZER("get-keyword", 11, 11),
632 SCM_STRING_CONST_INITIALIZER("delete-keyword", 14, 14),
633 SCM_STRING_CONST_INITIALIZER("%open-input-file/conv", 21, 21),
634 SCM_STRING_CONST_INITIALIZER("filename", 8, 8),
635 SCM_STRING_CONST_INITIALIZER("open-output-file", 16, 16),
636 SCM_STRING_CONST_INITIALIZER("%open-output-file/conv", 22, 22),
637 SCM_STRING_CONST_INITIALIZER("call-with-port", 14, 14),
638 SCM_STRING_CONST_INITIALIZER("call-with-input-file", 20, 20),
639 SCM_STRING_CONST_INITIALIZER("flags", 5, 5),
640 SCM_STRING_CONST_INITIALIZER("call-with-output-file", 21, 21),
641 SCM_STRING_CONST_INITIALIZER("with-input-from-file", 20, 20),
642 SCM_STRING_CONST_INITIALIZER("with-input-from-port", 20, 20),
643 SCM_STRING_CONST_INITIALIZER("thunk", 5, 5),
644 SCM_STRING_CONST_INITIALIZER("with-output-to-file", 19, 19),
645 SCM_STRING_CONST_INITIALIZER("with-output-to-port", 19, 19),
646 SCM_STRING_CONST_INITIALIZER("with-output-to-string", 21, 21),
647 SCM_STRING_CONST_INITIALIZER("with-input-from-string", 22, 22),
648 SCM_STRING_CONST_INITIALIZER("str", 3, 3),
649 SCM_STRING_CONST_INITIALIZER("call-with-output-string", 23, 23),
650 SCM_STRING_CONST_INITIALIZER("call-with-input-string", 22, 22),
651 SCM_STRING_CONST_INITIALIZER("call-with-string-io", 19, 19),
652 SCM_STRING_CONST_INITIALIZER("with-string-io", 14, 14),
653 SCM_STRING_CONST_INITIALIZER("write-to-string", 15, 15),
654 SCM_STRING_CONST_INITIALIZER("writer", 6, 6),
655 SCM_STRING_CONST_INITIALIZER("cut", 3, 3),
656 SCM_STRING_CONST_INITIALIZER("read-from-string", 16, 16),
657 SCM_STRING_CONST_INITIALIZER("values", 6, 6),
658 SCM_STRING_CONST_INITIALIZER("with-error-to-port", 18, 18),
659 SCM_STRING_CONST_INITIALIZER("with-ports", 10, 10),
660 SCM_STRING_CONST_INITIALIZER("eport", 5, 5),
661 SCM_STRING_CONST_INITIALIZER("r6rs", 4, 4),
662 SCM_STRING_CONST_INITIALIZER("Reading R6RS source file. Note that Gauche is not R6RS compliant.", 66, 66),
663 SCM_STRING_CONST_INITIALIZER("warn", 4, 4),
664 SCM_STRING_CONST_INITIALIZER("sym", 3, 3),
665 SCM_STRING_CONST_INITIALIZER("fold-case", 9, 9),
666 SCM_STRING_CONST_INITIALIZER("no-fold-case", 12, 12),
667 SCM_STRING_CONST_INITIALIZER("gauche-legacy", 13, 13),
668 SCM_STRING_CONST_INITIALIZER("legacy", 6, 6),
669 SCM_STRING_CONST_INITIALIZER("r7rs", 4, 4),
670 SCM_STRING_CONST_INITIALIZER("strict-r7", 9, 9),
671 },
672 };
673 static struct scm__rcRec {
674 ScmCompiledCode d1569[83];
675 ScmWord d1568[2739];
676 ScmPair d1563[1194] SCM_ALIGN_PAIR;
677 ScmObj d1562[545];
678 } scm__rc SCM_UNUSED = {
679 { /* ScmCompiledCode d1569 */
680 SCM_COMPILED_CODE_CONST_INITIALIZER( /* port-tell */
681 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[0])), 6,
682 6, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[384]),
683 SCM_FALSE, SCM_FALSE),
684 SCM_COMPILED_CODE_CONST_INITIALIZER( /* port-position-prefix */
685 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[6])), 53,
686 21, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[389]),
687 SCM_FALSE, SCM_FALSE),
688 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
689 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[59])), 9,
690 10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[432]),
691 SCM_OBJ(&scm__rc.d1569[4]), SCM_FALSE),
692 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
693 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[68])), 4,
694 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[433]),
695 SCM_OBJ(&scm__rc.d1569[4]), SCM_FALSE),
696 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-port-locking */
697 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[72])), 13,
698 7, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[442]),
699 SCM_FALSE, SCM_FALSE),
700 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
701 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[85])), 68,
702 22, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[444]),
703 SCM_OBJ(&scm__rc.d1569[7]), SCM_FALSE),
704 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
705 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[153])), 20,
706 11, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[445]),
707 SCM_OBJ(&scm__rc.d1569[7]), SCM_FALSE),
708 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %with-2pass-setup */
709 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[173])), 13,
710 7, 3, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[455]),
711 SCM_FALSE, SCM_FALSE),
712 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
713 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[186])), 5,
714 0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
715 SCM_FALSE, SCM_FALSE),
716 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
717 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[191])), 5,
718 0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
719 SCM_FALSE, SCM_FALSE),
720 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
721 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[196])), 5,
722 0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
723 SCM_FALSE, SCM_FALSE),
724 SCM_COMPILED_CODE_CONST_INITIALIZER( /* read-string */
725 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[201])), 73,
726 27, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[598]),
727 SCM_FALSE, SCM_FALSE),
728 SCM_COMPILED_CODE_CONST_INITIALIZER( /* write-string */
729 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[274])), 73,
730 28, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[625]),
731 SCM_FALSE, SCM_FALSE),
732 SCM_COMPILED_CODE_CONST_INITIALIZER( /* consume-trailing-whitespaces */
733 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[347])), 97,
734 25, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[680]),
735 SCM_FALSE, SCM_FALSE),
736 SCM_COMPILED_CODE_CONST_INITIALIZER( /* port->string */
737 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[444])), 23,
738 17, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[711]),
739 SCM_FALSE, SCM_FALSE),
740 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
741 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[467])), 29,
742 22, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[717]),
743 SCM_OBJ(&scm__rc.d1569[16]), SCM_FALSE),
744 SCM_COMPILED_CODE_CONST_INITIALIZER( /* port->list */
745 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[496])), 6,
746 5, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[723]),
747 SCM_FALSE, SCM_FALSE),
748 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (port->string-list G1591) */
749 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[502])), 6,
750 5, 1, 0, SCM_OBJ(&scm__rc.d1563[725]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[731]),
751 SCM_OBJ(&scm__rc.d1569[19]), SCM_FALSE),
752 SCM_COMPILED_CODE_CONST_INITIALIZER( /* port->string-list */
753 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[508])), 5,
754 5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[733]),
755 SCM_OBJ(&scm__rc.d1569[19]), SCM_FALSE),
756 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
757 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[513])), 7,
758 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
759 SCM_FALSE, SCM_FALSE),
760 SCM_COMPILED_CODE_CONST_INITIALIZER( /* port->sexp-list */
761 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[520])), 6,
762 5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[738]),
763 SCM_FALSE, SCM_FALSE),
764 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
765 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[526])), 5,
766 0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
767 SCM_FALSE, SCM_FALSE),
768 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
769 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[531])), 5,
770 0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
771 SCM_FALSE, SCM_FALSE),
772 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
773 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[536])), 5,
774 0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
775 SCM_FALSE, SCM_FALSE),
776 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
777 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[541])), 5,
778 0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
779 SCM_FALSE, SCM_FALSE),
780 SCM_COMPILED_CODE_CONST_INITIALIZER( /* write-walk */
781 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[546])), 22,
782 15, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[930]),
783 SCM_FALSE, SCM_FALSE),
784 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (%write-walk-rec G1596) */
785 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[568])), 2,
786 0, 1, 0, SCM_OBJ(&scm__rc.d1563[932]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[938]),
787 SCM_OBJ(&scm__rc.d1569[28]), SCM_FALSE),
788 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %write-walk-rec */
789 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[570])), 125,
790 23, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[947]),
791 SCM_OBJ(&scm__rc.d1569[28]), SCM_FALSE),
792 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
793 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[695])), 7,
794 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
795 SCM_FALSE, SCM_FALSE),
796 SCM_COMPILED_CODE_CONST_INITIALIZER( /* write-with-shared-structure */
797 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[702])), 34,
798 16, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[959]),
799 SCM_FALSE, SCM_FALSE),
800 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
801 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[736])), 5,
802 0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
803 SCM_FALSE, SCM_FALSE),
804 SCM_COMPILED_CODE_CONST_INITIALIZER( /* print */
805 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[741])), 10,
806 11, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[964]),
807 SCM_FALSE, SCM_FALSE),
808 SCM_COMPILED_CODE_CONST_INITIALIZER( /* make-write-controls */
809 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[751])), 567,
810 91, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[982]),
811 SCM_FALSE, SCM_FALSE),
812 SCM_COMPILED_CODE_CONST_INITIALIZER( /* write-controls-copy */
813 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[1318])), 741,
814 95, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[988]),
815 SCM_FALSE, SCM_FALSE),
816 SCM_COMPILED_CODE_CONST_INITIALIZER( /* open-input-file */
817 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2059])), 49,
818 24, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[994]),
819 SCM_FALSE, SCM_FALSE),
820 SCM_COMPILED_CODE_CONST_INITIALIZER( /* open-output-file */
821 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2108])), 22,
822 12, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[999]),
823 SCM_FALSE, SCM_FALSE),
824 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
825 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2130])), 4,
826 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1001]),
827 SCM_OBJ(&scm__rc.d1569[38]), SCM_FALSE),
828 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
829 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2134])), 4,
830 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1002]),
831 SCM_OBJ(&scm__rc.d1569[38]), SCM_FALSE),
832 SCM_COMPILED_CODE_CONST_INITIALIZER( /* call-with-port */
833 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2138])), 13,
834 7, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1010]),
835 SCM_FALSE, SCM_FALSE),
836 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
837 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2151])), 4,
838 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1012]),
839 SCM_OBJ(&scm__rc.d1569[41]), SCM_FALSE),
840 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
841 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2155])), 8,
842 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1013]),
843 SCM_OBJ(&scm__rc.d1569[41]), SCM_FALSE),
844 SCM_COMPILED_CODE_CONST_INITIALIZER( /* call-with-input-file */
845 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2163])), 21,
846 11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1022]),
847 SCM_FALSE, SCM_FALSE),
848 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
849 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2184])), 4,
850 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1024]),
851 SCM_OBJ(&scm__rc.d1569[44]), SCM_FALSE),
852 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
853 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2188])), 8,
854 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1025]),
855 SCM_OBJ(&scm__rc.d1569[44]), SCM_FALSE),
856 SCM_COMPILED_CODE_CONST_INITIALIZER( /* call-with-output-file */
857 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2196])), 21,
858 11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1032]),
859 SCM_FALSE, SCM_FALSE),
860 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
861 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2217])), 5,
862 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1034]),
863 SCM_OBJ(&scm__rc.d1569[47]), SCM_FALSE),
864 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
865 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2222])), 4,
866 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1035]),
867 SCM_OBJ(&scm__rc.d1569[47]), SCM_FALSE),
868 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-input-from-file */
869 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2226])), 23,
870 11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1044]),
871 SCM_FALSE, SCM_FALSE),
872 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
873 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2249])), 5,
874 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1046]),
875 SCM_OBJ(&scm__rc.d1569[50]), SCM_FALSE),
876 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
877 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2254])), 4,
878 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1047]),
879 SCM_OBJ(&scm__rc.d1569[50]), SCM_FALSE),
880 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-output-to-file */
881 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2258])), 23,
882 11, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1054]),
883 SCM_FALSE, SCM_FALSE),
884 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-output-to-string */
885 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2281])), 15,
886 15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1060]),
887 SCM_FALSE, SCM_FALSE),
888 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-input-from-string */
889 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2296])), 10,
890 11, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1066]),
891 SCM_FALSE, SCM_FALSE),
892 SCM_COMPILED_CODE_CONST_INITIALIZER( /* call-with-output-string */
893 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2306])), 14,
894 14, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1071]),
895 SCM_FALSE, SCM_FALSE),
896 SCM_COMPILED_CODE_CONST_INITIALIZER( /* call-with-input-string */
897 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2320])), 9,
898 10, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1077]),
899 SCM_FALSE, SCM_FALSE),
900 SCM_COMPILED_CODE_CONST_INITIALIZER( /* call-with-string-io */
901 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2329])), 20,
902 16, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1082]),
903 SCM_FALSE, SCM_FALSE),
904 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
905 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2349])), 5,
906 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1088]),
907 SCM_OBJ(&scm__rc.d1569[57]), SCM_FALSE),
908 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-string-io */
909 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2354])), 5,
910 4, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1093]),
911 SCM_FALSE, SCM_FALSE),
912 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
913 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2359])), 4,
914 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1110]),
915 SCM_OBJ(&scm__rc.d1569[59]), SCM_FALSE),
916 SCM_COMPILED_CODE_CONST_INITIALIZER( /* write-to-string */
917 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2363])), 35,
918 16, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1115]),
919 SCM_FALSE, SCM_FALSE),
920 SCM_COMPILED_CODE_CONST_INITIALIZER( /* read-from-string */
921 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2398])), 18,
922 10, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1121]),
923 SCM_FALSE, SCM_FALSE),
924 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-input-from-port */
925 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2416])), 8,
926 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1124]),
927 SCM_OBJ(&scm__rc.d1569[63]), SCM_FALSE),
928 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-input-from-port */
929 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2424])), 11,
930 10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1125]),
931 SCM_OBJ(&scm__rc.d1569[63]), SCM_FALSE),
932 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-input-from-port */
933 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2435])), 31,
934 19, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1131]),
935 SCM_FALSE, SCM_FALSE),
936 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-output-to-port */
937 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2466])), 8,
938 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1134]),
939 SCM_OBJ(&scm__rc.d1569[66]), SCM_FALSE),
940 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-output-to-port */
941 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2474])), 11,
942 10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1135]),
943 SCM_OBJ(&scm__rc.d1569[66]), SCM_FALSE),
944 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-output-to-port */
945 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2485])), 31,
946 19, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1140]),
947 SCM_FALSE, SCM_FALSE),
948 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-error-to-port */
949 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2516])), 8,
950 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1143]),
951 SCM_OBJ(&scm__rc.d1569[69]), SCM_FALSE),
952 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-error-to-port */
953 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2524])), 11,
954 10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1144]),
955 SCM_OBJ(&scm__rc.d1569[69]), SCM_FALSE),
956 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-error-to-port */
957 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2535])), 31,
958 19, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1149]),
959 SCM_FALSE, SCM_FALSE),
960 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-ports */
961 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2566])), 28,
962 10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1152]),
963 SCM_OBJ(&scm__rc.d1569[72]), SCM_FALSE),
964 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-ports */
965 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2594])), 33,
966 10, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1153]),
967 SCM_OBJ(&scm__rc.d1569[72]), SCM_FALSE),
968 SCM_COMPILED_CODE_CONST_INITIALIZER( /* with-ports */
969 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2627])), 35,
970 21, 4, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1161]),
971 SCM_FALSE, SCM_FALSE),
972 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
973 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2662])), 7,
974 10, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1170]),
975 SCM_OBJ(&scm__rc.d1569[74]), SCM_FALSE),
976 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
977 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2669])), 7,
978 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
979 SCM_FALSE, SCM_FALSE),
980 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
981 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2676])), 8,
982 11, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1178]),
983 SCM_OBJ(&scm__rc.d1569[76]), SCM_FALSE),
984 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
985 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2684])), 7,
986 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
987 SCM_FALSE, SCM_FALSE),
988 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
989 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2691])), 7,
990 11, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1183]),
991 SCM_OBJ(&scm__rc.d1569[78]), SCM_FALSE),
992 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
993 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2698])), 7,
994 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
995 SCM_FALSE, SCM_FALSE),
996 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
997 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2705])), 10,
998 12, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1188]),
999 SCM_OBJ(&scm__rc.d1569[80]), SCM_FALSE),
1000 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
1001 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2715])), 7,
1002 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
1003 SCM_FALSE, SCM_FALSE),
1004 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
1005 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2722])), 10,
1006 12, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[1193]),
1007 SCM_OBJ(&scm__rc.d1569[82]), SCM_FALSE),
1008 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
1009 (ScmWord*)(SCM_OBJ(&scm__rc.d1568[2732])), 7,
1010 5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
1011 SCM_FALSE, SCM_FALSE),
1012 },
1013 { /* ScmWord d1568 */
1014 /* port-tell */
1015 0x00000048 /* 0 (LREF0-PUSH) */,
1016 0x00000007 /* 1 (CONSTI-PUSH 0) */,
1017 0x00001007 /* 2 (CONSTI-PUSH 1) */,
1018 0x00003060 /* 3 (GREF-TAIL-CALL 3) */,
1019 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-seek.3ce23500> */,
1020 0x00000014 /* 5 (RET) */,
1021 /* port-position-prefix */
1022 0x0000100e /* 0 (PRE-CALL 1) */,
1023 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 5),
1024 0x00000048 /* 2 (LREF0-PUSH) */,
1025 0x0000105f /* 3 (GREF-CALL 1) */,
1026 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port?.3ce79e40> */,
1027 0x0000001e /* 5 (BF) */,
1028 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 51),
1029 0x0000100e /* 7 (PRE-CALL 1) */,
1030 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 12),
1031 0x00000048 /* 9 (LREF0-PUSH) */,
1032 0x0000105f /* 10 (GREF-CALL 1) */,
1033 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-name.3ce79c40> */,
1034 0x00001018 /* 12 (PUSH-LOCAL-ENV 1) */,
1035 0x0000003d /* 13 (LREF0) */,
1036 0x0000001e /* 14 (BF) */,
1037 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 50),
1038 0x0000100e /* 16 (PRE-CALL 1) */,
1039 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 21),
1040 0x0000004c /* 18 (LREF10-PUSH) */,
1041 0x0000105f /* 19 (GREF-CALL 1) */,
1042 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-current-line.3ce799c0> */,
1043 0x00001018 /* 21 (PUSH-LOCAL-ENV 1) */,
1044 0x0000100e /* 22 (PRE-CALL 1) */,
1045 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 27),
1046 0x00000048 /* 24 (LREF0-PUSH) */,
1047 0x0000105f /* 25 (GREF-CALL 1) */,
1048 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#positive?.3ce79880> */,
1049 0x0000001e /* 27 (BF) */,
1050 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 40),
1051 0x0000400e /* 29 (PRE-CALL 4) */,
1052 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 48),
1053 0x00000009 /* 31 (CONSTF-PUSH) */,
1054 0x00000006 /* 32 (CONST-PUSH) */,
1055 SCM_WORD(SCM_OBJ(&scm__sc.d1561[101])) /* "~s:line ~a: " */,
1056 0x0000004c /* 34 (LREF10-PUSH) */,
1057 0x00000048 /* 35 (LREF0-PUSH) */,
1058 0x0000405f /* 36 (GREF-CALL 4) */,
1059 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#format.3ce797a0> */,
1060 0x00000013 /* 38 (JUMP) */,
1061 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 48),
1062 0x0000300e /* 40 (PRE-CALL 3) */,
1063 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]) + 48),
1064 0x00000009 /* 42 (CONSTF-PUSH) */,
1065 0x00000006 /* 43 (CONST-PUSH) */,
1066 SCM_WORD(SCM_OBJ(&scm__sc.d1561[103])) /* "~s: " */,
1067 0x0000004c /* 45 (LREF10-PUSH) */,
1068 0x0000305f /* 46 (GREF-CALL 3) */,
1069 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#format.3ce794c0> */,
1070 0x0000000a /* 48 (CONST-RET) */,
1071 SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "" */,
1072 0x0000000c /* 50 (CONSTU-RET) */,
1073 0x0000000a /* 51 (CONST-RET) */,
1074 SCM_WORD(SCM_OBJ(&scm__sc.d1561[105])) /* "???" */,
1075 /* (with-port-locking #f) */
1076 0x0000100e /* 0 (PRE-CALL 1) */,
1077 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[59]) + 5),
1078 0x0000004a /* 2 (LREF2-PUSH) */,
1079 0x0000105f /* 3 (GREF-CALL 1) */,
1080 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-lock!.3c5fd4a0> */,
1081 0x00000049 /* 5 (LREF1-PUSH) */,
1082 0x0000003d /* 6 (LREF0) */,
1083 0x00002095 /* 7 (TAIL-APPLY 2) */,
1084 0x00000014 /* 8 (RET) */,
1085 /* (with-port-locking #f) */
1086 0x0000004a /* 0 (LREF2-PUSH) */,
1087 0x00001060 /* 1 (GREF-TAIL-CALL 1) */,
1088 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-unlock!.3c5fd340> */,
1089 0x00000014 /* 3 (RET) */,
1090 /* with-port-locking */
1091 0x00000016 /* 0 (CLOSURE) */,
1092 SCM_WORD(SCM_OBJ(&scm__rc.d1569[2])) /* #<compiled-code (with-port-locking #f)@0x7fc33d0273c0> */,
1093 0x0000000d /* 2 (PUSH) */,
1094 0x00000016 /* 3 (CLOSURE) */,
1095 SCM_WORD(SCM_OBJ(&scm__rc.d1569[3])) /* #<compiled-code (with-port-locking #f)@0x7fc33d027360> */,
1096 0x0000000d /* 5 (PUSH) */,
1097 0x00000006 /* 6 (CONST-PUSH) */,
1098 SCM_WORD(SCM_UNDEFINED) /* :source-info */,
1099 0x00000006 /* 8 (CONST-PUSH) */,
1100 SCM_WORD(SCM_OBJ(&scm__rc.d1563[435])) /* ("libio.scm" 510) */,
1101 0x00004060 /* 10 (GREF-TAIL-CALL 4) */,
1102 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3c5fd5a0> */,
1103 0x00000014 /* 12 (RET) */,
1104 /* (%with-2pass-setup #f) */
1105 0x0000100e /* 0 (PRE-CALL 1) */,
1106 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 5),
1107 0x0000004b /* 2 (LREF3-PUSH) */,
1108 0x0000105f /* 3 (GREF-CALL 1) */,
1109 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-lock!.3c7494a0> */,
1110 0x0000100e /* 5 (PRE-CALL 1) */,
1111 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 10),
1112 0x0000004b /* 7 (LREF3-PUSH) */,
1113 0x0000105f /* 8 (GREF-CALL 1) */,
1114 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.3c749420> */,
1115 0x0000001e /* 10 (BF) */,
1116 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 21),
1117 0x0000200e /* 12 (PRE-CALL 2) */,
1118 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 21),
1119 0x00000006 /* 14 (CONST-PUSH) */,
1120 SCM_WORD(SCM_OBJ(&scm__sc.d1561[118])) /* "[internal] %with-2pass-setup called recursively on port:" */,
1121 0x0000004b /* 16 (LREF3-PUSH) */,
1122 0x0000205f /* 17 (GREF-CALL 2) */,
1123 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.3c7493c0> */,
1124 0x00000013 /* 19 (JUMP) */,
1125 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 21),
1126 0x0000200e /* 21 (PRE-CALL 2) */,
1127 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 42),
1128 0x0000004b /* 23 (LREF3-PUSH) */,
1129 0x0000300e /* 24 (PRE-CALL 3) */,
1130 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 38),
1131 0x0000005e /* 26 (GREF-PUSH) */,
1132 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<write-state>.3c7491e0> */,
1133 0x00000006 /* 28 (CONST-PUSH) */,
1134 SCM_WORD(SCM_UNDEFINED) /* :shared-table */,
1135 0x0000100e /* 30 (PRE-CALL 1) */,
1136 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 36),
1137 0x00000006 /* 32 (CONST-PUSH) */,
1138 SCM_WORD(SCM_UNDEFINED) /* eq? */,
1139 0x0000105f /* 34 (GREF-CALL 1) */,
1140 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-hash-table.3c749160> */,
1141 0x00003062 /* 36 (PUSH-GREF-CALL 3) */,
1142 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.3c749220> */,
1143 0x00000061 /* 38 (PUSH-GREF) */,
1144 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.3c749280> */,
1145 0x000000a1 /* 40 (SETTER) */,
1146 0x00002011 /* 41 (CALL 2) */,
1147 0x0000200e /* 42 (PRE-CALL 2) */,
1148 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 51),
1149 0x0000004b /* 44 (LREF3-PUSH) */,
1150 0x00000006 /* 45 (CONST-PUSH) */,
1151 SCM_WORD(SCM_TRUE) /* #t */,
1152 0x0000005d /* 47 (GREF) */,
1153 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-walking?.3c749040> */,
1154 0x000000a1 /* 49 (SETTER) */,
1155 0x00002011 /* 50 (CALL 2) */,
1156 0x0000000e /* 51 (PRE-CALL 0) */,
1157 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 56),
1158 0x0000004a /* 53 (LREF2-PUSH) */,
1159 0x0000003d /* 54 (LREF0) */,
1160 0x00002095 /* 55 (TAIL-APPLY 2) */,
1161 0x0000200e /* 56 (PRE-CALL 2) */,
1162 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]) + 64),
1163 0x0000004b /* 58 (LREF3-PUSH) */,
1164 0x00000009 /* 59 (CONSTF-PUSH) */,
1165 0x0000005d /* 60 (GREF) */,
1166 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-walking?.3c750ea0> */,
1167 0x000000a1 /* 62 (SETTER) */,
1168 0x00002011 /* 63 (CALL 2) */,
1169 0x00000049 /* 64 (LREF1-PUSH) */,
1170 0x0000003d /* 65 (LREF0) */,
1171 0x00002095 /* 66 (TAIL-APPLY 2) */,
1172 0x00000014 /* 67 (RET) */,
1173 /* (%with-2pass-setup #f) */
1174 0x0000200e /* 0 (PRE-CALL 2) */,
1175 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[153]) + 8),
1176 0x0000004b /* 2 (LREF3-PUSH) */,
1177 0x00000009 /* 3 (CONSTF-PUSH) */,
1178 0x0000005d /* 4 (GREF) */,
1179 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-walking?.3c750cc0> */,
1180 0x000000a1 /* 6 (SETTER) */,
1181 0x00002011 /* 7 (CALL 2) */,
1182 0x0000200e /* 8 (PRE-CALL 2) */,
1183 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[153]) + 16),
1184 0x0000004b /* 10 (LREF3-PUSH) */,
1185 0x00000009 /* 11 (CONSTF-PUSH) */,
1186 0x0000005d /* 12 (GREF) */,
1187 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.3c750be0> */,
1188 0x000000a1 /* 14 (SETTER) */,
1189 0x00002011 /* 15 (CALL 2) */,
1190 0x0000004b /* 16 (LREF3-PUSH) */,
1191 0x00001060 /* 17 (GREF-TAIL-CALL 1) */,
1192 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-unlock!.3c750b60> */,
1193 0x00000014 /* 19 (RET) */,
1194 /* %with-2pass-setup */
1195 0x00000016 /* 0 (CLOSURE) */,
1196 SCM_WORD(SCM_OBJ(&scm__rc.d1569[5])) /* #<compiled-code (%with-2pass-setup #f)@0x7fc33d027180> */,
1197 0x0000000d /* 2 (PUSH) */,
1198 0x00000016 /* 3 (CLOSURE) */,
1199 SCM_WORD(SCM_OBJ(&scm__rc.d1569[6])) /* #<compiled-code (%with-2pass-setup #f)@0x7fc33d0270c0> */,
1200 0x0000000d /* 5 (PUSH) */,
1201 0x00000006 /* 6 (CONST-PUSH) */,
1202 SCM_WORD(SCM_UNDEFINED) /* :source-info */,
1203 0x00000006 /* 8 (CONST-PUSH) */,
1204 SCM_WORD(SCM_OBJ(&scm__rc.d1563[447])) /* ("libio.scm" 521) */,
1205 0x00004060 /* 10 (GREF-TAIL-CALL 4) */,
1206 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3c7495a0> */,
1207 0x00000014 /* 12 (RET) */,
1208 /* %toplevel */
1209 0x0000005d /* 0 (GREF) */,
1210 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-ready?.3dc2b4e0> */,
1211 0x00000015 /* 2 (DEFINE 0) */,
1212 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#u8-ready?.3dc2b580> */,
1213 0x00000014 /* 4 (RET) */,
1214 /* %toplevel */
1215 0x0000005d /* 0 (GREF) */,
1216 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3db13980> */,
1217 0x00000015 /* 2 (DEFINE 0) */,
1218 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-u8.3db13a60> */,
1219 0x00000014 /* 4 (RET) */,
1220 /* %toplevel */
1221 0x0000005d /* 0 (GREF) */,
1222 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-byte.3dbb0a60> */,
1223 0x00000015 /* 2 (DEFINE 0) */,
1224 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-u8.3dbb0ae0> */,
1225 0x00000014 /* 4 (RET) */,
1226 /* read-string */
1227 0x0000003d /* 0 (LREF0) */,
1228 0x00000022 /* 1 (BNNULL) */,
1229 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 6),
1230 0x000000de /* 3 (CURIN) */,
1231 0x00000013 /* 4 (JUMP) */,
1232 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 7),
1233 0x0000006a /* 6 (LREF0-CAR) */,
1234 0x0000000d /* 7 (PUSH) */,
1235 0x0000003d /* 8 (LREF0) */,
1236 0x00000022 /* 9 (BNNULL) */,
1237 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 14),
1238 0x00000003 /* 11 (CONSTN) */,
1239 0x00000013 /* 12 (JUMP) */,
1240 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 15),
1241 0x00000076 /* 14 (LREF0-CDR) */,
1242 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */,
1243 0x0000003d /* 16 (LREF0) */,
1244 0x00000022 /* 17 (BNNULL) */,
1245 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 21),
1246 0x00000013 /* 19 (JUMP) */,
1247 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 29),
1248 0x0000200e /* 21 (PRE-CALL 2) */,
1249 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 29),
1250 0x00000006 /* 23 (CONST-PUSH) */,
1251 SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
1252 0x00000006 /* 25 (CONST-PUSH) */,
1253 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)))))))) */,
1254 0x0000205f /* 27 (GREF-CALL 2) */,
1255 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.3d462800> */,
1256 0x00001019 /* 29 (LOCAL-ENV-CLOSURES 1) */,
1257 SCM_WORD(SCM_OBJ(&scm__rc.d1563[593])) /* (#<undef>) */,
1258 0x0000200e /* 31 (PRE-CALL 2) */,
1259 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 39),
1260 0x00000006 /* 33 (CONST-PUSH) */,
1261 SCM_WORD(SCM_UNDEFINED) /* :private? */,
1262 0x00000006 /* 35 (CONST-PUSH) */,
1263 SCM_WORD(SCM_TRUE) /* #t */,
1264 0x0000205f /* 37 (GREF-CALL 2) */,
1265 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.3d469500> */,
1266 0x000000e8 /* 39 (ENV-SET 0) */,
1267 0x00000007 /* 40 (CONSTI-PUSH 0) */,
1268 0x00001017 /* 41 (LOCAL-ENV 1) */,
1269 0x0040303c /* 42 (LREF 3 1) */,
1270 0x0000002c /* 43 (LREF-VAL0-BNGE 0 0) */,
1271 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 49),
1272 0x0000004c /* 45 (LREF10-PUSH) */,
1273 0x00001060 /* 46 (GREF-TAIL-CALL 1) */,
1274 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.3d4692e0> */,
1275 0x00000014 /* 48 (RET) */,
1276 0x00000045 /* 49 (LREF21) */,
1277 0x000010db /* 50 (READ-CHAR 1) */,
1278 0x00001018 /* 51 (PUSH-LOCAL-ENV 1) */,
1279 0x0000003d /* 52 (LREF0) */,
1280 0x0000009a /* 53 (EOFP) */,
1281 0x0000001e /* 54 (BF) */,
1282 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 65),
1283 0x00000041 /* 56 (LREF10) */,
1284 0x0000002d /* 57 (BNUMNEI 0) */,
1285 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 61),
1286 0x0000000a /* 59 (CONST-RET) */,
1287 SCM_WORD(SCM_EOF) /* #<eof> */,
1288 0x0000004f /* 61 (LREF20-PUSH) */,
1289 0x00001060 /* 62 (GREF-TAIL-CALL 1) */,
1290 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.3d46cd80> */,
1291 0x00000014 /* 64 (RET) */,
1292 0x00000048 /* 65 (LREF0-PUSH) */,
1293 0x00000044 /* 66 (LREF20) */,
1294 0x000020dd /* 67 (WRITE-CHAR 2) */,
1295 0x000010cb /* 68 (LREF10-NUMADDI-PUSH 1) */,
1296 0x0000201b /* 69 (LOCAL-ENV-JUMP 2) */,
1297 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]) + 42),
1298 0x00000014 /* 71 (RET) */,
1299 0x00000014 /* 72 (RET) */,
1300 /* write-string */
1301 0x0000003d /* 0 (LREF0) */,
1302 0x00000022 /* 1 (BNNULL) */,
1303 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 6),
1304 0x000000df /* 3 (CUROUT) */,
1305 0x00000013 /* 4 (JUMP) */,
1306 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 7),
1307 0x0000006a /* 6 (LREF0-CAR) */,
1308 0x0000000d /* 7 (PUSH) */,
1309 0x0000003d /* 8 (LREF0) */,
1310 0x00000022 /* 9 (BNNULL) */,
1311 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 14),
1312 0x00000003 /* 11 (CONSTN) */,
1313 0x00000013 /* 12 (JUMP) */,
1314 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 15),
1315 0x00000076 /* 14 (LREF0-CDR) */,
1316 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */,
1317 0x0000003d /* 16 (LREF0) */,
1318 0x00000022 /* 17 (BNNULL) */,
1319 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 22),
1320 0x00000002 /* 19 (CONSTI 0) */,
1321 0x00000013 /* 20 (JUMP) */,
1322 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 23),
1323 0x0000006a /* 22 (LREF0-CAR) */,
1324 0x0000000d /* 23 (PUSH) */,
1325 0x0000003d /* 24 (LREF0) */,
1326 0x00000022 /* 25 (BNNULL) */,
1327 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 30),
1328 0x00000003 /* 27 (CONSTN) */,
1329 0x00000013 /* 28 (JUMP) */,
1330 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 31),
1331 0x00000076 /* 30 (LREF0-CDR) */,
1332 0x00002018 /* 31 (PUSH-LOCAL-ENV 2) */,
1333 0x0000003d /* 32 (LREF0) */,
1334 0x00000022 /* 33 (BNNULL) */,
1335 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 38),
1336 -0x00000ffe /* 35 (CONSTI -1) */,
1337 0x00000013 /* 36 (JUMP) */,
1338 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 39),
1339 0x0000006a /* 38 (LREF0-CAR) */,
1340 0x0000000d /* 39 (PUSH) */,
1341 0x0000003d /* 40 (LREF0) */,
1342 0x00000022 /* 41 (BNNULL) */,
1343 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 46),
1344 0x00000003 /* 43 (CONSTN) */,
1345 0x00000013 /* 44 (JUMP) */,
1346 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 47),
1347 0x00000076 /* 46 (LREF0-CDR) */,
1348 0x00002018 /* 47 (PUSH-LOCAL-ENV 2) */,
1349 0x0000003d /* 48 (LREF0) */,
1350 0x00000022 /* 49 (BNNULL) */,
1351 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 53),
1352 0x00000013 /* 51 (JUMP) */,
1353 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 61),
1354 0x0000200e /* 53 (PRE-CALL 2) */,
1355 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 61),
1356 0x00000006 /* 55 (CONST-PUSH) */,
1357 SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
1358 0x00000006 /* 57 (CONST-PUSH) */,
1359 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)) */,
1360 0x0000205f /* 59 (GREF-CALL 2) */,
1361 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.3d315b60> */,
1362 0x0000300e /* 61 (PRE-CALL 3) */,
1363 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]) + 68),
1364 0x00403047 /* 63 (LREF-PUSH 3 1) */,
1365 0x0000004d /* 64 (LREF11-PUSH) */,
1366 0x00000049 /* 65 (LREF1-PUSH) */,
1367 0x0000305f /* 66 (GREF-CALL 3) */,
1368 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%maybe-substring.3d31f7a0> */,
1369 0x0000000d /* 68 (PUSH) */,
1370 0x00000050 /* 69 (LREF21-PUSH) */,
1371 0x00002060 /* 70 (GREF-TAIL-CALL 2) */,
1372 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.3d31f880> */,
1373 0x00000014 /* 72 (RET) */,
1374 /* consume-trailing-whitespaces */
1375 0x0000003d /* 0 (LREF0) */,
1376 0x00000022 /* 1 (BNNULL) */,
1377 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 6),
1378 0x000000de /* 3 (CURIN) */,
1379 0x00000013 /* 4 (JUMP) */,
1380 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 7),
1381 0x0000006a /* 6 (LREF0-CAR) */,
1382 0x0000000d /* 7 (PUSH) */,
1383 0x0000003d /* 8 (LREF0) */,
1384 0x00000022 /* 9 (BNNULL) */,
1385 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 14),
1386 0x00000003 /* 11 (CONSTN) */,
1387 0x00000013 /* 12 (JUMP) */,
1388 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 15),
1389 0x00000076 /* 14 (LREF0-CDR) */,
1390 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */,
1391 0x0000003d /* 16 (LREF0) */,
1392 0x00000022 /* 17 (BNNULL) */,
1393 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 21),
1394 0x00000013 /* 19 (JUMP) */,
1395 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 29),
1396 0x0000200e /* 21 (PRE-CALL 2) */,
1397 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 29),
1398 0x00000006 /* 23 (CONST-PUSH) */,
1399 SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
1400 0x00000006 /* 25 (CONST-PUSH) */,
1401 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))))))) */,
1402 0x0000205f /* 27 (GREF-CALL 2) */,
1403 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.3ce12d20> */,
1404 0x0000100e /* 29 (PRE-CALL 1) */,
1405 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 34),
1406 0x00000049 /* 31 (LREF1-PUSH) */,
1407 0x0000105f /* 32 (GREF-CALL 1) */,
1408 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-ready?.3ce1dec0> */,
1409 0x0000001e /* 34 (BF) */,
1410 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 95),
1411 0x0000100e /* 36 (PRE-CALL 1) */,
1412 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 41),
1413 0x00000049 /* 38 (LREF1-PUSH) */,
1414 0x0000105f /* 39 (GREF-CALL 1) */,
1415 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-byte.3ce1dd80> */,
1416 0x00001018 /* 41 (PUSH-LOCAL-ENV 1) */,
1417 0x00000048 /* 42 (LREF0-PUSH) */,
1418 0x00000001 /* 43 (CONST) */,
1419 SCM_WORD(SCM_OBJ(&scm__rc.d1563[629])) /* (9 32) */,
1420 0x0000008c /* 45 (MEMV) */,
1421 0x0000001e /* 46 (BF) */,
1422 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 56),
1423 0x0000100e /* 48 (PRE-CALL 1) */,
1424 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 53),
1425 0x0000004d /* 50 (LREF11-PUSH) */,
1426 0x0000105f /* 51 (GREF-CALL 1) */,
1427 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3ce1da60> */,
1428 0x0000101b /* 53 (LOCAL-ENV-JUMP 1) */,
1429 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 29),
1430 0x00000014 /* 55 (RET) */,
1431 0x0000003d /* 56 (LREF0) */,
1432 0x0000002f /* 57 (BNEQVC) */,
1433 SCM_WORD(SCM_MAKE_INT(13U)) /* 13 */,
1434 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 86) /* 86 */,
1435 0x0000100e /* 60 (PRE-CALL 1) */,
1436 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 65),
1437 0x0000004d /* 62 (LREF11-PUSH) */,
1438 0x0000105f /* 63 (GREF-CALL 1) */,
1439 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3ce1d8e0> */,
1440 0x0000100e /* 65 (PRE-CALL 1) */,
1441 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 70),
1442 0x0000004d /* 67 (LREF11-PUSH) */,
1443 0x0000105f /* 68 (GREF-CALL 1) */,
1444 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-ready?.3ce1d820> */,
1445 0x0000001e /* 70 (BF) */,
1446 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 85),
1447 0x0000100e /* 72 (PRE-CALL 1) */,
1448 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 77),
1449 0x0000004d /* 74 (LREF11-PUSH) */,
1450 0x0000105f /* 75 (GREF-CALL 1) */,
1451 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#peek-byte.3ce1d760> */,
1452 0x0000002f /* 77 (BNEQVC) */,
1453 SCM_WORD(SCM_MAKE_INT(10U)) /* 10 */,
1454 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 84) /* 84 */,
1455 0x0000004d /* 80 (LREF11-PUSH) */,
1456 0x00001060 /* 81 (GREF-TAIL-CALL 1) */,
1457 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3ce1d620> */,
1458 0x00000014 /* 83 (RET) */,
1459 0x0000000c /* 84 (CONSTU-RET) */,
1460 0x0000000c /* 85 (CONSTU-RET) */,
1461 0x0000003d /* 86 (LREF0) */,
1462 0x0000002f /* 87 (BNEQVC) */,
1463 SCM_WORD(SCM_MAKE_INT(10U)) /* 10 */,
1464 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]) + 94) /* 94 */,
1465 0x0000004d /* 90 (LREF11-PUSH) */,
1466 0x00001060 /* 91 (GREF-TAIL-CALL 1) */,
1467 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-byte.3ce1d4e0> */,
1468 0x00000014 /* 93 (RET) */,
1469 0x0000000c /* 94 (CONSTU-RET) */,
1470 0x0000000c /* 95 (CONSTU-RET) */,
1471 0x00000014 /* 96 (RET) */,
1472 /* port->string */
1473 0x0000200e /* 0 (PRE-CALL 2) */,
1474 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]) + 8),
1475 0x00000006 /* 2 (CONST-PUSH) */,
1476 SCM_WORD(SCM_UNDEFINED) /* :private? */,
1477 0x00000006 /* 4 (CONST-PUSH) */,
1478 SCM_WORD(SCM_TRUE) /* #t */,
1479 0x0000205f /* 6 (GREF-CALL 2) */,
1480 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.3c664560> */,
1481 0x00001018 /* 8 (PUSH-LOCAL-ENV 1) */,
1482 0x0000400e /* 9 (PRE-CALL 4) */,
1483 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]) + 19),
1484 0x0000004c /* 11 (LREF10-PUSH) */,
1485 0x00000048 /* 12 (LREF0-PUSH) */,
1486 0x00000006 /* 13 (CONST-PUSH) */,
1487 SCM_WORD(SCM_UNDEFINED) /* :unit */,
1488 0x00000006 /* 15 (CONST-PUSH) */,
1489 SCM_WORD(SCM_UNDEFINED) /* byte */,
1490 0x0000405f /* 17 (GREF-CALL 4) */,
1491 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#copy-port.3c6644a0> */,
1492 0x00000048 /* 19 (LREF0-PUSH) */,
1493 0x00001060 /* 20 (GREF-TAIL-CALL 1) */,
1494 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.3c664360> */,
1495 0x00000014 /* 22 (RET) */,
1496 /* (port->list #f) */
1497 0x0000100e /* 0 (PRE-CALL 1) */,
1498 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[467]) + 5),
1499 0x00000048 /* 2 (LREF0-PUSH) */,
1500 0x0000003e /* 3 (LREF1) */,
1501 0x00001011 /* 4 (CALL 1) */,
1502 0x0000000d /* 5 (PUSH) */,
1503 0x00000008 /* 6 (CONSTN-PUSH) */,
1504 0x00002017 /* 7 (LOCAL-ENV 2) */,
1505 0x0000003e /* 8 (LREF1) */,
1506 0x0000009a /* 9 (EOFP) */,
1507 0x0000001e /* 10 (BF) */,
1508 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[467]) + 16),
1509 0x00000048 /* 12 (LREF0-PUSH) */,
1510 0x00001060 /* 13 (GREF-TAIL-CALL 1) */,
1511 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#reverse!.3c73afe0> */,
1512 0x00000014 /* 15 (RET) */,
1513 0x0000100e /* 16 (PRE-CALL 1) */,
1514 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[467]) + 21),
1515 0x0000004c /* 18 (LREF10-PUSH) */,
1516 0x00000042 /* 19 (LREF11) */,
1517 0x00001011 /* 20 (CALL 1) */,
1518 0x0000000d /* 21 (PUSH) */,
1519 0x00000049 /* 22 (LREF1-PUSH) */,
1520 0x0000003d /* 23 (LREF0) */,
1521 0x00000067 /* 24 (CONS-PUSH) */,
1522 0x0000101b /* 25 (LOCAL-ENV-JUMP 1) */,
1523 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[467]) + 8),
1524 0x00000014 /* 27 (RET) */,
1525 0x00000014 /* 28 (RET) */,
1526 /* port->list */
1527 0x00000048 /* 0 (LREF0-PUSH) */,
1528 0x00000016 /* 1 (CLOSURE) */,
1529 SCM_WORD(SCM_OBJ(&scm__rc.d1569[15])) /* #<compiled-code (port->list #f)@0x7fc33d5d96c0> */,
1530 0x00002063 /* 3 (PUSH-GREF-TAIL-CALL 2) */,
1531 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-port-locking.3c7351c0> */,
1532 0x00000014 /* 5 (RET) */,
1533 /* (port->string-list G1591) */
1534 0x00000048 /* 0 (LREF0-PUSH) */,
1535 0x00000006 /* 1 (CONST-PUSH) */,
1536 SCM_WORD(SCM_TRUE) /* #t */,
1537 0x00002060 /* 3 (GREF-TAIL-CALL 2) */,
1538 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-line.3e407140> */,
1539 0x00000014 /* 5 (RET) */,
1540 /* port->string-list */
1541 0x0000004c /* 0 (LREF10-PUSH) */,
1542 0x00000048 /* 1 (LREF0-PUSH) */,
1543 0x00002060 /* 2 (GREF-TAIL-CALL 2) */,
1544 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port->list.3e4034e0> */,
1545 0x00000014 /* 4 (RET) */,
1546 /* %toplevel */
1547 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */,
1548 SCM_WORD(SCM_OBJ(&scm__rc.d1563[732])) /* (#<compiled-code (port->string-list #:G1591)@0x7fc33fc60e40>) */,
1549 0x00000016 /* 2 (CLOSURE) */,
1550 SCM_WORD(SCM_OBJ(&scm__rc.d1569[18])) /* #<compiled-code port->string-list@0x7fc33fc60d20> */,
1551 0x00000015 /* 4 (DEFINE 0) */,
1552 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port->string-list.3f5b51a0> */,
1553 0x00000014 /* 6 (RET) */,
1554 /* port->sexp-list */
1555 0x0000005e /* 0 (GREF-PUSH) */,
1556 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.3e53b120> */,
1557 0x00000048 /* 2 (LREF0-PUSH) */,
1558 0x00002060 /* 3 (GREF-TAIL-CALL 2) */,
1559 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port->list.3e53b440> */,
1560 0x00000014 /* 5 (RET) */,
1561 /* %toplevel */
1562 0x0000005d /* 0 (GREF) */,
1563 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.3d145440> */,
1564 0x00000015 /* 2 (DEFINE 0) */,
1565 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#read-with-shared-structure.3d1454c0> */,
1566 0x00000014 /* 4 (RET) */,
1567 /* %toplevel */
1568 0x0000005d /* 0 (GREF) */,
1569 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.3d173060> */,
1570 0x00000015 /* 2 (DEFINE 0) */,
1571 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#read/ss.3d1730c0> */,
1572 0x00000014 /* 4 (RET) */,
1573 /* %toplevel */
1574 0x0000005d /* 0 (GREF) */,
1575 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-byte.3ce29a40> */,
1576 0x00000015 /* 2 (DEFINE 0) */,
1577 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-u8.3ce29ac0> */,
1578 0x00000014 /* 4 (RET) */,
1579 /* %toplevel */
1580 0x0000005d /* 0 (GREF) */,
1581 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-shared.3ceab6a0> */,
1582 0x00000015 /* 2 (DEFINE 0) */,
1583 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write*.3ceab720> */,
1584 0x00000014 /* 4 (RET) */,
1585 /* write-walk */
1586 0x0000100e /* 0 (PRE-CALL 1) */,
1587 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]) + 5),
1588 0x00000048 /* 2 (LREF0-PUSH) */,
1589 0x0000105f /* 3 (GREF-CALL 1) */,
1590 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-write-state.3cfddd00> */,
1591 0x00001018 /* 5 (PUSH-LOCAL-ENV 1) */,
1592 0x0000003d /* 6 (LREF0) */,
1593 0x0000001e /* 7 (BF) */,
1594 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]) + 21),
1595 0x0000004d /* 9 (LREF11-PUSH) */,
1596 0x0000004c /* 10 (LREF10-PUSH) */,
1597 0x0000200e /* 11 (PRE-CALL 2) */,
1598 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]) + 18),
1599 0x00000048 /* 13 (LREF0-PUSH) */,
1600 0x0000005e /* 14 (GREF-PUSH) */,
1601 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#shared-table.3cfddb20> */,
1602 0x0000205f /* 16 (GREF-CALL 2) */,
1603 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#~.3cfddbc0> */,
1604 0x00003063 /* 18 (PUSH-GREF-TAIL-CALL 3) */,
1605 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.3cfddc40> */,
1606 0x00000014 /* 20 (RET) */,
1607 0x0000000c /* 21 (CONSTU-RET) */,
1608 /* (%write-walk-rec G1596) */
1609 0x000010bd /* 0 (LREF0-NUMADDI 1) */,
1610 0x00000014 /* 1 (RET) */,
1611 /* %write-walk-rec */
1612 0x0000100e /* 0 (PRE-CALL 1) */,
1613 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 5),
1614 0x0000004a /* 2 (LREF2-PUSH) */,
1615 0x0000105f /* 3 (GREF-CALL 1) */,
1616 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-need-recurse?.3c9265c0> */,
1617 0x0000001e /* 5 (BF) */,
1618 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 124),
1619 0x0000200e /* 7 (PRE-CALL 2) */,
1620 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 13),
1621 0x00000048 /* 9 (LREF0-PUSH) */,
1622 0x0000004a /* 10 (LREF2-PUSH) */,
1623 0x0000205f /* 11 (GREF-CALL 2) */,
1624 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-exists?.3c926540> */,
1625 0x0000001e /* 13 (BF) */,
1626 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 21),
1627 0x00000048 /* 15 (LREF0-PUSH) */,
1628 0x0000004a /* 16 (LREF2-PUSH) */,
1629 0x0000004c /* 17 (LREF10-PUSH) */,
1630 0x00003060 /* 18 (GREF-TAIL-CALL 3) */,
1631 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-update!.3c9264c0> */,
1632 0x00000014 /* 20 (RET) */,
1633 0x0000300e /* 21 (PRE-CALL 3) */,
1634 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 28),
1635 0x00000048 /* 23 (LREF0-PUSH) */,
1636 0x0000004a /* 24 (LREF2-PUSH) */,
1637 0x00001007 /* 25 (CONSTI-PUSH 1) */,
1638 0x0000305f /* 26 (GREF-CALL 3) */,
1639 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-put!.3c93df40> */,
1640 0x0000003f /* 28 (LREF2) */,
1641 0x0000009c /* 29 (SYMBOLP) */,
1642 0x0000001e /* 30 (BF) */,
1643 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 34),
1644 0x00000013 /* 32 (JUMP) */,
1645 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
1646 0x0000003f /* 34 (LREF2) */,
1647 0x0000009b /* 35 (STRINGP) */,
1648 0x0000001e /* 36 (BF) */,
1649 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 40),
1650 0x00000013 /* 38 (JUMP) */,
1651 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
1652 0x0000003f /* 40 (LREF2) */,
1653 0x00000098 /* 41 (PAIRP) */,
1654 0x0000001e /* 42 (BF) */,
1655 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 62),
1656 0x0000300e /* 44 (PRE-CALL 3) */,
1657 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 52),
1658 0x0000006c /* 46 (LREF2-CAR) */,
1659 0x0000000d /* 47 (PUSH) */,
1660 0x00000049 /* 48 (LREF1-PUSH) */,
1661 0x00000048 /* 49 (LREF0-PUSH) */,
1662 0x0000305f /* 50 (GREF-CALL 3) */,
1663 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.3c93dd40> */,
1664 0x0000300e /* 52 (PRE-CALL 3) */,
1665 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
1666 0x00000078 /* 54 (LREF2-CDR) */,
1667 0x0000000d /* 55 (PUSH) */,
1668 0x00000049 /* 56 (LREF1-PUSH) */,
1669 0x00000048 /* 57 (LREF0-PUSH) */,
1670 0x0000305f /* 58 (GREF-CALL 3) */,
1671 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.3c93dc80> */,
1672 0x00000013 /* 60 (JUMP) */,
1673 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
1674 0x0000003f /* 62 (LREF2) */,
1675 0x0000009d /* 63 (VECTORP) */,
1676 0x0000001e /* 64 (BF) */,
1677 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 94),
1678 0x0000200e /* 66 (PRE-CALL 2) */,
1679 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
1680 0x0000003f /* 68 (LREF2) */,
1681 0x000000a7 /* 69 (VEC-LEN) */,
1682 0x0000000d /* 70 (PUSH) */,
1683 0x00000007 /* 71 (CONSTI-PUSH 0) */,
1684 0x00002017 /* 72 (LOCAL-ENV 2) */,
1685 0x0000003e /* 73 (LREF1) */,
1686 0x0000002c /* 74 (LREF-VAL0-BNGE 0 0) */,
1687 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 77),
1688 0x0000000c /* 76 (CONSTU-RET) */,
1689 0x0000300e /* 77 (PRE-CALL 3) */,
1690 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 87),
1691 0x0000004e /* 79 (LREF12-PUSH) */,
1692 0x0000003d /* 80 (LREF0) */,
1693 0x000000a8 /* 81 (VEC-REF) */,
1694 0x0000000d /* 82 (PUSH) */,
1695 0x0000004d /* 83 (LREF11-PUSH) */,
1696 0x0000004c /* 84 (LREF10-PUSH) */,
1697 0x0000305f /* 85 (GREF-CALL 3) */,
1698 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.3c93d9c0> */,
1699 0x00000049 /* 87 (LREF1-PUSH) */,
1700 0x000010c7 /* 88 (LREF0-NUMADDI-PUSH 1) */,
1701 0x0000101b /* 89 (LOCAL-ENV-JUMP 1) */,
1702 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 73),
1703 0x00000014 /* 91 (RET) */,
1704 0x00000013 /* 92 (JUMP) */,
1705 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
1706 0x0000200e /* 94 (PRE-CALL 2) */,
1707 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 100),
1708 0x0000004a /* 96 (LREF2-PUSH) */,
1709 0x00000049 /* 97 (LREF1-PUSH) */,
1710 0x0000205f /* 98 (GREF-CALL 2) */,
1711 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-object.3c93d700> */,
1712 0x0000100e /* 100 (PRE-CALL 1) */,
1713 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 105),
1714 0x00000049 /* 102 (LREF1-PUSH) */,
1715 0x0000105f /* 103 (GREF-CALL 1) */,
1716 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%port-writing-shared?.3c93d660> */,
1717 0x0000001e /* 105 (BF) */,
1718 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 108),
1719 0x0000000c /* 107 (CONSTU-RET) */,
1720 0x0000300e /* 108 (PRE-CALL 3) */,
1721 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 115),
1722 0x00000048 /* 110 (LREF0-PUSH) */,
1723 0x0000004a /* 111 (LREF2-PUSH) */,
1724 0x00000009 /* 112 (CONSTF-PUSH) */,
1725 0x0000305f /* 113 (GREF-CALL 3) */,
1726 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-get.3c93d5c0> */,
1727 0x0000002f /* 115 (BNEQVC) */,
1728 SCM_WORD(SCM_MAKE_INT(1U)) /* 1 */,
1729 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]) + 123) /* 123 */,
1730 0x00000048 /* 118 (LREF0-PUSH) */,
1731 0x0000004a /* 119 (LREF2-PUSH) */,
1732 0x00002060 /* 120 (GREF-TAIL-CALL 2) */,
1733 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#hash-table-delete!.3c93d500> */,
1734 0x00000014 /* 122 (RET) */,
1735 0x0000000c /* 123 (CONSTU-RET) */,
1736 0x0000000c /* 124 (CONSTU-RET) */,
1737 /* %toplevel */
1738 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */,
1739 SCM_WORD(SCM_OBJ(&scm__rc.d1563[939])) /* (#<compiled-code (%write-walk-rec #:G1596)@0x7fc33d027300>) */,
1740 0x00000016 /* 2 (CLOSURE) */,
1741 SCM_WORD(SCM_OBJ(&scm__rc.d1569[27])) /* #<compiled-code %write-walk-rec@0x7fc33d0272a0> */,
1742 0x00000015 /* 4 (DEFINE 0) */,
1743 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%write-walk-rec.3c9266c0> */,
1744 0x00000014 /* 6 (RET) */,
1745 /* write-with-shared-structure */
1746 0x0000003d /* 0 (LREF0) */,
1747 0x00000022 /* 1 (BNNULL) */,
1748 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 6),
1749 0x000000df /* 3 (CUROUT) */,
1750 0x00000013 /* 4 (JUMP) */,
1751 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 7),
1752 0x0000006a /* 6 (LREF0-CAR) */,
1753 0x0000000d /* 7 (PUSH) */,
1754 0x0000003d /* 8 (LREF0) */,
1755 0x00000022 /* 9 (BNNULL) */,
1756 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 14),
1757 0x00000003 /* 11 (CONSTN) */,
1758 0x00000013 /* 12 (JUMP) */,
1759 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 15),
1760 0x00000076 /* 14 (LREF0-CDR) */,
1761 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */,
1762 0x0000003d /* 16 (LREF0) */,
1763 0x00000022 /* 17 (BNNULL) */,
1764 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 21),
1765 0x00000013 /* 19 (JUMP) */,
1766 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 29),
1767 0x0000200e /* 21 (PRE-CALL 2) */,
1768 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]) + 29),
1769 0x00000006 /* 23 (CONST-PUSH) */,
1770 SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
1771 0x00000006 /* 25 (CONST-PUSH) */,
1772 SCM_WORD(SCM_OBJ(&scm__rc.d1563[954])) /* (lambda (obj :optional (port (current-output-port))) (write* obj port)) */,
1773 0x0000205f /* 27 (GREF-CALL 2) */,
1774 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.3cb5e320> */,
1775 0x0000004d /* 29 (LREF11-PUSH) */,
1776 0x00000049 /* 30 (LREF1-PUSH) */,
1777 0x00002060 /* 31 (GREF-TAIL-CALL 2) */,
1778 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write*.3cb60f00> */,
1779 0x00000014 /* 33 (RET) */,
1780 /* %toplevel */
1781 0x0000005d /* 0 (GREF) */,
1782 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-with-shared-structure.3e4cf460> */,
1783 0x00000015 /* 2 (DEFINE 0) */,
1784 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#write/ss.3e4cfd40> */,
1785 0x00000014 /* 4 (RET) */,
1786 /* print */
1787 0x0000200e /* 0 (PRE-CALL 2) */,
1788 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[741]) + 7),
1789 0x0000005e /* 2 (GREF-PUSH) */,
1790 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.3e513e00> */,
1791 0x00000048 /* 4 (LREF0-PUSH) */,
1792 0x0000205f /* 5 (GREF-CALL 2) */,
1793 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#for-each.3e513e40> */,
1794 0x00000060 /* 7 (GREF-TAIL-CALL 0) */,
1795 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#newline.3e513da0> */,
1796 0x00000014 /* 9 (RET) */,
1797 /* make-write-controls */
1798 0x00000048 /* 0 (LREF0-PUSH) */,
1799 0x00000005 /* 1 (CONSTU) */,
1800 0x0000000d /* 2 (PUSH) */,
1801 0x00000005 /* 3 (CONSTU) */,
1802 0x0000000d /* 4 (PUSH) */,
1803 0x00000005 /* 5 (CONSTU) */,
1804 0x0000000d /* 6 (PUSH) */,
1805 0x00000005 /* 7 (CONSTU) */,
1806 0x0000000d /* 8 (PUSH) */,
1807 0x00000005 /* 9 (CONSTU) */,
1808 0x0000000d /* 10 (PUSH) */,
1809 0x00000005 /* 11 (CONSTU) */,
1810 0x0000000d /* 12 (PUSH) */,
1811 0x00000005 /* 13 (CONSTU) */,
1812 0x0000000d /* 14 (PUSH) */,
1813 0x00000005 /* 15 (CONSTU) */,
1814 0x0000000d /* 16 (PUSH) */,
1815 0x00000005 /* 17 (CONSTU) */,
1816 0x0000000d /* 18 (PUSH) */,
1817 0x00000005 /* 19 (CONSTU) */,
1818 0x0000000d /* 20 (PUSH) */,
1819 0x00000005 /* 21 (CONSTU) */,
1820 0x0000000d /* 22 (PUSH) */,
1821 0x00000005 /* 23 (CONSTU) */,
1822 0x0000d018 /* 24 (PUSH-LOCAL-ENV 13) */,
1823 0x0300003c /* 25 (LREF 0 12) */,
1824 0x00000022 /* 26 (BNNULL) */,
1825 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 260),
1826 0x0000100e /* 28 (PRE-CALL 1) */,
1827 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 33),
1828 0x02c00047 /* 30 (LREF-PUSH 0 11) */,
1829 0x0000105f /* 31 (GREF-CALL 1) */,
1830 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1831 0x0000001e /* 33 (BF) */,
1832 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 38),
1833 0x00000005 /* 35 (CONSTU) */,
1834 0x00000013 /* 36 (JUMP) */,
1835 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 39),
1836 0x02c0003c /* 38 (LREF 0 11) */,
1837 0x00001018 /* 39 (PUSH-LOCAL-ENV 1) */,
1838 0x0000100e /* 40 (PRE-CALL 1) */,
1839 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 45),
1840 0x02801047 /* 42 (LREF-PUSH 1 10) */,
1841 0x0000105f /* 43 (GREF-CALL 1) */,
1842 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1843 0x0000001e /* 45 (BF) */,
1844 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 50),
1845 0x00000005 /* 47 (CONSTU) */,
1846 0x00000013 /* 48 (JUMP) */,
1847 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 51),
1848 0x0280103c /* 50 (LREF 1 10) */,
1849 0x00001018 /* 51 (PUSH-LOCAL-ENV 1) */,
1850 0x0000100e /* 52 (PRE-CALL 1) */,
1851 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 57),
1852 0x02402047 /* 54 (LREF-PUSH 2 9) */,
1853 0x0000105f /* 55 (GREF-CALL 1) */,
1854 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1855 0x0000001e /* 57 (BF) */,
1856 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 62),
1857 0x00000005 /* 59 (CONSTU) */,
1858 0x00000013 /* 60 (JUMP) */,
1859 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 63),
1860 0x0240203c /* 62 (LREF 2 9) */,
1861 0x00001018 /* 63 (PUSH-LOCAL-ENV 1) */,
1862 0x0000100e /* 64 (PRE-CALL 1) */,
1863 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 69),
1864 0x02003047 /* 66 (LREF-PUSH 3 8) */,
1865 0x0000105f /* 67 (GREF-CALL 1) */,
1866 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1867 0x0000001e /* 69 (BF) */,
1868 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 74),
1869 0x00000005 /* 71 (CONSTU) */,
1870 0x00000013 /* 72 (JUMP) */,
1871 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 75),
1872 0x0200303c /* 74 (LREF 3 8) */,
1873 0x00001018 /* 75 (PUSH-LOCAL-ENV 1) */,
1874 0x0000100e /* 76 (PRE-CALL 1) */,
1875 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 81),
1876 0x01c04047 /* 78 (LREF-PUSH 4 7) */,
1877 0x0000105f /* 79 (GREF-CALL 1) */,
1878 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1879 0x0000001e /* 81 (BF) */,
1880 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 86),
1881 0x00000005 /* 83 (CONSTU) */,
1882 0x00000013 /* 84 (JUMP) */,
1883 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 87),
1884 0x01c0403c /* 86 (LREF 4 7) */,
1885 0x00001018 /* 87 (PUSH-LOCAL-ENV 1) */,
1886 0x0000100e /* 88 (PRE-CALL 1) */,
1887 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 93),
1888 0x01805047 /* 90 (LREF-PUSH 5 6) */,
1889 0x0000105f /* 91 (GREF-CALL 1) */,
1890 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1891 0x0000001e /* 93 (BF) */,
1892 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 98),
1893 0x00000005 /* 95 (CONSTU) */,
1894 0x00000013 /* 96 (JUMP) */,
1895 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 99),
1896 0x0180503c /* 98 (LREF 5 6) */,
1897 0x00001018 /* 99 (PUSH-LOCAL-ENV 1) */,
1898 0x0000100e /* 100 (PRE-CALL 1) */,
1899 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 105),
1900 0x01406047 /* 102 (LREF-PUSH 6 5) */,
1901 0x0000105f /* 103 (GREF-CALL 1) */,
1902 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1903 0x0000001e /* 105 (BF) */,
1904 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 110),
1905 0x00000005 /* 107 (CONSTU) */,
1906 0x00000013 /* 108 (JUMP) */,
1907 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 111),
1908 0x0140603c /* 110 (LREF 6 5) */,
1909 0x00001018 /* 111 (PUSH-LOCAL-ENV 1) */,
1910 0x0000100e /* 112 (PRE-CALL 1) */,
1911 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 117),
1912 0x01007047 /* 114 (LREF-PUSH 7 4) */,
1913 0x0000105f /* 115 (GREF-CALL 1) */,
1914 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1915 0x0000001e /* 117 (BF) */,
1916 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 122),
1917 0x00000005 /* 119 (CONSTU) */,
1918 0x00000013 /* 120 (JUMP) */,
1919 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 123),
1920 0x0100703c /* 122 (LREF 7 4) */,
1921 0x00001018 /* 123 (PUSH-LOCAL-ENV 1) */,
1922 0x0000100e /* 124 (PRE-CALL 1) */,
1923 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 129),
1924 0x00c08047 /* 126 (LREF-PUSH 8 3) */,
1925 0x0000105f /* 127 (GREF-CALL 1) */,
1926 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1927 0x0000001e /* 129 (BF) */,
1928 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 134),
1929 0x00000005 /* 131 (CONSTU) */,
1930 0x00000013 /* 132 (JUMP) */,
1931 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 135),
1932 0x00c0803c /* 134 (LREF 8 3) */,
1933 0x00001018 /* 135 (PUSH-LOCAL-ENV 1) */,
1934 0x0000100e /* 136 (PRE-CALL 1) */,
1935 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 141),
1936 0x00809047 /* 138 (LREF-PUSH 9 2) */,
1937 0x0000105f /* 139 (GREF-CALL 1) */,
1938 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1939 0x0000001e /* 141 (BF) */,
1940 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 146),
1941 0x00000005 /* 143 (CONSTU) */,
1942 0x00000013 /* 144 (JUMP) */,
1943 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 147),
1944 0x0080903c /* 146 (LREF 9 2) */,
1945 0x00001018 /* 147 (PUSH-LOCAL-ENV 1) */,
1946 0x0000100e /* 148 (PRE-CALL 1) */,
1947 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 153),
1948 0x0040a047 /* 150 (LREF-PUSH 10 1) */,
1949 0x0000105f /* 151 (GREF-CALL 1) */,
1950 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1951 0x0000001e /* 153 (BF) */,
1952 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 158),
1953 0x00000005 /* 155 (CONSTU) */,
1954 0x00000013 /* 156 (JUMP) */,
1955 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 159),
1956 0x0040a03c /* 158 (LREF 10 1) */,
1957 0x00001018 /* 159 (PUSH-LOCAL-ENV 1) */,
1958 0x0000100e /* 160 (PRE-CALL 1) */,
1959 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 165),
1960 0x0000b047 /* 162 (LREF-PUSH 11 0) */,
1961 0x0000105f /* 163 (GREF-CALL 1) */,
1962 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3dce8340> */,
1963 0x0000001e /* 165 (BF) */,
1964 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 170),
1965 0x00000005 /* 167 (CONSTU) */,
1966 0x00000013 /* 168 (JUMP) */,
1967 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 171),
1968 0x0000b03c /* 170 (LREF 11 0) */,
1969 0x00001018 /* 171 (PUSH-LOCAL-ENV 1) */,
1970 0x0000005e /* 172 (GREF-PUSH) */,
1971 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<write-controls>.3db11240> */,
1972 0x00000006 /* 174 (CONST-PUSH) */,
1973 SCM_WORD(SCM_UNDEFINED) /* :length */,
1974 0x0000100e /* 176 (PRE-CALL 1) */,
1975 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 181),
1976 0x00005047 /* 178 (LREF-PUSH 5 0) */,
1977 0x0000105f /* 179 (GREF-CALL 1) */,
1978 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
1979 0x0000001e /* 181 (BF) */,
1980 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 186),
1981 0x0000b03c /* 183 (LREF 11 0) */,
1982 0x00000013 /* 184 (JUMP) */,
1983 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 187),
1984 0x0000503c /* 186 (LREF 5 0) */,
1985 0x0000000d /* 187 (PUSH) */,
1986 0x00000006 /* 188 (CONST-PUSH) */,
1987 SCM_WORD(SCM_UNDEFINED) /* :level */,
1988 0x0000100e /* 190 (PRE-CALL 1) */,
1989 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 195),
1990 0x00004047 /* 192 (LREF-PUSH 4 0) */,
1991 0x0000105f /* 193 (GREF-CALL 1) */,
1992 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
1993 0x0000001e /* 195 (BF) */,
1994 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 200),
1995 0x0000a03c /* 197 (LREF 10 0) */,
1996 0x00000013 /* 198 (JUMP) */,
1997 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 201),
1998 0x0000403c /* 200 (LREF 4 0) */,
1999 0x0000000d /* 201 (PUSH) */,
2000 0x00000006 /* 202 (CONST-PUSH) */,
2001 SCM_WORD(SCM_UNDEFINED) /* :width */,
2002 0x0000100e /* 204 (PRE-CALL 1) */,
2003 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 209),
2004 0x00000051 /* 206 (LREF30-PUSH) */,
2005 0x0000105f /* 207 (GREF-CALL 1) */,
2006 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
2007 0x0000001e /* 209 (BF) */,
2008 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 214),
2009 0x0000903c /* 211 (LREF 9 0) */,
2010 0x00000013 /* 212 (JUMP) */,
2011 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 215),
2012 0x00000046 /* 214 (LREF30) */,
2013 0x0000000d /* 215 (PUSH) */,
2014 0x00000006 /* 216 (CONST-PUSH) */,
2015 SCM_WORD(SCM_UNDEFINED) /* :base */,
2016 0x0000100e /* 218 (PRE-CALL 1) */,
2017 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 223),
2018 0x0000004f /* 220 (LREF20-PUSH) */,
2019 0x0000105f /* 221 (GREF-CALL 1) */,
2020 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
2021 0x0000001e /* 223 (BF) */,
2022 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 228),
2023 0x0000803c /* 225 (LREF 8 0) */,
2024 0x00000013 /* 226 (JUMP) */,
2025 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 229),
2026 0x00000044 /* 228 (LREF20) */,
2027 0x0000000d /* 229 (PUSH) */,
2028 0x00000006 /* 230 (CONST-PUSH) */,
2029 SCM_WORD(SCM_UNDEFINED) /* :radix */,
2030 0x0000100e /* 232 (PRE-CALL 1) */,
2031 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 237),
2032 0x0000004c /* 234 (LREF10-PUSH) */,
2033 0x0000105f /* 235 (GREF-CALL 1) */,
2034 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
2035 0x0000001e /* 237 (BF) */,
2036 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 242),
2037 0x0000703c /* 239 (LREF 7 0) */,
2038 0x00000013 /* 240 (JUMP) */,
2039 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 243),
2040 0x00000041 /* 242 (LREF10) */,
2041 0x0000000d /* 243 (PUSH) */,
2042 0x00000006 /* 244 (CONST-PUSH) */,
2043 SCM_WORD(SCM_UNDEFINED) /* :pretty */,
2044 0x0000100e /* 246 (PRE-CALL 1) */,
2045 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 251),
2046 0x00000048 /* 248 (LREF0-PUSH) */,
2047 0x0000105f /* 249 (GREF-CALL 1) */,
2048 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3db11400> */,
2049 0x0000001e /* 251 (BF) */,
2050 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 256),
2051 0x0000603c /* 253 (LREF 6 0) */,
2052 0x00000013 /* 254 (JUMP) */,
2053 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 257),
2054 0x0000003d /* 256 (LREF0) */,
2055 0x0000d063 /* 257 (PUSH-GREF-TAIL-CALL 13) */,
2056 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.3db11280> */,
2057 0x00000014 /* 259 (RET) */,
2058 0x0300003c /* 260 (LREF 0 12) */,
2059 0x00000074 /* 261 (CDR) */,
2060 0x00000022 /* 262 (BNNULL) */,
2061 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 270),
2062 0x00000006 /* 264 (CONST-PUSH) */,
2063 SCM_WORD(SCM_OBJ(&scm__sc.d1561[245])) /* "keyword list not even" */,
2064 0x03000047 /* 266 (LREF-PUSH 0 12) */,
2065 0x00002060 /* 267 (GREF-TAIL-CALL 2) */,
2066 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#error.3db0efe0> */,
2067 0x00000014 /* 269 (RET) */,
2068 0x0000100e /* 270 (PRE-CALL 1) */,
2069 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 276),
2070 0x0300003c /* 272 (LREF 0 12) */,
2071 0x00000069 /* 273 (CAR-PUSH) */,
2072 0x0000105f /* 274 (GREF-CALL 1) */,
2073 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#unwrap-syntax-1.3db0ef60> */,
2074 0x00001018 /* 276 (PUSH-LOCAL-ENV 1) */,
2075 0x0000003d /* 277 (LREF0) */,
2076 0x0000002e /* 278 (BNEQC) */,
2077 SCM_WORD(SCM_UNDEFINED) /* :length */,
2078 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 299) /* 299 */,
2079 0x0300103c /* 281 (LREF 1 12) */,
2080 0x00000087 /* 282 (CDDR-PUSH) */,
2081 0x0300103c /* 283 (LREF 1 12) */,
2082 0x00000083 /* 284 (CADR-PUSH) */,
2083 0x02801047 /* 285 (LREF-PUSH 1 10) */,
2084 0x02401047 /* 286 (LREF-PUSH 1 9) */,
2085 0x02001047 /* 287 (LREF-PUSH 1 8) */,
2086 0x01c01047 /* 288 (LREF-PUSH 1 7) */,
2087 0x01801047 /* 289 (LREF-PUSH 1 6) */,
2088 0x01401047 /* 290 (LREF-PUSH 1 5) */,
2089 0x01001047 /* 291 (LREF-PUSH 1 4) */,
2090 0x00c01047 /* 292 (LREF-PUSH 1 3) */,
2091 0x0000004e /* 293 (LREF12-PUSH) */,
2092 0x0000004d /* 294 (LREF11-PUSH) */,
2093 0x0000004c /* 295 (LREF10-PUSH) */,
2094 0x0000201b /* 296 (LOCAL-ENV-JUMP 2) */,
2095 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2096 0x00000014 /* 298 (RET) */,
2097 0x0000003d /* 299 (LREF0) */,
2098 0x0000002e /* 300 (BNEQC) */,
2099 SCM_WORD(SCM_UNDEFINED) /* :level */,
2100 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 321) /* 321 */,
2101 0x0300103c /* 303 (LREF 1 12) */,
2102 0x00000087 /* 304 (CDDR-PUSH) */,
2103 0x02c01047 /* 305 (LREF-PUSH 1 11) */,
2104 0x0300103c /* 306 (LREF 1 12) */,
2105 0x00000083 /* 307 (CADR-PUSH) */,
2106 0x02401047 /* 308 (LREF-PUSH 1 9) */,
2107 0x02001047 /* 309 (LREF-PUSH 1 8) */,
2108 0x01c01047 /* 310 (LREF-PUSH 1 7) */,
2109 0x01801047 /* 311 (LREF-PUSH 1 6) */,
2110 0x01401047 /* 312 (LREF-PUSH 1 5) */,
2111 0x01001047 /* 313 (LREF-PUSH 1 4) */,
2112 0x00c01047 /* 314 (LREF-PUSH 1 3) */,
2113 0x0000004e /* 315 (LREF12-PUSH) */,
2114 0x0000004d /* 316 (LREF11-PUSH) */,
2115 0x0000004c /* 317 (LREF10-PUSH) */,
2116 0x0000201b /* 318 (LOCAL-ENV-JUMP 2) */,
2117 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2118 0x00000014 /* 320 (RET) */,
2119 0x0000003d /* 321 (LREF0) */,
2120 0x0000002e /* 322 (BNEQC) */,
2121 SCM_WORD(SCM_UNDEFINED) /* :width */,
2122 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 343) /* 343 */,
2123 0x0300103c /* 325 (LREF 1 12) */,
2124 0x00000087 /* 326 (CDDR-PUSH) */,
2125 0x02c01047 /* 327 (LREF-PUSH 1 11) */,
2126 0x02801047 /* 328 (LREF-PUSH 1 10) */,
2127 0x0300103c /* 329 (LREF 1 12) */,
2128 0x00000083 /* 330 (CADR-PUSH) */,
2129 0x02001047 /* 331 (LREF-PUSH 1 8) */,
2130 0x01c01047 /* 332 (LREF-PUSH 1 7) */,
2131 0x01801047 /* 333 (LREF-PUSH 1 6) */,
2132 0x01401047 /* 334 (LREF-PUSH 1 5) */,
2133 0x01001047 /* 335 (LREF-PUSH 1 4) */,
2134 0x00c01047 /* 336 (LREF-PUSH 1 3) */,
2135 0x0000004e /* 337 (LREF12-PUSH) */,
2136 0x0000004d /* 338 (LREF11-PUSH) */,
2137 0x0000004c /* 339 (LREF10-PUSH) */,
2138 0x0000201b /* 340 (LOCAL-ENV-JUMP 2) */,
2139 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2140 0x00000014 /* 342 (RET) */,
2141 0x0000003d /* 343 (LREF0) */,
2142 0x0000002e /* 344 (BNEQC) */,
2143 SCM_WORD(SCM_UNDEFINED) /* :base */,
2144 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 365) /* 365 */,
2145 0x0300103c /* 347 (LREF 1 12) */,
2146 0x00000087 /* 348 (CDDR-PUSH) */,
2147 0x02c01047 /* 349 (LREF-PUSH 1 11) */,
2148 0x02801047 /* 350 (LREF-PUSH 1 10) */,
2149 0x02401047 /* 351 (LREF-PUSH 1 9) */,
2150 0x0300103c /* 352 (LREF 1 12) */,
2151 0x00000083 /* 353 (CADR-PUSH) */,
2152 0x01c01047 /* 354 (LREF-PUSH 1 7) */,
2153 0x01801047 /* 355 (LREF-PUSH 1 6) */,
2154 0x01401047 /* 356 (LREF-PUSH 1 5) */,
2155 0x01001047 /* 357 (LREF-PUSH 1 4) */,
2156 0x00c01047 /* 358 (LREF-PUSH 1 3) */,
2157 0x0000004e /* 359 (LREF12-PUSH) */,
2158 0x0000004d /* 360 (LREF11-PUSH) */,
2159 0x0000004c /* 361 (LREF10-PUSH) */,
2160 0x0000201b /* 362 (LOCAL-ENV-JUMP 2) */,
2161 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2162 0x00000014 /* 364 (RET) */,
2163 0x0000003d /* 365 (LREF0) */,
2164 0x0000002e /* 366 (BNEQC) */,
2165 SCM_WORD(SCM_UNDEFINED) /* :radix */,
2166 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 387) /* 387 */,
2167 0x0300103c /* 369 (LREF 1 12) */,
2168 0x00000087 /* 370 (CDDR-PUSH) */,
2169 0x02c01047 /* 371 (LREF-PUSH 1 11) */,
2170 0x02801047 /* 372 (LREF-PUSH 1 10) */,
2171 0x02401047 /* 373 (LREF-PUSH 1 9) */,
2172 0x02001047 /* 374 (LREF-PUSH 1 8) */,
2173 0x0300103c /* 375 (LREF 1 12) */,
2174 0x00000083 /* 376 (CADR-PUSH) */,
2175 0x01801047 /* 377 (LREF-PUSH 1 6) */,
2176 0x01401047 /* 378 (LREF-PUSH 1 5) */,
2177 0x01001047 /* 379 (LREF-PUSH 1 4) */,
2178 0x00c01047 /* 380 (LREF-PUSH 1 3) */,
2179 0x0000004e /* 381 (LREF12-PUSH) */,
2180 0x0000004d /* 382 (LREF11-PUSH) */,
2181 0x0000004c /* 383 (LREF10-PUSH) */,
2182 0x0000201b /* 384 (LOCAL-ENV-JUMP 2) */,
2183 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2184 0x00000014 /* 386 (RET) */,
2185 0x0000003d /* 387 (LREF0) */,
2186 0x0000002e /* 388 (BNEQC) */,
2187 SCM_WORD(SCM_UNDEFINED) /* :pretty */,
2188 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 409) /* 409 */,
2189 0x0300103c /* 391 (LREF 1 12) */,
2190 0x00000087 /* 392 (CDDR-PUSH) */,
2191 0x02c01047 /* 393 (LREF-PUSH 1 11) */,
2192 0x02801047 /* 394 (LREF-PUSH 1 10) */,
2193 0x02401047 /* 395 (LREF-PUSH 1 9) */,
2194 0x02001047 /* 396 (LREF-PUSH 1 8) */,
2195 0x01c01047 /* 397 (LREF-PUSH 1 7) */,
2196 0x0300103c /* 398 (LREF 1 12) */,
2197 0x00000083 /* 399 (CADR-PUSH) */,
2198 0x01401047 /* 400 (LREF-PUSH 1 5) */,
2199 0x01001047 /* 401 (LREF-PUSH 1 4) */,
2200 0x00c01047 /* 402 (LREF-PUSH 1 3) */,
2201 0x0000004e /* 403 (LREF12-PUSH) */,
2202 0x0000004d /* 404 (LREF11-PUSH) */,
2203 0x0000004c /* 405 (LREF10-PUSH) */,
2204 0x0000201b /* 406 (LOCAL-ENV-JUMP 2) */,
2205 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2206 0x00000014 /* 408 (RET) */,
2207 0x0000003d /* 409 (LREF0) */,
2208 0x0000002e /* 410 (BNEQC) */,
2209 SCM_WORD(SCM_UNDEFINED) /* :print-length */,
2210 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 431) /* 431 */,
2211 0x0300103c /* 413 (LREF 1 12) */,
2212 0x00000087 /* 414 (CDDR-PUSH) */,
2213 0x02c01047 /* 415 (LREF-PUSH 1 11) */,
2214 0x02801047 /* 416 (LREF-PUSH 1 10) */,
2215 0x02401047 /* 417 (LREF-PUSH 1 9) */,
2216 0x02001047 /* 418 (LREF-PUSH 1 8) */,
2217 0x01c01047 /* 419 (LREF-PUSH 1 7) */,
2218 0x01801047 /* 420 (LREF-PUSH 1 6) */,
2219 0x0300103c /* 421 (LREF 1 12) */,
2220 0x00000083 /* 422 (CADR-PUSH) */,
2221 0x01001047 /* 423 (LREF-PUSH 1 4) */,
2222 0x00c01047 /* 424 (LREF-PUSH 1 3) */,
2223 0x0000004e /* 425 (LREF12-PUSH) */,
2224 0x0000004d /* 426 (LREF11-PUSH) */,
2225 0x0000004c /* 427 (LREF10-PUSH) */,
2226 0x0000201b /* 428 (LOCAL-ENV-JUMP 2) */,
2227 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2228 0x00000014 /* 430 (RET) */,
2229 0x0000003d /* 431 (LREF0) */,
2230 0x0000002e /* 432 (BNEQC) */,
2231 SCM_WORD(SCM_UNDEFINED) /* :print-level */,
2232 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 453) /* 453 */,
2233 0x0300103c /* 435 (LREF 1 12) */,
2234 0x00000087 /* 436 (CDDR-PUSH) */,
2235 0x02c01047 /* 437 (LREF-PUSH 1 11) */,
2236 0x02801047 /* 438 (LREF-PUSH 1 10) */,
2237 0x02401047 /* 439 (LREF-PUSH 1 9) */,
2238 0x02001047 /* 440 (LREF-PUSH 1 8) */,
2239 0x01c01047 /* 441 (LREF-PUSH 1 7) */,
2240 0x01801047 /* 442 (LREF-PUSH 1 6) */,
2241 0x01401047 /* 443 (LREF-PUSH 1 5) */,
2242 0x0300103c /* 444 (LREF 1 12) */,
2243 0x00000083 /* 445 (CADR-PUSH) */,
2244 0x00c01047 /* 446 (LREF-PUSH 1 3) */,
2245 0x0000004e /* 447 (LREF12-PUSH) */,
2246 0x0000004d /* 448 (LREF11-PUSH) */,
2247 0x0000004c /* 449 (LREF10-PUSH) */,
2248 0x0000201b /* 450 (LOCAL-ENV-JUMP 2) */,
2249 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2250 0x00000014 /* 452 (RET) */,
2251 0x0000003d /* 453 (LREF0) */,
2252 0x0000002e /* 454 (BNEQC) */,
2253 SCM_WORD(SCM_UNDEFINED) /* :print-width */,
2254 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 475) /* 475 */,
2255 0x0300103c /* 457 (LREF 1 12) */,
2256 0x00000087 /* 458 (CDDR-PUSH) */,
2257 0x02c01047 /* 459 (LREF-PUSH 1 11) */,
2258 0x02801047 /* 460 (LREF-PUSH 1 10) */,
2259 0x02401047 /* 461 (LREF-PUSH 1 9) */,
2260 0x02001047 /* 462 (LREF-PUSH 1 8) */,
2261 0x01c01047 /* 463 (LREF-PUSH 1 7) */,
2262 0x01801047 /* 464 (LREF-PUSH 1 6) */,
2263 0x01401047 /* 465 (LREF-PUSH 1 5) */,
2264 0x01001047 /* 466 (LREF-PUSH 1 4) */,
2265 0x0300103c /* 467 (LREF 1 12) */,
2266 0x00000083 /* 468 (CADR-PUSH) */,
2267 0x0000004e /* 469 (LREF12-PUSH) */,
2268 0x0000004d /* 470 (LREF11-PUSH) */,
2269 0x0000004c /* 471 (LREF10-PUSH) */,
2270 0x0000201b /* 472 (LOCAL-ENV-JUMP 2) */,
2271 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2272 0x00000014 /* 474 (RET) */,
2273 0x0000003d /* 475 (LREF0) */,
2274 0x0000002e /* 476 (BNEQC) */,
2275 SCM_WORD(SCM_UNDEFINED) /* :print-base */,
2276 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 497) /* 497 */,
2277 0x0300103c /* 479 (LREF 1 12) */,
2278 0x00000087 /* 480 (CDDR-PUSH) */,
2279 0x02c01047 /* 481 (LREF-PUSH 1 11) */,
2280 0x02801047 /* 482 (LREF-PUSH 1 10) */,
2281 0x02401047 /* 483 (LREF-PUSH 1 9) */,
2282 0x02001047 /* 484 (LREF-PUSH 1 8) */,
2283 0x01c01047 /* 485 (LREF-PUSH 1 7) */,
2284 0x01801047 /* 486 (LREF-PUSH 1 6) */,
2285 0x01401047 /* 487 (LREF-PUSH 1 5) */,
2286 0x01001047 /* 488 (LREF-PUSH 1 4) */,
2287 0x00c01047 /* 489 (LREF-PUSH 1 3) */,
2288 0x0300103c /* 490 (LREF 1 12) */,
2289 0x00000083 /* 491 (CADR-PUSH) */,
2290 0x0000004d /* 492 (LREF11-PUSH) */,
2291 0x0000004c /* 493 (LREF10-PUSH) */,
2292 0x0000201b /* 494 (LOCAL-ENV-JUMP 2) */,
2293 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2294 0x00000014 /* 496 (RET) */,
2295 0x0000003d /* 497 (LREF0) */,
2296 0x0000002e /* 498 (BNEQC) */,
2297 SCM_WORD(SCM_UNDEFINED) /* :print-radix */,
2298 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 519) /* 519 */,
2299 0x0300103c /* 501 (LREF 1 12) */,
2300 0x00000087 /* 502 (CDDR-PUSH) */,
2301 0x02c01047 /* 503 (LREF-PUSH 1 11) */,
2302 0x02801047 /* 504 (LREF-PUSH 1 10) */,
2303 0x02401047 /* 505 (LREF-PUSH 1 9) */,
2304 0x02001047 /* 506 (LREF-PUSH 1 8) */,
2305 0x01c01047 /* 507 (LREF-PUSH 1 7) */,
2306 0x01801047 /* 508 (LREF-PUSH 1 6) */,
2307 0x01401047 /* 509 (LREF-PUSH 1 5) */,
2308 0x01001047 /* 510 (LREF-PUSH 1 4) */,
2309 0x00c01047 /* 511 (LREF-PUSH 1 3) */,
2310 0x0000004e /* 512 (LREF12-PUSH) */,
2311 0x0300103c /* 513 (LREF 1 12) */,
2312 0x00000083 /* 514 (CADR-PUSH) */,
2313 0x0000004c /* 515 (LREF10-PUSH) */,
2314 0x0000201b /* 516 (LOCAL-ENV-JUMP 2) */,
2315 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2316 0x00000014 /* 518 (RET) */,
2317 0x0000003d /* 519 (LREF0) */,
2318 0x0000002e /* 520 (BNEQC) */,
2319 SCM_WORD(SCM_UNDEFINED) /* :print-pretty */,
2320 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 541) /* 541 */,
2321 0x0300103c /* 523 (LREF 1 12) */,
2322 0x00000087 /* 524 (CDDR-PUSH) */,
2323 0x02c01047 /* 525 (LREF-PUSH 1 11) */,
2324 0x02801047 /* 526 (LREF-PUSH 1 10) */,
2325 0x02401047 /* 527 (LREF-PUSH 1 9) */,
2326 0x02001047 /* 528 (LREF-PUSH 1 8) */,
2327 0x01c01047 /* 529 (LREF-PUSH 1 7) */,
2328 0x01801047 /* 530 (LREF-PUSH 1 6) */,
2329 0x01401047 /* 531 (LREF-PUSH 1 5) */,
2330 0x01001047 /* 532 (LREF-PUSH 1 4) */,
2331 0x00c01047 /* 533 (LREF-PUSH 1 3) */,
2332 0x0000004e /* 534 (LREF12-PUSH) */,
2333 0x0000004d /* 535 (LREF11-PUSH) */,
2334 0x0300103c /* 536 (LREF 1 12) */,
2335 0x00000083 /* 537 (CADR-PUSH) */,
2336 0x0000201b /* 538 (LOCAL-ENV-JUMP 2) */,
2337 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2338 0x00000014 /* 540 (RET) */,
2339 0x0000200e /* 541 (PRE-CALL 2) */,
2340 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 549),
2341 0x00000006 /* 543 (CONST-PUSH) */,
2342 SCM_WORD(SCM_OBJ(&scm__sc.d1561[253])) /* "unknown keyword ~S" */,
2343 0x0300103c /* 545 (LREF 1 12) */,
2344 0x00000069 /* 546 (CAR-PUSH) */,
2345 0x0000205f /* 547 (GREF-CALL 2) */,
2346 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.3db0eba0> */,
2347 0x0300103c /* 549 (LREF 1 12) */,
2348 0x00000087 /* 550 (CDDR-PUSH) */,
2349 0x02c01047 /* 551 (LREF-PUSH 1 11) */,
2350 0x02801047 /* 552 (LREF-PUSH 1 10) */,
2351 0x02401047 /* 553 (LREF-PUSH 1 9) */,
2352 0x02001047 /* 554 (LREF-PUSH 1 8) */,
2353 0x01c01047 /* 555 (LREF-PUSH 1 7) */,
2354 0x01801047 /* 556 (LREF-PUSH 1 6) */,
2355 0x01401047 /* 557 (LREF-PUSH 1 5) */,
2356 0x01001047 /* 558 (LREF-PUSH 1 4) */,
2357 0x00c01047 /* 559 (LREF-PUSH 1 3) */,
2358 0x0000004e /* 560 (LREF12-PUSH) */,
2359 0x0000004d /* 561 (LREF11-PUSH) */,
2360 0x0000004c /* 562 (LREF10-PUSH) */,
2361 0x0000201b /* 563 (LOCAL-ENV-JUMP 2) */,
2362 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]) + 25),
2363 0x00000014 /* 565 (RET) */,
2364 0x00000014 /* 566 (RET) */,
2365 /* write-controls-copy */
2366 0x00000048 /* 0 (LREF0-PUSH) */,
2367 0x00000005 /* 1 (CONSTU) */,
2368 0x0000000d /* 2 (PUSH) */,
2369 0x00000005 /* 3 (CONSTU) */,
2370 0x0000000d /* 4 (PUSH) */,
2371 0x00000005 /* 5 (CONSTU) */,
2372 0x0000000d /* 6 (PUSH) */,
2373 0x00000005 /* 7 (CONSTU) */,
2374 0x0000000d /* 8 (PUSH) */,
2375 0x00000005 /* 9 (CONSTU) */,
2376 0x0000000d /* 10 (PUSH) */,
2377 0x00000005 /* 11 (CONSTU) */,
2378 0x0000000d /* 12 (PUSH) */,
2379 0x00000005 /* 13 (CONSTU) */,
2380 0x0000000d /* 14 (PUSH) */,
2381 0x00000005 /* 15 (CONSTU) */,
2382 0x0000000d /* 16 (PUSH) */,
2383 0x00000005 /* 17 (CONSTU) */,
2384 0x0000000d /* 18 (PUSH) */,
2385 0x00000005 /* 19 (CONSTU) */,
2386 0x0000000d /* 20 (PUSH) */,
2387 0x00000005 /* 21 (CONSTU) */,
2388 0x0000000d /* 22 (PUSH) */,
2389 0x00000005 /* 23 (CONSTU) */,
2390 0x0000d018 /* 24 (PUSH-LOCAL-ENV 13) */,
2391 0x0300003c /* 25 (LREF 0 12) */,
2392 0x00000022 /* 26 (BNNULL) */,
2393 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 434),
2394 0x0000100e /* 28 (PRE-CALL 1) */,
2395 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 33),
2396 0x02c00047 /* 30 (LREF-PUSH 0 11) */,
2397 0x0000105f /* 31 (GREF-CALL 1) */,
2398 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2399 0x0000001e /* 33 (BF) */,
2400 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 38),
2401 0x00000005 /* 35 (CONSTU) */,
2402 0x00000013 /* 36 (JUMP) */,
2403 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 39),
2404 0x02c0003c /* 38 (LREF 0 11) */,
2405 0x00001018 /* 39 (PUSH-LOCAL-ENV 1) */,
2406 0x0000100e /* 40 (PRE-CALL 1) */,
2407 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 45),
2408 0x02801047 /* 42 (LREF-PUSH 1 10) */,
2409 0x0000105f /* 43 (GREF-CALL 1) */,
2410 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2411 0x0000001e /* 45 (BF) */,
2412 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 50),
2413 0x00000005 /* 47 (CONSTU) */,
2414 0x00000013 /* 48 (JUMP) */,
2415 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 51),
2416 0x0280103c /* 50 (LREF 1 10) */,
2417 0x00001018 /* 51 (PUSH-LOCAL-ENV 1) */,
2418 0x0000100e /* 52 (PRE-CALL 1) */,
2419 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 57),
2420 0x02402047 /* 54 (LREF-PUSH 2 9) */,
2421 0x0000105f /* 55 (GREF-CALL 1) */,
2422 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2423 0x0000001e /* 57 (BF) */,
2424 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 62),
2425 0x00000005 /* 59 (CONSTU) */,
2426 0x00000013 /* 60 (JUMP) */,
2427 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 63),
2428 0x0240203c /* 62 (LREF 2 9) */,
2429 0x00001018 /* 63 (PUSH-LOCAL-ENV 1) */,
2430 0x0000100e /* 64 (PRE-CALL 1) */,
2431 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 69),
2432 0x02003047 /* 66 (LREF-PUSH 3 8) */,
2433 0x0000105f /* 67 (GREF-CALL 1) */,
2434 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2435 0x0000001e /* 69 (BF) */,
2436 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 74),
2437 0x00000005 /* 71 (CONSTU) */,
2438 0x00000013 /* 72 (JUMP) */,
2439 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 75),
2440 0x0200303c /* 74 (LREF 3 8) */,
2441 0x00001018 /* 75 (PUSH-LOCAL-ENV 1) */,
2442 0x0000100e /* 76 (PRE-CALL 1) */,
2443 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 81),
2444 0x01c04047 /* 78 (LREF-PUSH 4 7) */,
2445 0x0000105f /* 79 (GREF-CALL 1) */,
2446 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2447 0x0000001e /* 81 (BF) */,
2448 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 86),
2449 0x00000005 /* 83 (CONSTU) */,
2450 0x00000013 /* 84 (JUMP) */,
2451 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 87),
2452 0x01c0403c /* 86 (LREF 4 7) */,
2453 0x00001018 /* 87 (PUSH-LOCAL-ENV 1) */,
2454 0x0000100e /* 88 (PRE-CALL 1) */,
2455 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 93),
2456 0x01805047 /* 90 (LREF-PUSH 5 6) */,
2457 0x0000105f /* 91 (GREF-CALL 1) */,
2458 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2459 0x0000001e /* 93 (BF) */,
2460 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 98),
2461 0x00000005 /* 95 (CONSTU) */,
2462 0x00000013 /* 96 (JUMP) */,
2463 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 99),
2464 0x0180503c /* 98 (LREF 5 6) */,
2465 0x00001018 /* 99 (PUSH-LOCAL-ENV 1) */,
2466 0x0000100e /* 100 (PRE-CALL 1) */,
2467 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 105),
2468 0x01406047 /* 102 (LREF-PUSH 6 5) */,
2469 0x0000105f /* 103 (GREF-CALL 1) */,
2470 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2471 0x0000001e /* 105 (BF) */,
2472 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 110),
2473 0x00000005 /* 107 (CONSTU) */,
2474 0x00000013 /* 108 (JUMP) */,
2475 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 111),
2476 0x0140603c /* 110 (LREF 6 5) */,
2477 0x00001018 /* 111 (PUSH-LOCAL-ENV 1) */,
2478 0x0000100e /* 112 (PRE-CALL 1) */,
2479 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 117),
2480 0x01007047 /* 114 (LREF-PUSH 7 4) */,
2481 0x0000105f /* 115 (GREF-CALL 1) */,
2482 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2483 0x0000001e /* 117 (BF) */,
2484 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 122),
2485 0x00000005 /* 119 (CONSTU) */,
2486 0x00000013 /* 120 (JUMP) */,
2487 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 123),
2488 0x0100703c /* 122 (LREF 7 4) */,
2489 0x00001018 /* 123 (PUSH-LOCAL-ENV 1) */,
2490 0x0000100e /* 124 (PRE-CALL 1) */,
2491 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 129),
2492 0x00c08047 /* 126 (LREF-PUSH 8 3) */,
2493 0x0000105f /* 127 (GREF-CALL 1) */,
2494 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2495 0x0000001e /* 129 (BF) */,
2496 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 134),
2497 0x00000005 /* 131 (CONSTU) */,
2498 0x00000013 /* 132 (JUMP) */,
2499 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 135),
2500 0x00c0803c /* 134 (LREF 8 3) */,
2501 0x00001018 /* 135 (PUSH-LOCAL-ENV 1) */,
2502 0x0000100e /* 136 (PRE-CALL 1) */,
2503 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 141),
2504 0x00809047 /* 138 (LREF-PUSH 9 2) */,
2505 0x0000105f /* 139 (GREF-CALL 1) */,
2506 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2507 0x0000001e /* 141 (BF) */,
2508 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 146),
2509 0x00000005 /* 143 (CONSTU) */,
2510 0x00000013 /* 144 (JUMP) */,
2511 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 147),
2512 0x0080903c /* 146 (LREF 9 2) */,
2513 0x00001018 /* 147 (PUSH-LOCAL-ENV 1) */,
2514 0x0000100e /* 148 (PRE-CALL 1) */,
2515 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 153),
2516 0x0040a047 /* 150 (LREF-PUSH 10 1) */,
2517 0x0000105f /* 151 (GREF-CALL 1) */,
2518 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2519 0x0000001e /* 153 (BF) */,
2520 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 158),
2521 0x00000005 /* 155 (CONSTU) */,
2522 0x00000013 /* 156 (JUMP) */,
2523 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 159),
2524 0x0040a03c /* 158 (LREF 10 1) */,
2525 0x00001018 /* 159 (PUSH-LOCAL-ENV 1) */,
2526 0x0000100e /* 160 (PRE-CALL 1) */,
2527 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 165),
2528 0x0000b047 /* 162 (LREF-PUSH 11 0) */,
2529 0x0000105f /* 163 (GREF-CALL 1) */,
2530 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#undefined?.3d0f4e40> */,
2531 0x0000001e /* 165 (BF) */,
2532 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 170),
2533 0x00000005 /* 167 (CONSTU) */,
2534 0x00000013 /* 168 (JUMP) */,
2535 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 171),
2536 0x0000b03c /* 170 (LREF 11 0) */,
2537 0x00001018 /* 171 (PUSH-LOCAL-ENV 1) */,
2538 0x0000100e /* 172 (PRE-CALL 1) */,
2539 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 177),
2540 0x0000b047 /* 174 (LREF-PUSH 11 0) */,
2541 0x0000105f /* 175 (GREF-CALL 1) */,
2542 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d0fb2e0> */,
2543 0x0000001e /* 177 (BF) */,
2544 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 198),
2545 0x0000100e /* 179 (PRE-CALL 1) */,
2546 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 184),
2547 0x00005047 /* 181 (LREF-PUSH 5 0) */,
2548 0x0000105f /* 182 (GREF-CALL 1) */,
2549 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d0fb2e0> */,
2550 0x0000001e /* 184 (BF) */,
2551 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 195),
2552 0x0000200e /* 186 (PRE-CALL 2) */,
2553 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 199),
2554 0x0040d047 /* 188 (LREF-PUSH 13 1) */,
2555 0x00000006 /* 189 (CONST-PUSH) */,
2556 SCM_WORD(SCM_UNDEFINED) /* length */,
2557 0x0000205f /* 191 (GREF-CALL 2) */,
2558 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d0fb2c0> */,
2559 0x00000013 /* 193 (JUMP) */,
2560 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 199),
2561 0x0000503c /* 195 (LREF 5 0) */,
2562 0x00000013 /* 196 (JUMP) */,
2563 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 199),
2564 0x0000b03c /* 198 (LREF 11 0) */,
2565 0x0000100f /* 199 (PUSH-PRE-CALL 1) */,
2566 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 204),
2567 0x0000a047 /* 201 (LREF-PUSH 10 0) */,
2568 0x0000105f /* 202 (GREF-CALL 1) */,
2569 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10ed60> */,
2570 0x0000001e /* 204 (BF) */,
2571 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 225),
2572 0x0000100e /* 206 (PRE-CALL 1) */,
2573 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 211),
2574 0x00004047 /* 208 (LREF-PUSH 4 0) */,
2575 0x0000105f /* 209 (GREF-CALL 1) */,
2576 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10ed60> */,
2577 0x0000001e /* 211 (BF) */,
2578 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 222),
2579 0x0000200e /* 213 (PRE-CALL 2) */,
2580 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 226),
2581 0x0040d047 /* 215 (LREF-PUSH 13 1) */,
2582 0x00000006 /* 216 (CONST-PUSH) */,
2583 SCM_WORD(SCM_UNDEFINED) /* level */,
2584 0x0000205f /* 218 (GREF-CALL 2) */,
2585 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d10ece0> */,
2586 0x00000013 /* 220 (JUMP) */,
2587 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 226),
2588 0x0000403c /* 222 (LREF 4 0) */,
2589 0x00000013 /* 223 (JUMP) */,
2590 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 226),
2591 0x0000a03c /* 225 (LREF 10 0) */,
2592 0x0000100f /* 226 (PUSH-PRE-CALL 1) */,
2593 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 231),
2594 0x00009047 /* 228 (LREF-PUSH 9 0) */,
2595 0x0000105f /* 229 (GREF-CALL 1) */,
2596 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e960> */,
2597 0x0000001e /* 231 (BF) */,
2598 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 252),
2599 0x0000100e /* 233 (PRE-CALL 1) */,
2600 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 238),
2601 0x00000051 /* 235 (LREF30-PUSH) */,
2602 0x0000105f /* 236 (GREF-CALL 1) */,
2603 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e960> */,
2604 0x0000001e /* 238 (BF) */,
2605 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 249),
2606 0x0000200e /* 240 (PRE-CALL 2) */,
2607 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 253),
2608 0x0040d047 /* 242 (LREF-PUSH 13 1) */,
2609 0x00000006 /* 243 (CONST-PUSH) */,
2610 SCM_WORD(SCM_UNDEFINED) /* width */,
2611 0x0000205f /* 245 (GREF-CALL 2) */,
2612 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d10e940> */,
2613 0x00000013 /* 247 (JUMP) */,
2614 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 253),
2615 0x00000046 /* 249 (LREF30) */,
2616 0x00000013 /* 250 (JUMP) */,
2617 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 253),
2618 0x0000903c /* 252 (LREF 9 0) */,
2619 0x0000100f /* 253 (PUSH-PRE-CALL 1) */,
2620 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 258),
2621 0x00008047 /* 255 (LREF-PUSH 8 0) */,
2622 0x0000105f /* 256 (GREF-CALL 1) */,
2623 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e300> */,
2624 0x0000001e /* 258 (BF) */,
2625 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 279),
2626 0x0000100e /* 260 (PRE-CALL 1) */,
2627 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 265),
2628 0x0000004f /* 262 (LREF20-PUSH) */,
2629 0x0000105f /* 263 (GREF-CALL 1) */,
2630 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e300> */,
2631 0x0000001e /* 265 (BF) */,
2632 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 276),
2633 0x0000200e /* 267 (PRE-CALL 2) */,
2634 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 280),
2635 0x0040d047 /* 269 (LREF-PUSH 13 1) */,
2636 0x00000006 /* 270 (CONST-PUSH) */,
2637 SCM_WORD(SCM_UNDEFINED) /* base */,
2638 0x0000205f /* 272 (GREF-CALL 2) */,
2639 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d10e2e0> */,
2640 0x00000013 /* 274 (JUMP) */,
2641 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 280),
2642 0x00000044 /* 276 (LREF20) */,
2643 0x00000013 /* 277 (JUMP) */,
2644 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 280),
2645 0x0000803c /* 279 (LREF 8 0) */,
2646 0x0000100f /* 280 (PUSH-PRE-CALL 1) */,
2647 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 285),
2648 0x00007047 /* 282 (LREF-PUSH 7 0) */,
2649 0x0000105f /* 283 (GREF-CALL 1) */,
2650 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e080> */,
2651 0x0000001e /* 285 (BF) */,
2652 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 306),
2653 0x0000100e /* 287 (PRE-CALL 1) */,
2654 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 292),
2655 0x0000004c /* 289 (LREF10-PUSH) */,
2656 0x0000105f /* 290 (GREF-CALL 1) */,
2657 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d10e080> */,
2658 0x0000001e /* 292 (BF) */,
2659 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 303),
2660 0x0000200e /* 294 (PRE-CALL 2) */,
2661 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 307),
2662 0x0040d047 /* 296 (LREF-PUSH 13 1) */,
2663 0x00000006 /* 297 (CONST-PUSH) */,
2664 SCM_WORD(SCM_UNDEFINED) /* radix */,
2665 0x0000205f /* 299 (GREF-CALL 2) */,
2666 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d10e060> */,
2667 0x00000013 /* 301 (JUMP) */,
2668 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 307),
2669 0x00000041 /* 303 (LREF10) */,
2670 0x00000013 /* 304 (JUMP) */,
2671 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 307),
2672 0x0000703c /* 306 (LREF 7 0) */,
2673 0x0000100f /* 307 (PUSH-PRE-CALL 1) */,
2674 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 312),
2675 0x00006047 /* 309 (LREF-PUSH 6 0) */,
2676 0x0000105f /* 310 (GREF-CALL 1) */,
2677 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d115da0> */,
2678 0x0000001e /* 312 (BF) */,
2679 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 333),
2680 0x0000100e /* 314 (PRE-CALL 1) */,
2681 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 319),
2682 0x00000048 /* 316 (LREF0-PUSH) */,
2683 0x0000105f /* 317 (GREF-CALL 1) */,
2684 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#undefined?.3d115da0> */,
2685 0x0000001e /* 319 (BF) */,
2686 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 330),
2687 0x0000200e /* 321 (PRE-CALL 2) */,
2688 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 334),
2689 0x0040d047 /* 323 (LREF-PUSH 13 1) */,
2690 0x00000006 /* 324 (CONST-PUSH) */,
2691 SCM_WORD(SCM_UNDEFINED) /* pretty */,
2692 0x0000205f /* 326 (GREF-CALL 2) */,
2693 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d115d80> */,
2694 0x00000013 /* 328 (JUMP) */,
2695 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 334),
2696 0x0000003d /* 330 (LREF0) */,
2697 0x00000013 /* 331 (JUMP) */,
2698 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 334),
2699 0x0000603c /* 333 (LREF 6 0) */,
2700 0x00006018 /* 334 (PUSH-LOCAL-ENV 6) */,
2701 0x01400047 /* 335 (LREF-PUSH 0 5) */,
2702 0x0000200e /* 336 (PRE-CALL 2) */,
2703 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 343),
2704 0x0040e047 /* 338 (LREF-PUSH 14 1) */,
2705 0x00000006 /* 339 (CONST-PUSH) */,
2706 SCM_WORD(SCM_UNDEFINED) /* length */,
2707 0x0000205f /* 341 (GREF-CALL 2) */,
2708 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d115ac0> */,
2709 0x00000021 /* 343 (BNEQV) */,
2710 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2711 0x01000047 /* 345 (LREF-PUSH 0 4) */,
2712 0x0000200e /* 346 (PRE-CALL 2) */,
2713 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 353),
2714 0x0040e047 /* 348 (LREF-PUSH 14 1) */,
2715 0x00000006 /* 349 (CONST-PUSH) */,
2716 SCM_WORD(SCM_UNDEFINED) /* level */,
2717 0x0000205f /* 351 (GREF-CALL 2) */,
2718 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d1158a0> */,
2719 0x00000021 /* 353 (BNEQV) */,
2720 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2721 0x0000004b /* 355 (LREF3-PUSH) */,
2722 0x0000200e /* 356 (PRE-CALL 2) */,
2723 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 363),
2724 0x0040e047 /* 358 (LREF-PUSH 14 1) */,
2725 0x00000006 /* 359 (CONST-PUSH) */,
2726 SCM_WORD(SCM_UNDEFINED) /* width */,
2727 0x0000205f /* 361 (GREF-CALL 2) */,
2728 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d115740> */,
2729 0x00000021 /* 363 (BNEQV) */,
2730 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2731 0x0000004a /* 365 (LREF2-PUSH) */,
2732 0x0000200e /* 366 (PRE-CALL 2) */,
2733 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 373),
2734 0x0040e047 /* 368 (LREF-PUSH 14 1) */,
2735 0x00000006 /* 369 (CONST-PUSH) */,
2736 SCM_WORD(SCM_UNDEFINED) /* base */,
2737 0x0000205f /* 371 (GREF-CALL 2) */,
2738 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d115620> */,
2739 0x00000021 /* 373 (BNEQV) */,
2740 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2741 0x00000049 /* 375 (LREF1-PUSH) */,
2742 0x0000200e /* 376 (PRE-CALL 2) */,
2743 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 383),
2744 0x0040e047 /* 378 (LREF-PUSH 14 1) */,
2745 0x00000006 /* 379 (CONST-PUSH) */,
2746 SCM_WORD(SCM_UNDEFINED) /* radix */,
2747 0x0000205f /* 381 (GREF-CALL 2) */,
2748 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d115500> */,
2749 0x00000021 /* 383 (BNEQV) */,
2750 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2751 0x00000048 /* 385 (LREF0-PUSH) */,
2752 0x0000200e /* 386 (PRE-CALL 2) */,
2753 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 393),
2754 0x0040e047 /* 388 (LREF-PUSH 14 1) */,
2755 0x00000006 /* 389 (CONST-PUSH) */,
2756 SCM_WORD(SCM_UNDEFINED) /* pretty */,
2757 0x0000205f /* 391 (GREF-CALL 2) */,
2758 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#slot-ref.3d115380> */,
2759 0x00000021 /* 393 (BNEQV) */,
2760 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2761 0x0040e052 /* 395 (LREF-RET 14 1) */,
2762 0x0000005e /* 396 (GREF-PUSH) */,
2763 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<write-controls>.3d115220> */,
2764 0x00000006 /* 398 (CONST-PUSH) */,
2765 SCM_WORD(SCM_UNDEFINED) /* :length */,
2766 0x01400047 /* 400 (LREF-PUSH 0 5) */,
2767 0x00000006 /* 401 (CONST-PUSH) */,
2768 SCM_WORD(SCM_UNDEFINED) /* :level */,
2769 0x01000047 /* 403 (LREF-PUSH 0 4) */,
2770 0x00000006 /* 404 (CONST-PUSH) */,
2771 SCM_WORD(SCM_UNDEFINED) /* :width */,
2772 0x0000004b /* 406 (LREF3-PUSH) */,
2773 0x00000006 /* 407 (CONST-PUSH) */,
2774 SCM_WORD(SCM_UNDEFINED) /* :base */,
2775 0x0000004a /* 409 (LREF2-PUSH) */,
2776 0x00000006 /* 410 (CONST-PUSH) */,
2777 SCM_WORD(SCM_UNDEFINED) /* :radix */,
2778 0x00000049 /* 412 (LREF1-PUSH) */,
2779 0x00000006 /* 413 (CONST-PUSH) */,
2780 SCM_WORD(SCM_UNDEFINED) /* :pretty */,
2781 0x00000048 /* 415 (LREF0-PUSH) */,
2782 0x0000d060 /* 416 (GREF-TAIL-CALL 13) */,
2783 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.3d115260> */,
2784 0x00000014 /* 418 (RET) */,
2785 0x00000013 /* 419 (JUMP) */,
2786 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2787 0x00000014 /* 421 (RET) */,
2788 0x00000013 /* 422 (JUMP) */,
2789 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2790 0x00000014 /* 424 (RET) */,
2791 0x00000013 /* 425 (JUMP) */,
2792 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2793 0x00000014 /* 427 (RET) */,
2794 0x00000013 /* 428 (JUMP) */,
2795 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2796 0x00000014 /* 430 (RET) */,
2797 0x00000013 /* 431 (JUMP) */,
2798 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 396),
2799 0x00000014 /* 433 (RET) */,
2800 0x0300003c /* 434 (LREF 0 12) */,
2801 0x00000074 /* 435 (CDR) */,
2802 0x00000022 /* 436 (BNNULL) */,
2803 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 444),
2804 0x00000006 /* 438 (CONST-PUSH) */,
2805 SCM_WORD(SCM_OBJ(&scm__sc.d1561[245])) /* "keyword list not even" */,
2806 0x03000047 /* 440 (LREF-PUSH 0 12) */,
2807 0x00002060 /* 441 (GREF-TAIL-CALL 2) */,
2808 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#error.3d0f4dc0> */,
2809 0x00000014 /* 443 (RET) */,
2810 0x0000100e /* 444 (PRE-CALL 1) */,
2811 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 450),
2812 0x0300003c /* 446 (LREF 0 12) */,
2813 0x00000069 /* 447 (CAR-PUSH) */,
2814 0x0000105f /* 448 (GREF-CALL 1) */,
2815 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#unwrap-syntax-1.3d0f4ae0> */,
2816 0x00001018 /* 450 (PUSH-LOCAL-ENV 1) */,
2817 0x0000003d /* 451 (LREF0) */,
2818 0x0000002e /* 452 (BNEQC) */,
2819 SCM_WORD(SCM_UNDEFINED) /* :length */,
2820 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 473) /* 473 */,
2821 0x0300103c /* 455 (LREF 1 12) */,
2822 0x00000087 /* 456 (CDDR-PUSH) */,
2823 0x0300103c /* 457 (LREF 1 12) */,
2824 0x00000083 /* 458 (CADR-PUSH) */,
2825 0x02801047 /* 459 (LREF-PUSH 1 10) */,
2826 0x02401047 /* 460 (LREF-PUSH 1 9) */,
2827 0x02001047 /* 461 (LREF-PUSH 1 8) */,
2828 0x01c01047 /* 462 (LREF-PUSH 1 7) */,
2829 0x01801047 /* 463 (LREF-PUSH 1 6) */,
2830 0x01401047 /* 464 (LREF-PUSH 1 5) */,
2831 0x01001047 /* 465 (LREF-PUSH 1 4) */,
2832 0x00c01047 /* 466 (LREF-PUSH 1 3) */,
2833 0x0000004e /* 467 (LREF12-PUSH) */,
2834 0x0000004d /* 468 (LREF11-PUSH) */,
2835 0x0000004c /* 469 (LREF10-PUSH) */,
2836 0x0000201b /* 470 (LOCAL-ENV-JUMP 2) */,
2837 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
2838 0x00000014 /* 472 (RET) */,
2839 0x0000003d /* 473 (LREF0) */,
2840 0x0000002e /* 474 (BNEQC) */,
2841 SCM_WORD(SCM_UNDEFINED) /* :level */,
2842 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 495) /* 495 */,
2843 0x0300103c /* 477 (LREF 1 12) */,
2844 0x00000087 /* 478 (CDDR-PUSH) */,
2845 0x02c01047 /* 479 (LREF-PUSH 1 11) */,
2846 0x0300103c /* 480 (LREF 1 12) */,
2847 0x00000083 /* 481 (CADR-PUSH) */,
2848 0x02401047 /* 482 (LREF-PUSH 1 9) */,
2849 0x02001047 /* 483 (LREF-PUSH 1 8) */,
2850 0x01c01047 /* 484 (LREF-PUSH 1 7) */,
2851 0x01801047 /* 485 (LREF-PUSH 1 6) */,
2852 0x01401047 /* 486 (LREF-PUSH 1 5) */,
2853 0x01001047 /* 487 (LREF-PUSH 1 4) */,
2854 0x00c01047 /* 488 (LREF-PUSH 1 3) */,
2855 0x0000004e /* 489 (LREF12-PUSH) */,
2856 0x0000004d /* 490 (LREF11-PUSH) */,
2857 0x0000004c /* 491 (LREF10-PUSH) */,
2858 0x0000201b /* 492 (LOCAL-ENV-JUMP 2) */,
2859 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
2860 0x00000014 /* 494 (RET) */,
2861 0x0000003d /* 495 (LREF0) */,
2862 0x0000002e /* 496 (BNEQC) */,
2863 SCM_WORD(SCM_UNDEFINED) /* :width */,
2864 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 517) /* 517 */,
2865 0x0300103c /* 499 (LREF 1 12) */,
2866 0x00000087 /* 500 (CDDR-PUSH) */,
2867 0x02c01047 /* 501 (LREF-PUSH 1 11) */,
2868 0x02801047 /* 502 (LREF-PUSH 1 10) */,
2869 0x0300103c /* 503 (LREF 1 12) */,
2870 0x00000083 /* 504 (CADR-PUSH) */,
2871 0x02001047 /* 505 (LREF-PUSH 1 8) */,
2872 0x01c01047 /* 506 (LREF-PUSH 1 7) */,
2873 0x01801047 /* 507 (LREF-PUSH 1 6) */,
2874 0x01401047 /* 508 (LREF-PUSH 1 5) */,
2875 0x01001047 /* 509 (LREF-PUSH 1 4) */,
2876 0x00c01047 /* 510 (LREF-PUSH 1 3) */,
2877 0x0000004e /* 511 (LREF12-PUSH) */,
2878 0x0000004d /* 512 (LREF11-PUSH) */,
2879 0x0000004c /* 513 (LREF10-PUSH) */,
2880 0x0000201b /* 514 (LOCAL-ENV-JUMP 2) */,
2881 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
2882 0x00000014 /* 516 (RET) */,
2883 0x0000003d /* 517 (LREF0) */,
2884 0x0000002e /* 518 (BNEQC) */,
2885 SCM_WORD(SCM_UNDEFINED) /* :base */,
2886 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 539) /* 539 */,
2887 0x0300103c /* 521 (LREF 1 12) */,
2888 0x00000087 /* 522 (CDDR-PUSH) */,
2889 0x02c01047 /* 523 (LREF-PUSH 1 11) */,
2890 0x02801047 /* 524 (LREF-PUSH 1 10) */,
2891 0x02401047 /* 525 (LREF-PUSH 1 9) */,
2892 0x0300103c /* 526 (LREF 1 12) */,
2893 0x00000083 /* 527 (CADR-PUSH) */,
2894 0x01c01047 /* 528 (LREF-PUSH 1 7) */,
2895 0x01801047 /* 529 (LREF-PUSH 1 6) */,
2896 0x01401047 /* 530 (LREF-PUSH 1 5) */,
2897 0x01001047 /* 531 (LREF-PUSH 1 4) */,
2898 0x00c01047 /* 532 (LREF-PUSH 1 3) */,
2899 0x0000004e /* 533 (LREF12-PUSH) */,
2900 0x0000004d /* 534 (LREF11-PUSH) */,
2901 0x0000004c /* 535 (LREF10-PUSH) */,
2902 0x0000201b /* 536 (LOCAL-ENV-JUMP 2) */,
2903 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
2904 0x00000014 /* 538 (RET) */,
2905 0x0000003d /* 539 (LREF0) */,
2906 0x0000002e /* 540 (BNEQC) */,
2907 SCM_WORD(SCM_UNDEFINED) /* :radix */,
2908 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 561) /* 561 */,
2909 0x0300103c /* 543 (LREF 1 12) */,
2910 0x00000087 /* 544 (CDDR-PUSH) */,
2911 0x02c01047 /* 545 (LREF-PUSH 1 11) */,
2912 0x02801047 /* 546 (LREF-PUSH 1 10) */,
2913 0x02401047 /* 547 (LREF-PUSH 1 9) */,
2914 0x02001047 /* 548 (LREF-PUSH 1 8) */,
2915 0x0300103c /* 549 (LREF 1 12) */,
2916 0x00000083 /* 550 (CADR-PUSH) */,
2917 0x01801047 /* 551 (LREF-PUSH 1 6) */,
2918 0x01401047 /* 552 (LREF-PUSH 1 5) */,
2919 0x01001047 /* 553 (LREF-PUSH 1 4) */,
2920 0x00c01047 /* 554 (LREF-PUSH 1 3) */,
2921 0x0000004e /* 555 (LREF12-PUSH) */,
2922 0x0000004d /* 556 (LREF11-PUSH) */,
2923 0x0000004c /* 557 (LREF10-PUSH) */,
2924 0x0000201b /* 558 (LOCAL-ENV-JUMP 2) */,
2925 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
2926 0x00000014 /* 560 (RET) */,
2927 0x0000003d /* 561 (LREF0) */,
2928 0x0000002e /* 562 (BNEQC) */,
2929 SCM_WORD(SCM_UNDEFINED) /* :pretty */,
2930 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 583) /* 583 */,
2931 0x0300103c /* 565 (LREF 1 12) */,
2932 0x00000087 /* 566 (CDDR-PUSH) */,
2933 0x02c01047 /* 567 (LREF-PUSH 1 11) */,
2934 0x02801047 /* 568 (LREF-PUSH 1 10) */,
2935 0x02401047 /* 569 (LREF-PUSH 1 9) */,
2936 0x02001047 /* 570 (LREF-PUSH 1 8) */,
2937 0x01c01047 /* 571 (LREF-PUSH 1 7) */,
2938 0x0300103c /* 572 (LREF 1 12) */,
2939 0x00000083 /* 573 (CADR-PUSH) */,
2940 0x01401047 /* 574 (LREF-PUSH 1 5) */,
2941 0x01001047 /* 575 (LREF-PUSH 1 4) */,
2942 0x00c01047 /* 576 (LREF-PUSH 1 3) */,
2943 0x0000004e /* 577 (LREF12-PUSH) */,
2944 0x0000004d /* 578 (LREF11-PUSH) */,
2945 0x0000004c /* 579 (LREF10-PUSH) */,
2946 0x0000201b /* 580 (LOCAL-ENV-JUMP 2) */,
2947 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
2948 0x00000014 /* 582 (RET) */,
2949 0x0000003d /* 583 (LREF0) */,
2950 0x0000002e /* 584 (BNEQC) */,
2951 SCM_WORD(SCM_UNDEFINED) /* :print-length */,
2952 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 605) /* 605 */,
2953 0x0300103c /* 587 (LREF 1 12) */,
2954 0x00000087 /* 588 (CDDR-PUSH) */,
2955 0x02c01047 /* 589 (LREF-PUSH 1 11) */,
2956 0x02801047 /* 590 (LREF-PUSH 1 10) */,
2957 0x02401047 /* 591 (LREF-PUSH 1 9) */,
2958 0x02001047 /* 592 (LREF-PUSH 1 8) */,
2959 0x01c01047 /* 593 (LREF-PUSH 1 7) */,
2960 0x01801047 /* 594 (LREF-PUSH 1 6) */,
2961 0x0300103c /* 595 (LREF 1 12) */,
2962 0x00000083 /* 596 (CADR-PUSH) */,
2963 0x01001047 /* 597 (LREF-PUSH 1 4) */,
2964 0x00c01047 /* 598 (LREF-PUSH 1 3) */,
2965 0x0000004e /* 599 (LREF12-PUSH) */,
2966 0x0000004d /* 600 (LREF11-PUSH) */,
2967 0x0000004c /* 601 (LREF10-PUSH) */,
2968 0x0000201b /* 602 (LOCAL-ENV-JUMP 2) */,
2969 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
2970 0x00000014 /* 604 (RET) */,
2971 0x0000003d /* 605 (LREF0) */,
2972 0x0000002e /* 606 (BNEQC) */,
2973 SCM_WORD(SCM_UNDEFINED) /* :print-level */,
2974 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 627) /* 627 */,
2975 0x0300103c /* 609 (LREF 1 12) */,
2976 0x00000087 /* 610 (CDDR-PUSH) */,
2977 0x02c01047 /* 611 (LREF-PUSH 1 11) */,
2978 0x02801047 /* 612 (LREF-PUSH 1 10) */,
2979 0x02401047 /* 613 (LREF-PUSH 1 9) */,
2980 0x02001047 /* 614 (LREF-PUSH 1 8) */,
2981 0x01c01047 /* 615 (LREF-PUSH 1 7) */,
2982 0x01801047 /* 616 (LREF-PUSH 1 6) */,
2983 0x01401047 /* 617 (LREF-PUSH 1 5) */,
2984 0x0300103c /* 618 (LREF 1 12) */,
2985 0x00000083 /* 619 (CADR-PUSH) */,
2986 0x00c01047 /* 620 (LREF-PUSH 1 3) */,
2987 0x0000004e /* 621 (LREF12-PUSH) */,
2988 0x0000004d /* 622 (LREF11-PUSH) */,
2989 0x0000004c /* 623 (LREF10-PUSH) */,
2990 0x0000201b /* 624 (LOCAL-ENV-JUMP 2) */,
2991 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
2992 0x00000014 /* 626 (RET) */,
2993 0x0000003d /* 627 (LREF0) */,
2994 0x0000002e /* 628 (BNEQC) */,
2995 SCM_WORD(SCM_UNDEFINED) /* :print-width */,
2996 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 649) /* 649 */,
2997 0x0300103c /* 631 (LREF 1 12) */,
2998 0x00000087 /* 632 (CDDR-PUSH) */,
2999 0x02c01047 /* 633 (LREF-PUSH 1 11) */,
3000 0x02801047 /* 634 (LREF-PUSH 1 10) */,
3001 0x02401047 /* 635 (LREF-PUSH 1 9) */,
3002 0x02001047 /* 636 (LREF-PUSH 1 8) */,
3003 0x01c01047 /* 637 (LREF-PUSH 1 7) */,
3004 0x01801047 /* 638 (LREF-PUSH 1 6) */,
3005 0x01401047 /* 639 (LREF-PUSH 1 5) */,
3006 0x01001047 /* 640 (LREF-PUSH 1 4) */,
3007 0x0300103c /* 641 (LREF 1 12) */,
3008 0x00000083 /* 642 (CADR-PUSH) */,
3009 0x0000004e /* 643 (LREF12-PUSH) */,
3010 0x0000004d /* 644 (LREF11-PUSH) */,
3011 0x0000004c /* 645 (LREF10-PUSH) */,
3012 0x0000201b /* 646 (LOCAL-ENV-JUMP 2) */,
3013 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
3014 0x00000014 /* 648 (RET) */,
3015 0x0000003d /* 649 (LREF0) */,
3016 0x0000002e /* 650 (BNEQC) */,
3017 SCM_WORD(SCM_UNDEFINED) /* :print-base */,
3018 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 671) /* 671 */,
3019 0x0300103c /* 653 (LREF 1 12) */,
3020 0x00000087 /* 654 (CDDR-PUSH) */,
3021 0x02c01047 /* 655 (LREF-PUSH 1 11) */,
3022 0x02801047 /* 656 (LREF-PUSH 1 10) */,
3023 0x02401047 /* 657 (LREF-PUSH 1 9) */,
3024 0x02001047 /* 658 (LREF-PUSH 1 8) */,
3025 0x01c01047 /* 659 (LREF-PUSH 1 7) */,
3026 0x01801047 /* 660 (LREF-PUSH 1 6) */,
3027 0x01401047 /* 661 (LREF-PUSH 1 5) */,
3028 0x01001047 /* 662 (LREF-PUSH 1 4) */,
3029 0x00c01047 /* 663 (LREF-PUSH 1 3) */,
3030 0x0300103c /* 664 (LREF 1 12) */,
3031 0x00000083 /* 665 (CADR-PUSH) */,
3032 0x0000004d /* 666 (LREF11-PUSH) */,
3033 0x0000004c /* 667 (LREF10-PUSH) */,
3034 0x0000201b /* 668 (LOCAL-ENV-JUMP 2) */,
3035 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
3036 0x00000014 /* 670 (RET) */,
3037 0x0000003d /* 671 (LREF0) */,
3038 0x0000002e /* 672 (BNEQC) */,
3039 SCM_WORD(SCM_UNDEFINED) /* :print-radix */,
3040 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 693) /* 693 */,
3041 0x0300103c /* 675 (LREF 1 12) */,
3042 0x00000087 /* 676 (CDDR-PUSH) */,
3043 0x02c01047 /* 677 (LREF-PUSH 1 11) */,
3044 0x02801047 /* 678 (LREF-PUSH 1 10) */,
3045 0x02401047 /* 679 (LREF-PUSH 1 9) */,
3046 0x02001047 /* 680 (LREF-PUSH 1 8) */,
3047 0x01c01047 /* 681 (LREF-PUSH 1 7) */,
3048 0x01801047 /* 682 (LREF-PUSH 1 6) */,
3049 0x01401047 /* 683 (LREF-PUSH 1 5) */,
3050 0x01001047 /* 684 (LREF-PUSH 1 4) */,
3051 0x00c01047 /* 685 (LREF-PUSH 1 3) */,
3052 0x0000004e /* 686 (LREF12-PUSH) */,
3053 0x0300103c /* 687 (LREF 1 12) */,
3054 0x00000083 /* 688 (CADR-PUSH) */,
3055 0x0000004c /* 689 (LREF10-PUSH) */,
3056 0x0000201b /* 690 (LOCAL-ENV-JUMP 2) */,
3057 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
3058 0x00000014 /* 692 (RET) */,
3059 0x0000003d /* 693 (LREF0) */,
3060 0x0000002e /* 694 (BNEQC) */,
3061 SCM_WORD(SCM_UNDEFINED) /* :print-pretty */,
3062 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 715) /* 715 */,
3063 0x0300103c /* 697 (LREF 1 12) */,
3064 0x00000087 /* 698 (CDDR-PUSH) */,
3065 0x02c01047 /* 699 (LREF-PUSH 1 11) */,
3066 0x02801047 /* 700 (LREF-PUSH 1 10) */,
3067 0x02401047 /* 701 (LREF-PUSH 1 9) */,
3068 0x02001047 /* 702 (LREF-PUSH 1 8) */,
3069 0x01c01047 /* 703 (LREF-PUSH 1 7) */,
3070 0x01801047 /* 704 (LREF-PUSH 1 6) */,
3071 0x01401047 /* 705 (LREF-PUSH 1 5) */,
3072 0x01001047 /* 706 (LREF-PUSH 1 4) */,
3073 0x00c01047 /* 707 (LREF-PUSH 1 3) */,
3074 0x0000004e /* 708 (LREF12-PUSH) */,
3075 0x0000004d /* 709 (LREF11-PUSH) */,
3076 0x0300103c /* 710 (LREF 1 12) */,
3077 0x00000083 /* 711 (CADR-PUSH) */,
3078 0x0000201b /* 712 (LOCAL-ENV-JUMP 2) */,
3079 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
3080 0x00000014 /* 714 (RET) */,
3081 0x0000200e /* 715 (PRE-CALL 2) */,
3082 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 723),
3083 0x00000006 /* 717 (CONST-PUSH) */,
3084 SCM_WORD(SCM_OBJ(&scm__sc.d1561[253])) /* "unknown keyword ~S" */,
3085 0x0300103c /* 719 (LREF 1 12) */,
3086 0x00000069 /* 720 (CAR-PUSH) */,
3087 0x0000205f /* 721 (GREF-CALL 2) */,
3088 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.3d0f46e0> */,
3089 0x0300103c /* 723 (LREF 1 12) */,
3090 0x00000087 /* 724 (CDDR-PUSH) */,
3091 0x02c01047 /* 725 (LREF-PUSH 1 11) */,
3092 0x02801047 /* 726 (LREF-PUSH 1 10) */,
3093 0x02401047 /* 727 (LREF-PUSH 1 9) */,
3094 0x02001047 /* 728 (LREF-PUSH 1 8) */,
3095 0x01c01047 /* 729 (LREF-PUSH 1 7) */,
3096 0x01801047 /* 730 (LREF-PUSH 1 6) */,
3097 0x01401047 /* 731 (LREF-PUSH 1 5) */,
3098 0x01001047 /* 732 (LREF-PUSH 1 4) */,
3099 0x00c01047 /* 733 (LREF-PUSH 1 3) */,
3100 0x0000004e /* 734 (LREF12-PUSH) */,
3101 0x0000004d /* 735 (LREF11-PUSH) */,
3102 0x0000004c /* 736 (LREF10-PUSH) */,
3103 0x0000201b /* 737 (LOCAL-ENV-JUMP 2) */,
3104 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]) + 25),
3105 0x00000014 /* 739 (RET) */,
3106 0x00000014 /* 740 (RET) */,
3107 /* open-input-file */
3108 0x0000300e /* 0 (PRE-CALL 3) */,
3109 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]) + 8),
3110 0x00000006 /* 2 (CONST-PUSH) */,
3111 SCM_WORD(SCM_UNDEFINED) /* :encoding */,
3112 0x00000048 /* 4 (LREF0-PUSH) */,
3113 0x00000009 /* 5 (CONSTF-PUSH) */,
3114 0x0000305f /* 6 (GREF-CALL 3) */,
3115 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-keyword.3c91eee0> */,
3116 0x00001018 /* 8 (PUSH-LOCAL-ENV 1) */,
3117 0x0000003d /* 9 (LREF0) */,
3118 0x0000002e /* 10 (BNEQC) */,
3119 SCM_WORD(SCM_FALSE) /* #f */,
3120 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]) + 19) /* 19 */,
3121 0x0000005e /* 13 (GREF-PUSH) */,
3122 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-input-file.3c91ebc0> */,
3123 0x0000004d /* 15 (LREF11-PUSH) */,
3124 0x00000041 /* 16 (LREF10) */,
3125 0x00003095 /* 17 (TAIL-APPLY 3) */,
3126 0x00000014 /* 18 (RET) */,
3127 0x0000003d /* 19 (LREF0) */,
3128 0x0000002e /* 20 (BNEQC) */,
3129 SCM_WORD(SCM_TRUE) /* #t */,
3130 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]) + 43) /* 43 */,
3131 0x0000000e /* 23 (PRE-CALL 0) */,
3132 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]) + 36),
3133 0x0000005e /* 25 (GREF-PUSH) */,
3134 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-input-file.3c91ea60> */,
3135 0x0000004d /* 27 (LREF11-PUSH) */,
3136 0x0000200e /* 28 (PRE-CALL 2) */,
3137 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]) + 35),
3138 0x00000006 /* 30 (CONST-PUSH) */,
3139 SCM_WORD(SCM_UNDEFINED) /* :encoding */,
3140 0x0000004c /* 32 (LREF10-PUSH) */,
3141 0x0000205f /* 33 (GREF-CALL 2) */,
3142 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#delete-keyword.3c91ea00> */,
3143 0x00003095 /* 35 (TAIL-APPLY 3) */,
3144 0x00001018 /* 36 (PUSH-LOCAL-ENV 1) */,
3145 0x0000003d /* 37 (LREF0) */,
3146 0x00000030 /* 38 (RF) */,
3147 0x00000048 /* 39 (LREF0-PUSH) */,
3148 0x00001060 /* 40 (GREF-TAIL-CALL 1) */,
3149 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-coding-aware-port.3c91e920> */,
3150 0x00000014 /* 42 (RET) */,
3151 0x0000005e /* 43 (GREF-PUSH) */,
3152 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-input-file/conv.3c91e800> */,
3153 0x0000004d /* 45 (LREF11-PUSH) */,
3154 0x00000041 /* 46 (LREF10) */,
3155 0x00003095 /* 47 (TAIL-APPLY 3) */,
3156 0x00000014 /* 48 (RET) */,
3157 /* open-output-file */
3158 0x0000300e /* 0 (PRE-CALL 3) */,
3159 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]) + 8),
3160 0x00000006 /* 2 (CONST-PUSH) */,
3161 SCM_WORD(SCM_UNDEFINED) /* :encoding */,
3162 0x00000048 /* 4 (LREF0-PUSH) */,
3163 0x00000009 /* 5 (CONSTF-PUSH) */,
3164 0x0000305f /* 6 (GREF-CALL 3) */,
3165 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-keyword.3c59e4c0> */,
3166 0x0000001e /* 8 (BF) */,
3167 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]) + 16),
3168 0x0000005e /* 10 (GREF-PUSH) */,
3169 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-output-file/conv.3c59e3e0> */,
3170 0x00000049 /* 12 (LREF1-PUSH) */,
3171 0x0000003d /* 13 (LREF0) */,
3172 0x00003095 /* 14 (TAIL-APPLY 3) */,
3173 0x00000014 /* 15 (RET) */,
3174 0x0000005e /* 16 (GREF-PUSH) */,
3175 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%open-output-file.3c59e340> */,
3176 0x00000049 /* 18 (LREF1-PUSH) */,
3177 0x0000003d /* 19 (LREF0) */,
3178 0x00003095 /* 20 (TAIL-APPLY 3) */,
3179 0x00000014 /* 21 (RET) */,
3180 /* (call-with-port #f) */
3181 0x00000049 /* 0 (LREF1-PUSH) */,
3182 0x0000003d /* 1 (LREF0) */,
3183 0x00001012 /* 2 (TAIL-CALL 1) */,
3184 0x00000014 /* 3 (RET) */,
3185 /* (call-with-port #f) */
3186 0x00000049 /* 0 (LREF1-PUSH) */,
3187 0x00001060 /* 1 (GREF-TAIL-CALL 1) */,
3188 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-port.3fc80c60> */,
3189 0x00000014 /* 3 (RET) */,
3190 /* call-with-port */
3191 0x00000016 /* 0 (CLOSURE) */,
3192 SCM_WORD(SCM_OBJ(&scm__rc.d1569[36])) /* #<compiled-code (call-with-port #f)@0x7fc33d4c6e40> */,
3193 0x0000000d /* 2 (PUSH) */,
3194 0x00000016 /* 3 (CLOSURE) */,
3195 SCM_WORD(SCM_OBJ(&scm__rc.d1569[37])) /* #<compiled-code (call-with-port #f)@0x7fc33d4c6de0> */,
3196 0x0000000d /* 5 (PUSH) */,
3197 0x00000006 /* 6 (CONST-PUSH) */,
3198 SCM_WORD(SCM_UNDEFINED) /* :source-info */,
3199 0x00000006 /* 8 (CONST-PUSH) */,
3200 SCM_WORD(SCM_OBJ(&scm__rc.d1563[1004])) /* ("libio.scm" 1001) */,
3201 0x00004060 /* 10 (GREF-TAIL-CALL 4) */,
3202 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3fc80e60> */,
3203 0x00000014 /* 12 (RET) */,
3204 /* (call-with-input-file #f) */
3205 0x00000048 /* 0 (LREF0-PUSH) */,
3206 0x00000042 /* 1 (LREF11) */,
3207 0x00001012 /* 2 (TAIL-CALL 1) */,
3208 0x00000014 /* 3 (RET) */,
3209 /* (call-with-input-file #f) */
3210 0x0000003d /* 0 (LREF0) */,
3211 0x0000001e /* 1 (BF) */,
3212 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2155]) + 7),
3213 0x00000048 /* 3 (LREF0-PUSH) */,
3214 0x00001060 /* 4 (GREF-TAIL-CALL 1) */,
3215 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-input-port.3e4e4a80> */,
3216 0x00000014 /* 6 (RET) */,
3217 0x0000000c /* 7 (CONSTU-RET) */,
3218 /* call-with-input-file */
3219 0x0000000e /* 0 (PRE-CALL 0) */,
3220 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2163]) + 7),
3221 0x0000005e /* 2 (GREF-PUSH) */,
3222 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-file.3e4de4c0> */,
3223 0x0000004a /* 4 (LREF2-PUSH) */,
3224 0x0000003d /* 5 (LREF0) */,
3225 0x00003095 /* 6 (TAIL-APPLY 3) */,
3226 0x00001018 /* 7 (PUSH-LOCAL-ENV 1) */,
3227 0x00000016 /* 8 (CLOSURE) */,
3228 SCM_WORD(SCM_OBJ(&scm__rc.d1569[39])) /* #<compiled-code (call-with-input-file #f)@0x7fc33d4c60c0> */,
3229 0x0000000d /* 10 (PUSH) */,
3230 0x00000016 /* 11 (CLOSURE) */,
3231 SCM_WORD(SCM_OBJ(&scm__rc.d1569[40])) /* #<compiled-code (call-with-input-file #f)@0x7fc33d4c6060> */,
3232 0x0000000d /* 13 (PUSH) */,
3233 0x00000006 /* 14 (CONST-PUSH) */,
3234 SCM_WORD(SCM_UNDEFINED) /* :source-info */,
3235 0x00000006 /* 16 (CONST-PUSH) */,
3236 SCM_WORD(SCM_OBJ(&scm__rc.d1563[1015])) /* ("libio.scm" 1008) */,
3237 0x00004060 /* 18 (GREF-TAIL-CALL 4) */,
3238 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3e4e4e00> */,
3239 0x00000014 /* 20 (RET) */,
3240 /* (call-with-output-file #f) */
3241 0x00000048 /* 0 (LREF0-PUSH) */,
3242 0x00000042 /* 1 (LREF11) */,
3243 0x00001012 /* 2 (TAIL-CALL 1) */,
3244 0x00000014 /* 3 (RET) */,
3245 /* (call-with-output-file #f) */
3246 0x0000003d /* 0 (LREF0) */,
3247 0x0000001e /* 1 (BF) */,
3248 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2188]) + 7),
3249 0x00000048 /* 3 (LREF0-PUSH) */,
3250 0x00001060 /* 4 (GREF-TAIL-CALL 1) */,
3251 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-output-port.3db7e460> */,
3252 0x00000014 /* 6 (RET) */,
3253 0x0000000c /* 7 (CONSTU-RET) */,
3254 /* call-with-output-file */
3255 0x0000000e /* 0 (PRE-CALL 0) */,
3256 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2196]) + 7),
3257 0x0000005e /* 2 (GREF-PUSH) */,
3258 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-file.3db7eb20> */,
3259 0x0000004a /* 4 (LREF2-PUSH) */,
3260 0x0000003d /* 5 (LREF0) */,
3261 0x00003095 /* 6 (TAIL-APPLY 3) */,
3262 0x00001018 /* 7 (PUSH-LOCAL-ENV 1) */,
3263 0x00000016 /* 8 (CLOSURE) */,
3264 SCM_WORD(SCM_OBJ(&scm__rc.d1569[42])) /* #<compiled-code (call-with-output-file #f)@0x7fc33d4eca80> */,
3265 0x0000000d /* 10 (PUSH) */,
3266 0x00000016 /* 11 (CLOSURE) */,
3267 SCM_WORD(SCM_OBJ(&scm__rc.d1569[43])) /* #<compiled-code (call-with-output-file #f)@0x7fc33d4ec960> */,
3268 0x0000000d /* 13 (PUSH) */,
3269 0x00000006 /* 14 (CONST-PUSH) */,
3270 SCM_WORD(SCM_UNDEFINED) /* :source-info */,
3271 0x00000006 /* 16 (CONST-PUSH) */,
3272 SCM_WORD(SCM_OBJ(&scm__rc.d1563[1027])) /* ("libio.scm" 1013) */,
3273 0x00004060 /* 18 (GREF-TAIL-CALL 4) */,
3274 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3db7e800> */,
3275 0x00000014 /* 20 (RET) */,
3276 /* (with-input-from-file #f) */
3277 0x00000048 /* 0 (LREF0-PUSH) */,
3278 0x0000004d /* 1 (LREF11-PUSH) */,
3279 0x00002060 /* 2 (GREF-TAIL-CALL 2) */,
3280 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-port.3d481380> */,
3281 0x00000014 /* 4 (RET) */,
3282 /* (with-input-from-file #f) */
3283 0x00000048 /* 0 (LREF0-PUSH) */,
3284 0x00001060 /* 1 (GREF-TAIL-CALL 1) */,
3285 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-input-port.3d482b80> */,
3286 0x00000014 /* 3 (RET) */,
3287 /* with-input-from-file */
3288 0x0000000e /* 0 (PRE-CALL 0) */,
3289 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2226]) + 7),
3290 0x0000005e /* 2 (GREF-PUSH) */,
3291 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-file.3d481b20> */,
3292 0x0000004a /* 4 (LREF2-PUSH) */,
3293 0x0000003d /* 5 (LREF0) */,
3294 0x00003095 /* 6 (TAIL-APPLY 3) */,
3295 0x00001018 /* 7 (PUSH-LOCAL-ENV 1) */,
3296 0x0000003d /* 8 (LREF0) */,
3297 0x00000030 /* 9 (RF) */,
3298 0x00000016 /* 10 (CLOSURE) */,
3299 SCM_WORD(SCM_OBJ(&scm__rc.d1569[45])) /* #<compiled-code (with-input-from-file #f)@0x7fc33d4ec600> */,
3300 0x0000000d /* 12 (PUSH) */,
3301 0x00000016 /* 13 (CLOSURE) */,
3302 SCM_WORD(SCM_OBJ(&scm__rc.d1569[46])) /* #<compiled-code (with-input-from-file #f)@0x7fc33d4ec5a0> */,
3303 0x0000000d /* 15 (PUSH) */,
3304 0x00000006 /* 16 (CONST-PUSH) */,
3305 SCM_WORD(SCM_UNDEFINED) /* :source-info */,
3306 0x00000006 /* 18 (CONST-PUSH) */,
3307 SCM_WORD(SCM_OBJ(&scm__rc.d1563[1037])) /* ("libio.scm" 1019) */,
3308 0x00004060 /* 20 (GREF-TAIL-CALL 4) */,
3309 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3d4816c0> */,
3310 0x00000014 /* 22 (RET) */,
3311 /* (with-output-to-file #f) */
3312 0x00000048 /* 0 (LREF0-PUSH) */,
3313 0x0000004d /* 1 (LREF11-PUSH) */,
3314 0x00002060 /* 2 (GREF-TAIL-CALL 2) */,
3315 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-port.3d14a660> */,
3316 0x00000014 /* 4 (RET) */,
3317 /* (with-output-to-file #f) */
3318 0x00000048 /* 0 (LREF0-PUSH) */,
3319 0x00001060 /* 1 (GREF-TAIL-CALL 1) */,
3320 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#close-output-port.3d14a4c0> */,
3321 0x00000014 /* 3 (RET) */,
3322 /* with-output-to-file */
3323 0x0000000e /* 0 (PRE-CALL 0) */,
3324 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2258]) + 7),
3325 0x0000005e /* 2 (GREF-PUSH) */,
3326 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-file.3d14ac80> */,
3327 0x0000004a /* 4 (LREF2-PUSH) */,
3328 0x0000003d /* 5 (LREF0) */,
3329 0x00003095 /* 6 (TAIL-APPLY 3) */,
3330 0x00001018 /* 7 (PUSH-LOCAL-ENV 1) */,
3331 0x0000003d /* 8 (LREF0) */,
3332 0x00000030 /* 9 (RF) */,
3333 0x00000016 /* 10 (CLOSURE) */,
3334 SCM_WORD(SCM_OBJ(&scm__rc.d1569[48])) /* #<compiled-code (with-output-to-file #f)@0x7fc33d5455a0> */,
3335 0x0000000d /* 12 (PUSH) */,
3336 0x00000016 /* 13 (CLOSURE) */,
3337 SCM_WORD(SCM_OBJ(&scm__rc.d1569[49])) /* #<compiled-code (with-output-to-file #f)@0x7fc33d545300> */,
3338 0x0000000d /* 15 (PUSH) */,
3339 0x00000006 /* 16 (CONST-PUSH) */,
3340 SCM_WORD(SCM_UNDEFINED) /* :source-info */,
3341 0x00000006 /* 18 (CONST-PUSH) */,
3342 SCM_WORD(SCM_OBJ(&scm__rc.d1563[1049])) /* ("libio.scm" 1025) */,
3343 0x00004060 /* 20 (GREF-TAIL-CALL 4) */,
3344 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%unwind-protect.3d14a940> */,
3345 0x00000014 /* 22 (RET) */,
3346 /* with-output-to-string */
3347 0x0000000e /* 0 (PRE-CALL 0) */,
3348 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]) + 4),
3349 0x0000005f /* 2 (GREF-CALL 0) */,
3350 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.3d2fa1c0> */,
3351 0x00001018 /* 4 (PUSH-LOCAL-ENV 1) */,
3352 0x0000200e /* 5 (PRE-CALL 2) */,
3353 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]) + 11),
3354 0x00000048 /* 7 (LREF0-PUSH) */,
3355 0x0000004c /* 8 (LREF10-PUSH) */,
3356 0x0000205f /* 9 (GREF-CALL 2) */,
3357 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-port.3d2fa160> */,
3358 0x00000048 /* 11 (LREF0-PUSH) */,
3359 0x00001060 /* 12 (GREF-TAIL-CALL 1) */,
3360 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.3d2fa0c0> */,
3361 0x00000014 /* 14 (RET) */,
3362 /* with-input-from-string */
3363 0x0000100e /* 0 (PRE-CALL 1) */,
3364 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2296]) + 5),
3365 0x00000049 /* 2 (LREF1-PUSH) */,
3366 0x0000105f /* 3 (GREF-CALL 1) */,
3367 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-string.3d3b41e0> */,
3368 0x0000000d /* 5 (PUSH) */,
3369 0x00000048 /* 6 (LREF0-PUSH) */,
3370 0x00002060 /* 7 (GREF-TAIL-CALL 2) */,
3371 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-port.3d3b4240> */,
3372 0x00000014 /* 9 (RET) */,
3373 /* call-with-output-string */
3374 0x0000000e /* 0 (PRE-CALL 0) */,
3375 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2306]) + 4),
3376 0x0000005f /* 2 (GREF-CALL 0) */,
3377 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.3ccb9480> */,
3378 0x00001018 /* 4 (PUSH-LOCAL-ENV 1) */,
3379 0x0000100e /* 5 (PRE-CALL 1) */,
3380 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2306]) + 10),
3381 0x00000048 /* 7 (LREF0-PUSH) */,
3382 0x00000041 /* 8 (LREF10) */,
3383 0x00001011 /* 9 (CALL 1) */,
3384 0x00000048 /* 10 (LREF0-PUSH) */,
3385 0x00001060 /* 11 (GREF-TAIL-CALL 1) */,
3386 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.3ccb93c0> */,
3387 0x00000014 /* 13 (RET) */,
3388 /* call-with-input-string */
3389 0x0000100e /* 0 (PRE-CALL 1) */,
3390 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2320]) + 5),
3391 0x00000049 /* 2 (LREF1-PUSH) */,
3392 0x0000105f /* 3 (GREF-CALL 1) */,
3393 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-string.3cd2a9a0> */,
3394 0x0000000d /* 5 (PUSH) */,
3395 0x0000003d /* 6 (LREF0) */,
3396 0x00001012 /* 7 (TAIL-CALL 1) */,
3397 0x00000014 /* 8 (RET) */,
3398 /* call-with-string-io */
3399 0x0000000e /* 0 (PRE-CALL 0) */,
3400 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]) + 4),
3401 0x0000005f /* 2 (GREF-CALL 0) */,
3402 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.3cd903a0> */,
3403 0x0000100f /* 4 (PUSH-PRE-CALL 1) */,
3404 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]) + 9),
3405 0x00000049 /* 6 (LREF1-PUSH) */,
3406 0x0000105f /* 7 (GREF-CALL 1) */,
3407 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-input-string.3cd90360> */,
3408 0x00002018 /* 9 (PUSH-LOCAL-ENV 2) */,
3409 0x0000200e /* 10 (PRE-CALL 2) */,
3410 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]) + 16),
3411 0x00000048 /* 12 (LREF0-PUSH) */,
3412 0x00000049 /* 13 (LREF1-PUSH) */,
3413 0x00000041 /* 14 (LREF10) */,
3414 0x00002011 /* 15 (CALL 2) */,
3415 0x00000049 /* 16 (LREF1-PUSH) */,
3416 0x00001060 /* 17 (GREF-TAIL-CALL 1) */,
3417 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.3cd902a0> */,
3418 0x00000014 /* 19 (RET) */,
3419 /* (with-string-io #f) */
3420 0x00000049 /* 0 (LREF1-PUSH) */,
3421 0x00000048 /* 1 (LREF0-PUSH) */,
3422 0x00002060 /* 2 (GREF-TAIL-CALL 2) */,
3423 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-string.3ce57200> */,
3424 0x00000014 /* 4 (RET) */,
3425 /* with-string-io */
3426 0x00000016 /* 0 (CLOSURE) */,
3427 SCM_WORD(SCM_OBJ(&scm__rc.d1569[56])) /* #<compiled-code (with-string-io #f)@0x7fc33d638c60> */,
3428 0x00001063 /* 2 (PUSH-GREF-TAIL-CALL 1) */,
3429 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-string.3ce57800> */,
3430 0x00000014 /* 4 (RET) */,
3431 /* (write-to-string #f) */
3432 0x0000004d /* 0 (LREF11-PUSH) */,
3433 0x0000003e /* 1 (LREF1) */,
3434 0x00001012 /* 2 (TAIL-CALL 1) */,
3435 0x00000014 /* 3 (RET) */,
3436 /* write-to-string */
3437 0x0000003d /* 0 (LREF0) */,
3438 0x00000022 /* 1 (BNNULL) */,
3439 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 7),
3440 0x0000005d /* 3 (GREF) */,
3441 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write.3cee6860> */,
3442 0x00000013 /* 5 (JUMP) */,
3443 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 8),
3444 0x0000006a /* 7 (LREF0-CAR) */,
3445 0x0000000d /* 8 (PUSH) */,
3446 0x0000003d /* 9 (LREF0) */,
3447 0x00000022 /* 10 (BNNULL) */,
3448 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 15),
3449 0x00000003 /* 12 (CONSTN) */,
3450 0x00000013 /* 13 (JUMP) */,
3451 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 16),
3452 0x00000076 /* 15 (LREF0-CDR) */,
3453 0x00002018 /* 16 (PUSH-LOCAL-ENV 2) */,
3454 0x0000003d /* 17 (LREF0) */,
3455 0x00000022 /* 18 (BNNULL) */,
3456 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 22),
3457 0x00000013 /* 20 (JUMP) */,
3458 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 30),
3459 0x0000200e /* 22 (PRE-CALL 2) */,
3460 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]) + 30),
3461 0x00000006 /* 24 (CONST-PUSH) */,
3462 SCM_WORD(SCM_OBJ(&scm__sc.d1561[142])) /* "too many arguments for" */,
3463 0x00000006 /* 26 (CONST-PUSH) */,
3464 SCM_WORD(SCM_OBJ(&scm__rc.d1563[1104])) /* (lambda (obj :optional (writer write)) (with-output-to-string (cut writer obj))) */,
3465 0x0000205f /* 28 (GREF-CALL 2) */,
3466 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.3cee6620> */,
3467 0x00000016 /* 30 (CLOSURE) */,
3468 SCM_WORD(SCM_OBJ(&scm__rc.d1569[58])) /* #<compiled-code (write-to-string #f)@0x7fc33d638540> */,
3469 0x00001063 /* 32 (PUSH-GREF-TAIL-CALL 1) */,
3470 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-output-to-string.3ceeeaa0> */,
3471 0x00000014 /* 34 (RET) */,
3472 /* read-from-string */
3473 0x0000003d /* 0 (LREF0) */,
3474 0x00000022 /* 1 (BNNULL) */,
3475 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]) + 6),
3476 0x0000003e /* 3 (LREF1) */,
3477 0x00000013 /* 4 (JUMP) */,
3478 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]) + 13),
3479 0x0000000e /* 6 (PRE-CALL 0) */,
3480 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]) + 13),
3481 0x0000005e /* 8 (GREF-PUSH) */,
3482 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%maybe-substring.3c880780> */,
3483 0x00000049 /* 10 (LREF1-PUSH) */,
3484 0x0000003d /* 11 (LREF0) */,
3485 0x00003095 /* 12 (TAIL-APPLY 3) */,
3486 0x00000061 /* 13 (PUSH-GREF) */,
3487 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read.3c880700> */,
3488 0x00002063 /* 15 (PUSH-GREF-TAIL-CALL 2) */,
3489 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-string.3c8808c0> */,
3490 0x00000014 /* 17 (RET) */,
3491 /* (with-input-from-port with-input-from-port) */
3492 0x000000ea /* 0 (LREF-UNBOX 0 0) */,
3493 0x0000001e /* 1 (BF) */,
3494 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2416]) + 7),
3495 0x000000ea /* 3 (LREF-UNBOX 0 0) */,
3496 0x00001063 /* 4 (PUSH-GREF-TAIL-CALL 1) */,
3497 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.3c9b97e0> */,
3498 0x00000014 /* 6 (RET) */,
3499 0x0000000c /* 7 (CONSTU-RET) */,
3500 /* (with-input-from-port with-input-from-port) */
3501 0x00000042 /* 0 (LREF11) */,
3502 0x0000001e /* 1 (BF) */,
3503 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2424]) + 10),
3504 0x0000100e /* 3 (PRE-CALL 1) */,
3505 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2424]) + 8),
3506 0x0000004d /* 5 (LREF11-PUSH) */,
3507 0x0000105f /* 6 (GREF-CALL 1) */,
3508 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.3c9b9960> */,
3509 0x0000003a /* 8 (LSET 0 0) */,
3510 0x00000014 /* 9 (RET) */,
3511 0x0000000c /* 10 (CONSTU-RET) */,
3512 /* with-input-from-port */
3513 0x00000009 /* 0 (CONSTF-PUSH) */,
3514 0x00001017 /* 1 (LOCAL-ENV 1) */,
3515 0x000010e7 /* 2 (BOX 1) */,
3516 0x00000016 /* 3 (CLOSURE) */,
3517 SCM_WORD(SCM_OBJ(&scm__rc.d1569[61])) /* #<compiled-code (with-input-from-port with-input-from-port)@0x7fc33d666f00> */,
3518 0x0000000d /* 5 (PUSH) */,
3519 0x00000016 /* 6 (CLOSURE) */,
3520 SCM_WORD(SCM_OBJ(&scm__rc.d1569[62])) /* #<compiled-code (with-input-from-port with-input-from-port)@0x7fc33d666de0> */,
3521 0x00002018 /* 8 (PUSH-LOCAL-ENV 2) */,
3522 0x0000000e /* 9 (PRE-CALL 0) */,
3523 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2435]) + 13),
3524 0x0000003d /* 11 (LREF0) */,
3525 0x0000001c /* 12 (LOCAL-ENV-CALL 0) */,
3526 0x00000048 /* 13 (LREF0-PUSH) */,
3527 0x0000003e /* 14 (LREF1) */,
3528 0x000000e5 /* 15 (PUSH-HANDLERS) */,
3529 0x0000000e /* 16 (PRE-CALL 0) */,
3530 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2435]) + 20),
3531 0x00000044 /* 18 (LREF20) */,
3532 0x00000011 /* 19 (CALL 0) */,
3533 0x00400036 /* 20 (TAIL-RECEIVE 0 1) */,
3534 0x000000e6 /* 21 (POP-HANDLERS) */,
3535 0x0000000e /* 22 (PRE-CALL 0) */,
3536 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2435]) + 26),
3537 0x00000042 /* 24 (LREF11) */,
3538 0x0000001c /* 25 (LOCAL-ENV-CALL 0) */,
3539 0x0000005e /* 26 (GREF-PUSH) */,
3540 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.403ba0c0> */,
3541 0x0000003d /* 28 (LREF0) */,
3542 0x00002095 /* 29 (TAIL-APPLY 2) */,
3543 0x00000014 /* 30 (RET) */,
3544 /* (with-output-to-port with-output-to-port) */
3545 0x000000ea /* 0 (LREF-UNBOX 0 0) */,
3546 0x0000001e /* 1 (BF) */,
3547 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2466]) + 7),
3548 0x000000ea /* 3 (LREF-UNBOX 0 0) */,
3549 0x00001063 /* 4 (PUSH-GREF-TAIL-CALL 1) */,
3550 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.3c664c40> */,
3551 0x00000014 /* 6 (RET) */,
3552 0x0000000c /* 7 (CONSTU-RET) */,
3553 /* (with-output-to-port with-output-to-port) */
3554 0x00000042 /* 0 (LREF11) */,
3555 0x0000001e /* 1 (BF) */,
3556 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2474]) + 10),
3557 0x0000100e /* 3 (PRE-CALL 1) */,
3558 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2474]) + 8),
3559 0x0000004d /* 5 (LREF11-PUSH) */,
3560 0x0000105f /* 6 (GREF-CALL 1) */,
3561 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.3c664e00> */,
3562 0x0000003a /* 8 (LSET 0 0) */,
3563 0x00000014 /* 9 (RET) */,
3564 0x0000000c /* 10 (CONSTU-RET) */,
3565 /* with-output-to-port */
3566 0x00000009 /* 0 (CONSTF-PUSH) */,
3567 0x00001017 /* 1 (LOCAL-ENV 1) */,
3568 0x000010e7 /* 2 (BOX 1) */,
3569 0x00000016 /* 3 (CLOSURE) */,
3570 SCM_WORD(SCM_OBJ(&scm__rc.d1569[64])) /* #<compiled-code (with-output-to-port with-output-to-port)@0x7fc33d6669c0> */,
3571 0x0000000d /* 5 (PUSH) */,
3572 0x00000016 /* 6 (CLOSURE) */,
3573 SCM_WORD(SCM_OBJ(&scm__rc.d1569[65])) /* #<compiled-code (with-output-to-port with-output-to-port)@0x7fc33d6667e0> */,
3574 0x00002018 /* 8 (PUSH-LOCAL-ENV 2) */,
3575 0x0000000e /* 9 (PRE-CALL 0) */,
3576 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2485]) + 13),
3577 0x0000003d /* 11 (LREF0) */,
3578 0x0000001c /* 12 (LOCAL-ENV-CALL 0) */,
3579 0x00000048 /* 13 (LREF0-PUSH) */,
3580 0x0000003e /* 14 (LREF1) */,
3581 0x000000e5 /* 15 (PUSH-HANDLERS) */,
3582 0x0000000e /* 16 (PRE-CALL 0) */,
3583 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2485]) + 20),
3584 0x00000044 /* 18 (LREF20) */,
3585 0x00000011 /* 19 (CALL 0) */,
3586 0x00400036 /* 20 (TAIL-RECEIVE 0 1) */,
3587 0x000000e6 /* 21 (POP-HANDLERS) */,
3588 0x0000000e /* 22 (PRE-CALL 0) */,
3589 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2485]) + 26),
3590 0x00000042 /* 24 (LREF11) */,
3591 0x0000001c /* 25 (LOCAL-ENV-CALL 0) */,
3592 0x0000005e /* 26 (GREF-PUSH) */,
3593 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.403ba0c0> */,
3594 0x0000003d /* 28 (LREF0) */,
3595 0x00002095 /* 29 (TAIL-APPLY 2) */,
3596 0x00000014 /* 30 (RET) */,
3597 /* (with-error-to-port with-error-to-port) */
3598 0x000000ea /* 0 (LREF-UNBOX 0 0) */,
3599 0x0000001e /* 1 (BF) */,
3600 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2516]) + 7),
3601 0x000000ea /* 3 (LREF-UNBOX 0 0) */,
3602 0x00001063 /* 4 (PUSH-GREF-TAIL-CALL 1) */,
3603 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.3e4b7540> */,
3604 0x00000014 /* 6 (RET) */,
3605 0x0000000c /* 7 (CONSTU-RET) */,
3606 /* (with-error-to-port with-error-to-port) */
3607 0x00000042 /* 0 (LREF11) */,
3608 0x0000001e /* 1 (BF) */,
3609 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2524]) + 10),
3610 0x0000100e /* 3 (PRE-CALL 1) */,
3611 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2524]) + 8),
3612 0x0000004d /* 5 (LREF11-PUSH) */,
3613 0x0000105f /* 6 (GREF-CALL 1) */,
3614 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.3e4b7740> */,
3615 0x0000003a /* 8 (LSET 0 0) */,
3616 0x00000014 /* 9 (RET) */,
3617 0x0000000c /* 10 (CONSTU-RET) */,
3618 /* with-error-to-port */
3619 0x00000009 /* 0 (CONSTF-PUSH) */,
3620 0x00001017 /* 1 (LOCAL-ENV 1) */,
3621 0x000010e7 /* 2 (BOX 1) */,
3622 0x00000016 /* 3 (CLOSURE) */,
3623 SCM_WORD(SCM_OBJ(&scm__rc.d1569[67])) /* #<compiled-code (with-error-to-port with-error-to-port)@0x7fc33d666480> */,
3624 0x0000000d /* 5 (PUSH) */,
3625 0x00000016 /* 6 (CLOSURE) */,
3626 SCM_WORD(SCM_OBJ(&scm__rc.d1569[68])) /* #<compiled-code (with-error-to-port with-error-to-port)@0x7fc33d666420> */,
3627 0x00002018 /* 8 (PUSH-LOCAL-ENV 2) */,
3628 0x0000000e /* 9 (PRE-CALL 0) */,
3629 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2535]) + 13),
3630 0x0000003d /* 11 (LREF0) */,
3631 0x0000001c /* 12 (LOCAL-ENV-CALL 0) */,
3632 0x00000048 /* 13 (LREF0-PUSH) */,
3633 0x0000003e /* 14 (LREF1) */,
3634 0x000000e5 /* 15 (PUSH-HANDLERS) */,
3635 0x0000000e /* 16 (PRE-CALL 0) */,
3636 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2535]) + 20),
3637 0x00000044 /* 18 (LREF20) */,
3638 0x00000011 /* 19 (CALL 0) */,
3639 0x00400036 /* 20 (TAIL-RECEIVE 0 1) */,
3640 0x000000e6 /* 21 (POP-HANDLERS) */,
3641 0x0000000e /* 22 (PRE-CALL 0) */,
3642 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2535]) + 26),
3643 0x00000042 /* 24 (LREF11) */,
3644 0x0000001c /* 25 (LOCAL-ENV-CALL 0) */,
3645 0x0000005e /* 26 (GREF-PUSH) */,
3646 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.403ba0c0> */,
3647 0x0000003d /* 28 (LREF0) */,
3648 0x00002095 /* 29 (TAIL-APPLY 2) */,
3649 0x00000014 /* 30 (RET) */,
3650 /* (with-ports with-ports) */
3651 0x008000ea /* 0 (LREF-UNBOX 0 2) */,
3652 0x0000001e /* 1 (BF) */,
3653 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 10),
3654 0x0000100e /* 3 (PRE-CALL 1) */,
3655 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 10),
3656 0x008000ea /* 5 (LREF-UNBOX 0 2) */,
3657 0x00001062 /* 6 (PUSH-GREF-CALL 1) */,
3658 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.3dbc4580> */,
3659 0x00000013 /* 8 (JUMP) */,
3660 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 10),
3661 0x004000ea /* 10 (LREF-UNBOX 0 1) */,
3662 0x0000001e /* 11 (BF) */,
3663 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 20),
3664 0x0000100e /* 13 (PRE-CALL 1) */,
3665 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 20),
3666 0x004000ea /* 15 (LREF-UNBOX 0 1) */,
3667 0x00001062 /* 16 (PUSH-GREF-CALL 1) */,
3668 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.3dbc44e0> */,
3669 0x00000013 /* 18 (JUMP) */,
3670 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 20),
3671 0x000000ea /* 20 (LREF-UNBOX 0 0) */,
3672 0x0000001e /* 21 (BF) */,
3673 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]) + 27),
3674 0x000000ea /* 23 (LREF-UNBOX 0 0) */,
3675 0x00001063 /* 24 (PUSH-GREF-TAIL-CALL 1) */,
3676 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.3dbc4400> */,
3677 0x00000014 /* 26 (RET) */,
3678 0x0000000c /* 27 (CONSTU-RET) */,
3679 /* (with-ports with-ports) */
3680 0x00c0103c /* 0 (LREF 1 3) */,
3681 0x0000001e /* 1 (BF) */,
3682 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 11),
3683 0x0000100e /* 3 (PRE-CALL 1) */,
3684 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 8),
3685 0x00c01047 /* 5 (LREF-PUSH 1 3) */,
3686 0x0000105f /* 6 (GREF-CALL 1) */,
3687 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-input-port.3dbc4880> */,
3688 0x0080003a /* 8 (LSET 0 2) */,
3689 0x00000013 /* 9 (JUMP) */,
3690 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 11),
3691 0x00000043 /* 11 (LREF12) */,
3692 0x0000001e /* 12 (BF) */,
3693 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 22),
3694 0x0000100e /* 14 (PRE-CALL 1) */,
3695 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 19),
3696 0x0000004e /* 16 (LREF12-PUSH) */,
3697 0x0000105f /* 17 (GREF-CALL 1) */,
3698 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-output-port.3dbc47a0> */,
3699 0x0040003a /* 19 (LSET 0 1) */,
3700 0x00000013 /* 20 (JUMP) */,
3701 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 22),
3702 0x00000042 /* 22 (LREF11) */,
3703 0x0000001e /* 23 (BF) */,
3704 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 32),
3705 0x0000100e /* 25 (PRE-CALL 1) */,
3706 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]) + 30),
3707 0x0000004d /* 27 (LREF11-PUSH) */,
3708 0x0000105f /* 28 (GREF-CALL 1) */,
3709 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#current-error-port.3dbc4700> */,
3710 0x0000003a /* 30 (LSET 0 0) */,
3711 0x00000014 /* 31 (RET) */,
3712 0x0000000c /* 32 (CONSTU-RET) */,
3713 /* with-ports */
3714 0x00000009 /* 0 (CONSTF-PUSH) */,
3715 0x00000009 /* 1 (CONSTF-PUSH) */,
3716 0x00000009 /* 2 (CONSTF-PUSH) */,
3717 0x00003017 /* 3 (LOCAL-ENV 3) */,
3718 0x000030e7 /* 4 (BOX 3) */,
3719 0x000020e7 /* 5 (BOX 2) */,
3720 0x000010e7 /* 6 (BOX 1) */,
3721 0x00000016 /* 7 (CLOSURE) */,
3722 SCM_WORD(SCM_OBJ(&scm__rc.d1569[70])) /* #<compiled-code (with-ports with-ports)@0x7fc33d6660c0> */,
3723 0x0000000d /* 9 (PUSH) */,
3724 0x00000016 /* 10 (CLOSURE) */,
3725 SCM_WORD(SCM_OBJ(&scm__rc.d1569[71])) /* #<compiled-code (with-ports with-ports)@0x7fc33d666060> */,
3726 0x00002018 /* 12 (PUSH-LOCAL-ENV 2) */,
3727 0x0000000e /* 13 (PRE-CALL 0) */,
3728 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2627]) + 17),
3729 0x0000003d /* 15 (LREF0) */,
3730 0x0000001c /* 16 (LOCAL-ENV-CALL 0) */,
3731 0x00000048 /* 17 (LREF0-PUSH) */,
3732 0x0000003e /* 18 (LREF1) */,
3733 0x000000e5 /* 19 (PUSH-HANDLERS) */,
3734 0x0000000e /* 20 (PRE-CALL 0) */,
3735 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2627]) + 24),
3736 0x00000044 /* 22 (LREF20) */,
3737 0x00000011 /* 23 (CALL 0) */,
3738 0x00400036 /* 24 (TAIL-RECEIVE 0 1) */,
3739 0x000000e6 /* 25 (POP-HANDLERS) */,
3740 0x0000000e /* 26 (PRE-CALL 0) */,
3741 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2627]) + 30),
3742 0x00000042 /* 28 (LREF11) */,
3743 0x0000001c /* 29 (LOCAL-ENV-CALL 0) */,
3744 0x0000005e /* 30 (GREF-PUSH) */,
3745 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#values.403ba0c0> */,
3746 0x0000003d /* 32 (LREF0) */,
3747 0x00002095 /* 33 (TAIL-APPLY 2) */,
3748 0x00000014 /* 34 (RET) */,
3749 /* #f */
3750 0x0000100e /* 0 (PRE-CALL 1) */,
3751 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2662]) + 6),
3752 0x00000006 /* 2 (CONST-PUSH) */,
3753 SCM_WORD(SCM_OBJ(&scm__sc.d1561[291])) /* "Reading R6RS source file. Note that Gauche is not R6RS compliant." */,
3754 0x0000105f /* 4 (GREF-CALL 1) */,
3755 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#warn.3d2367a0> */,
3756 0x000000a3 /* 6 (VALUES-RET 0) */,
3757 /* %toplevel */
3758 0x00000006 /* 0 (CONST-PUSH) */,
3759 SCM_WORD(SCM_UNDEFINED) /* r6rs */,
3760 0x00000016 /* 2 (CLOSURE) */,
3761 SCM_WORD(SCM_OBJ(&scm__rc.d1569[73])) /* #<compiled-code #f@0x7fc33d653600> */,
3762 0x00002063 /* 4 (PUSH-GREF-TAIL-CALL 2) */,
3763 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3d236940> */,
3764 0x00000014 /* 6 (RET) */,
3765 /* #f */
3766 0x0000200e /* 0 (PRE-CALL 2) */,
3767 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2676]) + 7),
3768 0x00000049 /* 2 (LREF1-PUSH) */,
3769 0x00000006 /* 3 (CONST-PUSH) */,
3770 SCM_WORD(SCM_TRUE) /* #t */,
3771 0x0000205f /* 5 (GREF-CALL 2) */,
3772 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-case-fold-set!.3d339ce0> */,
3773 0x000000a3 /* 7 (VALUES-RET 0) */,
3774 /* %toplevel */
3775 0x00000006 /* 0 (CONST-PUSH) */,
3776 SCM_WORD(SCM_UNDEFINED) /* fold-case */,
3777 0x00000016 /* 2 (CLOSURE) */,
3778 SCM_WORD(SCM_OBJ(&scm__rc.d1569[75])) /* #<compiled-code #f@0x7fc33d653360> */,
3779 0x00002063 /* 4 (PUSH-GREF-TAIL-CALL 2) */,
3780 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3d334140> */,
3781 0x00000014 /* 6 (RET) */,
3782 /* #f */
3783 0x0000200e /* 0 (PRE-CALL 2) */,
3784 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2691]) + 6),
3785 0x00000049 /* 2 (LREF1-PUSH) */,
3786 0x00000009 /* 3 (CONSTF-PUSH) */,
3787 0x0000205f /* 4 (GREF-CALL 2) */,
3788 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-case-fold-set!.3d3e08c0> */,
3789 0x000000a3 /* 6 (VALUES-RET 0) */,
3790 /* %toplevel */
3791 0x00000006 /* 0 (CONST-PUSH) */,
3792 SCM_WORD(SCM_UNDEFINED) /* no-fold-case */,
3793 0x00000016 /* 2 (CLOSURE) */,
3794 SCM_WORD(SCM_OBJ(&scm__rc.d1569[77])) /* #<compiled-code #f@0x7fc33d001720> */,
3795 0x00002063 /* 4 (PUSH-GREF-TAIL-CALL 2) */,
3796 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3d3e0ae0> */,
3797 0x00000014 /* 6 (RET) */,
3798 /* #f */
3799 0x0000300e /* 0 (PRE-CALL 3) */,
3800 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2705]) + 9),
3801 0x00000049 /* 2 (LREF1-PUSH) */,
3802 0x00000006 /* 3 (CONST-PUSH) */,
3803 SCM_WORD(SCM_UNDEFINED) /* reader-lexical-mode */,
3804 0x00000006 /* 5 (CONST-PUSH) */,
3805 SCM_WORD(SCM_UNDEFINED) /* legacy */,
3806 0x0000305f /* 7 (GREF-CALL 3) */,
3807 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-attribute-set!.3ccde760> */,
3808 0x000000a3 /* 9 (VALUES-RET 0) */,
3809 /* %toplevel */
3810 0x00000006 /* 0 (CONST-PUSH) */,
3811 SCM_WORD(SCM_UNDEFINED) /* gauche-legacy */,
3812 0x00000016 /* 2 (CLOSURE) */,
3813 SCM_WORD(SCM_OBJ(&scm__rc.d1569[79])) /* #<compiled-code #f@0x7fc33d0012a0> */,
3814 0x00002063 /* 4 (PUSH-GREF-TAIL-CALL 2) */,
3815 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3ccdea60> */,
3816 0x00000014 /* 6 (RET) */,
3817 /* #f */
3818 0x0000300e /* 0 (PRE-CALL 3) */,
3819 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1568[2722]) + 9),
3820 0x00000049 /* 2 (LREF1-PUSH) */,
3821 0x00000006 /* 3 (CONST-PUSH) */,
3822 SCM_WORD(SCM_UNDEFINED) /* reader-lexical-mode */,
3823 0x00000006 /* 5 (CONST-PUSH) */,
3824 SCM_WORD(SCM_UNDEFINED) /* strict-r7 */,
3825 0x0000305f /* 7 (GREF-CALL 3) */,
3826 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#port-attribute-set!.3cd81f80> */,
3827 0x000000a3 /* 9 (VALUES-RET 0) */,
3828 /* %toplevel */
3829 0x00000006 /* 0 (CONST-PUSH) */,
3830 SCM_WORD(SCM_UNDEFINED) /* r7rs */,
3831 0x00000016 /* 2 (CLOSURE) */,
3832 SCM_WORD(SCM_OBJ(&scm__rc.d1569[81])) /* #<compiled-code #f@0x7fc33d027e40> */,
3833 0x00002063 /* 4 (PUSH-GREF-TAIL-CALL 2) */,
3834 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-directive.3cd7c1c0> */,
3835 0x00000014 /* 6 (RET) */,
3836 },
3837 { /* ScmPair d1563 */
3838 { SCM_NIL, SCM_NIL },
3839 { SCM_UNDEFINED, SCM_NIL},
3840 { SCM_MAKE_INT(54U), SCM_NIL},
3841 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[2])},
3842 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[3])},
3843 { SCM_UNDEFINED, SCM_NIL},
3844 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[5])},
3845 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])},
3846 { SCM_OBJ(&scm__rc.d1563[7]), SCM_NIL},
3847 { SCM_OBJ(&scm__rc.d1563[4]), SCM_OBJ(&scm__rc.d1563[8])},
3848 { SCM_MAKE_INT(55U), SCM_NIL},
3849 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[10])},
3850 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[11])},
3851 { SCM_UNDEFINED, SCM_NIL},
3852 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[13])},
3853 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[14])},
3854 { SCM_OBJ(&scm__rc.d1563[15]), SCM_NIL},
3855 { SCM_OBJ(&scm__rc.d1563[12]), SCM_OBJ(&scm__rc.d1563[16])},
3856 { SCM_MAKE_INT(56U), SCM_NIL},
3857 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[18])},
3858 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[19])},
3859 { SCM_UNDEFINED, SCM_NIL},
3860 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[21])},
3861 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[22])},
3862 { SCM_OBJ(&scm__rc.d1563[23]), SCM_NIL},
3863 { SCM_OBJ(&scm__rc.d1563[20]), SCM_OBJ(&scm__rc.d1563[24])},
3864 { SCM_MAKE_INT(59U), SCM_NIL},
3865 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[26])},
3866 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[27])},
3867 { SCM_UNDEFINED, SCM_NIL},
3868 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[29])},
3869 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])},
3870 { SCM_OBJ(&scm__rc.d1563[31]), SCM_NIL},
3871 { SCM_OBJ(&scm__rc.d1563[28]), SCM_OBJ(&scm__rc.d1563[32])},
3872 { SCM_UNDEFINED, SCM_NIL},
3873 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[34])},
3874 { SCM_MAKE_INT(67U), SCM_NIL},
3875 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[36])},
3876 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[37])},
3877 { SCM_UNDEFINED, SCM_NIL},
3878 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[39])},
3879 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[40])},
3880 { SCM_OBJ(&scm__rc.d1563[41]), SCM_NIL},
3881 { SCM_OBJ(&scm__rc.d1563[38]), SCM_OBJ(&scm__rc.d1563[42])},
3882 { SCM_MAKE_INT(75U), SCM_NIL},
3883 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[44])},
3884 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[45])},
3885 { SCM_UNDEFINED, SCM_NIL},
3886 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
3887 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
3888 { SCM_OBJ(&scm__rc.d1563[49]), SCM_NIL},
3889 { SCM_OBJ(&scm__rc.d1563[46]), SCM_OBJ(&scm__rc.d1563[50])},
3890 { SCM_MAKE_INT(85U), SCM_NIL},
3891 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[52])},
3892 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[53])},
3893 { SCM_UNDEFINED, SCM_NIL},
3894 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[55])},
3895 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[56])},
3896 { SCM_OBJ(&scm__rc.d1563[57]), SCM_NIL},
3897 { SCM_OBJ(&scm__rc.d1563[54]), SCM_OBJ(&scm__rc.d1563[58])},
3898 { SCM_UNDEFINED, SCM_NIL},
3899 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[60])},
3900 { SCM_MAKE_INT(93U), SCM_NIL},
3901 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[62])},
3902 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[63])},
3903 { SCM_UNDEFINED, SCM_NIL},
3904 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[65])},
3905 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[66])},
3906 { SCM_OBJ(&scm__rc.d1563[67]), SCM_NIL},
3907 { SCM_OBJ(&scm__rc.d1563[64]), SCM_OBJ(&scm__rc.d1563[68])},
3908 { SCM_MAKE_INT(95U), SCM_NIL},
3909 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[70])},
3910 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[71])},
3911 { SCM_UNDEFINED, SCM_NIL},
3912 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[73])},
3913 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[74])},
3914 { SCM_OBJ(&scm__rc.d1563[75]), SCM_NIL},
3915 { SCM_OBJ(&scm__rc.d1563[72]), SCM_OBJ(&scm__rc.d1563[76])},
3916 { SCM_MAKE_INT(97U), SCM_NIL},
3917 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[78])},
3918 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[79])},
3919 { SCM_UNDEFINED, SCM_NIL},
3920 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[81])},
3921 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[82])},
3922 { SCM_OBJ(&scm__rc.d1563[83]), SCM_NIL},
3923 { SCM_OBJ(&scm__rc.d1563[80]), SCM_OBJ(&scm__rc.d1563[84])},
3924 { SCM_UNDEFINED, SCM_NIL},
3925 { SCM_MAKE_INT(112U), SCM_NIL},
3926 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[87])},
3927 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[88])},
3928 { SCM_UNDEFINED, SCM_NIL},
3929 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[90])},
3930 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[91])},
3931 { SCM_OBJ(&scm__rc.d1563[92]), SCM_NIL},
3932 { SCM_OBJ(&scm__rc.d1563[89]), SCM_OBJ(&scm__rc.d1563[93])},
3933 { SCM_MAKE_INT(113U), SCM_NIL},
3934 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[95])},
3935 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[96])},
3936 { SCM_UNDEFINED, SCM_NIL},
3937 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[98])},
3938 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[99])},
3939 { SCM_OBJ(&scm__rc.d1563[100]), SCM_NIL},
3940 { SCM_OBJ(&scm__rc.d1563[97]), SCM_OBJ(&scm__rc.d1563[101])},
3941 { SCM_UNDEFINED, SCM_NIL},
3942 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[103])},
3943 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[104])},
3944 { SCM_MAKE_INT(115U), SCM_NIL},
3945 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[106])},
3946 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[107])},
3947 { SCM_UNDEFINED, SCM_NIL},
3948 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[109])},
3949 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[110])},
3950 { SCM_OBJ(&scm__rc.d1563[111]), SCM_NIL},
3951 { SCM_OBJ(&scm__rc.d1563[108]), SCM_OBJ(&scm__rc.d1563[112])},
3952 { SCM_UNDEFINED, SCM_NIL},
3953 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[114])},
3954 { SCM_MAKE_INT(124U), SCM_NIL},
3955 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[116])},
3956 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[117])},
3957 { SCM_UNDEFINED, SCM_NIL},
3958 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[119])},
3959 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[120])},
3960 { SCM_OBJ(&scm__rc.d1563[121]), SCM_NIL},
3961 { SCM_OBJ(&scm__rc.d1563[118]), SCM_OBJ(&scm__rc.d1563[122])},
3962 { SCM_UNDEFINED, SCM_NIL},
3963 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[124])},
3964 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[125])},
3965 { SCM_MAKE_INT(126U), SCM_NIL},
3966 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[127])},
3967 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[128])},
3968 { SCM_UNDEFINED, SCM_NIL},
3969 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[130])},
3970 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[131])},
3971 { SCM_OBJ(&scm__rc.d1563[132]), SCM_NIL},
3972 { SCM_OBJ(&scm__rc.d1563[129]), SCM_OBJ(&scm__rc.d1563[133])},
3973 { SCM_UNDEFINED, SCM_NIL},
3974 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[135])},
3975 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[136])},
3976 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[137])},
3977 { SCM_MAKE_INT(128U), SCM_NIL},
3978 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[139])},
3979 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[140])},
3980 { SCM_UNDEFINED, SCM_NIL},
3981 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[142])},
3982 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[143])},
3983 { SCM_OBJ(&scm__rc.d1563[144]), SCM_NIL},
3984 { SCM_OBJ(&scm__rc.d1563[141]), SCM_OBJ(&scm__rc.d1563[145])},
3985 { SCM_UNDEFINED, SCM_NIL},
3986 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[147])},
3987 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[148])},
3988 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[149])},
3989 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[150])},
3990 { SCM_MAKE_INT(131U), SCM_NIL},
3991 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[152])},
3992 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[153])},
3993 { SCM_UNDEFINED, SCM_NIL},
3994 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[155])},
3995 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[156])},
3996 { SCM_OBJ(&scm__rc.d1563[157]), SCM_NIL},
3997 { SCM_OBJ(&scm__rc.d1563[154]), SCM_OBJ(&scm__rc.d1563[158])},
3998 { SCM_UNDEFINED, SCM_NIL},
3999 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[160])},
4000 { SCM_MAKE_INT(134U), SCM_NIL},
4001 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[162])},
4002 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[163])},
4003 { SCM_UNDEFINED, SCM_NIL},
4004 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[165])},
4005 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[166])},
4006 { SCM_OBJ(&scm__rc.d1563[167]), SCM_NIL},
4007 { SCM_OBJ(&scm__rc.d1563[164]), SCM_OBJ(&scm__rc.d1563[168])},
4008 { SCM_MAKE_INT(136U), SCM_NIL},
4009 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[170])},
4010 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[171])},
4011 { SCM_UNDEFINED, SCM_NIL},
4012 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[173])},
4013 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[174])},
4014 { SCM_OBJ(&scm__rc.d1563[175]), SCM_NIL},
4015 { SCM_OBJ(&scm__rc.d1563[172]), SCM_OBJ(&scm__rc.d1563[176])},
4016 { SCM_MAKE_INT(140U), SCM_NIL},
4017 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[178])},
4018 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[179])},
4019 { SCM_UNDEFINED, SCM_NIL},
4020 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[181])},
4021 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[182])},
4022 { SCM_OBJ(&scm__rc.d1563[183]), SCM_NIL},
4023 { SCM_OBJ(&scm__rc.d1563[180]), SCM_OBJ(&scm__rc.d1563[184])},
4024 { SCM_MAKE_INT(147U), SCM_NIL},
4025 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[186])},
4026 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[187])},
4027 { SCM_UNDEFINED, SCM_NIL},
4028 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[189])},
4029 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[190])},
4030 { SCM_OBJ(&scm__rc.d1563[191]), SCM_NIL},
4031 { SCM_OBJ(&scm__rc.d1563[188]), SCM_OBJ(&scm__rc.d1563[192])},
4032 { SCM_UNDEFINED, SCM_NIL},
4033 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])},
4034 { SCM_MAKE_INT(155U), SCM_NIL},
4035 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[196])},
4036 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[197])},
4037 { SCM_UNDEFINED, SCM_NIL},
4038 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[199])},
4039 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[200])},
4040 { SCM_OBJ(&scm__rc.d1563[201]), SCM_NIL},
4041 { SCM_OBJ(&scm__rc.d1563[198]), SCM_OBJ(&scm__rc.d1563[202])},
4042 { SCM_MAKE_INT(165U), SCM_NIL},
4043 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[204])},
4044 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[205])},
4045 { SCM_UNDEFINED, SCM_NIL},
4046 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[207])},
4047 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[208])},
4048 { SCM_OBJ(&scm__rc.d1563[209]), SCM_NIL},
4049 { SCM_OBJ(&scm__rc.d1563[206]), SCM_OBJ(&scm__rc.d1563[210])},
4050 { SCM_MAKE_INT(166U), SCM_NIL},
4051 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[212])},
4052 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[213])},
4053 { SCM_UNDEFINED, SCM_NIL},
4054 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[215])},
4055 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[216])},
4056 { SCM_OBJ(&scm__rc.d1563[217]), SCM_NIL},
4057 { SCM_OBJ(&scm__rc.d1563[214]), SCM_OBJ(&scm__rc.d1563[218])},
4058 { SCM_MAKE_INT(168U), SCM_NIL},
4059 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[220])},
4060 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[221])},
4061 { SCM_UNDEFINED, SCM_NIL},
4062 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[223])},
4063 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[224])},
4064 { SCM_OBJ(&scm__rc.d1563[225]), SCM_NIL},
4065 { SCM_OBJ(&scm__rc.d1563[222]), SCM_OBJ(&scm__rc.d1563[226])},
4066 { SCM_UNDEFINED, SCM_NIL},
4067 { SCM_MAKE_INT(197U), SCM_NIL},
4068 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[229])},
4069 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[230])},
4070 { SCM_UNDEFINED, SCM_NIL},
4071 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[232])},
4072 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])},
4073 { SCM_OBJ(&scm__rc.d1563[234]), SCM_NIL},
4074 { SCM_OBJ(&scm__rc.d1563[231]), SCM_OBJ(&scm__rc.d1563[235])},
4075 { SCM_MAKE_INT(224U), SCM_NIL},
4076 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[237])},
4077 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[238])},
4078 { SCM_UNDEFINED, SCM_NIL},
4079 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[240])},
4080 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[241])},
4081 { SCM_OBJ(&scm__rc.d1563[242]), SCM_NIL},
4082 { SCM_OBJ(&scm__rc.d1563[239]), SCM_OBJ(&scm__rc.d1563[243])},
4083 { SCM_UNDEFINED, SCM_NIL},
4084 { SCM_MAKE_INT(273U), SCM_NIL},
4085 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[246])},
4086 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[247])},
4087 { SCM_UNDEFINED, SCM_NIL},
4088 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[249])},
4089 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[250])},
4090 { SCM_OBJ(&scm__rc.d1563[251]), SCM_NIL},
4091 { SCM_OBJ(&scm__rc.d1563[248]), SCM_OBJ(&scm__rc.d1563[252])},
4092 { SCM_MAKE_INT(292U), SCM_NIL},
4093 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[254])},
4094 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[255])},
4095 { SCM_UNDEFINED, SCM_NIL},
4096 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[257])},
4097 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[258])},
4098 { SCM_OBJ(&scm__rc.d1563[259]), SCM_NIL},
4099 { SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[260])},
4100 { SCM_UNDEFINED, SCM_NIL},
4101 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[262])},
4102 { SCM_MAKE_INT(342U), SCM_NIL},
4103 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[264])},
4104 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[265])},
4105 { SCM_UNDEFINED, SCM_NIL},
4106 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[267])},
4107 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[268])},
4108 { SCM_OBJ(&scm__rc.d1563[269]), SCM_NIL},
4109 { SCM_OBJ(&scm__rc.d1563[266]), SCM_OBJ(&scm__rc.d1563[270])},
4110 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[262])},
4111 { SCM_MAKE_INT(367U), SCM_NIL},
4112 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[273])},
4113 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[274])},
4114 { SCM_UNDEFINED, SCM_NIL},
4115 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[276])},
4116 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[277])},
4117 { SCM_OBJ(&scm__rc.d1563[278]), SCM_NIL},
4118 { SCM_OBJ(&scm__rc.d1563[275]), SCM_OBJ(&scm__rc.d1563[279])},
4119 { SCM_UNDEFINED, SCM_NIL},
4120 { SCM_MAKE_INT(390U), SCM_NIL},
4121 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[282])},
4122 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[283])},
4123 { SCM_UNDEFINED, SCM_NIL},
4124 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[285])},
4125 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[286])},
4126 { SCM_OBJ(&scm__rc.d1563[287]), SCM_NIL},
4127 { SCM_OBJ(&scm__rc.d1563[284]), SCM_OBJ(&scm__rc.d1563[288])},
4128 { SCM_MAKE_INT(396U), SCM_NIL},
4129 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[290])},
4130 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[291])},
4131 { SCM_UNDEFINED, SCM_NIL},
4132 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[293])},
4133 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[294])},
4134 { SCM_OBJ(&scm__rc.d1563[295]), SCM_NIL},
4135 { SCM_OBJ(&scm__rc.d1563[292]), SCM_OBJ(&scm__rc.d1563[296])},
4136 { SCM_UNDEFINED, SCM_NIL},
4137 { SCM_MAKE_INT(401U), SCM_NIL},
4138 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[299])},
4139 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[300])},
4140 { SCM_UNDEFINED, SCM_NIL},
4141 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[302])},
4142 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[303])},
4143 { SCM_OBJ(&scm__rc.d1563[304]), SCM_NIL},
4144 { SCM_OBJ(&scm__rc.d1563[301]), SCM_OBJ(&scm__rc.d1563[305])},
4145 { SCM_MAKE_INT(404U), SCM_NIL},
4146 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[307])},
4147 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[308])},
4148 { SCM_UNDEFINED, SCM_NIL},
4149 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[310])},
4150 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[311])},
4151 { SCM_OBJ(&scm__rc.d1563[312]), SCM_NIL},
4152 { SCM_OBJ(&scm__rc.d1563[309]), SCM_OBJ(&scm__rc.d1563[313])},
4153 { SCM_UNDEFINED, SCM_NIL},
4154 { SCM_MAKE_INT(407U), SCM_NIL},
4155 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[316])},
4156 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[317])},
4157 { SCM_UNDEFINED, SCM_NIL},
4158 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[319])},
4159 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[320])},
4160 { SCM_OBJ(&scm__rc.d1563[321]), SCM_NIL},
4161 { SCM_OBJ(&scm__rc.d1563[318]), SCM_OBJ(&scm__rc.d1563[322])},
4162 { SCM_MAKE_INT(413U), SCM_NIL},
4163 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[324])},
4164 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[325])},
4165 { SCM_UNDEFINED, SCM_NIL},
4166 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[327])},
4167 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[328])},
4168 { SCM_OBJ(&scm__rc.d1563[329]), SCM_NIL},
4169 { SCM_OBJ(&scm__rc.d1563[326]), SCM_OBJ(&scm__rc.d1563[330])},
4170 { SCM_MAKE_INT(421U), SCM_NIL},
4171 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[332])},
4172 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[333])},
4173 { SCM_UNDEFINED, SCM_NIL},
4174 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[335])},
4175 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[336])},
4176 { SCM_OBJ(&scm__rc.d1563[337]), SCM_NIL},
4177 { SCM_OBJ(&scm__rc.d1563[334]), SCM_OBJ(&scm__rc.d1563[338])},
4178 { SCM_MAKE_INT(423U), SCM_NIL},
4179 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[340])},
4180 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[341])},
4181 { SCM_UNDEFINED, SCM_NIL},
4182 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[343])},
4183 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[344])},
4184 { SCM_OBJ(&scm__rc.d1563[345]), SCM_NIL},
4185 { SCM_OBJ(&scm__rc.d1563[342]), SCM_OBJ(&scm__rc.d1563[346])},
4186 { SCM_MAKE_INT(426U), SCM_NIL},
4187 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[348])},
4188 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[349])},
4189 { SCM_UNDEFINED, SCM_NIL},
4190 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[351])},
4191 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[352])},
4192 { SCM_OBJ(&scm__rc.d1563[353]), SCM_NIL},
4193 { SCM_OBJ(&scm__rc.d1563[350]), SCM_OBJ(&scm__rc.d1563[354])},
4194 { SCM_UNDEFINED, SCM_NIL},
4195 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[356])},
4196 { SCM_MAKE_INT(428U), SCM_NIL},
4197 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[358])},
4198 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[359])},
4199 { SCM_UNDEFINED, SCM_NIL},
4200 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[361])},
4201 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[362])},
4202 { SCM_OBJ(&scm__rc.d1563[363]), SCM_NIL},
4203 { SCM_OBJ(&scm__rc.d1563[360]), SCM_OBJ(&scm__rc.d1563[364])},
4204 { SCM_UNDEFINED, SCM_NIL},
4205 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[366])},
4206 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[367])},
4207 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[368])},
4208 { SCM_MAKE_INT(439U), SCM_NIL},
4209 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[370])},
4210 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[371])},
4211 { SCM_UNDEFINED, SCM_NIL},
4212 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[373])},
4213 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[374])},
4214 { SCM_OBJ(&scm__rc.d1563[375]), SCM_NIL},
4215 { SCM_OBJ(&scm__rc.d1563[372]), SCM_OBJ(&scm__rc.d1563[376])},
4216 { SCM_MAKE_INT(444U), SCM_NIL},
4217 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[378])},
4218 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[379])},
4219 { SCM_UNDEFINED, SCM_NIL},
4220 { SCM_OBJ(&scm__rc.d1563[381]), SCM_NIL},
4221 { SCM_OBJ(&scm__rc.d1563[380]), SCM_OBJ(&scm__rc.d1563[382])},
4222 { SCM_UNDEFINED, SCM_NIL},
4223 { SCM_MAKE_INT(447U), SCM_NIL},
4224 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[385])},
4225 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[386])},
4226 { SCM_OBJ(&scm__rc.d1563[387]), SCM_OBJ(&scm__rc.d1563[382])},
4227 { SCM_UNDEFINED, SCM_NIL},
4228 { SCM_MAKE_INT(460U), SCM_NIL},
4229 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[390])},
4230 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[391])},
4231 { SCM_UNDEFINED, SCM_NIL},
4232 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[393])},
4233 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[394])},
4234 { SCM_OBJ(&scm__rc.d1563[395]), SCM_NIL},
4235 { SCM_OBJ(&scm__rc.d1563[392]), SCM_OBJ(&scm__rc.d1563[396])},
4236 { SCM_MAKE_INT(466U), SCM_NIL},
4237 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[398])},
4238 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[399])},
4239 { SCM_UNDEFINED, SCM_NIL},
4240 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[401])},
4241 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[402])},
4242 { SCM_OBJ(&scm__rc.d1563[403]), SCM_NIL},
4243 { SCM_OBJ(&scm__rc.d1563[400]), SCM_OBJ(&scm__rc.d1563[404])},
4244 { SCM_MAKE_INT(493U), SCM_NIL},
4245 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[406])},
4246 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[407])},
4247 { SCM_UNDEFINED, SCM_NIL},
4248 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[409])},
4249 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[410])},
4250 { SCM_OBJ(&scm__rc.d1563[411]), SCM_NIL},
4251 { SCM_OBJ(&scm__rc.d1563[408]), SCM_OBJ(&scm__rc.d1563[412])},
4252 { SCM_MAKE_INT(501U), SCM_NIL},
4253 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[414])},
4254 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[415])},
4255 { SCM_UNDEFINED, SCM_NIL},
4256 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[417])},
4257 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[418])},
4258 { SCM_OBJ(&scm__rc.d1563[419]), SCM_NIL},
4259 { SCM_OBJ(&scm__rc.d1563[416]), SCM_OBJ(&scm__rc.d1563[420])},
4260 { SCM_MAKE_INT(504U), SCM_NIL},
4261 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[422])},
4262 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[423])},
4263 { SCM_UNDEFINED, SCM_NIL},
4264 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[425])},
4265 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[426])},
4266 { SCM_OBJ(&scm__rc.d1563[427]), SCM_NIL},
4267 { SCM_OBJ(&scm__rc.d1563[424]), SCM_OBJ(&scm__rc.d1563[428])},
4268 { SCM_FALSE, SCM_NIL},
4269 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4270 { SCM_UNDEFINED, SCM_NIL},
4271 { SCM_UNDEFINED, SCM_NIL},
4272 { SCM_MAKE_INT(510U), SCM_NIL},
4273 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[434])},
4274 { SCM_UNDEFINED, SCM_UNDEFINED},
4275 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[436])},
4276 { SCM_MAKE_INT(509U), SCM_NIL},
4277 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[438])},
4278 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[439])},
4279 { SCM_OBJ(&scm__rc.d1563[440]), SCM_OBJ(&scm__rc.d1563[382])},
4280 { SCM_UNDEFINED, SCM_NIL},
4281 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4282 { SCM_UNDEFINED, SCM_NIL},
4283 { SCM_UNDEFINED, SCM_NIL},
4284 { SCM_MAKE_INT(521U), SCM_NIL},
4285 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[446])},
4286 { SCM_UNDEFINED, SCM_UNDEFINED},
4287 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[448])},
4288 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[449])},
4289 { SCM_MAKE_INT(515U), SCM_NIL},
4290 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[451])},
4291 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[452])},
4292 { SCM_OBJ(&scm__rc.d1563[453]), SCM_OBJ(&scm__rc.d1563[382])},
4293 { SCM_UNDEFINED, SCM_NIL},
4294 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
4295 { SCM_MAKE_INT(543U), SCM_NIL},
4296 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[457])},
4297 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[458])},
4298 { SCM_UNDEFINED, SCM_NIL},
4299 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[460])},
4300 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[461])},
4301 { SCM_OBJ(&scm__rc.d1563[462]), SCM_NIL},
4302 { SCM_OBJ(&scm__rc.d1563[459]), SCM_OBJ(&scm__rc.d1563[463])},
4303 { SCM_MAKE_INT(546U), SCM_NIL},
4304 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[465])},
4305 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[466])},
4306 { SCM_UNDEFINED, SCM_NIL},
4307 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[468])},
4308 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[469])},
4309 { SCM_OBJ(&scm__rc.d1563[470]), SCM_NIL},
4310 { SCM_OBJ(&scm__rc.d1563[467]), SCM_OBJ(&scm__rc.d1563[471])},
4311 { SCM_MAKE_INT(552U), SCM_NIL},
4312 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[473])},
4313 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[474])},
4314 { SCM_UNDEFINED, SCM_NIL},
4315 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[476])},
4316 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[477])},
4317 { SCM_OBJ(&scm__rc.d1563[478]), SCM_NIL},
4318 { SCM_OBJ(&scm__rc.d1563[475]), SCM_OBJ(&scm__rc.d1563[479])},
4319 { SCM_MAKE_INT(557U), SCM_NIL},
4320 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[481])},
4321 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[482])},
4322 { SCM_UNDEFINED, SCM_NIL},
4323 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[484])},
4324 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[485])},
4325 { SCM_OBJ(&scm__rc.d1563[486]), SCM_NIL},
4326 { SCM_OBJ(&scm__rc.d1563[483]), SCM_OBJ(&scm__rc.d1563[487])},
4327 { SCM_MAKE_INT(560U), SCM_NIL},
4328 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[489])},
4329 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[490])},
4330 { SCM_UNDEFINED, SCM_NIL},
4331 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[492])},
4332 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[493])},
4333 { SCM_OBJ(&scm__rc.d1563[494]), SCM_NIL},
4334 { SCM_OBJ(&scm__rc.d1563[491]), SCM_OBJ(&scm__rc.d1563[495])},
4335 { SCM_UNDEFINED, SCM_NIL},
4336 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[497])},
4337 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[498])},
4338 { SCM_OBJ(&scm__rc.d1563[499]), SCM_NIL},
4339 { SCM_MAKE_INT(568U), SCM_NIL},
4340 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[501])},
4341 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[502])},
4342 { SCM_UNDEFINED, SCM_NIL},
4343 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[504])},
4344 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[505])},
4345 { SCM_OBJ(&scm__rc.d1563[506]), SCM_NIL},
4346 { SCM_OBJ(&scm__rc.d1563[503]), SCM_OBJ(&scm__rc.d1563[507])},
4347 { SCM_MAKE_INT(573U), SCM_NIL},
4348 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[509])},
4349 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[510])},
4350 { SCM_UNDEFINED, SCM_NIL},
4351 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[512])},
4352 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[513])},
4353 { SCM_OBJ(&scm__rc.d1563[514]), SCM_NIL},
4354 { SCM_OBJ(&scm__rc.d1563[511]), SCM_OBJ(&scm__rc.d1563[515])},
4355 { SCM_MAKE_INT(580U), SCM_NIL},
4356 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[517])},
4357 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[518])},
4358 { SCM_UNDEFINED, SCM_NIL},
4359 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[520])},
4360 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[521])},
4361 { SCM_OBJ(&scm__rc.d1563[522]), SCM_NIL},
4362 { SCM_OBJ(&scm__rc.d1563[519]), SCM_OBJ(&scm__rc.d1563[523])},
4363 { SCM_UNDEFINED, SCM_NIL},
4364 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[525])},
4365 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[526])},
4366 { SCM_MAKE_INT(586U), SCM_NIL},
4367 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[528])},
4368 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[529])},
4369 { SCM_UNDEFINED, SCM_NIL},
4370 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[531])},
4371 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[532])},
4372 { SCM_OBJ(&scm__rc.d1563[533]), SCM_NIL},
4373 { SCM_OBJ(&scm__rc.d1563[530]), SCM_OBJ(&scm__rc.d1563[534])},
4374 { SCM_OBJ(&scm__rc.d1563[39]), SCM_NIL},
4375 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[536])},
4376 { SCM_OBJ(&scm__rc.d1563[537]), SCM_NIL},
4377 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[538])},
4378 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[539])},
4379 { SCM_TRUE, SCM_NIL},
4380 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[541])},
4381 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[542])},
4382 { SCM_OBJ(&scm__rc.d1563[543]), SCM_NIL},
4383 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[544])},
4384 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[545])},
4385 { SCM_MAKE_INT(0), SCM_NIL},
4386 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[547])},
4387 { SCM_OBJ(&scm__rc.d1563[548]), SCM_NIL},
4388 { SCM_UNDEFINED, SCM_NIL},
4389 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[550])},
4390 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[551])},
4391 { SCM_UNDEFINED, SCM_NIL},
4392 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[553])},
4393 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
4394 { SCM_UNDEFINED, SCM_NIL},
4395 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[556])},
4396 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[548])},
4397 { SCM_OBJ(&scm__rc.d1563[554]), SCM_NIL},
4398 { SCM_OBJ(&scm__rc.d1563[497]), SCM_OBJ(&scm__rc.d1563[559])},
4399 { SCM_OBJ(&scm__rc.d1563[558]), SCM_OBJ(&scm__rc.d1563[560])},
4400 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[561])},
4401 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[553])},
4402 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[563])},
4403 { SCM_MAKE_INT(1U), SCM_NIL},
4404 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[565])},
4405 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[566])},
4406 { SCM_OBJ(&scm__rc.d1563[567]), SCM_NIL},
4407 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[568])},
4408 { SCM_OBJ(&scm__rc.d1563[569]), SCM_NIL},
4409 { SCM_OBJ(&scm__rc.d1563[564]), SCM_OBJ(&scm__rc.d1563[570])},
4410 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[571])},
4411 { SCM_OBJ(&scm__rc.d1563[572]), SCM_NIL},
4412 { SCM_OBJ(&scm__rc.d1563[562]), SCM_OBJ(&scm__rc.d1563[573])},
4413 { SCM_OBJ(&scm__rc.d1563[557]), SCM_OBJ(&scm__rc.d1563[574])},
4414 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[575])},
4415 { SCM_OBJ(&scm__rc.d1563[576]), SCM_NIL},
4416 { SCM_OBJ(&scm__rc.d1563[555]), SCM_OBJ(&scm__rc.d1563[577])},
4417 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[578])},
4418 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[579])},
4419 { SCM_OBJ(&scm__rc.d1563[580]), SCM_NIL},
4420 { SCM_OBJ(&scm__rc.d1563[554]), SCM_OBJ(&scm__rc.d1563[581])},
4421 { SCM_OBJ(&scm__rc.d1563[552]), SCM_OBJ(&scm__rc.d1563[582])},
4422 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[583])},
4423 { SCM_OBJ(&scm__rc.d1563[584]), SCM_NIL},
4424 { SCM_OBJ(&scm__rc.d1563[549]), SCM_OBJ(&scm__rc.d1563[585])},
4425 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[586])},
4426 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[587])},
4427 { SCM_OBJ(&scm__rc.d1563[588]), SCM_NIL},
4428 { SCM_OBJ(&scm__rc.d1563[546]), SCM_OBJ(&scm__rc.d1563[589])},
4429 { SCM_OBJ(&scm__rc.d1563[540]), SCM_OBJ(&scm__rc.d1563[590])},
4430 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[591])},
4431 { SCM_UNDEFINED, SCM_NIL},
4432 { SCM_MAKE_INT(595U), SCM_NIL},
4433 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[594])},
4434 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[595])},
4435 { SCM_OBJ(&scm__rc.d1563[596]), SCM_OBJ(&scm__rc.d1563[382])},
4436 { SCM_UNDEFINED, SCM_NIL},
4437 { SCM_OBJ(&scm__rc.d1563[47]), SCM_NIL},
4438 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[599])},
4439 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[547])},
4440 { SCM_MAKE_INT(-1), SCM_NIL},
4441 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[602])},
4442 { SCM_OBJ(&scm__rc.d1563[603]), SCM_NIL},
4443 { SCM_OBJ(&scm__rc.d1563[601]), SCM_OBJ(&scm__rc.d1563[604])},
4444 { SCM_OBJ(&scm__rc.d1563[600]), SCM_OBJ(&scm__rc.d1563[605])},
4445 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[606])},
4446 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[607])},
4447 { SCM_UNDEFINED, SCM_NIL},
4448 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[609])},
4449 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[610])},
4450 { SCM_UNDEFINED, SCM_NIL},
4451 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[612])},
4452 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[613])},
4453 { SCM_OBJ(&scm__rc.d1563[611]), SCM_OBJ(&scm__rc.d1563[614])},
4454 { SCM_OBJ(&scm__rc.d1563[615]), SCM_OBJ(&scm__rc.d1563[86])},
4455 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[616])},
4456 { SCM_OBJ(&scm__rc.d1563[617]), SCM_NIL},
4457 { SCM_OBJ(&scm__rc.d1563[608]), SCM_OBJ(&scm__rc.d1563[618])},
4458 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[619])},
4459 { SCM_MAKE_INT(607U), SCM_NIL},
4460 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[621])},
4461 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[622])},
4462 { SCM_OBJ(&scm__rc.d1563[623]), SCM_OBJ(&scm__rc.d1563[382])},
4463 { SCM_UNDEFINED, SCM_NIL},
4464 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
4465 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
4466 { SCM_MAKE_INT(32U), SCM_NIL},
4467 { SCM_MAKE_INT(9U), SCM_OBJ(&scm__rc.d1563[628])},
4468 { SCM_OBJ(&scm__rc.d1563[629]), SCM_NIL},
4469 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[630])},
4470 { SCM_OBJ(&scm__rc.d1563[631]), SCM_NIL},
4471 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[632])},
4472 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[633])},
4473 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
4474 { SCM_UNDEFINED, SCM_NIL},
4475 { SCM_OBJ(&scm__rc.d1563[636]), SCM_NIL},
4476 { SCM_OBJ(&scm__rc.d1563[635]), SCM_OBJ(&scm__rc.d1563[637])},
4477 { SCM_OBJ(&scm__rc.d1563[634]), SCM_OBJ(&scm__rc.d1563[638])},
4478 { SCM_MAKE_INT(13U), SCM_NIL},
4479 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[640])},
4480 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[641])},
4481 { SCM_MAKE_INT(10U), SCM_NIL},
4482 { SCM_OBJ(&scm__rc.d1563[627]), SCM_OBJ(&scm__rc.d1563[643])},
4483 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[644])},
4484 { SCM_OBJ(&scm__rc.d1563[645]), SCM_NIL},
4485 { SCM_OBJ(&scm__rc.d1563[626]), SCM_OBJ(&scm__rc.d1563[646])},
4486 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[647])},
4487 { SCM_OBJ(&scm__rc.d1563[635]), SCM_NIL},
4488 { SCM_OBJ(&scm__rc.d1563[648]), SCM_OBJ(&scm__rc.d1563[649])},
4489 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[650])},
4490 { SCM_OBJ(&scm__rc.d1563[651]), SCM_NIL},
4491 { SCM_OBJ(&scm__rc.d1563[635]), SCM_OBJ(&scm__rc.d1563[652])},
4492 { SCM_OBJ(&scm__rc.d1563[642]), SCM_OBJ(&scm__rc.d1563[653])},
4493 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[643])},
4494 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[655])},
4495 { SCM_OBJ(&scm__rc.d1563[656]), SCM_OBJ(&scm__rc.d1563[649])},
4496 { SCM_OBJ(&scm__rc.d1563[657]), SCM_NIL},
4497 { SCM_OBJ(&scm__rc.d1563[654]), SCM_OBJ(&scm__rc.d1563[658])},
4498 { SCM_OBJ(&scm__rc.d1563[639]), SCM_OBJ(&scm__rc.d1563[659])},
4499 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[660])},
4500 { SCM_OBJ(&scm__rc.d1563[661]), SCM_NIL},
4501 { SCM_OBJ(&scm__rc.d1563[627]), SCM_OBJ(&scm__rc.d1563[662])},
4502 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[663])},
4503 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[664])},
4504 { SCM_OBJ(&scm__rc.d1563[665]), SCM_NIL},
4505 { SCM_OBJ(&scm__rc.d1563[626]), SCM_OBJ(&scm__rc.d1563[666])},
4506 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[667])},
4507 { SCM_OBJ(&scm__rc.d1563[668]), SCM_NIL},
4508 { SCM_NIL, SCM_OBJ(&scm__rc.d1563[669])},
4509 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[670])},
4510 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[671])},
4511 { SCM_OBJ(&scm__rc.d1563[672]), SCM_NIL},
4512 { SCM_OBJ(&scm__rc.d1563[539]), SCM_OBJ(&scm__rc.d1563[673])},
4513 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[674])},
4514 { SCM_MAKE_INT(624U), SCM_NIL},
4515 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[676])},
4516 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[677])},
4517 { SCM_OBJ(&scm__rc.d1563[678]), SCM_OBJ(&scm__rc.d1563[382])},
4518 { SCM_UNDEFINED, SCM_NIL},
4519 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
4520 { SCM_MAKE_INT(637U), SCM_NIL},
4521 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[682])},
4522 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[683])},
4523 { SCM_UNDEFINED, SCM_NIL},
4524 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[685])},
4525 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[686])},
4526 { SCM_OBJ(&scm__rc.d1563[687]), SCM_NIL},
4527 { SCM_OBJ(&scm__rc.d1563[684]), SCM_OBJ(&scm__rc.d1563[688])},
4528 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
4529 { SCM_MAKE_INT(652U), SCM_NIL},
4530 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[691])},
4531 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[692])},
4532 { SCM_UNDEFINED, SCM_NIL},
4533 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[694])},
4534 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[695])},
4535 { SCM_OBJ(&scm__rc.d1563[696]), SCM_NIL},
4536 { SCM_OBJ(&scm__rc.d1563[693]), SCM_OBJ(&scm__rc.d1563[697])},
4537 { SCM_MAKE_INT(656U), SCM_NIL},
4538 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[699])},
4539 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[700])},
4540 { SCM_UNDEFINED, SCM_NIL},
4541 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[702])},
4542 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[703])},
4543 { SCM_OBJ(&scm__rc.d1563[704]), SCM_NIL},
4544 { SCM_OBJ(&scm__rc.d1563[701]), SCM_OBJ(&scm__rc.d1563[705])},
4545 { SCM_MAKE_INT(664U), SCM_NIL},
4546 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[707])},
4547 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[708])},
4548 { SCM_OBJ(&scm__rc.d1563[709]), SCM_OBJ(&scm__rc.d1563[382])},
4549 { SCM_UNDEFINED, SCM_NIL},
4550 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4551 { SCM_MAKE_INT(671U), SCM_NIL},
4552 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[713])},
4553 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[714])},
4554 { SCM_OBJ(&scm__rc.d1563[715]), SCM_OBJ(&scm__rc.d1563[382])},
4555 { SCM_UNDEFINED, SCM_NIL},
4556 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
4557 { SCM_MAKE_INT(669U), SCM_NIL},
4558 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[719])},
4559 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[720])},
4560 { SCM_OBJ(&scm__rc.d1563[721]), SCM_OBJ(&scm__rc.d1563[382])},
4561 { SCM_UNDEFINED, SCM_NIL},
4562 { SCM_UNDEFINED, SCM_NIL},
4563 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[724])},
4564 { SCM_UNDEFINED, SCM_NIL},
4565 { SCM_MAKE_INT(678U), SCM_NIL},
4566 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[727])},
4567 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[728])},
4568 { SCM_OBJ(&scm__rc.d1563[729]), SCM_OBJ(&scm__rc.d1563[382])},
4569 { SCM_UNDEFINED, SCM_NIL},
4570 { SCM_OBJ(&scm__rc.d1569[17]), SCM_NIL},
4571 { SCM_UNDEFINED, SCM_NIL},
4572 { SCM_MAKE_INT(679U), SCM_NIL},
4573 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[734])},
4574 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[735])},
4575 { SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[382])},
4576 { SCM_UNDEFINED, SCM_NIL},
4577 { SCM_UNDEFINED, SCM_NIL},
4578 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[739])},
4579 { SCM_MAKE_INT(682U), SCM_NIL},
4580 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[741])},
4581 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[742])},
4582 { SCM_UNDEFINED, SCM_NIL},
4583 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[744])},
4584 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[745])},
4585 { SCM_OBJ(&scm__rc.d1563[746]), SCM_NIL},
4586 { SCM_OBJ(&scm__rc.d1563[743]), SCM_OBJ(&scm__rc.d1563[747])},
4587 { SCM_MAKE_INT(688U), SCM_NIL},
4588 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[749])},
4589 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[750])},
4590 { SCM_UNDEFINED, SCM_NIL},
4591 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[752])},
4592 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[753])},
4593 { SCM_OBJ(&scm__rc.d1563[754]), SCM_NIL},
4594 { SCM_OBJ(&scm__rc.d1563[751]), SCM_OBJ(&scm__rc.d1563[755])},
4595 { SCM_MAKE_INT(690U), SCM_NIL},
4596 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[757])},
4597 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[758])},
4598 { SCM_UNDEFINED, SCM_NIL},
4599 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[760])},
4600 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[761])},
4601 { SCM_OBJ(&scm__rc.d1563[762]), SCM_NIL},
4602 { SCM_OBJ(&scm__rc.d1563[759]), SCM_OBJ(&scm__rc.d1563[763])},
4603 { SCM_UNDEFINED, SCM_NIL},
4604 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[765])},
4605 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[766])},
4606 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[767])},
4607 { SCM_MAKE_INT(696U), SCM_NIL},
4608 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[769])},
4609 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[770])},
4610 { SCM_UNDEFINED, SCM_NIL},
4611 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[772])},
4612 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[773])},
4613 { SCM_OBJ(&scm__rc.d1563[774]), SCM_NIL},
4614 { SCM_OBJ(&scm__rc.d1563[771]), SCM_OBJ(&scm__rc.d1563[775])},
4615 { SCM_UNDEFINED, SCM_NIL},
4616 { SCM_MAKE_INT(699U), SCM_NIL},
4617 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[778])},
4618 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[779])},
4619 { SCM_UNDEFINED, SCM_NIL},
4620 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[781])},
4621 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[782])},
4622 { SCM_OBJ(&scm__rc.d1563[783]), SCM_NIL},
4623 { SCM_OBJ(&scm__rc.d1563[780]), SCM_OBJ(&scm__rc.d1563[784])},
4624 { SCM_UNDEFINED, SCM_NIL},
4625 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[786])},
4626 { SCM_MAKE_INT(702U), SCM_NIL},
4627 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[788])},
4628 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[789])},
4629 { SCM_UNDEFINED, SCM_NIL},
4630 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[791])},
4631 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[792])},
4632 { SCM_OBJ(&scm__rc.d1563[793]), SCM_NIL},
4633 { SCM_OBJ(&scm__rc.d1563[790]), SCM_OBJ(&scm__rc.d1563[794])},
4634 { SCM_UNDEFINED, SCM_NIL},
4635 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[796])},
4636 { SCM_MAKE_INT(713U), SCM_NIL},
4637 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[798])},
4638 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[799])},
4639 { SCM_UNDEFINED, SCM_NIL},
4640 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[801])},
4641 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[802])},
4642 { SCM_OBJ(&scm__rc.d1563[803]), SCM_NIL},
4643 { SCM_OBJ(&scm__rc.d1563[800]), SCM_OBJ(&scm__rc.d1563[804])},
4644 { SCM_MAKE_INT(721U), SCM_NIL},
4645 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[806])},
4646 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[807])},
4647 { SCM_UNDEFINED, SCM_NIL},
4648 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[809])},
4649 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[810])},
4650 { SCM_OBJ(&scm__rc.d1563[811]), SCM_NIL},
4651 { SCM_OBJ(&scm__rc.d1563[808]), SCM_OBJ(&scm__rc.d1563[812])},
4652 { SCM_UNDEFINED, SCM_NIL},
4653 { SCM_MAKE_INT(723U), SCM_NIL},
4654 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[815])},
4655 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[816])},
4656 { SCM_UNDEFINED, SCM_NIL},
4657 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[818])},
4658 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[819])},
4659 { SCM_OBJ(&scm__rc.d1563[820]), SCM_NIL},
4660 { SCM_OBJ(&scm__rc.d1563[817]), SCM_OBJ(&scm__rc.d1563[821])},
4661 { SCM_MAKE_INT(726U), SCM_NIL},
4662 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[823])},
4663 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[824])},
4664 { SCM_UNDEFINED, SCM_NIL},
4665 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[826])},
4666 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[827])},
4667 { SCM_OBJ(&scm__rc.d1563[828]), SCM_NIL},
4668 { SCM_OBJ(&scm__rc.d1563[825]), SCM_OBJ(&scm__rc.d1563[829])},
4669 { SCM_UNDEFINED, SCM_NIL},
4670 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[831])},
4671 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[832])},
4672 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[833])},
4673 { SCM_MAKE_INT(769U), SCM_NIL},
4674 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[835])},
4675 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[836])},
4676 { SCM_UNDEFINED, SCM_NIL},
4677 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[838])},
4678 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[839])},
4679 { SCM_OBJ(&scm__rc.d1563[840]), SCM_NIL},
4680 { SCM_OBJ(&scm__rc.d1563[837]), SCM_OBJ(&scm__rc.d1563[841])},
4681 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
4682 { SCM_MAKE_INT(775U), SCM_NIL},
4683 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[844])},
4684 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[845])},
4685 { SCM_UNDEFINED, SCM_NIL},
4686 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[847])},
4687 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[848])},
4688 { SCM_OBJ(&scm__rc.d1563[849]), SCM_NIL},
4689 { SCM_OBJ(&scm__rc.d1563[846]), SCM_OBJ(&scm__rc.d1563[850])},
4690 { SCM_MAKE_INT(780U), SCM_NIL},
4691 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[852])},
4692 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[853])},
4693 { SCM_UNDEFINED, SCM_NIL},
4694 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[855])},
4695 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[856])},
4696 { SCM_OBJ(&scm__rc.d1563[857]), SCM_NIL},
4697 { SCM_OBJ(&scm__rc.d1563[854]), SCM_OBJ(&scm__rc.d1563[858])},
4698 { SCM_MAKE_INT(786U), SCM_NIL},
4699 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[860])},
4700 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[861])},
4701 { SCM_UNDEFINED, SCM_NIL},
4702 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[863])},
4703 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[864])},
4704 { SCM_OBJ(&scm__rc.d1563[865]), SCM_NIL},
4705 { SCM_OBJ(&scm__rc.d1563[862]), SCM_OBJ(&scm__rc.d1563[866])},
4706 { SCM_MAKE_INT(792U), SCM_NIL},
4707 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[868])},
4708 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[869])},
4709 { SCM_UNDEFINED, SCM_NIL},
4710 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[871])},
4711 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[872])},
4712 { SCM_OBJ(&scm__rc.d1563[873]), SCM_NIL},
4713 { SCM_OBJ(&scm__rc.d1563[870]), SCM_OBJ(&scm__rc.d1563[874])},
4714 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
4715 { SCM_MAKE_INT(796U), SCM_NIL},
4716 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[877])},
4717 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[878])},
4718 { SCM_UNDEFINED, SCM_NIL},
4719 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[880])},
4720 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[881])},
4721 { SCM_OBJ(&scm__rc.d1563[882]), SCM_NIL},
4722 { SCM_OBJ(&scm__rc.d1563[879]), SCM_OBJ(&scm__rc.d1563[883])},
4723 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
4724 { SCM_MAKE_INT(802U), SCM_NIL},
4725 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[886])},
4726 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[887])},
4727 { SCM_UNDEFINED, SCM_NIL},
4728 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[889])},
4729 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[890])},
4730 { SCM_OBJ(&scm__rc.d1563[891]), SCM_NIL},
4731 { SCM_OBJ(&scm__rc.d1563[888]), SCM_OBJ(&scm__rc.d1563[892])},
4732 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
4733 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[894])},
4734 { SCM_MAKE_INT(812U), SCM_NIL},
4735 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[896])},
4736 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[897])},
4737 { SCM_UNDEFINED, SCM_NIL},
4738 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[899])},
4739 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[900])},
4740 { SCM_OBJ(&scm__rc.d1563[901]), SCM_NIL},
4741 { SCM_OBJ(&scm__rc.d1563[898]), SCM_OBJ(&scm__rc.d1563[902])},
4742 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[298])},
4743 { SCM_MAKE_INT(818U), SCM_NIL},
4744 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[905])},
4745 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[906])},
4746 { SCM_UNDEFINED, SCM_NIL},
4747 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[908])},
4748 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[909])},
4749 { SCM_OBJ(&scm__rc.d1563[910]), SCM_NIL},
4750 { SCM_OBJ(&scm__rc.d1563[907]), SCM_OBJ(&scm__rc.d1563[911])},
4751 { SCM_UNDEFINED, SCM_NIL},
4752 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[913])},
4753 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[914])},
4754 { SCM_OBJ(&scm__rc.d1563[915]), SCM_NIL},
4755 { SCM_MAKE_INT(828U), SCM_NIL},
4756 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[917])},
4757 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[918])},
4758 { SCM_UNDEFINED, SCM_NIL},
4759 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[920])},
4760 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[921])},
4761 { SCM_OBJ(&scm__rc.d1563[922]), SCM_NIL},
4762 { SCM_OBJ(&scm__rc.d1563[919]), SCM_OBJ(&scm__rc.d1563[923])},
4763 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[86])},
4764 { SCM_MAKE_INT(836U), SCM_NIL},
4765 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[926])},
4766 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[927])},
4767 { SCM_OBJ(&scm__rc.d1563[928]), SCM_OBJ(&scm__rc.d1563[382])},
4768 { SCM_UNDEFINED, SCM_NIL},
4769 { SCM_UNDEFINED, SCM_NIL},
4770 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[931])},
4771 { SCM_UNDEFINED, SCM_NIL},
4772 { SCM_MAKE_INT(843U), SCM_NIL},
4773 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[934])},
4774 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[935])},
4775 { SCM_OBJ(&scm__rc.d1563[936]), SCM_OBJ(&scm__rc.d1563[382])},
4776 { SCM_UNDEFINED, SCM_NIL},
4777 { SCM_OBJ(&scm__rc.d1569[26]), SCM_NIL},
4778 { SCM_UNDEFINED, SCM_NIL},
4779 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[940])},
4780 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[941])},
4781 { SCM_MAKE_INT(840U), SCM_NIL},
4782 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[943])},
4783 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[944])},
4784 { SCM_OBJ(&scm__rc.d1563[945]), SCM_OBJ(&scm__rc.d1563[382])},
4785 { SCM_UNDEFINED, SCM_NIL},
4786 { SCM_OBJ(&scm__rc.d1563[600]), SCM_NIL},
4787 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[948])},
4788 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[949])},
4789 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[925])},
4790 { SCM_OBJ(&scm__rc.d1563[951]), SCM_NIL},
4791 { SCM_OBJ(&scm__rc.d1563[950]), SCM_OBJ(&scm__rc.d1563[952])},
4792 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[953])},
4793 { SCM_MAKE_INT(866U), SCM_NIL},
4794 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[955])},
4795 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[956])},
4796 { SCM_OBJ(&scm__rc.d1563[957]), SCM_OBJ(&scm__rc.d1563[382])},
4797 { SCM_UNDEFINED, SCM_NIL},
4798 { SCM_MAKE_INT(870U), SCM_NIL},
4799 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[960])},
4800 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[961])},
4801 { SCM_OBJ(&scm__rc.d1563[962]), SCM_OBJ(&scm__rc.d1563[382])},
4802 { SCM_UNDEFINED, SCM_NIL},
4803 { SCM_UNDEFINED, SCM_NIL},
4804 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[965])},
4805 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[966])},
4806 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[967])},
4807 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[968])},
4808 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[969])},
4809 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[970])},
4810 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[971])},
4811 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[972])},
4812 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[973])},
4813 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[974])},
4814 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[975])},
4815 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[976])},
4816 { SCM_MAKE_INT(925U), SCM_NIL},
4817 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[978])},
4818 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[979])},
4819 { SCM_OBJ(&scm__rc.d1563[980]), SCM_OBJ(&scm__rc.d1563[382])},
4820 { SCM_UNDEFINED, SCM_NIL},
4821 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[977])},
4822 { SCM_MAKE_INT(943U), SCM_NIL},
4823 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[984])},
4824 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[985])},
4825 { SCM_OBJ(&scm__rc.d1563[986]), SCM_OBJ(&scm__rc.d1563[382])},
4826 { SCM_UNDEFINED, SCM_NIL},
4827 { SCM_UNDEFINED, SCM_UNDEFINED},
4828 { SCM_MAKE_INT(984U), SCM_NIL},
4829 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[990])},
4830 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[991])},
4831 { SCM_OBJ(&scm__rc.d1563[992]), SCM_OBJ(&scm__rc.d1563[382])},
4832 { SCM_UNDEFINED, SCM_NIL},
4833 { SCM_MAKE_INT(993U), SCM_NIL},
4834 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[995])},
4835 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[996])},
4836 { SCM_OBJ(&scm__rc.d1563[997]), SCM_OBJ(&scm__rc.d1563[382])},
4837 { SCM_UNDEFINED, SCM_NIL},
4838 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4839 { SCM_UNDEFINED, SCM_NIL},
4840 { SCM_UNDEFINED, SCM_NIL},
4841 { SCM_MAKE_INT(1001U), SCM_NIL},
4842 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1003])},
4843 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[786])},
4844 { SCM_MAKE_INT(1000U), SCM_NIL},
4845 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1006])},
4846 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1007])},
4847 { SCM_OBJ(&scm__rc.d1563[1008]), SCM_OBJ(&scm__rc.d1563[382])},
4848 { SCM_UNDEFINED, SCM_NIL},
4849 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4850 { SCM_UNDEFINED, SCM_NIL},
4851 { SCM_UNDEFINED, SCM_NIL},
4852 { SCM_MAKE_INT(1008U), SCM_NIL},
4853 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1014])},
4854 { SCM_UNDEFINED, SCM_UNDEFINED},
4855 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1016])},
4856 { SCM_MAKE_INT(1006U), SCM_NIL},
4857 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1018])},
4858 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1019])},
4859 { SCM_OBJ(&scm__rc.d1563[1020]), SCM_OBJ(&scm__rc.d1563[382])},
4860 { SCM_UNDEFINED, SCM_NIL},
4861 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4862 { SCM_UNDEFINED, SCM_NIL},
4863 { SCM_UNDEFINED, SCM_NIL},
4864 { SCM_MAKE_INT(1013U), SCM_NIL},
4865 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1026])},
4866 { SCM_MAKE_INT(1011U), SCM_NIL},
4867 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1028])},
4868 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1029])},
4869 { SCM_OBJ(&scm__rc.d1563[1030]), SCM_OBJ(&scm__rc.d1563[382])},
4870 { SCM_UNDEFINED, SCM_NIL},
4871 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4872 { SCM_UNDEFINED, SCM_NIL},
4873 { SCM_UNDEFINED, SCM_NIL},
4874 { SCM_MAKE_INT(1019U), SCM_NIL},
4875 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1036])},
4876 { SCM_UNDEFINED, SCM_UNDEFINED},
4877 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1038])},
4878 { SCM_MAKE_INT(1016U), SCM_NIL},
4879 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1040])},
4880 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1041])},
4881 { SCM_OBJ(&scm__rc.d1563[1042]), SCM_OBJ(&scm__rc.d1563[382])},
4882 { SCM_UNDEFINED, SCM_NIL},
4883 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4884 { SCM_UNDEFINED, SCM_NIL},
4885 { SCM_UNDEFINED, SCM_NIL},
4886 { SCM_MAKE_INT(1025U), SCM_NIL},
4887 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1048])},
4888 { SCM_MAKE_INT(1022U), SCM_NIL},
4889 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1050])},
4890 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1051])},
4891 { SCM_OBJ(&scm__rc.d1563[1052]), SCM_OBJ(&scm__rc.d1563[382])},
4892 { SCM_UNDEFINED, SCM_NIL},
4893 { SCM_UNDEFINED, SCM_NIL},
4894 { SCM_MAKE_INT(1029U), SCM_NIL},
4895 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1056])},
4896 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1057])},
4897 { SCM_OBJ(&scm__rc.d1563[1058]), SCM_OBJ(&scm__rc.d1563[382])},
4898 { SCM_UNDEFINED, SCM_NIL},
4899 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1055])},
4900 { SCM_MAKE_INT(1034U), SCM_NIL},
4901 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1062])},
4902 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1063])},
4903 { SCM_OBJ(&scm__rc.d1563[1064]), SCM_OBJ(&scm__rc.d1563[382])},
4904 { SCM_UNDEFINED, SCM_NIL},
4905 { SCM_MAKE_INT(1037U), SCM_NIL},
4906 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1067])},
4907 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1068])},
4908 { SCM_OBJ(&scm__rc.d1563[1069]), SCM_OBJ(&scm__rc.d1563[382])},
4909 { SCM_UNDEFINED, SCM_NIL},
4910 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[786])},
4911 { SCM_MAKE_INT(1042U), SCM_NIL},
4912 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1073])},
4913 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1074])},
4914 { SCM_OBJ(&scm__rc.d1563[1075]), SCM_OBJ(&scm__rc.d1563[382])},
4915 { SCM_UNDEFINED, SCM_NIL},
4916 { SCM_MAKE_INT(1045U), SCM_NIL},
4917 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1078])},
4918 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1079])},
4919 { SCM_OBJ(&scm__rc.d1563[1080]), SCM_OBJ(&scm__rc.d1563[382])},
4920 { SCM_UNDEFINED, SCM_NIL},
4921 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4922 { SCM_MAKE_INT(1052U), SCM_NIL},
4923 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1084])},
4924 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1085])},
4925 { SCM_OBJ(&scm__rc.d1563[1086]), SCM_OBJ(&scm__rc.d1563[382])},
4926 { SCM_UNDEFINED, SCM_NIL},
4927 { SCM_MAKE_INT(1051U), SCM_NIL},
4928 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1089])},
4929 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1090])},
4930 { SCM_OBJ(&scm__rc.d1563[1091]), SCM_OBJ(&scm__rc.d1563[382])},
4931 { SCM_UNDEFINED, SCM_NIL},
4932 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[838])},
4933 { SCM_OBJ(&scm__rc.d1563[1094]), SCM_NIL},
4934 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1095])},
4935 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1096])},
4936 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1])},
4937 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1098])},
4938 { SCM_OBJ(&scm__rc.d1563[1099]), SCM_NIL},
4939 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1100])},
4940 { SCM_OBJ(&scm__rc.d1563[1101]), SCM_NIL},
4941 { SCM_OBJ(&scm__rc.d1563[1097]), SCM_OBJ(&scm__rc.d1563[1102])},
4942 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1103])},
4943 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
4944 { SCM_MAKE_INT(1055U), SCM_NIL},
4945 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1106])},
4946 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1107])},
4947 { SCM_OBJ(&scm__rc.d1563[1108]), SCM_OBJ(&scm__rc.d1563[382])},
4948 { SCM_UNDEFINED, SCM_NIL},
4949 { SCM_MAKE_INT(1054U), SCM_NIL},
4950 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1111])},
4951 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1112])},
4952 { SCM_OBJ(&scm__rc.d1563[1113]), SCM_OBJ(&scm__rc.d1563[382])},
4953 { SCM_UNDEFINED, SCM_NIL},
4954 { SCM_UNDEFINED, SCM_UNDEFINED},
4955 { SCM_MAKE_INT(1057U), SCM_NIL},
4956 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1117])},
4957 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1118])},
4958 { SCM_OBJ(&scm__rc.d1563[1119]), SCM_OBJ(&scm__rc.d1563[382])},
4959 { SCM_UNDEFINED, SCM_NIL},
4960 { SCM_UNDEFINED, SCM_NIL},
4961 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1122])},
4962 { SCM_UNDEFINED, SCM_NIL},
4963 { SCM_UNDEFINED, SCM_NIL},
4964 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1055])},
4965 { SCM_MAKE_INT(1077U), SCM_NIL},
4966 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1127])},
4967 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1128])},
4968 { SCM_OBJ(&scm__rc.d1563[1129]), SCM_OBJ(&scm__rc.d1563[382])},
4969 { SCM_UNDEFINED, SCM_NIL},
4970 { SCM_UNDEFINED, SCM_NIL},
4971 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1132])},
4972 { SCM_UNDEFINED, SCM_NIL},
4973 { SCM_UNDEFINED, SCM_NIL},
4974 { SCM_MAKE_INT(1080U), SCM_NIL},
4975 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1136])},
4976 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1137])},
4977 { SCM_OBJ(&scm__rc.d1563[1138]), SCM_OBJ(&scm__rc.d1563[382])},
4978 { SCM_UNDEFINED, SCM_NIL},
4979 { SCM_UNDEFINED, SCM_NIL},
4980 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1141])},
4981 { SCM_UNDEFINED, SCM_NIL},
4982 { SCM_UNDEFINED, SCM_NIL},
4983 { SCM_MAKE_INT(1083U), SCM_NIL},
4984 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1145])},
4985 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1146])},
4986 { SCM_OBJ(&scm__rc.d1563[1147]), SCM_OBJ(&scm__rc.d1563[382])},
4987 { SCM_UNDEFINED, SCM_NIL},
4988 { SCM_UNDEFINED, SCM_NIL},
4989 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1150])},
4990 { SCM_UNDEFINED, SCM_NIL},
4991 { SCM_UNDEFINED, SCM_NIL},
4992 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1055])},
4993 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1154])},
4994 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1155])},
4995 { SCM_MAKE_INT(1086U), SCM_NIL},
4996 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1157])},
4997 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1158])},
4998 { SCM_OBJ(&scm__rc.d1563[1159]), SCM_OBJ(&scm__rc.d1563[382])},
4999 { SCM_UNDEFINED, SCM_NIL},
5000 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[796])},
5001 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1162])},
5002 { SCM_MAKE_INT(1097U), SCM_NIL},
5003 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1164])},
5004 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1165])},
5005 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1163])},
5006 { SCM_OBJ(&scm__rc.d1563[1167]), SCM_NIL},
5007 { SCM_OBJ(&scm__rc.d1563[1166]), SCM_OBJ(&scm__rc.d1563[1168])},
5008 { SCM_UNDEFINED, SCM_NIL},
5009 { SCM_MAKE_INT(1104U), SCM_NIL},
5010 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1171])},
5011 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1172])},
5012 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[796])},
5013 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1174])},
5014 { SCM_OBJ(&scm__rc.d1563[1175]), SCM_NIL},
5015 { SCM_OBJ(&scm__rc.d1563[1173]), SCM_OBJ(&scm__rc.d1563[1176])},
5016 { SCM_UNDEFINED, SCM_NIL},
5017 { SCM_MAKE_INT(1109U), SCM_NIL},
5018 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1179])},
5019 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1180])},
5020 { SCM_OBJ(&scm__rc.d1563[1181]), SCM_OBJ(&scm__rc.d1563[1176])},
5021 { SCM_UNDEFINED, SCM_NIL},
5022 { SCM_MAKE_INT(1114U), SCM_NIL},
5023 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1184])},
5024 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1185])},
5025 { SCM_OBJ(&scm__rc.d1563[1186]), SCM_OBJ(&scm__rc.d1563[1176])},
5026 { SCM_UNDEFINED, SCM_NIL},
5027 { SCM_MAKE_INT(1119U), SCM_NIL},
5028 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[1189])},
5029 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[1190])},
5030 { SCM_OBJ(&scm__rc.d1563[1191]), SCM_OBJ(&scm__rc.d1563[1176])},
5031 { SCM_UNDEFINED, SCM_NIL},
5032 },
5033 { /* ScmObj d1562 */
5034 SCM_UNBOUND,
5035 SCM_UNBOUND,
5036 SCM_UNBOUND,
5037 SCM_UNBOUND,
5038 SCM_UNBOUND,
5039 SCM_UNBOUND,
5040 SCM_UNBOUND,
5041 SCM_UNBOUND,
5042 SCM_UNBOUND,
5043 SCM_UNBOUND,
5044 SCM_UNBOUND,
5045 SCM_UNBOUND,
5046 SCM_UNBOUND,
5047 SCM_UNBOUND,
5048 SCM_UNBOUND,
5049 SCM_UNBOUND,
5050 SCM_UNBOUND,
5051 SCM_UNBOUND,
5052 SCM_UNBOUND,
5053 SCM_UNBOUND,
5054 SCM_UNBOUND,
5055 SCM_UNBOUND,
5056 SCM_UNBOUND,
5057 SCM_UNBOUND,
5058 SCM_UNBOUND,
5059 SCM_UNBOUND,
5060 SCM_UNBOUND,
5061 SCM_UNBOUND,
5062 SCM_UNBOUND,
5063 SCM_UNBOUND,
5064 SCM_UNBOUND,
5065 SCM_UNBOUND,
5066 SCM_UNBOUND,
5067 SCM_UNBOUND,
5068 SCM_UNBOUND,
5069 SCM_UNBOUND,
5070 SCM_UNBOUND,
5071 SCM_UNBOUND,
5072 SCM_UNBOUND,
5073 SCM_UNBOUND,
5074 SCM_UNBOUND,
5075 SCM_UNBOUND,
5076 SCM_UNBOUND,
5077 SCM_UNBOUND,
5078 SCM_UNBOUND,
5079 SCM_UNBOUND,
5080 SCM_UNBOUND,
5081 SCM_UNBOUND,
5082 SCM_UNBOUND,
5083 SCM_UNBOUND,
5084 SCM_UNBOUND,
5085 SCM_UNBOUND,
5086 SCM_UNBOUND,
5087 SCM_UNBOUND,
5088 SCM_UNBOUND,
5089 SCM_UNBOUND,
5090 SCM_UNBOUND,
5091 SCM_UNBOUND,
5092 SCM_UNBOUND,
5093 SCM_UNBOUND,
5094 SCM_UNBOUND,
5095 SCM_UNBOUND,
5096 SCM_UNBOUND,
5097 SCM_UNBOUND,
5098 SCM_UNBOUND,
5099 SCM_UNBOUND,
5100 SCM_UNBOUND,
5101 SCM_UNBOUND,
5102 SCM_UNBOUND,
5103 SCM_UNBOUND,
5104 SCM_UNBOUND,
5105 SCM_UNBOUND,
5106 SCM_UNBOUND,
5107 SCM_UNBOUND,
5108 SCM_UNBOUND,
5109 SCM_UNBOUND,
5110 SCM_UNBOUND,
5111 SCM_UNBOUND,
5112 SCM_UNBOUND,
5113 SCM_UNBOUND,
5114 SCM_UNBOUND,
5115 SCM_UNBOUND,
5116 SCM_UNBOUND,
5117 SCM_UNBOUND,
5118 SCM_UNBOUND,
5119 SCM_UNBOUND,
5120 SCM_UNBOUND,
5121 SCM_UNBOUND,
5122 SCM_UNBOUND,
5123 SCM_UNBOUND,
5124 SCM_UNBOUND,
5125 SCM_UNBOUND,
5126 SCM_UNBOUND,
5127 SCM_UNBOUND,
5128 SCM_UNBOUND,
5129 SCM_UNBOUND,
5130 SCM_UNBOUND,
5131 SCM_UNBOUND,
5132 SCM_UNBOUND,
5133 SCM_UNBOUND,
5134 SCM_UNBOUND,
5135 SCM_UNBOUND,
5136 SCM_UNBOUND,
5137 SCM_UNBOUND,
5138 SCM_UNBOUND,
5139 SCM_UNBOUND,
5140 SCM_UNBOUND,
5141 SCM_UNBOUND,
5142 SCM_UNBOUND,
5143 SCM_UNBOUND,
5144 SCM_UNBOUND,
5145 SCM_UNBOUND,
5146 SCM_UNBOUND,
5147 SCM_UNBOUND,
5148 SCM_UNBOUND,
5149 SCM_UNBOUND,
5150 SCM_UNBOUND,
5151 SCM_UNBOUND,
5152 SCM_UNBOUND,
5153 SCM_UNBOUND,
5154 SCM_UNBOUND,
5155 SCM_UNBOUND,
5156 SCM_UNBOUND,
5157 SCM_UNBOUND,
5158 SCM_UNBOUND,
5159 SCM_UNBOUND,
5160 SCM_UNBOUND,
5161 SCM_UNBOUND,
5162 SCM_UNBOUND,
5163 SCM_UNBOUND,
5164 SCM_UNBOUND,
5165 SCM_UNBOUND,
5166 SCM_UNBOUND,
5167 SCM_UNBOUND,
5168 SCM_UNBOUND,
5169 SCM_UNBOUND,
5170 SCM_UNBOUND,
5171 SCM_UNBOUND,
5172 SCM_UNBOUND,
5173 SCM_UNBOUND,
5174 SCM_UNBOUND,
5175 SCM_UNBOUND,
5176 SCM_UNBOUND,
5177 SCM_UNBOUND,
5178 SCM_UNBOUND,
5179 SCM_UNBOUND,
5180 SCM_UNBOUND,
5181 SCM_UNBOUND,
5182 SCM_UNBOUND,
5183 SCM_UNBOUND,
5184 SCM_UNBOUND,
5185 SCM_UNBOUND,
5186 SCM_UNBOUND,
5187 SCM_UNBOUND,
5188 SCM_UNBOUND,
5189 SCM_UNBOUND,
5190 SCM_UNBOUND,
5191 SCM_UNBOUND,
5192 SCM_UNBOUND,
5193 SCM_UNBOUND,
5194 SCM_UNBOUND,
5195 SCM_UNBOUND,
5196 SCM_UNBOUND,
5197 SCM_UNBOUND,
5198 SCM_UNBOUND,
5199 SCM_UNBOUND,
5200 SCM_UNBOUND,
5201 SCM_UNBOUND,
5202 SCM_UNBOUND,
5203 SCM_UNBOUND,
5204 SCM_UNBOUND,
5205 SCM_UNBOUND,
5206 SCM_UNBOUND,
5207 SCM_UNBOUND,
5208 SCM_UNBOUND,
5209 SCM_UNBOUND,
5210 SCM_UNBOUND,
5211 SCM_UNBOUND,
5212 SCM_UNBOUND,
5213 SCM_UNBOUND,
5214 SCM_UNBOUND,
5215 SCM_UNBOUND,
5216 SCM_UNBOUND,
5217 SCM_UNBOUND,
5218 SCM_UNBOUND,
5219 SCM_UNBOUND,
5220 SCM_UNBOUND,
5221 SCM_UNBOUND,
5222 SCM_UNBOUND,
5223 SCM_UNBOUND,
5224 SCM_UNBOUND,
5225 SCM_UNBOUND,
5226 SCM_UNBOUND,
5227 SCM_UNBOUND,
5228 SCM_UNBOUND,
5229 SCM_UNBOUND,
5230 SCM_UNBOUND,
5231 SCM_UNBOUND,
5232 SCM_UNBOUND,
5233 SCM_UNBOUND,
5234 SCM_UNBOUND,
5235 SCM_UNBOUND,
5236 SCM_UNBOUND,
5237 SCM_UNBOUND,
5238 SCM_UNBOUND,
5239 SCM_UNBOUND,
5240 SCM_UNBOUND,
5241 SCM_UNBOUND,
5242 SCM_UNBOUND,
5243 SCM_UNBOUND,
5244 SCM_UNBOUND,
5245 SCM_UNBOUND,
5246 SCM_UNBOUND,
5247 SCM_UNBOUND,
5248 SCM_UNBOUND,
5249 SCM_UNBOUND,
5250 SCM_UNBOUND,
5251 SCM_UNBOUND,
5252 SCM_UNBOUND,
5253 SCM_UNBOUND,
5254 SCM_UNBOUND,
5255 SCM_UNBOUND,
5256 SCM_UNBOUND,
5257 SCM_UNBOUND,
5258 SCM_UNBOUND,
5259 SCM_UNBOUND,
5260 SCM_UNBOUND,
5261 SCM_UNBOUND,
5262 SCM_UNBOUND,
5263 SCM_UNBOUND,
5264 SCM_UNBOUND,
5265 SCM_UNBOUND,
5266 SCM_UNBOUND,
5267 SCM_UNBOUND,
5268 SCM_UNBOUND,
5269 SCM_UNBOUND,
5270 SCM_UNBOUND,
5271 SCM_UNBOUND,
5272 SCM_UNBOUND,
5273 SCM_UNBOUND,
5274 SCM_UNBOUND,
5275 SCM_UNBOUND,
5276 SCM_UNBOUND,
5277 SCM_UNBOUND,
5278 SCM_UNBOUND,
5279 SCM_UNBOUND,
5280 SCM_UNBOUND,
5281 SCM_UNBOUND,
5282 SCM_UNBOUND,
5283 SCM_UNBOUND,
5284 SCM_UNBOUND,
5285 SCM_UNBOUND,
5286 SCM_UNBOUND,
5287 SCM_UNBOUND,
5288 SCM_UNBOUND,
5289 SCM_UNBOUND,
5290 SCM_UNBOUND,
5291 SCM_UNBOUND,
5292 SCM_UNBOUND,
5293 SCM_UNBOUND,
5294 SCM_UNBOUND,
5295 SCM_UNBOUND,
5296 SCM_UNBOUND,
5297 SCM_UNBOUND,
5298 SCM_UNBOUND,
5299 SCM_UNBOUND,
5300 SCM_UNBOUND,
5301 SCM_UNBOUND,
5302 SCM_UNBOUND,
5303 SCM_UNBOUND,
5304 SCM_UNBOUND,
5305 SCM_UNBOUND,
5306 SCM_UNBOUND,
5307 SCM_UNBOUND,
5308 SCM_UNBOUND,
5309 SCM_UNBOUND,
5310 SCM_UNBOUND,
5311 SCM_UNBOUND,
5312 SCM_UNBOUND,
5313 SCM_UNBOUND,
5314 SCM_UNBOUND,
5315 SCM_UNBOUND,
5316 SCM_UNBOUND,
5317 SCM_UNBOUND,
5318 SCM_UNBOUND,
5319 SCM_UNBOUND,
5320 SCM_UNBOUND,
5321 SCM_UNBOUND,
5322 SCM_UNBOUND,
5323 SCM_UNBOUND,
5324 SCM_UNBOUND,
5325 SCM_UNBOUND,
5326 SCM_UNBOUND,
5327 SCM_UNBOUND,
5328 SCM_UNBOUND,
5329 SCM_UNBOUND,
5330 SCM_UNBOUND,
5331 SCM_UNBOUND,
5332 SCM_UNBOUND,
5333 SCM_UNBOUND,
5334 SCM_UNBOUND,
5335 SCM_UNBOUND,
5336 SCM_UNBOUND,
5337 SCM_UNBOUND,
5338 SCM_UNBOUND,
5339 SCM_UNBOUND,
5340 SCM_UNBOUND,
5341 SCM_UNBOUND,
5342 SCM_UNBOUND,
5343 SCM_UNBOUND,
5344 SCM_UNBOUND,
5345 SCM_UNBOUND,
5346 SCM_UNBOUND,
5347 SCM_UNBOUND,
5348 SCM_UNBOUND,
5349 SCM_UNBOUND,
5350 SCM_UNBOUND,
5351 SCM_UNBOUND,
5352 SCM_UNBOUND,
5353 SCM_UNBOUND,
5354 SCM_UNBOUND,
5355 SCM_UNBOUND,
5356 SCM_UNBOUND,
5357 SCM_UNBOUND,
5358 SCM_UNBOUND,
5359 SCM_UNBOUND,
5360 SCM_UNBOUND,
5361 SCM_UNBOUND,
5362 SCM_UNBOUND,
5363 SCM_UNBOUND,
5364 SCM_UNBOUND,
5365 SCM_UNBOUND,
5366 SCM_UNBOUND,
5367 SCM_UNBOUND,
5368 SCM_UNBOUND,
5369 SCM_UNBOUND,
5370 SCM_UNBOUND,
5371 SCM_UNBOUND,
5372 SCM_UNBOUND,
5373 SCM_UNBOUND,
5374 SCM_UNBOUND,
5375 SCM_UNBOUND,
5376 SCM_UNBOUND,
5377 SCM_UNBOUND,
5378 SCM_UNBOUND,
5379 SCM_UNBOUND,
5380 SCM_UNBOUND,
5381 SCM_UNBOUND,
5382 SCM_UNBOUND,
5383 SCM_UNBOUND,
5384 SCM_UNBOUND,
5385 SCM_UNBOUND,
5386 SCM_UNBOUND,
5387 SCM_UNBOUND,
5388 SCM_UNBOUND,
5389 SCM_UNBOUND,
5390 SCM_UNBOUND,
5391 SCM_UNBOUND,
5392 SCM_UNBOUND,
5393 SCM_UNBOUND,
5394 SCM_UNBOUND,
5395 SCM_UNBOUND,
5396 SCM_UNBOUND,
5397 SCM_UNBOUND,
5398 SCM_UNBOUND,
5399 SCM_UNBOUND,
5400 SCM_UNBOUND,
5401 SCM_UNBOUND,
5402 SCM_UNBOUND,
5403 SCM_UNBOUND,
5404 SCM_UNBOUND,
5405 SCM_UNBOUND,
5406 SCM_UNBOUND,
5407 SCM_UNBOUND,
5408 SCM_UNBOUND,
5409 SCM_UNBOUND,
5410 SCM_UNBOUND,
5411 SCM_UNBOUND,
5412 SCM_UNBOUND,
5413 SCM_UNBOUND,
5414 SCM_UNBOUND,
5415 SCM_UNBOUND,
5416 SCM_UNBOUND,
5417 SCM_UNBOUND,
5418 SCM_UNBOUND,
5419 SCM_UNBOUND,
5420 SCM_UNBOUND,
5421 SCM_UNBOUND,
5422 SCM_UNBOUND,
5423 SCM_UNBOUND,
5424 SCM_UNBOUND,
5425 SCM_UNBOUND,
5426 SCM_UNBOUND,
5427 SCM_UNBOUND,
5428 SCM_UNBOUND,
5429 SCM_UNBOUND,
5430 SCM_UNBOUND,
5431 SCM_UNBOUND,
5432 SCM_UNBOUND,
5433 SCM_UNBOUND,
5434 SCM_UNBOUND,
5435 SCM_UNBOUND,
5436 SCM_UNBOUND,
5437 SCM_UNBOUND,
5438 SCM_UNBOUND,
5439 SCM_UNBOUND,
5440 SCM_UNBOUND,
5441 SCM_UNBOUND,
5442 SCM_UNBOUND,
5443 SCM_UNBOUND,
5444 SCM_UNBOUND,
5445 SCM_UNBOUND,
5446 SCM_UNBOUND,
5447 SCM_UNBOUND,
5448 SCM_UNBOUND,
5449 SCM_UNBOUND,
5450 SCM_UNBOUND,
5451 SCM_UNBOUND,
5452 SCM_UNBOUND,
5453 SCM_UNBOUND,
5454 SCM_UNBOUND,
5455 SCM_UNBOUND,
5456 SCM_UNBOUND,
5457 SCM_UNBOUND,
5458 SCM_UNBOUND,
5459 SCM_UNBOUND,
5460 SCM_UNBOUND,
5461 SCM_UNBOUND,
5462 SCM_UNBOUND,
5463 SCM_UNBOUND,
5464 SCM_UNBOUND,
5465 SCM_UNBOUND,
5466 SCM_UNBOUND,
5467 SCM_UNBOUND,
5468 SCM_UNBOUND,
5469 SCM_UNBOUND,
5470 SCM_UNBOUND,
5471 SCM_UNBOUND,
5472 SCM_UNBOUND,
5473 SCM_UNBOUND,
5474 SCM_UNBOUND,
5475 SCM_UNBOUND,
5476 SCM_UNBOUND,
5477 SCM_UNBOUND,
5478 SCM_UNBOUND,
5479 SCM_UNBOUND,
5480 SCM_UNBOUND,
5481 SCM_UNBOUND,
5482 SCM_UNBOUND,
5483 SCM_UNBOUND,
5484 SCM_UNBOUND,
5485 SCM_UNBOUND,
5486 SCM_UNBOUND,
5487 SCM_UNBOUND,
5488 SCM_UNBOUND,
5489 SCM_UNBOUND,
5490 SCM_UNBOUND,
5491 SCM_UNBOUND,
5492 SCM_UNBOUND,
5493 SCM_UNBOUND,
5494 SCM_UNBOUND,
5495 SCM_UNBOUND,
5496 SCM_UNBOUND,
5497 SCM_UNBOUND,
5498 SCM_UNBOUND,
5499 SCM_UNBOUND,
5500 SCM_UNBOUND,
5501 SCM_UNBOUND,
5502 SCM_UNBOUND,
5503 SCM_UNBOUND,
5504 SCM_UNBOUND,
5505 SCM_UNBOUND,
5506 SCM_UNBOUND,
5507 SCM_UNBOUND,
5508 SCM_UNBOUND,
5509 SCM_UNBOUND,
5510 SCM_UNBOUND,
5511 SCM_UNBOUND,
5512 SCM_UNBOUND,
5513 SCM_UNBOUND,
5514 SCM_UNBOUND,
5515 SCM_UNBOUND,
5516 SCM_UNBOUND,
5517 SCM_UNBOUND,
5518 SCM_UNBOUND,
5519 SCM_UNBOUND,
5520 SCM_UNBOUND,
5521 SCM_UNBOUND,
5522 SCM_UNBOUND,
5523 SCM_UNBOUND,
5524 SCM_UNBOUND,
5525 SCM_UNBOUND,
5526 SCM_UNBOUND,
5527 SCM_UNBOUND,
5528 SCM_UNBOUND,
5529 SCM_UNBOUND,
5530 SCM_UNBOUND,
5531 SCM_UNBOUND,
5532 SCM_UNBOUND,
5533 SCM_UNBOUND,
5534 SCM_UNBOUND,
5535 SCM_UNBOUND,
5536 SCM_UNBOUND,
5537 SCM_UNBOUND,
5538 SCM_UNBOUND,
5539 SCM_UNBOUND,
5540 SCM_UNBOUND,
5541 SCM_UNBOUND,
5542 SCM_UNBOUND,
5543 SCM_UNBOUND,
5544 SCM_UNBOUND,
5545 SCM_UNBOUND,
5546 SCM_UNBOUND,
5547 SCM_UNBOUND,
5548 SCM_UNBOUND,
5549 SCM_UNBOUND,
5550 SCM_UNBOUND,
5551 SCM_UNBOUND,
5552 SCM_UNBOUND,
5553 SCM_UNBOUND,
5554 SCM_UNBOUND,
5555 SCM_UNBOUND,
5556 SCM_UNBOUND,
5557 SCM_UNBOUND,
5558 SCM_UNBOUND,
5559 SCM_UNBOUND,
5560 SCM_UNBOUND,
5561 SCM_UNBOUND,
5562 SCM_UNBOUND,
5563 SCM_UNBOUND,
5564 SCM_UNBOUND,
5565 SCM_UNBOUND,
5566 SCM_UNBOUND,
5567 SCM_UNBOUND,
5568 SCM_UNBOUND,
5569 SCM_UNBOUND,
5570 SCM_UNBOUND,
5571 SCM_UNBOUND,
5572 SCM_UNBOUND,
5573 SCM_UNBOUND,
5574 SCM_UNBOUND,
5575 SCM_UNBOUND,
5576 SCM_UNBOUND,
5577 SCM_UNBOUND,
5578 SCM_UNBOUND,
5579 },
5580 };
libioinput_portP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5581 static ScmObj libioinput_portP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5582 {
5583 ScmObj obj_scm;
5584 ScmObj obj;
5585 ScmObj SCM_SUBRARGS[1];
5586 SCM_ENTER_SUBR("input-port?");
5587 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5588 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5589 }
5590 obj_scm = SCM_SUBRARGS[0];
5591 obj = (obj_scm);
5592 {
5593 {
5594 int SCM_RESULT;
5595 {SCM_RESULT=(SCM_IPORTP(obj));goto SCM_STUB_RETURN;}
5596 goto SCM_STUB_RETURN;
5597 SCM_STUB_RETURN:
5598 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5599 }
5600 }
5601 }
5602
libiooutput_portP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5603 static ScmObj libiooutput_portP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5604 {
5605 ScmObj obj_scm;
5606 ScmObj obj;
5607 ScmObj SCM_SUBRARGS[1];
5608 SCM_ENTER_SUBR("output-port?");
5609 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5610 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5611 }
5612 obj_scm = SCM_SUBRARGS[0];
5613 obj = (obj_scm);
5614 {
5615 {
5616 int SCM_RESULT;
5617 {SCM_RESULT=(SCM_OPORTP(obj));goto SCM_STUB_RETURN;}
5618 goto SCM_STUB_RETURN;
5619 SCM_STUB_RETURN:
5620 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5621 }
5622 }
5623 }
5624
libioportP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5625 static ScmObj libioportP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5626 {
5627 ScmObj obj_scm;
5628 ScmObj obj;
5629 ScmObj SCM_SUBRARGS[1];
5630 SCM_ENTER_SUBR("port?");
5631 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5632 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5633 }
5634 obj_scm = SCM_SUBRARGS[0];
5635 obj = (obj_scm);
5636 {
5637 {
5638 int SCM_RESULT;
5639 {SCM_RESULT=(SCM_PORTP(obj));goto SCM_STUB_RETURN;}
5640 goto SCM_STUB_RETURN;
5641 SCM_STUB_RETURN:
5642 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5643 }
5644 }
5645 }
5646
libioport_closedP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5647 static ScmObj libioport_closedP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5648 {
5649 ScmObj obj_scm;
5650 ScmPort* obj;
5651 ScmObj SCM_SUBRARGS[1];
5652 SCM_ENTER_SUBR("port-closed?");
5653 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5654 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5655 }
5656 obj_scm = SCM_SUBRARGS[0];
5657 if (!SCM_PORTP(obj_scm)) Scm_Error("port required, but got %S", obj_scm);
5658 obj = SCM_PORT(obj_scm);
5659 {
5660 {
5661 int SCM_RESULT;
5662 {SCM_RESULT=(SCM_PORT_CLOSED_P(obj));goto SCM_STUB_RETURN;}
5663 goto SCM_STUB_RETURN;
5664 SCM_STUB_RETURN:
5665 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5666 }
5667 }
5668 }
5669
libiocurrent_input_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5670 static ScmObj libiocurrent_input_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5671 {
5672 ScmObj newport_scm;
5673 ScmObj newport;
5674 ScmObj SCM_SUBRARGS[2];
5675 SCM_ENTER_SUBR("current-input-port");
5676 if (SCM_ARGCNT >= 2
5677 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5678 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5679 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5680 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5681 }
5682 if (SCM_ARGCNT > 0+1) {
5683 newport_scm = SCM_SUBRARGS[0];
5684 } else {
5685 newport_scm = SCM_UNBOUND;
5686 }
5687 newport = (newport_scm);
5688 {
5689 {
5690 ScmObj SCM_RESULT;
5691
5692 #line 68 "libio.scm"
5693 if (SCM_IPORTP(newport)){
5694 {SCM_RESULT=(Scm_SetCurrentInputPort(SCM_PORT(newport)));goto SCM_STUB_RETURN;}}else if(
5695 !(SCM_UNBOUNDP(newport))){
5696 Scm_TypeError("current-input-port","input port",newport);
5697 {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}} else {
5698 {SCM_RESULT=(SCM_OBJ(SCM_CURIN));goto SCM_STUB_RETURN;}}
5699 goto SCM_STUB_RETURN;
5700 SCM_STUB_RETURN:
5701 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5702 }
5703 }
5704 }
5705
libiocurrent_output_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5706 static ScmObj libiocurrent_output_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5707 {
5708 ScmObj newport_scm;
5709 ScmObj newport;
5710 ScmObj SCM_SUBRARGS[2];
5711 SCM_ENTER_SUBR("current-output-port");
5712 if (SCM_ARGCNT >= 2
5713 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5714 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5715 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5716 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5717 }
5718 if (SCM_ARGCNT > 0+1) {
5719 newport_scm = SCM_SUBRARGS[0];
5720 } else {
5721 newport_scm = SCM_UNBOUND;
5722 }
5723 newport = (newport_scm);
5724 {
5725 {
5726 ScmObj SCM_RESULT;
5727
5728 #line 76 "libio.scm"
5729 if (SCM_OPORTP(newport)){
5730 {SCM_RESULT=(Scm_SetCurrentOutputPort(SCM_PORT(newport)));goto SCM_STUB_RETURN;}}else if(
5731 !(SCM_UNBOUNDP(newport))){
5732 Scm_TypeError("current-output-port","output port",newport);
5733 {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}} else {
5734 {SCM_RESULT=(SCM_OBJ(SCM_CUROUT));goto SCM_STUB_RETURN;}}
5735 goto SCM_STUB_RETURN;
5736 SCM_STUB_RETURN:
5737 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5738 }
5739 }
5740 }
5741
libiocurrent_error_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5742 static ScmObj libiocurrent_error_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5743 {
5744 ScmObj newport_scm;
5745 ScmObj newport;
5746 ScmObj SCM_SUBRARGS[2];
5747 SCM_ENTER_SUBR("current-error-port");
5748 if (SCM_ARGCNT >= 2
5749 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5750 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5751 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5752 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5753 }
5754 if (SCM_ARGCNT > 0+1) {
5755 newport_scm = SCM_SUBRARGS[0];
5756 } else {
5757 newport_scm = SCM_UNBOUND;
5758 }
5759 newport = (newport_scm);
5760 {
5761 {
5762 ScmObj SCM_RESULT;
5763
5764 #line 86 "libio.scm"
5765 if (
5766 SCM_OPORTP(newport)){{SCM_RESULT=(Scm_SetCurrentErrorPort(SCM_PORT(newport)));goto SCM_STUB_RETURN;}}else if(
5767 !(SCM_UNBOUNDP(newport))){
5768 Scm_TypeError("current-error-port","output port",newport);
5769 {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}} else {
5770 {SCM_RESULT=(SCM_OBJ(SCM_CURERR));goto SCM_STUB_RETURN;}}
5771 goto SCM_STUB_RETURN;
5772 SCM_STUB_RETURN:
5773 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5774 }
5775 }
5776 }
5777
libiostandard_input_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5778 static ScmObj libiostandard_input_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5779 {
5780 ScmObj p_scm;
5781 ScmPort* p;
5782 ScmObj SCM_SUBRARGS[2];
5783 SCM_ENTER_SUBR("standard-input-port");
5784 if (SCM_ARGCNT >= 2
5785 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5786 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5787 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5788 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5789 }
5790 if (SCM_ARGCNT > 0+1) {
5791 p_scm = SCM_SUBRARGS[0];
5792 } else {
5793 p_scm = SCM_FALSE;
5794 }
5795 if (!SCM_MAYBE_P(SCM_IPORTP, p_scm)) Scm_Error("input port or #f required, but got %S", p_scm);
5796 p = SCM_MAYBE(SCM_PORT, p_scm);
5797 {
5798 {
5799 ScmObj SCM_RESULT;
5800
5801 #line 94 "libio.scm"
5802 {SCM_RESULT=(((p)?(Scm_SetStdin(p)):(Scm_Stdin())));goto SCM_STUB_RETURN;}
5803 goto SCM_STUB_RETURN;
5804 SCM_STUB_RETURN:
5805 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5806 }
5807 }
5808 }
5809
libiostandard_output_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5810 static ScmObj libiostandard_output_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5811 {
5812 ScmObj p_scm;
5813 ScmPort* p;
5814 ScmObj SCM_SUBRARGS[2];
5815 SCM_ENTER_SUBR("standard-output-port");
5816 if (SCM_ARGCNT >= 2
5817 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5818 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5819 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5820 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5821 }
5822 if (SCM_ARGCNT > 0+1) {
5823 p_scm = SCM_SUBRARGS[0];
5824 } else {
5825 p_scm = SCM_FALSE;
5826 }
5827 if (!SCM_MAYBE_P(SCM_OPORTP, p_scm)) Scm_Error("output port or #f required, but got %S", p_scm);
5828 p = SCM_MAYBE(SCM_PORT, p_scm);
5829 {
5830 {
5831 ScmObj SCM_RESULT;
5832
5833 #line 96 "libio.scm"
5834 {SCM_RESULT=(((p)?(Scm_SetStdout(p)):(Scm_Stdout())));goto SCM_STUB_RETURN;}
5835 goto SCM_STUB_RETURN;
5836 SCM_STUB_RETURN:
5837 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5838 }
5839 }
5840 }
5841
libiostandard_error_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5842 static ScmObj libiostandard_error_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5843 {
5844 ScmObj p_scm;
5845 ScmPort* p;
5846 ScmObj SCM_SUBRARGS[2];
5847 SCM_ENTER_SUBR("standard-error-port");
5848 if (SCM_ARGCNT >= 2
5849 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5850 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5851 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5852 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5853 }
5854 if (SCM_ARGCNT > 0+1) {
5855 p_scm = SCM_SUBRARGS[0];
5856 } else {
5857 p_scm = SCM_FALSE;
5858 }
5859 if (!SCM_MAYBE_P(SCM_OPORTP, p_scm)) Scm_Error("output port or #f required, but got %S", p_scm);
5860 p = SCM_MAYBE(SCM_PORT, p_scm);
5861 {
5862 {
5863 ScmObj SCM_RESULT;
5864
5865 #line 98 "libio.scm"
5866 {SCM_RESULT=(((p)?(Scm_SetStderr(p)):(Scm_Stderr())));goto SCM_STUB_RETURN;}
5867 goto SCM_STUB_RETURN;
5868 SCM_STUB_RETURN:
5869 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5870 }
5871 }
5872 }
5873
libioport_name(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5874 static ScmObj libioport_name(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5875 {
5876 ScmObj port_scm;
5877 ScmPort* port;
5878 ScmObj SCM_SUBRARGS[1];
5879 SCM_ENTER_SUBR("port-name");
5880 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5881 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5882 }
5883 port_scm = SCM_SUBRARGS[0];
5884 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
5885 port = SCM_PORT(port_scm);
5886 {
5887 {
5888 ScmObj SCM_RESULT;
5889 {SCM_RESULT=(Scm_PortName(port));goto SCM_STUB_RETURN;}
5890 goto SCM_STUB_RETURN;
5891 SCM_STUB_RETURN:
5892 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5893 }
5894 }
5895 }
5896
libioport_current_line(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5897 static ScmObj libioport_current_line(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5898 {
5899 ScmObj port_scm;
5900 ScmPort* port;
5901 ScmObj SCM_SUBRARGS[1];
5902 SCM_ENTER_SUBR("port-current-line");
5903 for (int SCM_i=0; SCM_i<1; SCM_i++) {
5904 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5905 }
5906 port_scm = SCM_SUBRARGS[0];
5907 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
5908 port = SCM_PORT(port_scm);
5909 {
5910 {
5911 ScmSmallInt SCM_RESULT;
5912 {SCM_RESULT=(Scm_PortLine(port));goto SCM_STUB_RETURN;}
5913 goto SCM_STUB_RETURN;
5914 SCM_STUB_RETURN:
5915 SCM_RETURN(SCM_MAKE_INT(SCM_RESULT));
5916 }
5917 }
5918 }
5919
libioport_file_number(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5920 static ScmObj libioport_file_number(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5921 {
5922 ScmObj port_scm;
5923 ScmPort* port;
5924 ScmObj dupP_scm;
5925 int dupP;
5926 ScmObj SCM_SUBRARGS[3];
5927 SCM_ENTER_SUBR("port-file-number");
5928 if (SCM_ARGCNT >= 3
5929 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5930 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5931 for (int SCM_i=0; SCM_i<3; SCM_i++) {
5932 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5933 }
5934 port_scm = SCM_SUBRARGS[0];
5935 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
5936 port = SCM_PORT(port_scm);
5937 if (SCM_ARGCNT > 1+1) {
5938 dupP_scm = SCM_SUBRARGS[1];
5939 } else {
5940 dupP_scm = SCM_FALSE;
5941 }
5942 if (!SCM_BOOLP(dupP_scm)) Scm_Error("boolean required, but got %S", dupP_scm);
5943 dupP = SCM_BOOL_VALUE(dupP_scm);
5944 {
5945 {
5946 ScmObj SCM_RESULT;
5947
5948 #line 116 "libio.scm"
5949 {int i=Scm_PortFileNo(port);
5950 if ((i)<(0)){{{SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}}}
5951 if (dupP){{
5952 {int r=0;
5953 SCM_SYSCALL(r,dup(i));
5954 if ((r)<(0)){{Scm_SysError("dup(2) failed");}}
5955 i=(r);}}}
5956 {SCM_RESULT=(Scm_MakeInteger(i));goto SCM_STUB_RETURN;}}
5957 goto SCM_STUB_RETURN;
5958 SCM_STUB_RETURN:
5959 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5960 }
5961 }
5962 }
5963
libioport_fd_dupX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5964 static ScmObj libioport_fd_dupX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5965 {
5966 ScmObj dst_scm;
5967 ScmPort* dst;
5968 ScmObj src_scm;
5969 ScmPort* src;
5970 ScmObj SCM_SUBRARGS[2];
5971 SCM_ENTER_SUBR("port-fd-dup!");
5972 for (int SCM_i=0; SCM_i<2; SCM_i++) {
5973 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5974 }
5975 dst_scm = SCM_SUBRARGS[0];
5976 if (!SCM_PORTP(dst_scm)) Scm_Error("port required, but got %S", dst_scm);
5977 dst = SCM_PORT(dst_scm);
5978 src_scm = SCM_SUBRARGS[1];
5979 if (!SCM_PORTP(src_scm)) Scm_Error("port required, but got %S", src_scm);
5980 src = SCM_PORT(src_scm);
5981 {
5982 Scm_PortFdDup(dst,src);
5983 goto SCM_STUB_RETURN;
5984 SCM_STUB_RETURN:
5985 SCM_RETURN(SCM_UNDEFINED);
5986 }
5987 }
5988
libioport_attribute_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5989 static ScmObj libioport_attribute_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5990 {
5991 ScmObj port_scm;
5992 ScmPort* port;
5993 ScmObj key_scm;
5994 ScmObj key;
5995 ScmObj val_scm;
5996 ScmObj val;
5997 ScmObj SCM_SUBRARGS[3];
5998 SCM_ENTER_SUBR("port-attribute-set!");
5999 for (int SCM_i=0; SCM_i<3; SCM_i++) {
6000 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6001 }
6002 port_scm = SCM_SUBRARGS[0];
6003 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6004 port = SCM_PORT(port_scm);
6005 key_scm = SCM_SUBRARGS[1];
6006 key = (key_scm);
6007 val_scm = SCM_SUBRARGS[2];
6008 val = (val_scm);
6009 {
6010 {
6011 ScmObj SCM_RESULT;
6012 {SCM_RESULT=(Scm_PortAttrSet(port,key,val));goto SCM_STUB_RETURN;}
6013 goto SCM_STUB_RETURN;
6014 SCM_STUB_RETURN:
6015 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6016 }
6017 }
6018 }
6019
libioport_attribute_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6020 static ScmObj libioport_attribute_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6021 {
6022 ScmObj port_scm;
6023 ScmPort* port;
6024 ScmObj key_scm;
6025 ScmObj key;
6026 ScmObj fallback_scm;
6027 ScmObj fallback;
6028 ScmObj SCM_SUBRARGS[4];
6029 SCM_ENTER_SUBR("port-attribute-ref");
6030 if (SCM_ARGCNT >= 4
6031 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
6032 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
6033 for (int SCM_i=0; SCM_i<4; SCM_i++) {
6034 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6035 }
6036 port_scm = SCM_SUBRARGS[0];
6037 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6038 port = SCM_PORT(port_scm);
6039 key_scm = SCM_SUBRARGS[1];
6040 key = (key_scm);
6041 if (SCM_ARGCNT > 2+1) {
6042 fallback_scm = SCM_SUBRARGS[2];
6043 } else {
6044 fallback_scm = SCM_UNBOUND;
6045 }
6046 fallback = (fallback_scm);
6047 {
6048 {
6049 ScmObj SCM_RESULT;
6050 {SCM_RESULT=(Scm_PortAttrGet(port,key,fallback));goto SCM_STUB_RETURN;}
6051 goto SCM_STUB_RETURN;
6052 SCM_STUB_RETURN:
6053 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6054 }
6055 }
6056 }
6057
libioport_attribute_createX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6058 static ScmObj libioport_attribute_createX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6059 {
6060 ScmObj port_scm;
6061 ScmPort* port;
6062 ScmObj key_scm;
6063 ScmObj key;
6064 ScmObj get_scm;
6065 ScmObj get;
6066 ScmObj set_scm;
6067 ScmObj set;
6068 ScmObj SCM_SUBRARGS[6];
6069 SCM_ENTER_SUBR("port-attribute-create!");
6070 if (SCM_ARGCNT >= 5
6071 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
6072 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
6073 for (int SCM_i=0; SCM_i<6; SCM_i++) {
6074 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6075 }
6076 port_scm = SCM_SUBRARGS[0];
6077 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6078 port = SCM_PORT(port_scm);
6079 key_scm = SCM_SUBRARGS[1];
6080 key = (key_scm);
6081 if (SCM_ARGCNT > 2+1) {
6082 get_scm = SCM_SUBRARGS[2];
6083 } else {
6084 get_scm = SCM_FALSE;
6085 }
6086 get = (get_scm);
6087 if (SCM_ARGCNT > 3+1) {
6088 set_scm = SCM_SUBRARGS[3];
6089 } else {
6090 set_scm = SCM_FALSE;
6091 }
6092 set = (set_scm);
6093 {
6094 {
6095 ScmObj SCM_RESULT;
6096 {SCM_RESULT=(Scm_PortAttrCreate(port,key,get,set));goto SCM_STUB_RETURN;}
6097 goto SCM_STUB_RETURN;
6098 SCM_STUB_RETURN:
6099 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6100 }
6101 }
6102 }
6103
libioport_attribute_deleteX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6104 static ScmObj libioport_attribute_deleteX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6105 {
6106 ScmObj port_scm;
6107 ScmPort* port;
6108 ScmObj key_scm;
6109 ScmObj key;
6110 ScmObj SCM_SUBRARGS[2];
6111 SCM_ENTER_SUBR("port-attribute-delete!");
6112 for (int SCM_i=0; SCM_i<2; SCM_i++) {
6113 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6114 }
6115 port_scm = SCM_SUBRARGS[0];
6116 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6117 port = SCM_PORT(port_scm);
6118 key_scm = SCM_SUBRARGS[1];
6119 key = (key_scm);
6120 {
6121 {
6122 ScmObj SCM_RESULT;
6123 {SCM_RESULT=(Scm_PortAttrDelete(port,key));goto SCM_STUB_RETURN;}
6124 goto SCM_STUB_RETURN;
6125 SCM_STUB_RETURN:
6126 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6127 }
6128 }
6129 }
6130
libioport_attributes(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6131 static ScmObj libioport_attributes(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6132 {
6133 ScmObj port_scm;
6134 ScmPort* port;
6135 ScmObj SCM_SUBRARGS[1];
6136 SCM_ENTER_SUBR("port-attributes");
6137 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6138 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6139 }
6140 port_scm = SCM_SUBRARGS[0];
6141 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6142 port = SCM_PORT(port_scm);
6143 {
6144 {
6145 ScmObj SCM_RESULT;
6146 {SCM_RESULT=(Scm_PortAttrs(port));goto SCM_STUB_RETURN;}
6147 goto SCM_STUB_RETURN;
6148 SCM_STUB_RETURN:
6149 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6150 }
6151 }
6152 }
6153
libioport_type(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6154 static ScmObj libioport_type(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6155 {
6156 ScmObj port_scm;
6157 ScmPort* port;
6158 ScmObj SCM_SUBRARGS[1];
6159 SCM_ENTER_SUBR("port-type");
6160 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6161 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6162 }
6163 port_scm = SCM_SUBRARGS[0];
6164 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6165 port = SCM_PORT(port_scm);
6166 {
6167 {
6168 ScmObj SCM_RESULT;
6169
6170 #line 141 "libio.scm"
6171 switch (SCM_PORT_TYPE(port)) {
6172 case SCM_PORT_FILE : {{SCM_RESULT=(scm__rc.d1562[55]);goto SCM_STUB_RETURN;}break;}
6173 case SCM_PORT_PROC : {{SCM_RESULT=(scm__rc.d1562[56]);goto SCM_STUB_RETURN;}break;}
6174 case SCM_PORT_OSTR : case SCM_PORT_ISTR : {{SCM_RESULT=(scm__rc.d1562[57]);goto SCM_STUB_RETURN;}break;}default: {
6175 {SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}break;}}
6176 goto SCM_STUB_RETURN;
6177 SCM_STUB_RETURN:
6178 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6179 }
6180 }
6181 }
6182
libioport_buffering_SETTER(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6183 static ScmObj libioport_buffering_SETTER(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6184 {
6185 ScmObj port_scm;
6186 ScmPort* port;
6187 ScmObj mode_scm;
6188 ScmObj mode;
6189 ScmObj SCM_SUBRARGS[2];
6190 SCM_ENTER_SUBR("(setter port-buffering)");
6191 for (int SCM_i=0; SCM_i<2; SCM_i++) {
6192 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6193 }
6194 port_scm = SCM_SUBRARGS[0];
6195 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6196 port = SCM_PORT(port_scm);
6197 mode_scm = SCM_SUBRARGS[1];
6198 mode = (mode_scm);
6199 {
6200
6201 #line 149 "libio.scm"
6202 if (!((SCM_PORT_TYPE(port))==(SCM_PORT_FILE))){{
6203 Scm_Error("can't set buffering mode to non-buffered port: %S",port);}}
6204
6205 #line 151 "libio.scm"
6206 Scm_SetPortBufferingMode(port,
6207 Scm_BufferingMode(mode,(port)->direction,-1));
6208 goto SCM_STUB_RETURN;
6209 SCM_STUB_RETURN:
6210 SCM_RETURN(SCM_UNDEFINED);
6211 }
6212 }
6213
libioport_buffering(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6214 static ScmObj libioport_buffering(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6215 {
6216 ScmObj port_scm;
6217 ScmPort* port;
6218 ScmObj SCM_SUBRARGS[1];
6219 SCM_ENTER_SUBR("port-buffering");
6220 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6221 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6222 }
6223 port_scm = SCM_SUBRARGS[0];
6224 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6225 port = SCM_PORT(port_scm);
6226 {
6227 {
6228 ScmObj SCM_RESULT;
6229
6230 #line 153 "libio.scm"
6231 {SCM_RESULT=(Scm_GetPortBufferingModeAsKeyword(port));goto SCM_STUB_RETURN;}
6232 goto SCM_STUB_RETURN;
6233 SCM_STUB_RETURN:
6234 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6235 }
6236 }
6237 }
6238
libioport_case_fold_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6239 static ScmObj libioport_case_fold_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6240 {
6241 ScmObj port_scm;
6242 ScmPort* port;
6243 ScmObj flag_scm;
6244 int flag;
6245 ScmObj SCM_SUBRARGS[2];
6246 SCM_ENTER_SUBR("port-case-fold-set!");
6247 for (int SCM_i=0; SCM_i<2; SCM_i++) {
6248 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6249 }
6250 port_scm = SCM_SUBRARGS[0];
6251 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6252 port = SCM_PORT(port_scm);
6253 flag_scm = SCM_SUBRARGS[1];
6254 if (!SCM_BOOLP(flag_scm)) Scm_Error("boolean required, but got %S", flag_scm);
6255 flag = SCM_BOOL_VALUE(flag_scm);
6256 {
6257
6258 #line 156 "libio.scm"
6259 if (flag){
6260 (SCM_PORT_FLAGS(port))|=(SCM_PORT_CASE_FOLD);} else {
6261 (SCM_PORT_FLAGS(port))&=(~(SCM_PORT_CASE_FOLD));}
6262 goto SCM_STUB_RETURN;
6263 SCM_STUB_RETURN:
6264 SCM_RETURN(SCM_UNDEFINED);
6265 }
6266 }
6267
libioclose_input_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6268 static ScmObj libioclose_input_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6269 {
6270 ScmObj port_scm;
6271 ScmPort* port;
6272 ScmObj SCM_SUBRARGS[1];
6273 SCM_ENTER_SUBR("close-input-port");
6274 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6275 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6276 }
6277 port_scm = SCM_SUBRARGS[0];
6278 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
6279 port = SCM_PORT(port_scm);
6280 {
6281 Scm_ClosePort(port);
6282 goto SCM_STUB_RETURN;
6283 SCM_STUB_RETURN:
6284 SCM_RETURN(SCM_UNDEFINED);
6285 }
6286 }
6287
libioclose_output_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6288 static ScmObj libioclose_output_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6289 {
6290 ScmObj port_scm;
6291 ScmPort* port;
6292 ScmObj SCM_SUBRARGS[1];
6293 SCM_ENTER_SUBR("close-output-port");
6294 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6295 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6296 }
6297 port_scm = SCM_SUBRARGS[0];
6298 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm);
6299 port = SCM_PORT(port_scm);
6300 {
6301 Scm_ClosePort(port);
6302 goto SCM_STUB_RETURN;
6303 SCM_STUB_RETURN:
6304 SCM_RETURN(SCM_UNDEFINED);
6305 }
6306 }
6307
libioclose_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6308 static ScmObj libioclose_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6309 {
6310 ScmObj port_scm;
6311 ScmPort* port;
6312 ScmObj SCM_SUBRARGS[1];
6313 SCM_ENTER_SUBR("close-port");
6314 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6315 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6316 }
6317 port_scm = SCM_SUBRARGS[0];
6318 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6319 port = SCM_PORT(port_scm);
6320 {
6321 Scm_ClosePort(port);
6322 goto SCM_STUB_RETURN;
6323 SCM_STUB_RETURN:
6324 SCM_RETURN(SCM_UNDEFINED);
6325 }
6326 }
6327
6328 #if defined(GAUCHE_WINDOWS)
6329 #define DIRECTORY_GETS_IN_WAY(x) ((x)==EACCES)
6330 #endif /* defined(GAUCHE_WINDOWS) */
6331 #if !(defined(GAUCHE_WINDOWS))
6332 #define DIRECTORY_GETS_IN_WAY(x) FALSE
6333 #endif /* !(defined(GAUCHE_WINDOWS)) */
libio_25open_input_file(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6334 static ScmObj libio_25open_input_file(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6335 {
6336 ScmObj path_scm;
6337 ScmString* path;
6338 ScmObj if_does_not_exist_scm = scm__rc.d1562[71];
6339 ScmObj if_does_not_exist;
6340 ScmObj buffering_scm = SCM_FALSE;
6341 ScmObj buffering;
6342 ScmObj element_type_scm = scm__rc.d1562[74];
6343 ScmObj element_type;
6344 ScmObj SCM_SUBRARGS[1];
6345 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
6346 SCM_ENTER_SUBR("%open-input-file");
6347 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6348 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6349 }
6350 path_scm = SCM_SUBRARGS[0];
6351 if (!SCM_STRINGP(path_scm)) Scm_Error("string required, but got %S", path_scm);
6352 path = SCM_STRING(path_scm);
6353 if (Scm_Length(SCM_OPTARGS) % 2)
6354 Scm_Error("keyword list not even: %S", SCM_OPTARGS);
6355 while (!SCM_NULLP(SCM_OPTARGS)) {
6356 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[72])) {
6357 if_does_not_exist_scm = SCM_CADR(SCM_OPTARGS);
6358 } else
6359 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[73])) {
6360 buffering_scm = SCM_CADR(SCM_OPTARGS);
6361 } else
6362 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[75])) {
6363 element_type_scm = SCM_CADR(SCM_OPTARGS);
6364 }
6365 else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
6366 SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
6367 }
6368 if_does_not_exist = (if_does_not_exist_scm);
6369 buffering = (buffering_scm);
6370 element_type = (element_type_scm);
6371 {
6372 {
6373 ScmObj SCM_RESULT;
6374
6375 #line 201 "libio.scm"
6376 {int ignerr=FALSE;int flags=O_RDONLY;
6377 #line 203 "libio.scm"
6378 if (SCM_FALSEP(if_does_not_exist)){ignerr=(TRUE);}else if(
6379 !(SCM_EQ(if_does_not_exist,scm__rc.d1562[71]))){
6380 Scm_TypeError(":if-does-not-exist",":error or #f",if_does_not_exist);}
6381 #line 207 "libio.scm"
6382 if (!((SCM_EQ(element_type,scm__rc.d1562[76]))||(
6383 SCM_EQ(element_type,scm__rc.d1562[74])))){{
6384 Scm_Error("bad element-type argument: either :character or :binary expected, but got %S",element_type);}}
6385 #line 211 "libio.scm"
6386
6387 #if defined(O_BINARY) && defined(O_TEXT)
6388
6389 #line 212 "libio.scm"
6390 if (SCM_EQ(element_type,scm__rc.d1562[76])){
6391 (flags)|=(O_TEXT);} else {
6392 (flags)|=(O_BINARY);}
6393 #endif /* defined(O_BINARY) && defined(O_TEXT) */
6394
6395 #line 215 "libio.scm"
6396 {int bufmode=Scm_BufferingMode(buffering,SCM_PORT_INPUT,SCM_PORT_BUFFER_FULL);ScmObj o=
6397 #line 217 "libio.scm"
6398 Scm_OpenFilePort(Scm_GetStringConst(path),flags,bufmode,0);
6399 #line 219 "libio.scm"
6400 if ((SCM_FALSEP(o))&&(!((ignerr)&&(((((errno)==(ENOENT))||((errno)==(ENODEV)))||((errno)==(ENXIO)))||((errno)==(ENOTDIR)))))){{
6401 Scm_SysError("couldn't open input file: %S",path);}}
6402 {SCM_RESULT=(o);goto SCM_STUB_RETURN;}}}
6403 goto SCM_STUB_RETURN;
6404 SCM_STUB_RETURN:
6405 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6406 }
6407 }
6408 }
6409
libio_25open_output_file(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6410 static ScmObj libio_25open_output_file(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6411 {
6412 ScmObj path_scm;
6413 ScmString* path;
6414 ScmObj if_exists_scm = scm__rc.d1562[81];
6415 ScmObj if_exists;
6416 ScmObj if_does_not_exist_scm = scm__rc.d1562[83];
6417 ScmObj if_does_not_exist;
6418 ScmObj mode_scm = SCM_MAKE_INT(438U);
6419 ScmSmallInt mode;
6420 ScmObj buffering_scm = SCM_FALSE;
6421 ScmObj buffering;
6422 ScmObj element_type_scm = scm__rc.d1562[74];
6423 ScmObj element_type;
6424 ScmObj SCM_SUBRARGS[1];
6425 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
6426 SCM_ENTER_SUBR("%open-output-file");
6427 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6428 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6429 }
6430 path_scm = SCM_SUBRARGS[0];
6431 if (!SCM_STRINGP(path_scm)) Scm_Error("string required, but got %S", path_scm);
6432 path = SCM_STRING(path_scm);
6433 if (Scm_Length(SCM_OPTARGS) % 2)
6434 Scm_Error("keyword list not even: %S", SCM_OPTARGS);
6435 while (!SCM_NULLP(SCM_OPTARGS)) {
6436 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[82])) {
6437 if_exists_scm = SCM_CADR(SCM_OPTARGS);
6438 } else
6439 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[72])) {
6440 if_does_not_exist_scm = SCM_CADR(SCM_OPTARGS);
6441 } else
6442 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[84])) {
6443 mode_scm = SCM_CADR(SCM_OPTARGS);
6444 } else
6445 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[73])) {
6446 buffering_scm = SCM_CADR(SCM_OPTARGS);
6447 } else
6448 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[75])) {
6449 element_type_scm = SCM_CADR(SCM_OPTARGS);
6450 }
6451 else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
6452 SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
6453 }
6454 if_exists = (if_exists_scm);
6455 if_does_not_exist = (if_does_not_exist_scm);
6456 if (!SCM_INTP(mode_scm)) Scm_Error("small integer required, but got %S", mode_scm);
6457 mode = SCM_INT_VALUE(mode_scm);
6458 buffering = (buffering_scm);
6459 element_type = (element_type_scm);
6460 {
6461 {
6462 ScmObj SCM_RESULT;
6463
6464 #line 230 "libio.scm"
6465 {int ignerr_noexist=FALSE;int ignerr_exist=FALSE;int flags=O_WRONLY;
6466 #line 233 "libio.scm"
6467 if (!((SCM_EQ(element_type,scm__rc.d1562[76]))||(
6468 SCM_EQ(element_type,scm__rc.d1562[74])))){{
6469 Scm_Error("bad element-type argument: either :character or :binary expected, but got %S",element_type);}}
6470 #line 237 "libio.scm"
6471
6472 #if defined(O_BINARY) && defined(O_TEXT)
6473
6474 #line 238 "libio.scm"
6475 if (SCM_EQ(element_type,scm__rc.d1562[76])){
6476 (flags)|=(O_TEXT);} else {
6477 (flags)|=(O_BINARY);}
6478 #endif /* defined(O_BINARY) && defined(O_TEXT) */
6479
6480 #line 242 "libio.scm"
6481 if (
6482 SCM_EQ(if_exists,scm__rc.d1562[86])){(flags)|=(O_APPEND);}else if(
6483 SCM_EQ(if_exists,scm__rc.d1562[71])){
6484 (flags)|=(O_EXCL);
6485 if (SCM_EQ(if_does_not_exist,scm__rc.d1562[71])){{
6486 Scm_Error("bad flag combination: :if-exists and :if-does-not-exist can't be :error the same time.");}}}else if(
6487 SCM_EQ(if_exists,scm__rc.d1562[81])){(flags)|=(O_TRUNC);}else if(
6488 SCM_EQ(if_exists,scm__rc.d1562[85])){}else if(
6489 SCM_FALSEP(if_exists)){(flags)|=(O_EXCL);ignerr_exist=(TRUE);} else {
6490 #line 252 "libio.scm"
6491 Scm_TypeError(":if-exists",":supersede, :overwrite, :append, :error or #f",if_exists);}
6492 #line 254 "libio.scm"
6493 if (
6494 SCM_EQ(if_does_not_exist,scm__rc.d1562[83])){(flags)|=(O_CREAT);}else if(
6495 SCM_FALSEP(if_does_not_exist)){ignerr_noexist=(TRUE);}else if(
6496 SCM_EQ(if_does_not_exist,scm__rc.d1562[71])){} else {
6497 Scm_TypeError(":if-does-not-exist",":error, :create or #f",if_does_not_exist);}
6498 #line 260 "libio.scm"
6499 {int bufmode=
6500 Scm_BufferingMode(buffering,SCM_PORT_OUTPUT,SCM_PORT_BUFFER_FULL);ScmObj o=
6501 Scm_OpenFilePort(Scm_GetStringConst(path),flags,bufmode,mode);
6502 #line 264 "libio.scm"
6503 if (((SCM_FALSEP(o))&&(
6504 !((ignerr_noexist)&&(((((errno)==(ENOENT))||((errno)==(ENODEV)))||((errno)==(ENXIO)))||((errno)==(ENOTDIR))))))&&(
6505 !((ignerr_exist)&&((((errno)==(EEXIST))||((errno)==(ENOTDIR)))||(DIRECTORY_GETS_IN_WAY(errno)))))){{
6506 Scm_Error("couldn't open output file: %S",path);}}
6507 {SCM_RESULT=(o);goto SCM_STUB_RETURN;}}}
6508 goto SCM_STUB_RETURN;
6509 SCM_STUB_RETURN:
6510 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6511 }
6512 }
6513 }
6514
libioopen_input_fd_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6515 static ScmObj libioopen_input_fd_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6516 {
6517 ScmObj fd_scm;
6518 ScmSmallInt fd;
6519 ScmObj buffering_scm = SCM_FALSE;
6520 ScmObj buffering;
6521 ScmObj ownerP_scm = SCM_FALSE;
6522 ScmObj ownerP;
6523 ScmObj name_scm = SCM_FALSE;
6524 ScmObj name;
6525 ScmObj SCM_SUBRARGS[1];
6526 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
6527 SCM_ENTER_SUBR("open-input-fd-port");
6528 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6529 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6530 }
6531 fd_scm = SCM_SUBRARGS[0];
6532 if (!SCM_INTP(fd_scm)) Scm_Error("small integer required, but got %S", fd_scm);
6533 fd = SCM_INT_VALUE(fd_scm);
6534 if (Scm_Length(SCM_OPTARGS) % 2)
6535 Scm_Error("keyword list not even: %S", SCM_OPTARGS);
6536 while (!SCM_NULLP(SCM_OPTARGS)) {
6537 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[73])) {
6538 buffering_scm = SCM_CADR(SCM_OPTARGS);
6539 } else
6540 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[89])) {
6541 ownerP_scm = SCM_CADR(SCM_OPTARGS);
6542 } else
6543 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[90])) {
6544 name_scm = SCM_CADR(SCM_OPTARGS);
6545 }
6546 else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
6547 SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
6548 }
6549 buffering = (buffering_scm);
6550 ownerP = (ownerP_scm);
6551 name = (name_scm);
6552 {
6553 {
6554 ScmObj SCM_RESULT;
6555
6556 #line 277 "libio.scm"
6557 {int bufmode=Scm_BufferingMode(buffering,SCM_PORT_INPUT,SCM_PORT_BUFFER_FULL);
6558 #line 279 "libio.scm"
6559 if ((fd)<(0)){{Scm_Error("bad file descriptor: %ld",fd);}}
6560 if (
6561 SCM_EQ(ownerP,scm__rc.d1562[91])){
6562 {int r=0;
6563 SCM_SYSCALL(r,dup(fd));
6564 if ((r)<(0)){{Scm_SysError("dup(2) failed");}}
6565 fd=(r);}}else if(
6566 !(SCM_BOOLP(ownerP))){
6567 Scm_Error("owner? argument must be either #f, #t or a symbol dup, \nbut go t%S",ownerP);}
6568 #line 289 "libio.scm"
6569 {SCM_RESULT=(Scm_MakePortWithFd(name,SCM_PORT_INPUT,fd,bufmode,
6570 !(SCM_FALSEP(ownerP))));goto SCM_STUB_RETURN;}}
6571 goto SCM_STUB_RETURN;
6572 SCM_STUB_RETURN:
6573 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6574 }
6575 }
6576 }
6577
libioopen_output_fd_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6578 static ScmObj libioopen_output_fd_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6579 {
6580 ScmObj fd_scm;
6581 ScmSmallInt fd;
6582 ScmObj buffering_scm = SCM_FALSE;
6583 ScmObj buffering;
6584 ScmObj ownerP_scm = SCM_FALSE;
6585 ScmObj ownerP;
6586 ScmObj name_scm = SCM_FALSE;
6587 ScmObj name;
6588 ScmObj SCM_SUBRARGS[1];
6589 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
6590 SCM_ENTER_SUBR("open-output-fd-port");
6591 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6592 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6593 }
6594 fd_scm = SCM_SUBRARGS[0];
6595 if (!SCM_INTP(fd_scm)) Scm_Error("small integer required, but got %S", fd_scm);
6596 fd = SCM_INT_VALUE(fd_scm);
6597 if (Scm_Length(SCM_OPTARGS) % 2)
6598 Scm_Error("keyword list not even: %S", SCM_OPTARGS);
6599 while (!SCM_NULLP(SCM_OPTARGS)) {
6600 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[73])) {
6601 buffering_scm = SCM_CADR(SCM_OPTARGS);
6602 } else
6603 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[89])) {
6604 ownerP_scm = SCM_CADR(SCM_OPTARGS);
6605 } else
6606 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[90])) {
6607 name_scm = SCM_CADR(SCM_OPTARGS);
6608 }
6609 else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
6610 SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
6611 }
6612 buffering = (buffering_scm);
6613 ownerP = (ownerP_scm);
6614 name = (name_scm);
6615 {
6616 {
6617 ScmObj SCM_RESULT;
6618
6619 #line 296 "libio.scm"
6620 {int bufmode=Scm_BufferingMode(buffering,SCM_PORT_OUTPUT,SCM_PORT_BUFFER_FULL);
6621 #line 298 "libio.scm"
6622 if ((fd)<(0)){{Scm_Error("bad file descriptor: %d",fd);}}
6623 if (
6624 SCM_EQ(ownerP,scm__rc.d1562[91])){
6625 {int r=0;
6626 SCM_SYSCALL(r,dup(fd));
6627 if ((r)<(0)){{Scm_SysError("dup(2) failed");}}
6628 fd=(r);}}else if(
6629 !(SCM_BOOLP(ownerP))){
6630 Scm_Error("owner? argument must be either #f, #t or a symbol dup, \nbut go t%S",ownerP);}
6631 #line 308 "libio.scm"
6632 {SCM_RESULT=(Scm_MakePortWithFd(name,SCM_PORT_OUTPUT,fd,bufmode,
6633 !(SCM_FALSEP(ownerP))));goto SCM_STUB_RETURN;}}
6634 goto SCM_STUB_RETURN;
6635 SCM_STUB_RETURN:
6636 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6637 }
6638 }
6639 }
6640
bufport_closer(ScmPort * p)6641 static void bufport_closer(ScmPort* p){{
6642 #line 317 "libio.scm"
6643 if ((SCM_PORT_DIR(p))==(SCM_PORT_OUTPUT)){{
6644 {ScmObj scmflusher=SCM_OBJ((PORT_BUF(p))->data);int siz=
6645 ((int )(((PORT_BUF(p))->current)-(
6646 (PORT_BUF(p))->buffer)));
6647 if ((siz)>(0)){{
6648 Scm_ApplyRec1(scmflusher,
6649 Scm_MakeString((PORT_BUF(p))->buffer,siz,siz,
6650 (SCM_STRING_INCOMPLETE)|(SCM_STRING_COPYING)));}}
6651 #line 326 "libio.scm"
6652 Scm_ApplyRec1(scmflusher,SCM_FALSE);}}}}}
bufport_filler(ScmPort * p,ScmSize cnt)6653 static ScmSize bufport_filler(ScmPort* p,ScmSize cnt){{
6654 #line 329 "libio.scm"
6655 {ScmObj scmfiller=SCM_OBJ((PORT_BUF(p))->data);ScmObj r=
6656 Scm_ApplyRec1(scmfiller,Scm_MakeInteger(cnt));
6657 if ((SCM_EOFP(r))||(SCM_FALSEP(r))){return (0);}else if(
6658 !(SCM_STRINGP(r))){
6659 Scm_Error("buffered port callback procedure returned non-string: %S",r);}
6660 {const ScmStringBody* b=SCM_STRING_BODY(r);ScmSize siz=
6661 SCM_STRING_BODY_SIZE(b);
6662 if ((siz)>(cnt)){{siz=(cnt);}}
6663 memcpy((PORT_BUF(p))->end,SCM_STRING_BODY_START(b),siz);
6664 return (SCM_STRING_BODY_SIZE(b));}}}}
libioopen_input_buffered_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6665 static ScmObj libioopen_input_buffered_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6666 {
6667 ScmObj filler_scm;
6668 ScmProcedure* filler;
6669 ScmObj buffer_size_scm;
6670 ScmSmallInt buffer_size;
6671 ScmObj SCM_SUBRARGS[2];
6672 SCM_ENTER_SUBR("open-input-buffered-port");
6673 for (int SCM_i=0; SCM_i<2; SCM_i++) {
6674 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6675 }
6676 filler_scm = SCM_SUBRARGS[0];
6677 if (!SCM_PROCEDUREP(filler_scm)) Scm_Error("procedure required, but got %S", filler_scm);
6678 filler = SCM_PROCEDURE(filler_scm);
6679 buffer_size_scm = SCM_SUBRARGS[1];
6680 if (!SCM_INTP(buffer_size_scm)) Scm_Error("small integer required, but got %S", buffer_size_scm);
6681 buffer_size = SCM_INT_VALUE(buffer_size_scm);
6682 {
6683 {
6684 ScmObj SCM_RESULT;
6685
6686 #line 343 "libio.scm"
6687 {ScmPortBuffer bufrec;
6688 (bufrec).size=(buffer_size),
6689 (bufrec).buffer=(NULL),
6690 (bufrec).mode=(SCM_PORT_BUFFER_FULL),
6691 (bufrec).filler=(bufport_filler),
6692 (bufrec).flusher=(NULL),
6693 (bufrec).closer=(bufport_closer),
6694 (bufrec).ready=(NULL),
6695 (bufrec).filenum=(NULL),
6696 (bufrec).data=(((void* )(filler)));
6697 {SCM_RESULT=(Scm_MakeBufferedPort(SCM_CLASS_PORT,SCM_FALSE,SCM_PORT_INPUT,TRUE,&(bufrec)));goto SCM_STUB_RETURN;}}
6698 goto SCM_STUB_RETURN;
6699 SCM_STUB_RETURN:
6700 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6701 }
6702 }
6703 }
6704
bufport_flusher(ScmPort * p,ScmSize cnt,int forcep)6705 static ScmSize bufport_flusher(ScmPort* p,ScmSize cnt,int forcep){{
6706 #line 358 "libio.scm"
6707 ((void )(forcep));
6708 {ScmObj scmflusher=SCM_OBJ((PORT_BUF(p))->data);ScmObj s=
6709 Scm_MakeString((PORT_BUF(p))->buffer,cnt,cnt,
6710 (SCM_STRING_INCOMPLETE)|(SCM_STRING_COPYING));
6711 Scm_ApplyRec1(scmflusher,s);
6712 return (cnt);}}}
libioopen_output_buffered_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6713 static ScmObj libioopen_output_buffered_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6714 {
6715 ScmObj flusher_scm;
6716 ScmProcedure* flusher;
6717 ScmObj buffer_size_scm;
6718 ScmSmallInt buffer_size;
6719 ScmObj SCM_SUBRARGS[2];
6720 SCM_ENTER_SUBR("open-output-buffered-port");
6721 for (int SCM_i=0; SCM_i<2; SCM_i++) {
6722 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6723 }
6724 flusher_scm = SCM_SUBRARGS[0];
6725 if (!SCM_PROCEDUREP(flusher_scm)) Scm_Error("procedure required, but got %S", flusher_scm);
6726 flusher = SCM_PROCEDURE(flusher_scm);
6727 buffer_size_scm = SCM_SUBRARGS[1];
6728 if (!SCM_INTP(buffer_size_scm)) Scm_Error("small integer required, but got %S", buffer_size_scm);
6729 buffer_size = SCM_INT_VALUE(buffer_size_scm);
6730 {
6731 {
6732 ScmObj SCM_RESULT;
6733
6734 #line 368 "libio.scm"
6735 {ScmPortBuffer bufrec;
6736 (bufrec).size=(buffer_size),
6737 (bufrec).buffer=(NULL),
6738 (bufrec).mode=(SCM_PORT_BUFFER_FULL),
6739 (bufrec).filler=(NULL),
6740 (bufrec).flusher=(bufport_flusher),
6741 (bufrec).closer=(bufport_closer),
6742 (bufrec).ready=(NULL),
6743 (bufrec).filenum=(NULL),
6744 (bufrec).data=(((void* )(flusher)));
6745 {SCM_RESULT=(Scm_MakeBufferedPort(SCM_CLASS_PORT,SCM_FALSE,SCM_PORT_OUTPUT,TRUE,
6746 &(bufrec)));goto SCM_STUB_RETURN;}}
6747 goto SCM_STUB_RETURN;
6748 SCM_STUB_RETURN:
6749 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6750 }
6751 }
6752 }
6753
libioopen_input_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6754 static ScmObj libioopen_input_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6755 {
6756 ScmObj string_scm;
6757 ScmString* string;
6758 ScmObj privateP_scm = SCM_FALSE;
6759 int privateP;
6760 ScmObj name_scm = SCM_OBJ(&scm__sc.d1561[76]);
6761 ScmObj name;
6762 ScmObj SCM_SUBRARGS[1];
6763 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
6764 SCM_ENTER_SUBR("open-input-string");
6765 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6766 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6767 }
6768 string_scm = SCM_SUBRARGS[0];
6769 if (!SCM_STRINGP(string_scm)) Scm_Error("string required, but got %S", string_scm);
6770 string = SCM_STRING(string_scm);
6771 if (Scm_Length(SCM_OPTARGS) % 2)
6772 Scm_Error("keyword list not even: %S", SCM_OPTARGS);
6773 while (!SCM_NULLP(SCM_OPTARGS)) {
6774 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[104])) {
6775 privateP_scm = SCM_CADR(SCM_OPTARGS);
6776 } else
6777 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[90])) {
6778 name_scm = SCM_CADR(SCM_OPTARGS);
6779 }
6780 else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
6781 SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
6782 }
6783 if (!SCM_BOOLP(privateP_scm)) Scm_Error("boolean required, but got %S", privateP_scm);
6784 privateP = SCM_BOOL_VALUE(privateP_scm);
6785 name = (name_scm);
6786 {
6787 {
6788 ScmObj SCM_RESULT;
6789
6790 #line 393 "libio.scm"
6791 {u_long flags=((privateP)?(SCM_PORT_STRING_PRIVATE):(0));
6792 {SCM_RESULT=(Scm_MakeInputStringPortFull(string,name,flags));goto SCM_STUB_RETURN;}}
6793 goto SCM_STUB_RETURN;
6794 SCM_STUB_RETURN:
6795 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6796 }
6797 }
6798 }
6799
libioopen_output_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6800 static ScmObj libioopen_output_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6801 {
6802 ScmObj privateP_scm = SCM_FALSE;
6803 int privateP;
6804 ScmObj name_scm = SCM_OBJ(&scm__sc.d1561[78]);
6805 ScmObj name;
6806 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
6807 SCM_ENTER_SUBR("open-output-string");
6808 if (Scm_Length(SCM_OPTARGS) % 2)
6809 Scm_Error("keyword list not even: %S", SCM_OPTARGS);
6810 while (!SCM_NULLP(SCM_OPTARGS)) {
6811 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[104])) {
6812 privateP_scm = SCM_CADR(SCM_OPTARGS);
6813 } else
6814 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[90])) {
6815 name_scm = SCM_CADR(SCM_OPTARGS);
6816 }
6817 else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
6818 SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
6819 }
6820 if (!SCM_BOOLP(privateP_scm)) Scm_Error("boolean required, but got %S", privateP_scm);
6821 privateP = SCM_BOOL_VALUE(privateP_scm);
6822 name = (name_scm);
6823 {
6824 {
6825 ScmObj SCM_RESULT;
6826
6827 #line 398 "libio.scm"
6828 {u_long flags=((privateP)?(SCM_PORT_STRING_PRIVATE):(0));
6829 {SCM_RESULT=(Scm_MakeOutputStringPortFull(name,flags));goto SCM_STUB_RETURN;}}
6830 goto SCM_STUB_RETURN;
6831 SCM_STUB_RETURN:
6832 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6833 }
6834 }
6835 }
6836
libioget_output_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6837 static ScmObj libioget_output_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6838 {
6839 ScmObj oport_scm;
6840 ScmPort* oport;
6841 ScmObj SCM_SUBRARGS[1];
6842 SCM_ENTER_SUBR("get-output-string");
6843 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6844 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6845 }
6846 oport_scm = SCM_SUBRARGS[0];
6847 if (!SCM_OPORTP(oport_scm)) Scm_Error("output port required, but got %S", oport_scm);
6848 oport = SCM_PORT(oport_scm);
6849 {
6850 {
6851 ScmObj SCM_RESULT;
6852
6853 #line 402 "libio.scm"
6854 {SCM_RESULT=(Scm_GetOutputString(oport,0));goto SCM_STUB_RETURN;}
6855 goto SCM_STUB_RETURN;
6856 SCM_STUB_RETURN:
6857 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6858 }
6859 }
6860 }
6861
libioget_output_byte_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6862 static ScmObj libioget_output_byte_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6863 {
6864 ScmObj oport_scm;
6865 ScmPort* oport;
6866 ScmObj SCM_SUBRARGS[1];
6867 SCM_ENTER_SUBR("get-output-byte-string");
6868 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6869 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6870 }
6871 oport_scm = SCM_SUBRARGS[0];
6872 if (!SCM_OPORTP(oport_scm)) Scm_Error("output port required, but got %S", oport_scm);
6873 oport = SCM_PORT(oport_scm);
6874 {
6875 {
6876 ScmObj SCM_RESULT;
6877
6878 #line 405 "libio.scm"
6879 {SCM_RESULT=(Scm_GetOutputString(oport,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}
6880 goto SCM_STUB_RETURN;
6881 SCM_STUB_RETURN:
6882 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6883 }
6884 }
6885 }
6886
libioget_remaining_input_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6887 static ScmObj libioget_remaining_input_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6888 {
6889 ScmObj iport_scm;
6890 ScmPort* iport;
6891 ScmObj SCM_SUBRARGS[1];
6892 SCM_ENTER_SUBR("get-remaining-input-string");
6893 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6894 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6895 }
6896 iport_scm = SCM_SUBRARGS[0];
6897 if (!SCM_IPORTP(iport_scm)) Scm_Error("input port required, but got %S", iport_scm);
6898 iport = SCM_PORT(iport_scm);
6899 {
6900 {
6901 ScmObj SCM_RESULT;
6902
6903 #line 408 "libio.scm"
6904 {SCM_RESULT=(Scm_GetRemainingInputString(iport,0));goto SCM_STUB_RETURN;}
6905 goto SCM_STUB_RETURN;
6906 SCM_STUB_RETURN:
6907 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6908 }
6909 }
6910 }
6911
libioopen_coding_aware_port(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6912 static ScmObj libioopen_coding_aware_port(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6913 {
6914 ScmObj iport_scm;
6915 ScmPort* iport;
6916 ScmObj SCM_SUBRARGS[1];
6917 SCM_ENTER_SUBR("open-coding-aware-port");
6918 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6919 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6920 }
6921 iport_scm = SCM_SUBRARGS[0];
6922 if (!SCM_IPORTP(iport_scm)) Scm_Error("input port required, but got %S", iport_scm);
6923 iport = SCM_PORT(iport_scm);
6924 {
6925 {
6926 ScmObj SCM_RESULT;
6927 {SCM_RESULT=(Scm_MakeCodingAwarePort(iport));goto SCM_STUB_RETURN;}
6928 goto SCM_STUB_RETURN;
6929 SCM_STUB_RETURN:
6930 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
6931 }
6932 }
6933 }
6934
libioport_has_port_positionP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6935 static ScmObj libioport_has_port_positionP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6936 {
6937 ScmObj port_scm;
6938 ScmPort* port;
6939 ScmObj SCM_SUBRARGS[1];
6940 SCM_ENTER_SUBR("port-has-port-position?");
6941 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6942 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6943 }
6944 port_scm = SCM_SUBRARGS[0];
6945 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6946 port = SCM_PORT(port_scm);
6947 {
6948 {
6949 int SCM_RESULT;
6950
6951 #line 422 "libio.scm"
6952 {SCM_RESULT=(Scm_PortPositionable(port,FALSE));goto SCM_STUB_RETURN;}
6953 goto SCM_STUB_RETURN;
6954 SCM_STUB_RETURN:
6955 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
6956 }
6957 }
6958 }
6959
libioport_has_set_port_positionXP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6960 static ScmObj libioport_has_set_port_positionXP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6961 {
6962 ScmObj port_scm;
6963 ScmPort* port;
6964 ScmObj SCM_SUBRARGS[1];
6965 SCM_ENTER_SUBR("port-has-set-port-position!?");
6966 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6967 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6968 }
6969 port_scm = SCM_SUBRARGS[0];
6970 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6971 port = SCM_PORT(port_scm);
6972 {
6973 {
6974 int SCM_RESULT;
6975
6976 #line 424 "libio.scm"
6977 {SCM_RESULT=(Scm_PortPositionable(port,TRUE));goto SCM_STUB_RETURN;}
6978 goto SCM_STUB_RETURN;
6979 SCM_STUB_RETURN:
6980 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
6981 }
6982 }
6983 }
6984
libioport_position(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)6985 static ScmObj libioport_position(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
6986 {
6987 ScmObj port_scm;
6988 ScmPort* port;
6989 ScmObj SCM_SUBRARGS[1];
6990 SCM_ENTER_SUBR("port-position");
6991 for (int SCM_i=0; SCM_i<1; SCM_i++) {
6992 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
6993 }
6994 port_scm = SCM_SUBRARGS[0];
6995 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
6996 port = SCM_PORT(port_scm);
6997 {
6998 {
6999 ScmObj SCM_RESULT;
7000
7001 #line 427 "libio.scm"
7002 {SCM_RESULT=(Scm_GetPortPosition(port));goto SCM_STUB_RETURN;}
7003 goto SCM_STUB_RETURN;
7004 SCM_STUB_RETURN:
7005 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7006 }
7007 }
7008 }
7009
libioset_port_positionX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7010 static ScmObj libioset_port_positionX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7011 {
7012 ScmObj port_scm;
7013 ScmPort* port;
7014 ScmObj pos_scm;
7015 ScmObj pos;
7016 ScmObj SCM_SUBRARGS[2];
7017 SCM_ENTER_SUBR("set-port-position!");
7018 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7019 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7020 }
7021 port_scm = SCM_SUBRARGS[0];
7022 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7023 port = SCM_PORT(port_scm);
7024 pos_scm = SCM_SUBRARGS[1];
7025 pos = (pos_scm);
7026 {
7027 {
7028 ScmObj SCM_RESULT;
7029
7030 #line 429 "libio.scm"
7031 {SCM_RESULT=(Scm_SetPortPosition(port,pos));goto SCM_STUB_RETURN;}
7032 goto SCM_STUB_RETURN;
7033 SCM_STUB_RETURN:
7034 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7035 }
7036 }
7037 }
7038
libioport_seek(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7039 static ScmObj libioport_seek(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7040 {
7041 ScmObj port_scm;
7042 ScmPort* port;
7043 ScmObj offset_scm;
7044 ScmObj offset;
7045 ScmObj whence_scm;
7046 ScmSmallInt whence;
7047 ScmObj SCM_SUBRARGS[4];
7048 SCM_ENTER_SUBR("port-seek");
7049 if (SCM_ARGCNT >= 4
7050 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7051 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7052 for (int SCM_i=0; SCM_i<4; SCM_i++) {
7053 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7054 }
7055 port_scm = SCM_SUBRARGS[0];
7056 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7057 port = SCM_PORT(port_scm);
7058 offset_scm = SCM_SUBRARGS[1];
7059 if (!SCM_INTEGERP(offset_scm)) Scm_Error("exact integer required, but got %S", offset_scm);
7060 offset = (offset_scm);
7061 if (SCM_ARGCNT > 2+1) {
7062 whence_scm = SCM_SUBRARGS[2];
7063 } else {
7064 whence_scm = SCM_MAKE_INT(SEEK_SET);
7065 }
7066 if (!SCM_INTP(whence_scm)) Scm_Error("small integer required, but got %S", whence_scm);
7067 whence = SCM_INT_VALUE(whence_scm);
7068 {
7069 {
7070 ScmObj SCM_RESULT;
7071 {SCM_RESULT=(Scm_PortSeek(port,offset,whence));goto SCM_STUB_RETURN;}
7072 goto SCM_STUB_RETURN;
7073 SCM_STUB_RETURN:
7074 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7075 }
7076 }
7077 }
7078
libio_25port_walkingP_SETTER(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7079 static ScmObj libio_25port_walkingP_SETTER(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7080 {
7081 ScmObj port_scm;
7082 ScmPort* port;
7083 ScmObj flag_scm;
7084 int flag;
7085 ScmObj SCM_SUBRARGS[2];
7086 SCM_ENTER_SUBR("(setter %port-walking?)");
7087 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7088 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7089 }
7090 port_scm = SCM_SUBRARGS[0];
7091 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7092 port = SCM_PORT(port_scm);
7093 flag_scm = SCM_SUBRARGS[1];
7094 if (!SCM_BOOLP(flag_scm)) Scm_Error("boolean required, but got %S", flag_scm);
7095 flag = SCM_BOOL_VALUE(flag_scm);
7096 {
7097
7098 #line 462 "libio.scm"
7099 if (flag){
7100 ((port)->flags)|=(SCM_PORT_WALKING);} else {
7101 ((port)->flags)&=(~(SCM_PORT_WALKING));}
7102 goto SCM_STUB_RETURN;
7103 SCM_STUB_RETURN:
7104 SCM_RETURN(SCM_UNDEFINED);
7105 }
7106 }
7107
libio_25port_walkingP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7108 static ScmObj libio_25port_walkingP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7109 {
7110 ScmObj port_scm;
7111 ScmPort* port;
7112 ScmObj SCM_SUBRARGS[1];
7113 SCM_ENTER_SUBR("%port-walking?");
7114 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7115 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7116 }
7117 port_scm = SCM_SUBRARGS[0];
7118 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7119 port = SCM_PORT(port_scm);
7120 {
7121 {
7122 int SCM_RESULT;
7123 {SCM_RESULT=(PORT_WALKER_P(port));goto SCM_STUB_RETURN;}
7124 goto SCM_STUB_RETURN;
7125 SCM_STUB_RETURN:
7126 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
7127 }
7128 }
7129 }
7130
libio_25port_writing_sharedP_SETTER(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7131 static ScmObj libio_25port_writing_sharedP_SETTER(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7132 {
7133 ScmObj port_scm;
7134 ScmPort* port;
7135 ScmObj flag_scm;
7136 int flag;
7137 ScmObj SCM_SUBRARGS[2];
7138 SCM_ENTER_SUBR("(setter %port-writing-shared?)");
7139 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7140 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7141 }
7142 port_scm = SCM_SUBRARGS[0];
7143 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7144 port = SCM_PORT(port_scm);
7145 flag_scm = SCM_SUBRARGS[1];
7146 if (!SCM_BOOLP(flag_scm)) Scm_Error("boolean required, but got %S", flag_scm);
7147 flag = SCM_BOOL_VALUE(flag_scm);
7148 {
7149
7150 #line 468 "libio.scm"
7151 if (flag){
7152 ((port)->flags)|=(SCM_PORT_WRITESS);} else {
7153 ((port)->flags)&=(~(SCM_PORT_WRITESS));}
7154 goto SCM_STUB_RETURN;
7155 SCM_STUB_RETURN:
7156 SCM_RETURN(SCM_UNDEFINED);
7157 }
7158 }
7159
libio_25port_writing_sharedP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7160 static ScmObj libio_25port_writing_sharedP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7161 {
7162 ScmObj port_scm;
7163 ScmPort* port;
7164 ScmObj SCM_SUBRARGS[1];
7165 SCM_ENTER_SUBR("%port-writing-shared?");
7166 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7167 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7168 }
7169 port_scm = SCM_SUBRARGS[0];
7170 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7171 port = SCM_PORT(port_scm);
7172 {
7173 {
7174 int SCM_RESULT;
7175 {SCM_RESULT=(PORT_WRITESS_P(port));goto SCM_STUB_RETURN;}
7176 goto SCM_STUB_RETURN;
7177 SCM_STUB_RETURN:
7178 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
7179 }
7180 }
7181 }
7182
write_state_allocate(ScmClass * klass,ScmObj initargs)7183 static ScmObj write_state_allocate(ScmClass* klass,ScmObj initargs){{
7184 #line 475 "libio.scm"
7185 ((void )(klass));
7186 ((void )(initargs));
7187 return (SCM_OBJ(Scm_MakeWriteState(NULL)));}}
write_state_print(ScmObj obj,ScmPort * port,ScmWriteContext * ctx)7188 static void write_state_print(ScmObj obj,ScmPort* port,ScmWriteContext* ctx){{
7189 #line 481 "libio.scm"
7190 ((void )(ctx));
7191 Scm_Printf(port,"#<write-state %p>",obj);}}
7192 static ScmClass *Scm_WriteStateClass_CPL[] = {
7193 SCM_CLASS_STATIC_PTR(Scm_TopClass),
7194 NULL
7195 };
7196 SCM_DEFINE_BUILTIN_CLASS(Scm_WriteStateClass, write_state_print, NULL, NULL, write_state_allocate, Scm_WriteStateClass_CPL);
7197
Scm_WriteStateClass_shared_table_GET(ScmObj OBJARG)7198 static ScmObj Scm_WriteStateClass_shared_table_GET(ScmObj OBJARG)
7199 {
7200 ScmWriteState* obj = SCM_WRITE_STATE(OBJARG);
7201 return SCM_MAKE_MAYBE(SCM_OBJ_SAFE, obj->sharedTable);
7202 }
7203
Scm_WriteStateClass_shared_table_SET(ScmObj OBJARG,ScmObj value)7204 static void Scm_WriteStateClass_shared_table_SET(ScmObj OBJARG, ScmObj value)
7205 {
7206 ScmWriteState* obj = SCM_WRITE_STATE(OBJARG);
7207 if (!SCM_HASH_TABLE_P(value)) Scm_Error("ScmHashTable* required, but got %S", value);
7208 obj->sharedTable = SCM_MAYBE(SCM_HASH_TABLE, value);
7209 }
7210
Scm_WriteStateClass_shared_counter_GET(ScmObj OBJARG)7211 static ScmObj Scm_WriteStateClass_shared_counter_GET(ScmObj OBJARG)
7212 {
7213 ScmWriteState* obj = SCM_WRITE_STATE(OBJARG);
7214 return Scm_MakeInteger(obj->sharedCounter);
7215 }
7216
Scm_WriteStateClass_shared_counter_SET(ScmObj OBJARG,ScmObj value)7217 static void Scm_WriteStateClass_shared_counter_SET(ScmObj OBJARG, ScmObj value)
7218 {
7219 ScmWriteState* obj = SCM_WRITE_STATE(OBJARG);
7220 if (!SCM_INTEGERP(value)) Scm_Error("int required, but got %S", value);
7221 obj->sharedCounter = Scm_GetInteger(value);
7222 }
7223
7224 static ScmClassStaticSlotSpec Scm_WriteStateClass__SLOTS[] = {
7225 SCM_CLASS_SLOT_SPEC("shared-table", Scm_WriteStateClass_shared_table_GET, Scm_WriteStateClass_shared_table_SET),
7226 SCM_CLASS_SLOT_SPEC("shared-counter", Scm_WriteStateClass_shared_counter_GET, Scm_WriteStateClass_shared_counter_SET),
7227 SCM_CLASS_SLOT_SPEC_END()
7228 };
7229
libio_25port_write_state_SETTER(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7230 static ScmObj libio_25port_write_state_SETTER(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7231 {
7232 ScmObj port_scm;
7233 ScmPort* port;
7234 ScmObj obj_scm;
7235 ScmObj obj;
7236 ScmObj SCM_SUBRARGS[2];
7237 SCM_ENTER_SUBR("(setter %port-write-state)");
7238 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7239 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7240 }
7241 port_scm = SCM_SUBRARGS[0];
7242 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7243 port = SCM_PORT(port_scm);
7244 obj_scm = SCM_SUBRARGS[1];
7245 obj = (obj_scm);
7246 {
7247
7248 #line 495 "libio.scm"
7249 if (SCM_WRITE_STATE_P(obj)){
7250 Scm_PortWriteStateSet(port,SCM_WRITE_STATE(obj));} else {
7251 Scm_PortWriteStateSet(port,NULL);}
7252 goto SCM_STUB_RETURN;
7253 SCM_STUB_RETURN:
7254 SCM_RETURN(SCM_UNDEFINED);
7255 }
7256 }
7257
libio_25port_write_state(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7258 static ScmObj libio_25port_write_state(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7259 {
7260 ScmObj port_scm;
7261 ScmPort* port;
7262 ScmObj SCM_SUBRARGS[1];
7263 SCM_ENTER_SUBR("%port-write-state");
7264 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7265 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7266 }
7267 port_scm = SCM_SUBRARGS[0];
7268 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7269 port = SCM_PORT(port_scm);
7270 {
7271 {
7272 ScmObj SCM_RESULT;
7273
7274 #line 498 "libio.scm"
7275 {ScmWriteState* r=Scm_PortWriteState(port);
7276 {SCM_RESULT=(((r)?(SCM_OBJ(r)):(SCM_FALSE)));goto SCM_STUB_RETURN;}}
7277 goto SCM_STUB_RETURN;
7278 SCM_STUB_RETURN:
7279 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7280 }
7281 }
7282 }
7283
libio_25port_lockX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7284 static ScmObj libio_25port_lockX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7285 {
7286 ScmObj port_scm;
7287 ScmPort* port;
7288 ScmObj SCM_SUBRARGS[1];
7289 SCM_ENTER_SUBR("%port-lock!");
7290 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7291 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7292 }
7293 port_scm = SCM_SUBRARGS[0];
7294 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7295 port = SCM_PORT(port_scm);
7296 {
7297
7298 #line 502 "libio.scm"
7299 {ScmVM* vm=Scm_VM();
7300 PORT_LOCK(port,vm);}
7301 goto SCM_STUB_RETURN;
7302 SCM_STUB_RETURN:
7303 SCM_RETURN(SCM_UNDEFINED);
7304 }
7305 }
7306
libio_25port_unlockX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7307 static ScmObj libio_25port_unlockX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7308 {
7309 ScmObj port_scm;
7310 ScmPort* port;
7311 ScmObj SCM_SUBRARGS[1];
7312 SCM_ENTER_SUBR("%port-unlock!");
7313 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7314 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7315 }
7316 port_scm = SCM_SUBRARGS[0];
7317 if (!SCM_PORTP(port_scm)) Scm_Error("port required, but got %S", port_scm);
7318 port = SCM_PORT(port_scm);
7319 {
7320
7321 #line 505 "libio.scm"
7322 PORT_UNLOCK(port);
7323 goto SCM_STUB_RETURN;
7324 SCM_STUB_RETURN:
7325 SCM_RETURN(SCM_UNDEFINED);
7326 }
7327 }
7328
libioread(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7329 static ScmObj libioread(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7330 {
7331 ScmObj port_scm;
7332 ScmPort* port;
7333 ScmObj SCM_SUBRARGS[2];
7334 SCM_ENTER_SUBR("read");
7335 if (SCM_ARGCNT >= 2
7336 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7337 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7338 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7339 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7340 }
7341 if (SCM_ARGCNT > 0+1) {
7342 port_scm = SCM_SUBRARGS[0];
7343 } else {
7344 port_scm = SCM_OBJ(SCM_CURIN);
7345 }
7346 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7347 port = SCM_PORT(port_scm);
7348 {
7349 {
7350 ScmObj SCM_RESULT;
7351
7352 #line 544 "libio.scm"
7353 {SCM_RESULT=(Scm_Read(SCM_OBJ(port)));goto SCM_STUB_RETURN;}
7354 goto SCM_STUB_RETURN;
7355 SCM_STUB_RETURN:
7356 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7357 }
7358 }
7359 }
7360
libioread_char(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7361 static ScmObj libioread_char(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7362 {
7363 ScmObj port_scm;
7364 ScmPort* port;
7365 ScmObj SCM_SUBRARGS[2];
7366 SCM_ENTER_SUBR("read-char");
7367 if (SCM_ARGCNT >= 2
7368 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7369 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7370 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7371 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7372 }
7373 if (SCM_ARGCNT > 0+1) {
7374 port_scm = SCM_SUBRARGS[0];
7375 } else {
7376 port_scm = SCM_OBJ(SCM_CURIN);
7377 }
7378 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7379 port = SCM_PORT(port_scm);
7380 {
7381 {
7382 ScmObj SCM_RESULT;
7383
7384 #line 548 "libio.scm"
7385 {int ch;
7386 SCM_GETC(ch,port);
7387 {SCM_RESULT=((((ch)==(EOF))?(SCM_EOF):(SCM_MAKE_CHAR(ch))));goto SCM_STUB_RETURN;}}
7388 goto SCM_STUB_RETURN;
7389 SCM_STUB_RETURN:
7390 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7391 }
7392 }
7393 }
7394
libiopeek_char(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7395 static ScmObj libiopeek_char(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7396 {
7397 ScmObj port_scm;
7398 ScmPort* port;
7399 ScmObj SCM_SUBRARGS[2];
7400 SCM_ENTER_SUBR("peek-char");
7401 if (SCM_ARGCNT >= 2
7402 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7403 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7404 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7405 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7406 }
7407 if (SCM_ARGCNT > 0+1) {
7408 port_scm = SCM_SUBRARGS[0];
7409 } else {
7410 port_scm = SCM_OBJ(SCM_CURIN);
7411 }
7412 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7413 port = SCM_PORT(port_scm);
7414 {
7415 {
7416 ScmObj SCM_RESULT;
7417
7418 #line 554 "libio.scm"
7419 {ScmChar ch=Scm_Peekc(port);
7420 {SCM_RESULT=((((ch)==(SCM_CHAR_INVALID))?(SCM_EOF):(SCM_MAKE_CHAR(ch))));goto SCM_STUB_RETURN;}}
7421 goto SCM_STUB_RETURN;
7422 SCM_STUB_RETURN:
7423 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7424 }
7425 }
7426 }
7427
libioeof_objectP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7428 static ScmObj libioeof_objectP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7429 {
7430 ScmObj obj_scm;
7431 ScmObj obj;
7432 ScmObj SCM_SUBRARGS[1];
7433 SCM_ENTER_SUBR("eof-object?");
7434 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7435 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7436 }
7437 obj_scm = SCM_SUBRARGS[0];
7438 obj = (obj_scm);
7439 {
7440 {
7441 int SCM_RESULT;
7442 {SCM_RESULT=(SCM_EOFP(obj));goto SCM_STUB_RETURN;}
7443 goto SCM_STUB_RETURN;
7444 SCM_STUB_RETURN:
7445 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
7446 }
7447 }
7448 }
7449
libiochar_readyP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7450 static ScmObj libiochar_readyP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7451 {
7452 ScmObj port_scm;
7453 ScmPort* port;
7454 ScmObj SCM_SUBRARGS[2];
7455 SCM_ENTER_SUBR("char-ready?");
7456 if (SCM_ARGCNT >= 2
7457 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7458 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7459 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7460 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7461 }
7462 if (SCM_ARGCNT > 0+1) {
7463 port_scm = SCM_SUBRARGS[0];
7464 } else {
7465 port_scm = SCM_OBJ(SCM_CURIN);
7466 }
7467 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7468 port = SCM_PORT(port_scm);
7469 {
7470 {
7471 int SCM_RESULT;
7472 {SCM_RESULT=(Scm_CharReady(port));goto SCM_STUB_RETURN;}
7473 goto SCM_STUB_RETURN;
7474 SCM_STUB_RETURN:
7475 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
7476 }
7477 }
7478 }
7479
libioeof_object(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7480 static ScmObj libioeof_object(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7481 {
7482 SCM_ENTER_SUBR("eof-object");
7483 {
7484 {
7485 ScmObj SCM_RESULT;
7486
7487 #line 566 "libio.scm"
7488 {SCM_RESULT=(SCM_EOF);goto SCM_STUB_RETURN;}
7489 goto SCM_STUB_RETURN;
7490 SCM_STUB_RETURN:
7491 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7492 }
7493 }
7494 }
7495
libiobyte_readyP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7496 static ScmObj libiobyte_readyP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7497 {
7498 ScmObj port_scm;
7499 ScmPort* port;
7500 ScmObj SCM_SUBRARGS[2];
7501 SCM_ENTER_SUBR("byte-ready?");
7502 if (SCM_ARGCNT >= 2
7503 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7504 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7505 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7506 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7507 }
7508 if (SCM_ARGCNT > 0+1) {
7509 port_scm = SCM_SUBRARGS[0];
7510 } else {
7511 port_scm = SCM_OBJ(SCM_CURIN);
7512 }
7513 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7514 port = SCM_PORT(port_scm);
7515 {
7516 {
7517 int SCM_RESULT;
7518 {SCM_RESULT=(Scm_ByteReady(port));goto SCM_STUB_RETURN;}
7519 goto SCM_STUB_RETURN;
7520 SCM_STUB_RETURN:
7521 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
7522 }
7523 }
7524 }
7525
libioread_byte(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7526 static ScmObj libioread_byte(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7527 {
7528 ScmObj port_scm;
7529 ScmPort* port;
7530 ScmObj SCM_SUBRARGS[2];
7531 SCM_ENTER_SUBR("read-byte");
7532 if (SCM_ARGCNT >= 2
7533 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7534 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7535 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7536 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7537 }
7538 if (SCM_ARGCNT > 0+1) {
7539 port_scm = SCM_SUBRARGS[0];
7540 } else {
7541 port_scm = SCM_OBJ(SCM_CURIN);
7542 }
7543 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7544 port = SCM_PORT(port_scm);
7545 {
7546 {
7547 ScmObj SCM_RESULT;
7548
7549 #line 574 "libio.scm"
7550 {int b;
7551 SCM_GETB(b,port);
7552 {SCM_RESULT=((((b)<(0))?(SCM_EOF):(SCM_MAKE_INT(b))));goto SCM_STUB_RETURN;}}
7553 goto SCM_STUB_RETURN;
7554 SCM_STUB_RETURN:
7555 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7556 }
7557 }
7558 }
7559
libiopeek_byte(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7560 static ScmObj libiopeek_byte(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7561 {
7562 ScmObj port_scm;
7563 ScmPort* port;
7564 ScmObj SCM_SUBRARGS[2];
7565 SCM_ENTER_SUBR("peek-byte");
7566 if (SCM_ARGCNT >= 2
7567 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7568 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7569 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7570 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7571 }
7572 if (SCM_ARGCNT > 0+1) {
7573 port_scm = SCM_SUBRARGS[0];
7574 } else {
7575 port_scm = SCM_OBJ(SCM_CURIN);
7576 }
7577 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7578 port = SCM_PORT(port_scm);
7579 {
7580 {
7581 ScmObj SCM_RESULT;
7582
7583 #line 581 "libio.scm"
7584 {int b=Scm_Peekb(port);
7585 {SCM_RESULT=((((b)<(0))?(SCM_EOF):(SCM_MAKE_INT(b))));goto SCM_STUB_RETURN;}}
7586 goto SCM_STUB_RETURN;
7587 SCM_STUB_RETURN:
7588 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7589 }
7590 }
7591 }
7592
libioread_line(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7593 static ScmObj libioread_line(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7594 {
7595 ScmObj port_scm;
7596 ScmPort* port;
7597 ScmObj allowbytestr_scm;
7598 ScmObj allowbytestr;
7599 ScmObj SCM_SUBRARGS[4];
7600 SCM_ENTER_SUBR("read-line");
7601 if (SCM_ARGCNT >= 3
7602 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7603 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7604 for (int SCM_i=0; SCM_i<4; SCM_i++) {
7605 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7606 }
7607 if (SCM_ARGCNT > 0+1) {
7608 port_scm = SCM_SUBRARGS[0];
7609 } else {
7610 port_scm = SCM_OBJ(SCM_CURIN);
7611 }
7612 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7613 port = SCM_PORT(port_scm);
7614 if (SCM_ARGCNT > 1+1) {
7615 allowbytestr_scm = SCM_SUBRARGS[1];
7616 } else {
7617 allowbytestr_scm = SCM_FALSE;
7618 }
7619 allowbytestr = (allowbytestr_scm);
7620 {
7621 {
7622 ScmObj SCM_RESULT;
7623
7624 #line 588 "libio.scm"
7625 {ScmObj r=Scm_ReadLine(port);
7626 if (((SCM_FALSEP(allowbytestr))&&(
7627 SCM_STRINGP(r)))&&(
7628 SCM_STRING_INCOMPLETE_P(r))){{
7629 Scm_ReadError(port,"read-line: encountered illegal byte sequence: %S",r);}}
7630 {SCM_RESULT=(r);goto SCM_STUB_RETURN;}}
7631 goto SCM_STUB_RETURN;
7632 SCM_STUB_RETURN:
7633 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7634 }
7635 }
7636 }
7637
libioread_block(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7638 static ScmObj libioread_block(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7639 {
7640 ScmObj bytes_scm;
7641 ScmSmallInt bytes;
7642 ScmObj port_scm;
7643 ScmPort* port;
7644 ScmObj SCM_SUBRARGS[3];
7645 SCM_ENTER_SUBR("read-block");
7646 if (SCM_ARGCNT >= 3
7647 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7648 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7649 for (int SCM_i=0; SCM_i<3; SCM_i++) {
7650 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7651 }
7652 bytes_scm = SCM_SUBRARGS[0];
7653 if (!SCM_INTP(bytes_scm)) Scm_Error("small integer required, but got %S", bytes_scm);
7654 bytes = SCM_INT_VALUE(bytes_scm);
7655 if (SCM_ARGCNT > 1+1) {
7656 port_scm = SCM_SUBRARGS[1];
7657 } else {
7658 port_scm = SCM_OBJ(SCM_CURIN);
7659 }
7660 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7661 port = SCM_PORT(port_scm);
7662 {
7663 {
7664 ScmObj SCM_RESULT;
7665
7666 #line 639 "libio.scm"
7667 if ((bytes)<(0)){{
7668 Scm_Error("bytes must be non-negative integer: %ld",bytes);}}
7669
7670 #line 641 "libio.scm"
7671 if ((bytes)==(0)){
7672 {SCM_RESULT=(Scm_MakeString("",0,0,0));goto SCM_STUB_RETURN;}} else {
7673 {char* buf=SCM_NEW_ATOMIC2(char*,(bytes)+(1));int nread=
7674 Scm_Getz(buf,bytes,port);
7675 if ((nread)<=(0)){{SCM_RESULT=(SCM_EOF);goto SCM_STUB_RETURN;}} else {
7676 #line 647 "libio.scm"
7677 SCM_ASSERT((nread)<=(bytes));
7678 (buf)[nread]=('\x00');
7679 {SCM_RESULT=(Scm_MakeString(buf,nread,nread,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}}}}
7680 goto SCM_STUB_RETURN;
7681 SCM_STUB_RETURN:
7682 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7683 }
7684 }
7685 }
7686
libioread_list(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7687 static ScmObj libioread_list(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7688 {
7689 ScmObj closer_scm;
7690 ScmChar closer;
7691 ScmObj port_scm;
7692 ScmObj port;
7693 ScmObj SCM_SUBRARGS[3];
7694 SCM_ENTER_SUBR("read-list");
7695 if (SCM_ARGCNT >= 3
7696 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7697 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7698 for (int SCM_i=0; SCM_i<3; SCM_i++) {
7699 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7700 }
7701 closer_scm = SCM_SUBRARGS[0];
7702 if (!SCM_CHARP(closer_scm)) Scm_Error("character required, but got %S", closer_scm);
7703 closer = SCM_CHAR_VALUE(closer_scm);
7704 if (SCM_ARGCNT > 1+1) {
7705 port_scm = SCM_SUBRARGS[1];
7706 } else {
7707 port_scm = SCM_OBJ(SCM_CURIN);
7708 }
7709 port = (port_scm);
7710 {
7711 {
7712 ScmObj SCM_RESULT;
7713
7714 #line 654 "libio.scm"
7715 {SCM_RESULT=(Scm_ReadList(port,closer));goto SCM_STUB_RETURN;}
7716 goto SCM_STUB_RETURN;
7717 SCM_STUB_RETURN:
7718 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7719 }
7720 }
7721 }
7722
libioport_TObyte_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7723 static ScmObj libioport_TObyte_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7724 {
7725 ScmObj port_scm;
7726 ScmPort* port;
7727 ScmObj SCM_SUBRARGS[1];
7728 SCM_ENTER_SUBR("port->byte-string");
7729 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7730 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7731 }
7732 port_scm = SCM_SUBRARGS[0];
7733 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7734 port = SCM_PORT(port_scm);
7735 {
7736 {
7737 ScmObj SCM_RESULT;
7738
7739 #line 657 "libio.scm"
7740 {ScmDString ds;char buf[1024];
7741 Scm_DStringInit(&(ds));
7742 for (;;){{int nbytes=Scm_Getz(buf,1024,port);
7743 if ((nbytes)<=(0)){{break;}}
7744 Scm_DStringPutz(&(ds),buf,nbytes);}}
7745 {SCM_RESULT=(Scm_DStringGet(&(ds),SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}}
7746 goto SCM_STUB_RETURN;
7747 SCM_STUB_RETURN:
7748 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7749 }
7750 }
7751 }
7752
libioreader_lexical_mode(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7753 static ScmObj libioreader_lexical_mode(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7754 {
7755 ScmObj k_scm;
7756 ScmObj k;
7757 ScmObj SCM_SUBRARGS[2];
7758 SCM_ENTER_SUBR("reader-lexical-mode");
7759 if (SCM_ARGCNT >= 2
7760 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7761 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7762 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7763 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7764 }
7765 if (SCM_ARGCNT > 0+1) {
7766 k_scm = SCM_SUBRARGS[0];
7767 } else {
7768 k_scm = SCM_UNBOUND;
7769 }
7770 k = (k_scm);
7771 {
7772 {
7773 ScmObj SCM_RESULT;
7774
7775 #line 683 "libio.scm"
7776 if (SCM_UNBOUNDP(k)){
7777 {SCM_RESULT=(Scm_ReaderLexicalMode());goto SCM_STUB_RETURN;}} else {
7778 {SCM_RESULT=(Scm_SetReaderLexicalMode(k));goto SCM_STUB_RETURN;}}
7779 goto SCM_STUB_RETURN;
7780 SCM_STUB_RETURN:
7781 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7782 }
7783 }
7784 }
7785
libio_25port_ungotten_chars(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7786 static ScmObj libio_25port_ungotten_chars(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7787 {
7788 ScmObj port_scm;
7789 ScmPort* port;
7790 ScmObj SCM_SUBRARGS[1];
7791 SCM_ENTER_SUBR("%port-ungotten-chars");
7792 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7793 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7794 }
7795 port_scm = SCM_SUBRARGS[0];
7796 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7797 port = SCM_PORT(port_scm);
7798 {
7799 {
7800 ScmObj SCM_RESULT;
7801 {SCM_RESULT=(Scm_UngottenChars(port));goto SCM_STUB_RETURN;}
7802 goto SCM_STUB_RETURN;
7803 SCM_STUB_RETURN:
7804 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7805 }
7806 }
7807 }
7808
libio_25port_ungotten_bytes(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7809 static ScmObj libio_25port_ungotten_bytes(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7810 {
7811 ScmObj port_scm;
7812 ScmPort* port;
7813 ScmObj SCM_SUBRARGS[1];
7814 SCM_ENTER_SUBR("%port-ungotten-bytes");
7815 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7816 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7817 }
7818 port_scm = SCM_SUBRARGS[0];
7819 if (!SCM_IPORTP(port_scm)) Scm_Error("input port required, but got %S", port_scm);
7820 port = SCM_PORT(port_scm);
7821 {
7822 {
7823 ScmObj SCM_RESULT;
7824 {SCM_RESULT=(Scm_UngottenBytes(port));goto SCM_STUB_RETURN;}
7825 goto SCM_STUB_RETURN;
7826 SCM_STUB_RETURN:
7827 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7828 }
7829 }
7830 }
7831
libiodefine_reader_ctor(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7832 static ScmObj libiodefine_reader_ctor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7833 {
7834 ScmObj symbol_scm;
7835 ScmObj symbol;
7836 ScmObj proc_scm;
7837 ScmObj proc;
7838 ScmObj finisher_scm;
7839 ScmObj finisher;
7840 ScmObj SCM_SUBRARGS[4];
7841 SCM_ENTER_SUBR("define-reader-ctor");
7842 if (SCM_ARGCNT >= 4
7843 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7844 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7845 for (int SCM_i=0; SCM_i<4; SCM_i++) {
7846 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7847 }
7848 symbol_scm = SCM_SUBRARGS[0];
7849 symbol = (symbol_scm);
7850 proc_scm = SCM_SUBRARGS[1];
7851 proc = (proc_scm);
7852 if (SCM_ARGCNT > 2+1) {
7853 finisher_scm = SCM_SUBRARGS[2];
7854 } else {
7855 finisher_scm = SCM_FALSE;
7856 }
7857 finisher = (finisher_scm);
7858 {
7859 {
7860 ScmObj SCM_RESULT;
7861
7862 #line 697 "libio.scm"
7863 {SCM_RESULT=(Scm_DefineReaderCtor(symbol,proc,finisher,SCM_FALSE));goto SCM_STUB_RETURN;}
7864 goto SCM_STUB_RETURN;
7865 SCM_STUB_RETURN:
7866 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7867 }
7868 }
7869 }
7870
libio_25get_reader_ctor(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7871 static ScmObj libio_25get_reader_ctor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7872 {
7873 ScmObj symbol_scm;
7874 ScmObj symbol;
7875 ScmObj SCM_SUBRARGS[1];
7876 SCM_ENTER_SUBR("%get-reader-ctor");
7877 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7878 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7879 }
7880 symbol_scm = SCM_SUBRARGS[0];
7881 symbol = (symbol_scm);
7882 {
7883 {
7884 ScmObj SCM_RESULT;
7885
7886 #line 700 "libio.scm"
7887 {SCM_RESULT=(Scm_GetReaderCtor(symbol,SCM_FALSE));goto SCM_STUB_RETURN;}
7888 goto SCM_STUB_RETURN;
7889 SCM_STUB_RETURN:
7890 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7891 }
7892 }
7893 }
7894
libiodefine_reader_directive(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7895 static ScmObj libiodefine_reader_directive(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7896 {
7897 ScmObj symbol_scm;
7898 ScmObj symbol;
7899 ScmObj proc_scm;
7900 ScmObj proc;
7901 ScmObj SCM_SUBRARGS[2];
7902 SCM_ENTER_SUBR("define-reader-directive");
7903 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7904 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7905 }
7906 symbol_scm = SCM_SUBRARGS[0];
7907 symbol = (symbol_scm);
7908 proc_scm = SCM_SUBRARGS[1];
7909 proc = (proc_scm);
7910 {
7911 {
7912 ScmObj SCM_RESULT;
7913 {SCM_RESULT=(Scm_DefineReaderDirective(symbol,proc));goto SCM_STUB_RETURN;}
7914 goto SCM_STUB_RETURN;
7915 SCM_STUB_RETURN:
7916 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7917 }
7918 }
7919 }
7920
libiocurrent_read_context(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7921 static ScmObj libiocurrent_read_context(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7922 {
7923 ScmObj ctx_scm;
7924 ScmObj ctx;
7925 ScmObj SCM_SUBRARGS[2];
7926 SCM_ENTER_SUBR("current-read-context");
7927 if (SCM_ARGCNT >= 2
7928 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
7929 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
7930 for (int SCM_i=0; SCM_i<2; SCM_i++) {
7931 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7932 }
7933 if (SCM_ARGCNT > 0+1) {
7934 ctx_scm = SCM_SUBRARGS[0];
7935 } else {
7936 ctx_scm = SCM_UNBOUND;
7937 }
7938 ctx = (ctx_scm);
7939 {
7940 {
7941 ScmObj SCM_RESULT;
7942
7943 #line 714 "libio.scm"
7944 if (SCM_UNBOUNDP(ctx)){
7945 {SCM_RESULT=(SCM_OBJ(Scm_CurrentReadContext()));goto SCM_STUB_RETURN;}} else {
7946 if (SCM_READ_CONTEXT_P(ctx)){
7947 {SCM_RESULT=(SCM_OBJ(Scm_SetCurrentReadContext(SCM_READ_CONTEXT(ctx))));goto SCM_STUB_RETURN;}} else {
7948 {Scm_Error("<read-context> required, but got:",ctx);
7949 {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}}}
7950 goto SCM_STUB_RETURN;
7951 SCM_STUB_RETURN:
7952 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
7953 }
7954 }
7955 }
7956
libioread_referenceP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7957 static ScmObj libioread_referenceP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7958 {
7959 ScmObj obj_scm;
7960 ScmObj obj;
7961 ScmObj SCM_SUBRARGS[1];
7962 SCM_ENTER_SUBR("read-reference?");
7963 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7964 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7965 }
7966 obj_scm = SCM_SUBRARGS[0];
7967 obj = (obj_scm);
7968 {
7969 {
7970 int SCM_RESULT;
7971 {SCM_RESULT=(SCM_READ_REFERENCE_P(obj));goto SCM_STUB_RETURN;}
7972 goto SCM_STUB_RETURN;
7973 SCM_STUB_RETURN:
7974 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
7975 }
7976 }
7977 }
7978
libioread_reference_has_valueP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)7979 static ScmObj libioread_reference_has_valueP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
7980 {
7981 ScmObj ref_scm;
7982 ScmReadReference* ref;
7983 ScmObj SCM_SUBRARGS[1];
7984 SCM_ENTER_SUBR("read-reference-has-value?");
7985 for (int SCM_i=0; SCM_i<1; SCM_i++) {
7986 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
7987 }
7988 ref_scm = SCM_SUBRARGS[0];
7989 if (!SCM_READ_REFERENCE_P(ref_scm)) Scm_Error("read reference required, but got %S", ref_scm);
7990 ref = SCM_READ_REFERENCE(ref_scm);
7991 {
7992 {
7993 int SCM_RESULT;
7994
7995 #line 724 "libio.scm"
7996 {SCM_RESULT=(!(SCM_UNBOUNDP((ref)->value)));goto SCM_STUB_RETURN;}
7997 goto SCM_STUB_RETURN;
7998 SCM_STUB_RETURN:
7999 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
8000 }
8001 }
8002 }
8003
libioread_reference_value(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8004 static ScmObj libioread_reference_value(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8005 {
8006 ScmObj ref_scm;
8007 ScmReadReference* ref;
8008 ScmObj SCM_SUBRARGS[1];
8009 SCM_ENTER_SUBR("read-reference-value");
8010 for (int SCM_i=0; SCM_i<1; SCM_i++) {
8011 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8012 }
8013 ref_scm = SCM_SUBRARGS[0];
8014 if (!SCM_READ_REFERENCE_P(ref_scm)) Scm_Error("read reference required, but got %S", ref_scm);
8015 ref = SCM_READ_REFERENCE(ref_scm);
8016 {
8017 {
8018 ScmObj SCM_RESULT;
8019
8020 #line 727 "libio.scm"
8021 if (SCM_UNBOUNDP((ref)->value)){{
8022 Scm_Error("read reference hasn't been resolved");}}
8023
8024 #line 729 "libio.scm"
8025 {SCM_RESULT=((ref)->value);goto SCM_STUB_RETURN;}
8026 goto SCM_STUB_RETURN;
8027 SCM_STUB_RETURN:
8028 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
8029 }
8030 }
8031 }
8032
parse_write_optionals(ScmObj opt1,ScmObj opt2,ScmPort ** pp,const ScmWriteControls ** pc)8033 static void parse_write_optionals(ScmObj opt1,ScmObj opt2,ScmPort** pp,const ScmWriteControls** pc){{
8034 #line 747 "libio.scm"
8035 {ScmPort* p=SCM_CUROUT;const ScmWriteControls* c=
8036 Scm_DefaultWriteControls();
8037 if (!(SCM_UNBOUNDP(opt1))){{
8038 if (SCM_PORTP(opt1)){
8039 p=(SCM_PORT(opt1));
8040 if (!(SCM_UNBOUNDP(opt2))){{
8041 if (SCM_WRITE_CONTROLS_P(opt2)){
8042 c=(SCM_WRITE_CONTROLS(opt2));} else {
8043 Scm_Error("Expected write-controls, but got: %S",opt2);}}}}else if(
8044 SCM_WRITE_CONTROLS_P(opt1)){
8045 c=(SCM_WRITE_CONTROLS(opt1));
8046 if (!(SCM_UNBOUNDP(opt2))){{
8047 if (SCM_PORTP(opt2)){
8048 p=(SCM_PORT(opt2));} else {
8049 Scm_Error("Expected port, but got: %S",opt2);}}}} else {
8050 #line 763 "libio.scm"
8051 Scm_Error("Expected port or write-controls, but got: %S",opt1);}}}
8052 *(pp)=(p);
8053 *(pc)=(c);}}}
libiowrite(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8054 static ScmObj libiowrite(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8055 {
8056 ScmObj obj_scm;
8057 ScmObj obj;
8058 ScmObj port_or_control_1_scm;
8059 ScmObj port_or_control_1;
8060 ScmObj port_or_control_2_scm;
8061 ScmObj port_or_control_2;
8062 ScmObj SCM_SUBRARGS[5];
8063 SCM_ENTER_SUBR("write");
8064 if (SCM_ARGCNT >= 4
8065 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
8066 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
8067 for (int SCM_i=0; SCM_i<5; SCM_i++) {
8068 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8069 }
8070 obj_scm = SCM_SUBRARGS[0];
8071 obj = (obj_scm);
8072 if (SCM_ARGCNT > 1+1) {
8073 port_or_control_1_scm = SCM_SUBRARGS[1];
8074 } else {
8075 port_or_control_1_scm = SCM_UNBOUND;
8076 }
8077 port_or_control_1 = (port_or_control_1_scm);
8078 if (SCM_ARGCNT > 2+1) {
8079 port_or_control_2_scm = SCM_SUBRARGS[2];
8080 } else {
8081 port_or_control_2_scm = SCM_UNBOUND;
8082 }
8083 port_or_control_2 = (port_or_control_2_scm);
8084 {
8085
8086 #line 771 "libio.scm"
8087 {ScmPort* p;const ScmWriteControls* c;
8088 parse_write_optionals(port_or_control_1,port_or_control_2,&(p),&(c));
8089 Scm_WriteWithControls(obj,SCM_OBJ(p),SCM_WRITE_WRITE,c);}
8090 goto SCM_STUB_RETURN;
8091 SCM_STUB_RETURN:
8092 SCM_RETURN(SCM_UNDEFINED);
8093 }
8094 }
8095
libiowrite_simple(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8096 static ScmObj libiowrite_simple(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8097 {
8098 ScmObj obj_scm;
8099 ScmObj obj;
8100 ScmObj port_scm;
8101 ScmPort* port;
8102 ScmObj SCM_SUBRARGS[3];
8103 SCM_ENTER_SUBR("write-simple");
8104 if (SCM_ARGCNT >= 3
8105 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
8106 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
8107 for (int SCM_i=0; SCM_i<3; SCM_i++) {
8108 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8109 }
8110 obj_scm = SCM_SUBRARGS[0];
8111 obj = (obj_scm);
8112 if (SCM_ARGCNT > 1+1) {
8113 port_scm = SCM_SUBRARGS[1];
8114 } else {
8115 port_scm = SCM_OBJ(SCM_CUROUT);
8116 }
8117 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm);
8118 port = SCM_PORT(port_scm);
8119 {
8120
8121 #line 778 "libio.scm"
8122 Scm_Write(obj,SCM_OBJ(port),SCM_WRITE_SIMPLE);
8123 goto SCM_STUB_RETURN;
8124 SCM_STUB_RETURN:
8125 SCM_RETURN(SCM_UNDEFINED);
8126 }
8127 }
8128
libiowrite_shared(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8129 static ScmObj libiowrite_shared(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8130 {
8131 ScmObj obj_scm;
8132 ScmObj obj;
8133 ScmObj port_or_control_1_scm;
8134 ScmObj port_or_control_1;
8135 ScmObj port_or_control_2_scm;
8136 ScmObj port_or_control_2;
8137 ScmObj SCM_SUBRARGS[5];
8138 SCM_ENTER_SUBR("write-shared");
8139 if (SCM_ARGCNT >= 4
8140 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
8141 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
8142 for (int SCM_i=0; SCM_i<5; SCM_i++) {
8143 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8144 }
8145 obj_scm = SCM_SUBRARGS[0];
8146 obj = (obj_scm);
8147 if (SCM_ARGCNT > 1+1) {
8148 port_or_control_1_scm = SCM_SUBRARGS[1];
8149 } else {
8150 port_or_control_1_scm = SCM_UNBOUND;
8151 }
8152 port_or_control_1 = (port_or_control_1_scm);
8153 if (SCM_ARGCNT > 2+1) {
8154 port_or_control_2_scm = SCM_SUBRARGS[2];
8155 } else {
8156 port_or_control_2_scm = SCM_UNBOUND;
8157 }
8158 port_or_control_2 = (port_or_control_2_scm);
8159 {
8160
8161 #line 782 "libio.scm"
8162 {ScmPort* p;const ScmWriteControls* c;
8163 parse_write_optionals(port_or_control_1,port_or_control_2,&(p),&(c));
8164 Scm_WriteWithControls(obj,SCM_OBJ(p),SCM_WRITE_SHARED,c);}
8165 goto SCM_STUB_RETURN;
8166 SCM_STUB_RETURN:
8167 SCM_RETURN(SCM_UNDEFINED);
8168 }
8169 }
8170
libiodisplay(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8171 static ScmObj libiodisplay(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8172 {
8173 ScmObj obj_scm;
8174 ScmObj obj;
8175 ScmObj port_or_control_1_scm;
8176 ScmObj port_or_control_1;
8177 ScmObj port_or_control_2_scm;
8178 ScmObj port_or_control_2;
8179 ScmObj SCM_SUBRARGS[5];
8180 SCM_ENTER_SUBR("display");
8181 if (SCM_ARGCNT >= 4
8182 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
8183 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
8184 for (int SCM_i=0; SCM_i<5; SCM_i++) {
8185 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8186 }
8187 obj_scm = SCM_SUBRARGS[0];
8188 obj = (obj_scm);
8189 if (SCM_ARGCNT > 1+1) {
8190 port_or_control_1_scm = SCM_SUBRARGS[1];
8191 } else {
8192 port_or_control_1_scm = SCM_UNBOUND;
8193 }
8194 port_or_control_1 = (port_or_control_1_scm);
8195 if (SCM_ARGCNT > 2+1) {
8196 port_or_control_2_scm = SCM_SUBRARGS[2];
8197 } else {
8198 port_or_control_2_scm = SCM_UNBOUND;
8199 }
8200 port_or_control_2 = (port_or_control_2_scm);
8201 {
8202
8203 #line 788 "libio.scm"
8204 {ScmPort* p;const ScmWriteControls* c;
8205 parse_write_optionals(port_or_control_1,port_or_control_2,&(p),&(c));
8206 Scm_WriteWithControls(obj,SCM_OBJ(p),SCM_WRITE_DISPLAY,c);}
8207 goto SCM_STUB_RETURN;
8208 SCM_STUB_RETURN:
8209 SCM_RETURN(SCM_UNDEFINED);
8210 }
8211 }
8212
libionewline(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8213 static ScmObj libionewline(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8214 {
8215 ScmObj port_scm;
8216 ScmPort* port;
8217 ScmObj SCM_SUBRARGS[2];
8218 SCM_ENTER_SUBR("newline");
8219 if (SCM_ARGCNT >= 2
8220 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
8221 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
8222 for (int SCM_i=0; SCM_i<2; SCM_i++) {
8223 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8224 }
8225 if (SCM_ARGCNT > 0+1) {
8226 port_scm = SCM_SUBRARGS[0];
8227 } else {
8228 port_scm = SCM_OBJ(SCM_CUROUT);
8229 }
8230 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm);
8231 port = SCM_PORT(port_scm);
8232 {
8233
8234 #line 793 "libio.scm"
8235 SCM_PUTC('\n',port);
8236 goto SCM_STUB_RETURN;
8237 SCM_STUB_RETURN:
8238 SCM_RETURN(SCM_UNDEFINED);
8239 }
8240 }
8241
libiowrite_char(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8242 static ScmObj libiowrite_char(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8243 {
8244 ScmObj ch_scm;
8245 ScmChar ch;
8246 ScmObj port_scm;
8247 ScmPort* port;
8248 ScmObj SCM_SUBRARGS[3];
8249 SCM_ENTER_SUBR("write-char");
8250 if (SCM_ARGCNT >= 3
8251 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
8252 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
8253 for (int SCM_i=0; SCM_i<3; SCM_i++) {
8254 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8255 }
8256 ch_scm = SCM_SUBRARGS[0];
8257 if (!SCM_CHARP(ch_scm)) Scm_Error("character required, but got %S", ch_scm);
8258 ch = SCM_CHAR_VALUE(ch_scm);
8259 if (SCM_ARGCNT > 1+1) {
8260 port_scm = SCM_SUBRARGS[1];
8261 } else {
8262 port_scm = SCM_OBJ(SCM_CUROUT);
8263 }
8264 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm);
8265 port = SCM_PORT(port_scm);
8266 {
8267
8268 #line 797 "libio.scm"
8269 SCM_PUTC(ch,port);
8270 goto SCM_STUB_RETURN;
8271 SCM_STUB_RETURN:
8272 SCM_RETURN(SCM_UNDEFINED);
8273 }
8274 }
8275
libiowrite_byte(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8276 static ScmObj libiowrite_byte(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8277 {
8278 ScmObj byte_scm;
8279 ScmSmallInt byte;
8280 ScmObj port_scm;
8281 ScmPort* port;
8282 ScmObj SCM_SUBRARGS[3];
8283 SCM_ENTER_SUBR("write-byte");
8284 if (SCM_ARGCNT >= 3
8285 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
8286 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
8287 for (int SCM_i=0; SCM_i<3; SCM_i++) {
8288 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8289 }
8290 byte_scm = SCM_SUBRARGS[0];
8291 if (!SCM_INTP(byte_scm)) Scm_Error("small integer required, but got %S", byte_scm);
8292 byte = SCM_INT_VALUE(byte_scm);
8293 if (SCM_ARGCNT > 1+1) {
8294 port_scm = SCM_SUBRARGS[1];
8295 } else {
8296 port_scm = SCM_OBJ(SCM_CUROUT);
8297 }
8298 if (!SCM_OPORTP(port_scm)) Scm_Error("output port required, but got %S", port_scm);
8299 port = SCM_PORT(port_scm);
8300 {
8301 {
8302 int SCM_RESULT;
8303
8304 #line 805 "libio.scm"
8305 if (((byte)<(0))||((byte)>(255))){{
8306 Scm_Error("argument out of range: %ld",byte);}}
8307
8308 #line 807 "libio.scm"
8309 SCM_PUTB(byte,port);
8310
8311 #line 808 "libio.scm"
8312 {SCM_RESULT=(1);goto SCM_STUB_RETURN;}
8313 goto SCM_STUB_RETURN;
8314 SCM_STUB_RETURN:
8315 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
8316 }
8317 }
8318 }
8319
libiowrite_limited(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8320 static ScmObj libiowrite_limited(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8321 {
8322 ScmObj obj_scm;
8323 ScmObj obj;
8324 ScmObj limit_scm;
8325 ScmSmallInt limit;
8326 ScmObj port_scm;
8327 ScmObj port;
8328 ScmObj SCM_SUBRARGS[4];
8329 SCM_ENTER_SUBR("write-limited");
8330 if (SCM_ARGCNT >= 4
8331 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
8332 Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
8333 for (int SCM_i=0; SCM_i<4; SCM_i++) {
8334 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8335 }
8336 obj_scm = SCM_SUBRARGS[0];
8337 obj = (obj_scm);
8338 limit_scm = SCM_SUBRARGS[1];
8339 if (!SCM_INTP(limit_scm)) Scm_Error("small integer required, but got %S", limit_scm);
8340 limit = SCM_INT_VALUE(limit_scm);
8341 if (SCM_ARGCNT > 2+1) {
8342 port_scm = SCM_SUBRARGS[2];
8343 } else {
8344 port_scm = SCM_OBJ(SCM_CUROUT);
8345 }
8346 port = (port_scm);
8347 {
8348 {
8349 int SCM_RESULT;
8350
8351 #line 814 "libio.scm"
8352 {SCM_RESULT=(Scm_WriteLimited(obj,port,SCM_WRITE_WRITE,limit));goto SCM_STUB_RETURN;}
8353 goto SCM_STUB_RETURN;
8354 SCM_STUB_RETURN:
8355 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
8356 }
8357 }
8358 }
8359
libioflush(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8360 static ScmObj libioflush(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8361 {
8362 ScmObj oport_scm;
8363 ScmPort* oport;
8364 ScmObj SCM_SUBRARGS[2];
8365 SCM_ENTER_SUBR("flush");
8366 if (SCM_ARGCNT >= 2
8367 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
8368 Scm_Error("too many arguments: up to 1 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
8369 for (int SCM_i=0; SCM_i<2; SCM_i++) {
8370 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8371 }
8372 if (SCM_ARGCNT > 0+1) {
8373 oport_scm = SCM_SUBRARGS[0];
8374 } else {
8375 oport_scm = SCM_OBJ(SCM_CUROUT);
8376 }
8377 if (!SCM_OPORTP(oport_scm)) Scm_Error("output port required, but got %S", oport_scm);
8378 oport = SCM_PORT(oport_scm);
8379 {
8380 Scm_Flush(oport);
8381 goto SCM_STUB_RETURN;
8382 SCM_STUB_RETURN:
8383 SCM_RETURN(SCM_UNDEFINED);
8384 }
8385 }
8386
libioflush_all_ports(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8387 static ScmObj libioflush_all_ports(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8388 {
8389 SCM_ENTER_SUBR("flush-all-ports");
8390 {
8391
8392 #line 821 "libio.scm"
8393 Scm_FlushAllPorts(FALSE);
8394 goto SCM_STUB_RETURN;
8395 SCM_STUB_RETURN:
8396 SCM_RETURN(SCM_UNDEFINED);
8397 }
8398 }
8399
libiowrite_need_recurseP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)8400 static ScmObj libiowrite_need_recurseP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
8401 {
8402 ScmObj obj_scm;
8403 ScmObj obj;
8404 ScmObj SCM_SUBRARGS[1];
8405 SCM_ENTER_SUBR("write-need-recurse?");
8406 for (int SCM_i=0; SCM_i<1; SCM_i++) {
8407 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
8408 }
8409 obj_scm = SCM_SUBRARGS[0];
8410 obj = (obj_scm);
8411 {
8412 {
8413 int SCM_RESULT;
8414
8415 #line 829 "libio.scm"
8416 {SCM_RESULT=(!((((((!(SCM_PTRP(obj)))||(
8417 SCM_NUMBERP(obj)))||(
8418 SCM_KEYWORDP(obj)))||(
8419 (SCM_SYMBOLP(obj))&&(SCM_SYMBOL_INTERNED(obj))))||(
8420 (SCM_STRINGP(obj))&&((SCM_STRING_SIZE(obj))==(0))))||(
8421 (SCM_VECTORP(obj))&&((SCM_VECTOR_SIZE(obj))==(0)))));goto SCM_STUB_RETURN;}
8422 goto SCM_STUB_RETURN;
8423 SCM_STUB_RETURN:
8424 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
8425 }
8426 }
8427 }
8428
write_controls_allocate(ScmClass * klass,ScmObj initargs)8429 static ScmObj write_controls_allocate(ScmClass* klass,ScmObj initargs){{
8430 #line 880 "libio.scm"
8431 ((void )(klass));
8432 ((void )(initargs));
8433 return (SCM_OBJ(Scm_MakeWriteControls(NULL)));}}
8434 static ScmClass *Scm_WriteControlsClass_CPL[] = {
8435 SCM_CLASS_STATIC_PTR(Scm_TopClass),
8436 NULL
8437 };
8438 SCM_DEFINE_BUILTIN_CLASS(Scm_WriteControlsClass, NULL, NULL, NULL, write_controls_allocate, Scm_WriteControlsClass_CPL);
8439
Scm_WriteControlsClass_length_GET(ScmObj OBJARG)8440 static ScmObj Scm_WriteControlsClass_length_GET(ScmObj OBJARG)
8441 {
8442 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8443 if (obj->printLength < 0) return SCM_FALSE; else return SCM_MAKE_INT(obj->printLength);
8444 }
8445
Scm_WriteControlsClass_length_SET(ScmObj OBJARG,ScmObj value)8446 static void Scm_WriteControlsClass_length_SET(ScmObj OBJARG, ScmObj value)
8447 {
8448 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8449 if (SCM_INTP(value) && SCM_INT_VALUE(value) >= 0) obj->printLength = SCM_INT_VALUE(value); else obj->printLength = -1;
8450 }
8451
Scm_WriteControlsClass_level_GET(ScmObj OBJARG)8452 static ScmObj Scm_WriteControlsClass_level_GET(ScmObj OBJARG)
8453 {
8454 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8455 if (obj->printLevel < 0) return SCM_FALSE; else return SCM_MAKE_INT(obj->printLevel);
8456 }
8457
Scm_WriteControlsClass_level_SET(ScmObj OBJARG,ScmObj value)8458 static void Scm_WriteControlsClass_level_SET(ScmObj OBJARG, ScmObj value)
8459 {
8460 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8461 if (SCM_INTP(value) && SCM_INT_VALUE(value) >= 0) obj->printLevel = SCM_INT_VALUE(value); else obj->printLevel = -1;
8462 }
8463
Scm_WriteControlsClass_width_GET(ScmObj OBJARG)8464 static ScmObj Scm_WriteControlsClass_width_GET(ScmObj OBJARG)
8465 {
8466 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8467 if (obj->printWidth < 0) return SCM_FALSE; else return SCM_MAKE_INT(obj->printWidth);
8468 }
8469
Scm_WriteControlsClass_width_SET(ScmObj OBJARG,ScmObj value)8470 static void Scm_WriteControlsClass_width_SET(ScmObj OBJARG, ScmObj value)
8471 {
8472 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8473 if (SCM_INTP(value) && SCM_INT_VALUE(value) >= 0) obj->printWidth = SCM_INT_VALUE(value); else obj->printWidth = -1;
8474 }
8475
Scm_WriteControlsClass_base_GET(ScmObj OBJARG)8476 static ScmObj Scm_WriteControlsClass_base_GET(ScmObj OBJARG)
8477 {
8478 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8479 return Scm_MakeInteger(obj->printBase);
8480 }
8481
Scm_WriteControlsClass_base_SET(ScmObj OBJARG,ScmObj value)8482 static void Scm_WriteControlsClass_base_SET(ScmObj OBJARG, ScmObj value)
8483 {
8484 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8485 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);
8486 }
8487
Scm_WriteControlsClass_radix_GET(ScmObj OBJARG)8488 static ScmObj Scm_WriteControlsClass_radix_GET(ScmObj OBJARG)
8489 {
8490 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8491 return SCM_MAKE_BOOL(obj->printRadix);
8492 }
8493
Scm_WriteControlsClass_radix_SET(ScmObj OBJARG,ScmObj value)8494 static void Scm_WriteControlsClass_radix_SET(ScmObj OBJARG, ScmObj value)
8495 {
8496 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8497 obj->printRadix = !SCM_FALSEP(value);
8498 }
8499
Scm_WriteControlsClass_pretty_GET(ScmObj OBJARG)8500 static ScmObj Scm_WriteControlsClass_pretty_GET(ScmObj OBJARG)
8501 {
8502 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8503 return SCM_MAKE_BOOL(obj->printPretty);
8504 }
8505
Scm_WriteControlsClass_pretty_SET(ScmObj OBJARG,ScmObj value)8506 static void Scm_WriteControlsClass_pretty_SET(ScmObj OBJARG, ScmObj value)
8507 {
8508 ScmWriteControls* obj = SCM_WRITE_CONTROLS(OBJARG);
8509 obj->printPretty = !SCM_FALSEP(value);
8510 }
8511
8512 static ScmClassStaticSlotSpec Scm_WriteControlsClass__SLOTS[] = {
8513 SCM_CLASS_SLOT_SPEC("length", Scm_WriteControlsClass_length_GET, Scm_WriteControlsClass_length_SET),
8514 SCM_CLASS_SLOT_SPEC("level", Scm_WriteControlsClass_level_GET, Scm_WriteControlsClass_level_SET),
8515 SCM_CLASS_SLOT_SPEC("width", Scm_WriteControlsClass_width_GET, Scm_WriteControlsClass_width_SET),
8516 SCM_CLASS_SLOT_SPEC("base", Scm_WriteControlsClass_base_GET, Scm_WriteControlsClass_base_SET),
8517 SCM_CLASS_SLOT_SPEC("radix", Scm_WriteControlsClass_radix_GET, Scm_WriteControlsClass_radix_SET),
8518 SCM_CLASS_SLOT_SPEC("pretty", Scm_WriteControlsClass_pretty_GET, Scm_WriteControlsClass_pretty_SET),
8519 SCM_CLASS_SLOT_SPEC_END()
8520 };
8521
8522 static ScmCompiledCode *toplevels[] = {
8523 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[8])),
8524 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[9])),
8525 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[10])),
8526 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[19])),
8527 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[21])),
8528 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[22])),
8529 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[23])),
8530 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[24])),
8531 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[28])),
8532 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[30])),
8533 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[74])),
8534 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[76])),
8535 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[78])),
8536 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[80])),
8537 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[82])),
8538 NULL /*termination*/
8539 };
Scm_Init_libio()8540 void Scm_Init_libio() {
8541 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8542 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
8543 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
8544 scm__rc.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* input-port? */
8545 scm__rc.d1562[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1])),TRUE); /* obj */
8546 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[1]);
8547 scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* source-info */
8548 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[4]), scm__rc.d1562[2]);
8549 scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[4])),TRUE); /* bind-info */
8550 scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* scheme */
8551 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[0]);
8552 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[4]);
8553 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[3]);
8554 scm__rc.d1562[5] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[9]));
8555 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("input-port?")), SCM_OBJ(&libioinput_portP__STUB), 0);
8556 libioinput_portP__STUB.common.info = scm__rc.d1562[5];
8557 scm__rc.d1562[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* output-port? */
8558 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[12]), scm__rc.d1562[2]);
8559 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[13]), scm__rc.d1562[6]);
8560 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[14]), scm__rc.d1562[4]);
8561 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[15]), scm__rc.d1562[3]);
8562 scm__rc.d1562[7] = Scm_MakeExtendedPair(scm__rc.d1562[6], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[17]));
8563 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("output-port?")), SCM_OBJ(&libiooutput_portP__STUB), 0);
8564 libiooutput_portP__STUB.common.info = scm__rc.d1562[7];
8565 scm__rc.d1562[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* port? */
8566 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[20]), scm__rc.d1562[2]);
8567 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[21]), scm__rc.d1562[8]);
8568 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[22]), scm__rc.d1562[4]);
8569 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[3]);
8570 scm__rc.d1562[9] = Scm_MakeExtendedPair(scm__rc.d1562[8], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[25]));
8571 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("port?")), SCM_OBJ(&libioportP__STUB), 0);
8572 libioportP__STUB.common.info = scm__rc.d1562[9];
8573 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8574 scm__rc.d1562[10] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* port-closed? */
8575 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[28]), scm__rc.d1562[2]);
8576 scm__rc.d1562[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9])),TRUE); /* gauche */
8577 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[29]), scm__rc.d1562[10]);
8578 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[30]), scm__rc.d1562[11]);
8579 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[31]), scm__rc.d1562[3]);
8580 scm__rc.d1562[12] = Scm_MakeExtendedPair(scm__rc.d1562[10], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[33]));
8581 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-closed?")), SCM_OBJ(&libioport_closedP__STUB), 0);
8582 libioport_closedP__STUB.common.info = scm__rc.d1562[12];
8583 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
8584 scm__rc.d1562[13] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[10])),TRUE); /* current-input-port */
8585 scm__rc.d1562[14] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11]))); /* :optional */
8586 scm__rc.d1562[15] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* newport */
8587 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[34]), scm__rc.d1562[15]);
8588 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[35]), scm__rc.d1562[14]);
8589 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[38]), scm__rc.d1562[2]);
8590 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[39]), scm__rc.d1562[13]);
8591 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[40]), scm__rc.d1562[4]);
8592 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[41]), scm__rc.d1562[3]);
8593 scm__rc.d1562[16] = Scm_MakeExtendedPair(scm__rc.d1562[13], SCM_OBJ(&scm__rc.d1563[35]), SCM_OBJ(&scm__rc.d1563[43]));
8594 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("current-input-port")), SCM_OBJ(&libiocurrent_input_port__STUB), 0);
8595 libiocurrent_input_port__STUB.common.info = scm__rc.d1562[16];
8596 scm__rc.d1562[17] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[13])),TRUE); /* current-output-port */
8597 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[46]), scm__rc.d1562[2]);
8598 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[47]), scm__rc.d1562[17]);
8599 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[48]), scm__rc.d1562[4]);
8600 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[49]), scm__rc.d1562[3]);
8601 scm__rc.d1562[18] = Scm_MakeExtendedPair(scm__rc.d1562[17], SCM_OBJ(&scm__rc.d1563[35]), SCM_OBJ(&scm__rc.d1563[51]));
8602 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("current-output-port")), SCM_OBJ(&libiocurrent_output_port__STUB), 0);
8603 libiocurrent_output_port__STUB.common.info = scm__rc.d1562[18];
8604 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8605 scm__rc.d1562[19] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* current-error-port */
8606 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[54]), scm__rc.d1562[2]);
8607 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[55]), scm__rc.d1562[19]);
8608 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[56]), scm__rc.d1562[11]);
8609 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[57]), scm__rc.d1562[3]);
8610 scm__rc.d1562[20] = Scm_MakeExtendedPair(scm__rc.d1562[19], SCM_OBJ(&scm__rc.d1563[35]), SCM_OBJ(&scm__rc.d1563[59]));
8611 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("current-error-port")), SCM_OBJ(&libiocurrent_error_port__STUB), 0);
8612 libiocurrent_error_port__STUB.common.info = scm__rc.d1562[20];
8613 scm__rc.d1562[21] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* standard-input-port */
8614 scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* p */
8615 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[60]), scm__rc.d1562[22]);
8616 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[61]), scm__rc.d1562[14]);
8617 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[64]), scm__rc.d1562[2]);
8618 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[65]), scm__rc.d1562[21]);
8619 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[66]), scm__rc.d1562[11]);
8620 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[67]), scm__rc.d1562[3]);
8621 scm__rc.d1562[23] = Scm_MakeExtendedPair(scm__rc.d1562[21], SCM_OBJ(&scm__rc.d1563[61]), SCM_OBJ(&scm__rc.d1563[69]));
8622 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("standard-input-port")), SCM_OBJ(&libiostandard_input_port__STUB), 0);
8623 libiostandard_input_port__STUB.common.info = scm__rc.d1562[23];
8624 scm__rc.d1562[24] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17])),TRUE); /* standard-output-port */
8625 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[72]), scm__rc.d1562[2]);
8626 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[73]), scm__rc.d1562[24]);
8627 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[74]), scm__rc.d1562[11]);
8628 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[75]), scm__rc.d1562[3]);
8629 scm__rc.d1562[25] = Scm_MakeExtendedPair(scm__rc.d1562[24], SCM_OBJ(&scm__rc.d1563[61]), SCM_OBJ(&scm__rc.d1563[77]));
8630 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("standard-output-port")), SCM_OBJ(&libiostandard_output_port__STUB), 0);
8631 libiostandard_output_port__STUB.common.info = scm__rc.d1562[25];
8632 scm__rc.d1562[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* standard-error-port */
8633 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[80]), scm__rc.d1562[2]);
8634 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[81]), scm__rc.d1562[26]);
8635 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[82]), scm__rc.d1562[11]);
8636 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[83]), scm__rc.d1562[3]);
8637 scm__rc.d1562[27] = Scm_MakeExtendedPair(scm__rc.d1562[26], SCM_OBJ(&scm__rc.d1563[61]), SCM_OBJ(&scm__rc.d1563[85]));
8638 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("standard-error-port")), SCM_OBJ(&libiostandard_error_port__STUB), 0);
8639 libiostandard_error_port__STUB.common.info = scm__rc.d1562[27];
8640
8641 #line 102 "libio.scm"
8642 Scm_BindPrimitiveParameter(Scm_GaucheModule(),"current-trace-port",
8643 #line 104 "libio.scm"
8644 Scm_Stderr(),0);
8645 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8646 scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* port-name */
8647 scm__rc.d1562[29] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* port */
8648 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[86]), scm__rc.d1562[29]);
8649 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[89]), scm__rc.d1562[2]);
8650 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[90]), scm__rc.d1562[28]);
8651 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[91]), scm__rc.d1562[11]);
8652 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[92]), scm__rc.d1562[3]);
8653 scm__rc.d1562[30] = Scm_MakeExtendedPair(scm__rc.d1562[28], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[94]));
8654 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-name")), SCM_OBJ(&libioport_name__STUB), 0);
8655 libioport_name__STUB.common.info = scm__rc.d1562[30];
8656 scm__rc.d1562[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* port-current-line */
8657 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[97]), scm__rc.d1562[2]);
8658 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[98]), scm__rc.d1562[31]);
8659 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[99]), scm__rc.d1562[11]);
8660 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[100]), scm__rc.d1562[3]);
8661 scm__rc.d1562[32] = Scm_MakeExtendedPair(scm__rc.d1562[31], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[102]));
8662 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-current-line")), SCM_OBJ(&libioport_current_line__STUB), 0);
8663 libioport_current_line__STUB.common.info = scm__rc.d1562[32];
8664 scm__rc.d1562[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* port-file-number */
8665 scm__rc.d1562[34] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[23])),TRUE); /* dup? */
8666 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[103]), scm__rc.d1562[34]);
8667 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[104]), scm__rc.d1562[14]);
8668 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[105]), scm__rc.d1562[29]);
8669 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[108]), scm__rc.d1562[2]);
8670 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[109]), scm__rc.d1562[33]);
8671 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[110]), scm__rc.d1562[11]);
8672 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[111]), scm__rc.d1562[3]);
8673 scm__rc.d1562[35] = Scm_MakeExtendedPair(scm__rc.d1562[33], SCM_OBJ(&scm__rc.d1563[105]), SCM_OBJ(&scm__rc.d1563[113]));
8674 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-file-number")), SCM_OBJ(&libioport_file_number__STUB), 0);
8675 libioport_file_number__STUB.common.info = scm__rc.d1562[35];
8676 scm__rc.d1562[36] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),TRUE); /* port-fd-dup! */
8677 scm__rc.d1562[37] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* dst */
8678 scm__rc.d1562[38] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* src */
8679 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[114]), scm__rc.d1562[38]);
8680 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[115]), scm__rc.d1562[37]);
8681 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[118]), scm__rc.d1562[2]);
8682 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[119]), scm__rc.d1562[36]);
8683 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[120]), scm__rc.d1562[11]);
8684 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[121]), scm__rc.d1562[3]);
8685 scm__rc.d1562[39] = Scm_MakeExtendedPair(scm__rc.d1562[36], SCM_OBJ(&scm__rc.d1563[115]), SCM_OBJ(&scm__rc.d1563[123]));
8686 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-fd-dup!")), SCM_OBJ(&libioport_fd_dupX__STUB), 0);
8687 libioport_fd_dupX__STUB.common.info = scm__rc.d1562[39];
8688 scm__rc.d1562[40] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* port-attribute-set! */
8689 scm__rc.d1562[41] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28])),TRUE); /* key */
8690 scm__rc.d1562[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),TRUE); /* val */
8691 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[124]), scm__rc.d1562[42]);
8692 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[125]), scm__rc.d1562[41]);
8693 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[126]), scm__rc.d1562[29]);
8694 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[129]), scm__rc.d1562[2]);
8695 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[130]), scm__rc.d1562[40]);
8696 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[131]), scm__rc.d1562[11]);
8697 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[132]), scm__rc.d1562[3]);
8698 scm__rc.d1562[43] = Scm_MakeExtendedPair(scm__rc.d1562[40], SCM_OBJ(&scm__rc.d1563[126]), SCM_OBJ(&scm__rc.d1563[134]));
8699 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attribute-set!")), SCM_OBJ(&libioport_attribute_setX__STUB), 0);
8700 libioport_attribute_setX__STUB.common.info = scm__rc.d1562[43];
8701 scm__rc.d1562[44] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),TRUE); /* port-attribute-ref */
8702 scm__rc.d1562[45] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* fallback */
8703 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[135]), scm__rc.d1562[45]);
8704 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[136]), scm__rc.d1562[14]);
8705 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[137]), scm__rc.d1562[41]);
8706 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[138]), scm__rc.d1562[29]);
8707 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[141]), scm__rc.d1562[2]);
8708 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[142]), scm__rc.d1562[44]);
8709 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[143]), scm__rc.d1562[11]);
8710 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[144]), scm__rc.d1562[3]);
8711 scm__rc.d1562[46] = Scm_MakeExtendedPair(scm__rc.d1562[44], SCM_OBJ(&scm__rc.d1563[138]), SCM_OBJ(&scm__rc.d1563[146]));
8712 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attribute-ref")), SCM_OBJ(&libioport_attribute_ref__STUB), 0);
8713 libioport_attribute_ref__STUB.common.info = scm__rc.d1562[46];
8714 Scm_SetterSet(SCM_PROCEDURE(&libioport_attribute_ref__STUB), SCM_PROCEDURE(&libioport_attribute_setX__STUB), TRUE);
8715 scm__rc.d1562[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32])),TRUE); /* port-attribute-create! */
8716 scm__rc.d1562[48] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* get */
8717 scm__rc.d1562[49] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* set */
8718 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[147]), scm__rc.d1562[49]);
8719 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[148]), scm__rc.d1562[48]);
8720 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[149]), scm__rc.d1562[14]);
8721 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[150]), scm__rc.d1562[41]);
8722 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[151]), scm__rc.d1562[29]);
8723 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[154]), scm__rc.d1562[2]);
8724 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[155]), scm__rc.d1562[47]);
8725 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[156]), scm__rc.d1562[11]);
8726 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[157]), scm__rc.d1562[3]);
8727 scm__rc.d1562[50] = Scm_MakeExtendedPair(scm__rc.d1562[47], SCM_OBJ(&scm__rc.d1563[151]), SCM_OBJ(&scm__rc.d1563[159]));
8728 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attribute-create!")), SCM_OBJ(&libioport_attribute_createX__STUB), 0);
8729 libioport_attribute_createX__STUB.common.info = scm__rc.d1562[50];
8730 scm__rc.d1562[51] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* port-attribute-delete! */
8731 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[160]), scm__rc.d1562[41]);
8732 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[161]), scm__rc.d1562[29]);
8733 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[164]), scm__rc.d1562[2]);
8734 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[165]), scm__rc.d1562[51]);
8735 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[166]), scm__rc.d1562[11]);
8736 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[167]), scm__rc.d1562[3]);
8737 scm__rc.d1562[52] = Scm_MakeExtendedPair(scm__rc.d1562[51], SCM_OBJ(&scm__rc.d1563[161]), SCM_OBJ(&scm__rc.d1563[169]));
8738 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attribute-delete!")), SCM_OBJ(&libioport_attribute_deleteX__STUB), 0);
8739 libioport_attribute_deleteX__STUB.common.info = scm__rc.d1562[52];
8740 scm__rc.d1562[53] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[36])),TRUE); /* port-attributes */
8741 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[172]), scm__rc.d1562[2]);
8742 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[173]), scm__rc.d1562[53]);
8743 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[174]), scm__rc.d1562[11]);
8744 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[175]), scm__rc.d1562[3]);
8745 scm__rc.d1562[54] = Scm_MakeExtendedPair(scm__rc.d1562[53], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[177]));
8746 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-attributes")), SCM_OBJ(&libioport_attributes__STUB), 0);
8747 libioport_attributes__STUB.common.info = scm__rc.d1562[54];
8748 scm__rc.d1562[55] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[38])),TRUE); /* file */
8749 scm__rc.d1562[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[39])),TRUE); /* proc */
8750 scm__rc.d1562[57] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[40])),TRUE); /* string */
8751 scm__rc.d1562[58] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[37])),TRUE); /* port-type */
8752 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[180]), scm__rc.d1562[2]);
8753 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[181]), scm__rc.d1562[58]);
8754 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[182]), scm__rc.d1562[11]);
8755 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[183]), scm__rc.d1562[3]);
8756 scm__rc.d1562[59] = Scm_MakeExtendedPair(scm__rc.d1562[58], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[185]));
8757 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-type")), SCM_OBJ(&libioport_type__STUB), 0);
8758 libioport_type__STUB.common.info = scm__rc.d1562[59];
8759 scm__rc.d1562[60] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[41])),TRUE); /* port-buffering */
8760 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[188]), scm__rc.d1562[2]);
8761 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[189]), scm__rc.d1562[60]);
8762 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[190]), scm__rc.d1562[11]);
8763 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[191]), scm__rc.d1562[3]);
8764 scm__rc.d1562[61] = Scm_MakeExtendedPair(scm__rc.d1562[60], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[193]));
8765 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-buffering")), SCM_OBJ(&libioport_buffering__STUB), 0);
8766 libioport_buffering__STUB.common.info = scm__rc.d1562[61];
8767 Scm_SetterSet(SCM_PROCEDURE(&libioport_buffering__STUB), SCM_PROCEDURE(&libioport_buffering_SETTER__STUB), TRUE);
8768 scm__rc.d1562[62] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[43])),TRUE); /* port-case-fold-set! */
8769 scm__rc.d1562[63] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[44])),TRUE); /* flag */
8770 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[194]), scm__rc.d1562[63]);
8771 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[195]), scm__rc.d1562[29]);
8772 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[198]), scm__rc.d1562[2]);
8773 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[199]), scm__rc.d1562[62]);
8774 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[200]), scm__rc.d1562[11]);
8775 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[201]), scm__rc.d1562[3]);
8776 scm__rc.d1562[64] = Scm_MakeExtendedPair(scm__rc.d1562[62], SCM_OBJ(&scm__rc.d1563[195]), SCM_OBJ(&scm__rc.d1563[203]));
8777 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-case-fold-set!")), SCM_OBJ(&libioport_case_fold_setX__STUB), 0);
8778 libioport_case_fold_setX__STUB.common.info = scm__rc.d1562[64];
8779 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
8780 scm__rc.d1562[65] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[45])),TRUE); /* close-input-port */
8781 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[206]), scm__rc.d1562[2]);
8782 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[207]), scm__rc.d1562[65]);
8783 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[208]), scm__rc.d1562[4]);
8784 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[209]), scm__rc.d1562[3]);
8785 scm__rc.d1562[66] = Scm_MakeExtendedPair(scm__rc.d1562[65], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[211]));
8786 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("close-input-port")), SCM_OBJ(&libioclose_input_port__STUB), 0);
8787 libioclose_input_port__STUB.common.info = scm__rc.d1562[66];
8788 scm__rc.d1562[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[46])),TRUE); /* close-output-port */
8789 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[214]), scm__rc.d1562[2]);
8790 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[215]), scm__rc.d1562[67]);
8791 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[216]), scm__rc.d1562[4]);
8792 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[217]), scm__rc.d1562[3]);
8793 scm__rc.d1562[68] = Scm_MakeExtendedPair(scm__rc.d1562[67], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[219]));
8794 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("close-output-port")), SCM_OBJ(&libioclose_output_port__STUB), 0);
8795 libioclose_output_port__STUB.common.info = scm__rc.d1562[68];
8796 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8797 scm__rc.d1562[69] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[47])),TRUE); /* close-port */
8798 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[222]), scm__rc.d1562[2]);
8799 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[223]), scm__rc.d1562[69]);
8800 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[224]), scm__rc.d1562[11]);
8801 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[225]), scm__rc.d1562[3]);
8802 scm__rc.d1562[70] = Scm_MakeExtendedPair(scm__rc.d1562[69], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[227]));
8803 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("close-port")), SCM_OBJ(&libioclose_port__STUB), 0);
8804 libioclose_port__STUB.common.info = scm__rc.d1562[70];
8805 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
8806 scm__rc.d1562[71] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48]))); /* :error */
8807 scm__rc.d1562[72] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[49]))); /* :if-does-not-exist */
8808 scm__rc.d1562[73] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[50]))); /* :buffering */
8809 scm__rc.d1562[74] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[51]))); /* :binary */
8810 scm__rc.d1562[75] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[52]))); /* :element-type */
8811 scm__rc.d1562[76] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[54]))); /* :character */
8812 scm__rc.d1562[77] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[53])),TRUE); /* %open-input-file */
8813 scm__rc.d1562[78] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[55])),TRUE); /* path */
8814 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[228]), scm__rc.d1562[78]);
8815 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[231]), scm__rc.d1562[2]);
8816 scm__rc.d1562[79] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[56])),TRUE); /* gauche.internal */
8817 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[232]), scm__rc.d1562[77]);
8818 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[233]), scm__rc.d1562[79]);
8819 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[234]), scm__rc.d1562[3]);
8820 scm__rc.d1562[80] = Scm_MakeExtendedPair(scm__rc.d1562[77], SCM_OBJ(&scm__rc.d1563[228]), SCM_OBJ(&scm__rc.d1563[236]));
8821 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%open-input-file")), SCM_OBJ(&libio_25open_input_file__STUB), 0);
8822 libio_25open_input_file__STUB.common.info = scm__rc.d1562[80];
8823 scm__rc.d1562[81] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[57]))); /* :supersede */
8824 scm__rc.d1562[82] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[58]))); /* :if-exists */
8825 scm__rc.d1562[83] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[59]))); /* :create */
8826 scm__rc.d1562[84] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[60]))); /* :mode */
8827 scm__rc.d1562[85] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[62]))); /* :overwrite */
8828 scm__rc.d1562[86] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[63]))); /* :append */
8829 scm__rc.d1562[87] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[61])),TRUE); /* %open-output-file */
8830 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[239]), scm__rc.d1562[2]);
8831 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[240]), scm__rc.d1562[87]);
8832 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[241]), scm__rc.d1562[79]);
8833 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[242]), scm__rc.d1562[3]);
8834 scm__rc.d1562[88] = Scm_MakeExtendedPair(scm__rc.d1562[87], SCM_OBJ(&scm__rc.d1563[228]), SCM_OBJ(&scm__rc.d1563[244]));
8835 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%open-output-file")), SCM_OBJ(&libio_25open_output_file__STUB), 0);
8836 libio_25open_output_file__STUB.common.info = scm__rc.d1562[88];
8837 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8838 scm__rc.d1562[89] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[64]))); /* :owner? */
8839 scm__rc.d1562[90] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[65]))); /* :name */
8840 scm__rc.d1562[91] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[67])),TRUE); /* dup */
8841 scm__rc.d1562[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[66])),TRUE); /* open-input-fd-port */
8842 scm__rc.d1562[93] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[68])),TRUE); /* fd */
8843 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[245]), scm__rc.d1562[93]);
8844 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[248]), scm__rc.d1562[2]);
8845 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[249]), scm__rc.d1562[92]);
8846 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[250]), scm__rc.d1562[11]);
8847 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[251]), scm__rc.d1562[3]);
8848 scm__rc.d1562[94] = Scm_MakeExtendedPair(scm__rc.d1562[92], SCM_OBJ(&scm__rc.d1563[245]), SCM_OBJ(&scm__rc.d1563[253]));
8849 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-input-fd-port")), SCM_OBJ(&libioopen_input_fd_port__STUB), 0);
8850 libioopen_input_fd_port__STUB.common.info = scm__rc.d1562[94];
8851 scm__rc.d1562[95] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[69])),TRUE); /* open-output-fd-port */
8852 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[256]), scm__rc.d1562[2]);
8853 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[257]), scm__rc.d1562[95]);
8854 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[258]), scm__rc.d1562[11]);
8855 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[259]), scm__rc.d1562[3]);
8856 scm__rc.d1562[96] = Scm_MakeExtendedPair(scm__rc.d1562[95], SCM_OBJ(&scm__rc.d1563[245]), SCM_OBJ(&scm__rc.d1563[261]));
8857 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-output-fd-port")), SCM_OBJ(&libioopen_output_fd_port__STUB), 0);
8858 libioopen_output_fd_port__STUB.common.info = scm__rc.d1562[96];
8859 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8860 scm__rc.d1562[97] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[70])),TRUE); /* open-input-buffered-port */
8861 scm__rc.d1562[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[71])),TRUE); /* filler */
8862 scm__rc.d1562[99] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[72])),TRUE); /* buffer-size */
8863 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[262]), scm__rc.d1562[99]);
8864 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[263]), scm__rc.d1562[98]);
8865 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[266]), scm__rc.d1562[2]);
8866 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[267]), scm__rc.d1562[97]);
8867 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[268]), scm__rc.d1562[11]);
8868 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[269]), scm__rc.d1562[3]);
8869 scm__rc.d1562[100] = Scm_MakeExtendedPair(scm__rc.d1562[97], SCM_OBJ(&scm__rc.d1563[263]), SCM_OBJ(&scm__rc.d1563[271]));
8870 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-input-buffered-port")), SCM_OBJ(&libioopen_input_buffered_port__STUB), 0);
8871 libioopen_input_buffered_port__STUB.common.info = scm__rc.d1562[100];
8872 scm__rc.d1562[101] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[73])),TRUE); /* open-output-buffered-port */
8873 scm__rc.d1562[102] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[74])),TRUE); /* flusher */
8874 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[272]), scm__rc.d1562[102]);
8875 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[275]), scm__rc.d1562[2]);
8876 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[276]), scm__rc.d1562[101]);
8877 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[277]), scm__rc.d1562[11]);
8878 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[278]), scm__rc.d1562[3]);
8879 scm__rc.d1562[103] = Scm_MakeExtendedPair(scm__rc.d1562[101], SCM_OBJ(&scm__rc.d1563[272]), SCM_OBJ(&scm__rc.d1563[280]));
8880 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-output-buffered-port")), SCM_OBJ(&libioopen_output_buffered_port__STUB), 0);
8881 libioopen_output_buffered_port__STUB.common.info = scm__rc.d1562[103];
8882 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8883 scm__rc.d1562[104] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[75]))); /* :private? */
8884 scm__rc.d1562[105] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[77])),TRUE); /* open-input-string */
8885 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[281]), scm__rc.d1562[57]);
8886 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[284]), scm__rc.d1562[2]);
8887 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[285]), scm__rc.d1562[105]);
8888 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[286]), scm__rc.d1562[11]);
8889 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[287]), scm__rc.d1562[3]);
8890 scm__rc.d1562[106] = Scm_MakeExtendedPair(scm__rc.d1562[105], SCM_OBJ(&scm__rc.d1563[281]), SCM_OBJ(&scm__rc.d1563[289]));
8891 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-input-string")), SCM_OBJ(&libioopen_input_string__STUB), 0);
8892 libioopen_input_string__STUB.common.info = scm__rc.d1562[106];
8893 scm__rc.d1562[107] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[79])),TRUE); /* open-output-string */
8894 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[292]), scm__rc.d1562[2]);
8895 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[293]), scm__rc.d1562[107]);
8896 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[294]), scm__rc.d1562[11]);
8897 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[295]), scm__rc.d1562[3]);
8898 scm__rc.d1562[108] = Scm_MakeExtendedPair(scm__rc.d1562[107], SCM_NIL, SCM_OBJ(&scm__rc.d1563[297]));
8899 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-output-string")), SCM_OBJ(&libioopen_output_string__STUB), 0);
8900 libioopen_output_string__STUB.common.info = scm__rc.d1562[108];
8901 scm__rc.d1562[109] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[80])),TRUE); /* get-output-string */
8902 scm__rc.d1562[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[81])),TRUE); /* oport */
8903 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[298]), scm__rc.d1562[110]);
8904 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[301]), scm__rc.d1562[2]);
8905 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[302]), scm__rc.d1562[109]);
8906 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[303]), scm__rc.d1562[11]);
8907 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[304]), scm__rc.d1562[3]);
8908 scm__rc.d1562[111] = Scm_MakeExtendedPair(scm__rc.d1562[109], SCM_OBJ(&scm__rc.d1563[298]), SCM_OBJ(&scm__rc.d1563[306]));
8909 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("get-output-string")), SCM_OBJ(&libioget_output_string__STUB), 0);
8910 libioget_output_string__STUB.common.info = scm__rc.d1562[111];
8911 scm__rc.d1562[112] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[82])),TRUE); /* get-output-byte-string */
8912 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[309]), scm__rc.d1562[2]);
8913 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[310]), scm__rc.d1562[112]);
8914 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[311]), scm__rc.d1562[11]);
8915 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[312]), scm__rc.d1562[3]);
8916 scm__rc.d1562[113] = Scm_MakeExtendedPair(scm__rc.d1562[112], SCM_OBJ(&scm__rc.d1563[298]), SCM_OBJ(&scm__rc.d1563[314]));
8917 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("get-output-byte-string")), SCM_OBJ(&libioget_output_byte_string__STUB), 0);
8918 libioget_output_byte_string__STUB.common.info = scm__rc.d1562[113];
8919 scm__rc.d1562[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[83])),TRUE); /* get-remaining-input-string */
8920 scm__rc.d1562[115] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[84])),TRUE); /* iport */
8921 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[315]), scm__rc.d1562[115]);
8922 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[318]), scm__rc.d1562[2]);
8923 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[319]), scm__rc.d1562[114]);
8924 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[320]), scm__rc.d1562[11]);
8925 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[321]), scm__rc.d1562[3]);
8926 scm__rc.d1562[116] = Scm_MakeExtendedPair(scm__rc.d1562[114], SCM_OBJ(&scm__rc.d1563[315]), SCM_OBJ(&scm__rc.d1563[323]));
8927 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("get-remaining-input-string")), SCM_OBJ(&libioget_remaining_input_string__STUB), 0);
8928 libioget_remaining_input_string__STUB.common.info = scm__rc.d1562[116];
8929 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8930 scm__rc.d1562[117] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[85])),TRUE); /* open-coding-aware-port */
8931 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[326]), scm__rc.d1562[2]);
8932 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[327]), scm__rc.d1562[117]);
8933 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[328]), scm__rc.d1562[11]);
8934 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[329]), scm__rc.d1562[3]);
8935 scm__rc.d1562[118] = Scm_MakeExtendedPair(scm__rc.d1562[117], SCM_OBJ(&scm__rc.d1563[315]), SCM_OBJ(&scm__rc.d1563[331]));
8936 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("open-coding-aware-port")), SCM_OBJ(&libioopen_coding_aware_port__STUB), 0);
8937 libioopen_coding_aware_port__STUB.common.info = scm__rc.d1562[118];
8938 scm__rc.d1562[119] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[86])),TRUE); /* port-has-port-position? */
8939 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[334]), scm__rc.d1562[2]);
8940 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[335]), scm__rc.d1562[119]);
8941 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[336]), scm__rc.d1562[11]);
8942 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[337]), scm__rc.d1562[3]);
8943 scm__rc.d1562[120] = Scm_MakeExtendedPair(scm__rc.d1562[119], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[339]));
8944 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-has-port-position?")), SCM_OBJ(&libioport_has_port_positionP__STUB), 0);
8945 libioport_has_port_positionP__STUB.common.info = scm__rc.d1562[120];
8946 scm__rc.d1562[121] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[87])),TRUE); /* port-has-set-port-position!? */
8947 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[342]), scm__rc.d1562[2]);
8948 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[343]), scm__rc.d1562[121]);
8949 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[344]), scm__rc.d1562[11]);
8950 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[345]), scm__rc.d1562[3]);
8951 scm__rc.d1562[122] = Scm_MakeExtendedPair(scm__rc.d1562[121], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[347]));
8952 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);
8953 libioport_has_set_port_positionXP__STUB.common.info = scm__rc.d1562[122];
8954 scm__rc.d1562[123] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[88])),TRUE); /* port-position */
8955 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[350]), scm__rc.d1562[2]);
8956 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[351]), scm__rc.d1562[123]);
8957 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[352]), scm__rc.d1562[11]);
8958 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[353]), scm__rc.d1562[3]);
8959 scm__rc.d1562[124] = Scm_MakeExtendedPair(scm__rc.d1562[123], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[355]));
8960 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-position")), SCM_OBJ(&libioport_position__STUB), 0);
8961 libioport_position__STUB.common.info = scm__rc.d1562[124];
8962 scm__rc.d1562[125] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[89])),TRUE); /* set-port-position! */
8963 scm__rc.d1562[126] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[90])),TRUE); /* pos */
8964 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[356]), scm__rc.d1562[126]);
8965 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[357]), scm__rc.d1562[29]);
8966 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[360]), scm__rc.d1562[2]);
8967 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[361]), scm__rc.d1562[125]);
8968 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[362]), scm__rc.d1562[11]);
8969 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[363]), scm__rc.d1562[3]);
8970 scm__rc.d1562[127] = Scm_MakeExtendedPair(scm__rc.d1562[125], SCM_OBJ(&scm__rc.d1563[357]), SCM_OBJ(&scm__rc.d1563[365]));
8971 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("set-port-position!")), SCM_OBJ(&libioset_port_positionX__STUB), 0);
8972 libioset_port_positionX__STUB.common.info = scm__rc.d1562[127];
8973 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
8974 scm__rc.d1562[128] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[91])),TRUE); /* SEEK_SET */
8975 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[128]), Scm_MakeInteger(SEEK_SET), SCM_BINDING_CONST);
8976
8977 scm__rc.d1562[129] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92])),TRUE); /* SEEK_CUR */
8978 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[129]), Scm_MakeInteger(SEEK_CUR), SCM_BINDING_CONST);
8979
8980 scm__rc.d1562[130] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[93])),TRUE); /* SEEK_END */
8981 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(scm__rc.d1562[130]), Scm_MakeInteger(SEEK_END), SCM_BINDING_CONST);
8982
8983 scm__rc.d1562[131] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[94])),TRUE); /* port-seek */
8984 scm__rc.d1562[132] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[95])),TRUE); /* offset */
8985 scm__rc.d1562[133] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[96])),TRUE); /* whence */
8986 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[366]), scm__rc.d1562[133]);
8987 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[367]), scm__rc.d1562[14]);
8988 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[368]), scm__rc.d1562[132]);
8989 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[369]), scm__rc.d1562[29]);
8990 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[372]), scm__rc.d1562[2]);
8991 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[373]), scm__rc.d1562[131]);
8992 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[374]), scm__rc.d1562[11]);
8993 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[375]), scm__rc.d1562[3]);
8994 scm__rc.d1562[134] = Scm_MakeExtendedPair(scm__rc.d1562[131], SCM_OBJ(&scm__rc.d1563[369]), SCM_OBJ(&scm__rc.d1563[377]));
8995 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port-seek")), SCM_OBJ(&libioport_seek__STUB), 0);
8996 libioport_seek__STUB.common.info = scm__rc.d1562[134];
8997 scm__rc.d1562[135] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[97])),TRUE); /* port-tell */
8998 scm__rc.d1562[137] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[11]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
8999 scm__rc.d1562[136] = Scm_MakeIdentifier(scm__rc.d1562[131], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port-seek */
9000 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[380]), scm__rc.d1562[2]);
9001 scm__rc.d1562[138] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[98])),TRUE); /* unused-args */
9002 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[381]), scm__rc.d1562[138]);
9003 scm__rc.d1562[139] = Scm_MakeExtendedPair(scm__rc.d1562[135], SCM_OBJ(&scm__rc.d1563[60]), SCM_OBJ(&scm__rc.d1563[383]));
9004 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[384]), scm__rc.d1562[139]);
9005 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[0]))->name = scm__rc.d1562[135];/* port-tell */
9006 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[0]))[4] = SCM_WORD(scm__rc.d1562[136]);
9007 ScmObj G1570 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[0]), NULL);
9008
9009 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[135]) /* port-tell */, G1570,0);
9010
9011 scm__rc.d1562[140] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[99])),TRUE); /* port-position-prefix */
9012 scm__rc.d1562[141] = Scm_MakeIdentifier(scm__rc.d1562[8], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port? */
9013 scm__rc.d1562[142] = Scm_MakeIdentifier(scm__rc.d1562[28], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port-name */
9014 scm__rc.d1562[143] = Scm_MakeIdentifier(scm__rc.d1562[31], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port-current-line */
9015 scm__rc.d1562[145] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[100])),TRUE); /* positive? */
9016 scm__rc.d1562[144] = Scm_MakeIdentifier(scm__rc.d1562[145], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#positive? */
9017 scm__rc.d1562[147] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[102])),TRUE); /* format */
9018 scm__rc.d1562[146] = Scm_MakeIdentifier(scm__rc.d1562[147], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#format */
9019 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[387]), scm__rc.d1562[2]);
9020 scm__rc.d1562[148] = Scm_MakeExtendedPair(scm__rc.d1562[140], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[388]));
9021 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[389]), scm__rc.d1562[148]);
9022 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[1]))->name = scm__rc.d1562[140];/* port-position-prefix */
9023 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[4] = SCM_WORD(scm__rc.d1562[141]);
9024 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[11] = SCM_WORD(scm__rc.d1562[142]);
9025 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[20] = SCM_WORD(scm__rc.d1562[143]);
9026 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[26] = SCM_WORD(scm__rc.d1562[144]);
9027 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[37] = SCM_WORD(scm__rc.d1562[146]);
9028 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[6]))[47] = SCM_WORD(scm__rc.d1562[146]);
9029 ScmObj G1571 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[1]), NULL);
9030
9031 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[140]) /* port-position-prefix */, G1571,0);
9032
9033 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
9034 scm__rc.d1562[149] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[106])),TRUE); /* %port-walking? */
9035 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[392]), scm__rc.d1562[2]);
9036 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[393]), scm__rc.d1562[149]);
9037 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[394]), scm__rc.d1562[79]);
9038 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[395]), scm__rc.d1562[3]);
9039 scm__rc.d1562[150] = Scm_MakeExtendedPair(scm__rc.d1562[149], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[397]));
9040 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-walking?")), SCM_OBJ(&libio_25port_walkingP__STUB), 0);
9041 libio_25port_walkingP__STUB.common.info = scm__rc.d1562[150];
9042 Scm_SetterSet(SCM_PROCEDURE(&libio_25port_walkingP__STUB), SCM_PROCEDURE(&libio_25port_walkingP_SETTER__STUB), TRUE);
9043 scm__rc.d1562[151] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[108])),TRUE); /* %port-writing-shared? */
9044 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[400]), scm__rc.d1562[2]);
9045 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[401]), scm__rc.d1562[151]);
9046 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[402]), scm__rc.d1562[79]);
9047 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[403]), scm__rc.d1562[3]);
9048 scm__rc.d1562[152] = Scm_MakeExtendedPair(scm__rc.d1562[151], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[405]));
9049 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-writing-shared?")), SCM_OBJ(&libio_25port_writing_sharedP__STUB), 0);
9050 libio_25port_writing_sharedP__STUB.common.info = scm__rc.d1562[152];
9051 Scm_SetterSet(SCM_PROCEDURE(&libio_25port_writing_sharedP__STUB), SCM_PROCEDURE(&libio_25port_writing_sharedP_SETTER__STUB), TRUE);
9052 Scm_InitBuiltinClass(&Scm_WriteStateClass, "<write-state>", Scm_WriteStateClass__SLOTS, TRUE, SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
9053 scm__rc.d1562[153] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[110])),TRUE); /* %port-write-state */
9054 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[408]), scm__rc.d1562[2]);
9055 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[409]), scm__rc.d1562[153]);
9056 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[410]), scm__rc.d1562[79]);
9057 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[411]), scm__rc.d1562[3]);
9058 scm__rc.d1562[154] = Scm_MakeExtendedPair(scm__rc.d1562[153], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[413]));
9059 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-write-state")), SCM_OBJ(&libio_25port_write_state__STUB), 0);
9060 libio_25port_write_state__STUB.common.info = scm__rc.d1562[154];
9061 Scm_SetterSet(SCM_PROCEDURE(&libio_25port_write_state__STUB), SCM_PROCEDURE(&libio_25port_write_state_SETTER__STUB), TRUE);
9062 scm__rc.d1562[155] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[112])),TRUE); /* %port-lock! */
9063 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[416]), scm__rc.d1562[2]);
9064 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[417]), scm__rc.d1562[155]);
9065 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[418]), scm__rc.d1562[79]);
9066 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[419]), scm__rc.d1562[3]);
9067 scm__rc.d1562[156] = Scm_MakeExtendedPair(scm__rc.d1562[155], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[421]));
9068 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-lock!")), SCM_OBJ(&libio_25port_lockX__STUB), 0);
9069 libio_25port_lockX__STUB.common.info = scm__rc.d1562[156];
9070 scm__rc.d1562[157] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[113])),TRUE); /* %port-unlock! */
9071 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[424]), scm__rc.d1562[2]);
9072 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[425]), scm__rc.d1562[157]);
9073 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[426]), scm__rc.d1562[79]);
9074 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[427]), scm__rc.d1562[3]);
9075 scm__rc.d1562[158] = Scm_MakeExtendedPair(scm__rc.d1562[157], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[429]));
9076 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-unlock!")), SCM_OBJ(&libio_25port_unlockX__STUB), 0);
9077 libio_25port_unlockX__STUB.common.info = scm__rc.d1562[158];
9078 scm__rc.d1562[159] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[114])),TRUE); /* with-port-locking */
9079 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 */
9080 scm__rc.d1562[160] = Scm_MakeIdentifier(scm__rc.d1562[155], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-lock! */
9081 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[431]), scm__rc.d1562[159]);
9082 scm__rc.d1562[162] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[431]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
9083 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[432]), scm__rc.d1562[162]);
9084 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[59]))[4] = SCM_WORD(scm__rc.d1562[160]);
9085 scm__rc.d1562[163] = Scm_MakeIdentifier(scm__rc.d1562[157], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-unlock! */
9086 scm__rc.d1562[164] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[431]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
9087 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[433]), scm__rc.d1562[164]);
9088 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[68]))[2] = SCM_WORD(scm__rc.d1562[163]);
9089 scm__rc.d1562[165] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2]))); /* :source-info */
9090 scm__rc.d1562[167] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[115])),TRUE); /* %unwind-protect */
9091 scm__rc.d1562[166] = Scm_MakeIdentifier(scm__rc.d1562[167], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%unwind-protect */
9092 scm__rc.d1562[168] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[116])),TRUE); /* args */
9093 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[56]);
9094 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[168]);
9095 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[437]), scm__rc.d1562[29]);
9096 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[440]), scm__rc.d1562[2]);
9097 scm__rc.d1562[169] = Scm_MakeExtendedPair(scm__rc.d1562[159], SCM_OBJ(&scm__rc.d1563[437]), SCM_OBJ(&scm__rc.d1563[441]));
9098 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[442]), scm__rc.d1562[169]);
9099 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[4]))->name = scm__rc.d1562[159];/* with-port-locking */
9100 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[72]))[7] = SCM_WORD(scm__rc.d1562[165]);
9101 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[72]))[11] = SCM_WORD(scm__rc.d1562[166]);
9102 ScmObj G1572 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[4]), NULL);
9103
9104 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[159]) /* with-port-locking */, G1572,0);
9105
9106 scm__rc.d1562[170] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[117])),TRUE); /* %with-2pass-setup */
9107 scm__rc.d1562[171] = Scm_MakeIdentifier(scm__rc.d1562[153], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-write-state */
9108 scm__rc.d1562[173] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48])),TRUE); /* error */
9109 scm__rc.d1562[172] = Scm_MakeIdentifier(scm__rc.d1562[173], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#error */
9110 scm__rc.d1562[175] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[119])),TRUE); /* <write-state> */
9111 scm__rc.d1562[174] = Scm_MakeIdentifier(scm__rc.d1562[175], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#<write-state> */
9112 scm__rc.d1562[176] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120]))); /* :shared-table */
9113 scm__rc.d1562[177] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[121])),TRUE); /* eq? */
9114 scm__rc.d1562[179] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[122])),TRUE); /* make-hash-table */
9115 scm__rc.d1562[178] = Scm_MakeIdentifier(scm__rc.d1562[179], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#make-hash-table */
9116 scm__rc.d1562[181] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[123])),TRUE); /* make */
9117 scm__rc.d1562[180] = Scm_MakeIdentifier(scm__rc.d1562[181], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#make */
9118 scm__rc.d1562[182] = Scm_MakeIdentifier(scm__rc.d1562[149], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-walking? */
9119 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[443]), scm__rc.d1562[170]);
9120 scm__rc.d1562[183] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[443]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
9121 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[444]), scm__rc.d1562[183]);
9122 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[4] = SCM_WORD(scm__rc.d1562[160]);
9123 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[9] = SCM_WORD(scm__rc.d1562[171]);
9124 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[18] = SCM_WORD(scm__rc.d1562[172]);
9125 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[27] = SCM_WORD(scm__rc.d1562[174]);
9126 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[29] = SCM_WORD(scm__rc.d1562[176]);
9127 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[33] = SCM_WORD(scm__rc.d1562[177]);
9128 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[35] = SCM_WORD(scm__rc.d1562[178]);
9129 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[37] = SCM_WORD(scm__rc.d1562[180]);
9130 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[39] = SCM_WORD(scm__rc.d1562[171]);
9131 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[48] = SCM_WORD(scm__rc.d1562[182]);
9132 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[85]))[61] = SCM_WORD(scm__rc.d1562[182]);
9133 scm__rc.d1562[184] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[443]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
9134 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[445]), scm__rc.d1562[184]);
9135 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[153]))[5] = SCM_WORD(scm__rc.d1562[182]);
9136 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[153]))[13] = SCM_WORD(scm__rc.d1562[171]);
9137 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[153]))[18] = SCM_WORD(scm__rc.d1562[163]);
9138 scm__rc.d1562[185] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[124])),TRUE); /* walker */
9139 scm__rc.d1562[186] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[125])),TRUE); /* emitter */
9140 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[448]), scm__rc.d1562[186]);
9141 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[448]), scm__rc.d1562[168]);
9142 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[449]), scm__rc.d1562[185]);
9143 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[450]), scm__rc.d1562[29]);
9144 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[453]), scm__rc.d1562[2]);
9145 scm__rc.d1562[187] = Scm_MakeExtendedPair(scm__rc.d1562[170], SCM_OBJ(&scm__rc.d1563[450]), SCM_OBJ(&scm__rc.d1563[454]));
9146 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[455]), scm__rc.d1562[187]);
9147 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[7]))->name = scm__rc.d1562[170];/* %with-2pass-setup */
9148 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[173]))[7] = SCM_WORD(scm__rc.d1562[165]);
9149 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[173]))[11] = SCM_WORD(scm__rc.d1562[166]);
9150 ScmObj G1573 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[7]), NULL);
9151
9152 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())) /* gauche.internal */, SCM_SYMBOL(scm__rc.d1562[170]) /* %with-2pass-setup */, G1573,0);
9153
9154 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
9155 scm__rc.d1562[188] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[126])),TRUE); /* read */
9156 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[456]), scm__rc.d1562[14]);
9157 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[459]), scm__rc.d1562[2]);
9158 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[460]), scm__rc.d1562[188]);
9159 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[461]), scm__rc.d1562[4]);
9160 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[462]), scm__rc.d1562[3]);
9161 scm__rc.d1562[189] = Scm_MakeExtendedPair(scm__rc.d1562[188], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[464]));
9162 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("read")), SCM_OBJ(&libioread__STUB), 0);
9163 libioread__STUB.common.info = scm__rc.d1562[189];
9164 scm__rc.d1562[190] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[127])),TRUE); /* read-char */
9165 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[467]), scm__rc.d1562[2]);
9166 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[468]), scm__rc.d1562[190]);
9167 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[469]), scm__rc.d1562[4]);
9168 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[470]), scm__rc.d1562[3]);
9169 scm__rc.d1562[191] = Scm_MakeExtendedPair(scm__rc.d1562[190], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[472]));
9170 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("read-char")), SCM_OBJ(&libioread_char__STUB), SCM_BINDING_INLINABLE);
9171 libioread_char__STUB.common.info = scm__rc.d1562[191];
9172 scm__rc.d1562[192] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[128])),TRUE); /* peek-char */
9173 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[475]), scm__rc.d1562[2]);
9174 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[476]), scm__rc.d1562[192]);
9175 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[477]), scm__rc.d1562[4]);
9176 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[478]), scm__rc.d1562[3]);
9177 scm__rc.d1562[193] = Scm_MakeExtendedPair(scm__rc.d1562[192], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[480]));
9178 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("peek-char")), SCM_OBJ(&libiopeek_char__STUB), SCM_BINDING_INLINABLE);
9179 libiopeek_char__STUB.common.info = scm__rc.d1562[193];
9180 scm__rc.d1562[194] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[129])),TRUE); /* eof-object? */
9181 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[483]), scm__rc.d1562[2]);
9182 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[484]), scm__rc.d1562[194]);
9183 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[485]), scm__rc.d1562[4]);
9184 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[486]), scm__rc.d1562[3]);
9185 scm__rc.d1562[195] = Scm_MakeExtendedPair(scm__rc.d1562[194], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[488]));
9186 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("eof-object?")), SCM_OBJ(&libioeof_objectP__STUB), SCM_BINDING_INLINABLE);
9187 libioeof_objectP__STUB.common.info = scm__rc.d1562[195];
9188 scm__rc.d1562[196] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[130])),TRUE); /* char-ready? */
9189 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[491]), scm__rc.d1562[2]);
9190 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[492]), scm__rc.d1562[196]);
9191 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[493]), scm__rc.d1562[4]);
9192 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[494]), scm__rc.d1562[3]);
9193 scm__rc.d1562[197] = Scm_MakeExtendedPair(scm__rc.d1562[196], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[496]));
9194 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("char-ready?")), SCM_OBJ(&libiochar_readyP__STUB), 0);
9195 libiochar_readyP__STUB.common.info = scm__rc.d1562[197];
9196 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
9197 scm__rc.d1562[198] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[131])),TRUE); /* eof-object */
9198 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[497]), scm__rc.d1562[198]);
9199 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[498]), scm__rc.d1562[11]);
9200 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[499]), scm__rc.d1562[3]);
9201 scm__rc.d1562[199] = Scm_MakeExtendedPair(scm__rc.d1562[198], SCM_NIL, SCM_OBJ(&scm__rc.d1563[500]));
9202 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("eof-object")), SCM_OBJ(&libioeof_object__STUB), SCM_BINDING_INLINABLE);
9203 libioeof_object__STUB.common.info = scm__rc.d1562[199];
9204 scm__rc.d1562[200] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[132])),TRUE); /* byte-ready? */
9205 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[503]), scm__rc.d1562[2]);
9206 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[504]), scm__rc.d1562[200]);
9207 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[505]), scm__rc.d1562[11]);
9208 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[506]), scm__rc.d1562[3]);
9209 scm__rc.d1562[201] = Scm_MakeExtendedPair(scm__rc.d1562[200], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[508]));
9210 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("byte-ready?")), SCM_OBJ(&libiobyte_readyP__STUB), 0);
9211 libiobyte_readyP__STUB.common.info = scm__rc.d1562[201];
9212 scm__rc.d1562[202] = Scm_MakeIdentifier(scm__rc.d1562[200], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#byte-ready? */
9213 scm__rc.d1562[204] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[133])),TRUE); /* u8-ready? */
9214 scm__rc.d1562[203] = Scm_MakeIdentifier(scm__rc.d1562[204], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#u8-ready? */
9215 scm__rc.d1562[205] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[134])),TRUE); /* %toplevel */
9216 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[8]))->name = scm__rc.d1562[205];/* %toplevel */
9217 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[186]))[1] = SCM_WORD(scm__rc.d1562[202]);
9218 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[186]))[3] = SCM_WORD(scm__rc.d1562[203]);
9219 scm__rc.d1562[206] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[135])),TRUE); /* read-byte */
9220 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[511]), scm__rc.d1562[2]);
9221 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[512]), scm__rc.d1562[206]);
9222 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[513]), scm__rc.d1562[11]);
9223 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[514]), scm__rc.d1562[3]);
9224 scm__rc.d1562[207] = Scm_MakeExtendedPair(scm__rc.d1562[206], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[516]));
9225 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-byte")), SCM_OBJ(&libioread_byte__STUB), 0);
9226 libioread_byte__STUB.common.info = scm__rc.d1562[207];
9227 scm__rc.d1562[208] = Scm_MakeIdentifier(scm__rc.d1562[206], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#read-byte */
9228 scm__rc.d1562[210] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[136])),TRUE); /* read-u8 */
9229 scm__rc.d1562[209] = Scm_MakeIdentifier(scm__rc.d1562[210], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#read-u8 */
9230 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[9]))->name = scm__rc.d1562[205];/* %toplevel */
9231 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[191]))[1] = SCM_WORD(scm__rc.d1562[208]);
9232 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[191]))[3] = SCM_WORD(scm__rc.d1562[209]);
9233 scm__rc.d1562[211] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[137])),TRUE); /* peek-byte */
9234 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[519]), scm__rc.d1562[2]);
9235 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[520]), scm__rc.d1562[211]);
9236 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[521]), scm__rc.d1562[11]);
9237 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[522]), scm__rc.d1562[3]);
9238 scm__rc.d1562[212] = Scm_MakeExtendedPair(scm__rc.d1562[211], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[524]));
9239 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("peek-byte")), SCM_OBJ(&libiopeek_byte__STUB), 0);
9240 libiopeek_byte__STUB.common.info = scm__rc.d1562[212];
9241 scm__rc.d1562[213] = Scm_MakeIdentifier(scm__rc.d1562[211], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#peek-byte */
9242 scm__rc.d1562[215] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[138])),TRUE); /* peek-u8 */
9243 scm__rc.d1562[214] = Scm_MakeIdentifier(scm__rc.d1562[215], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#peek-u8 */
9244 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[10]))->name = scm__rc.d1562[205];/* %toplevel */
9245 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[196]))[1] = SCM_WORD(scm__rc.d1562[213]);
9246 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[196]))[3] = SCM_WORD(scm__rc.d1562[214]);
9247 scm__rc.d1562[216] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[139])),TRUE); /* read-line */
9248 scm__rc.d1562[217] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[140])),TRUE); /* allowbytestr */
9249 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[525]), scm__rc.d1562[217]);
9250 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[526]), scm__rc.d1562[29]);
9251 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[527]), scm__rc.d1562[14]);
9252 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[530]), scm__rc.d1562[2]);
9253 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[531]), scm__rc.d1562[216]);
9254 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[532]), scm__rc.d1562[11]);
9255 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[533]), scm__rc.d1562[3]);
9256 scm__rc.d1562[218] = Scm_MakeExtendedPair(scm__rc.d1562[216], SCM_OBJ(&scm__rc.d1563[527]), SCM_OBJ(&scm__rc.d1563[535]));
9257 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-line")), SCM_OBJ(&libioread_line__STUB), 0);
9258 libioread_line__STUB.common.info = scm__rc.d1562[218];
9259 scm__rc.d1562[219] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[141])),TRUE); /* read-string */
9260 scm__rc.d1562[220] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[143])),TRUE); /* lambda */
9261 scm__rc.d1562[221] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[144])),TRUE); /* n */
9262 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[537]), scm__rc.d1562[29]);
9263 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[539]), scm__rc.d1562[14]);
9264 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[540]), scm__rc.d1562[221]);
9265 scm__rc.d1562[222] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[145])),TRUE); /* define */
9266 scm__rc.d1562[223] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[146])),TRUE); /* o */
9267 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[542]), scm__rc.d1562[104]);
9268 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[543]), scm__rc.d1562[107]);
9269 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[545]), scm__rc.d1562[223]);
9270 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[546]), scm__rc.d1562[222]);
9271 scm__rc.d1562[224] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[147])),TRUE); /* let */
9272 scm__rc.d1562[225] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[148])),TRUE); /* loop */
9273 scm__rc.d1562[226] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[149])),TRUE); /* i */
9274 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[548]), scm__rc.d1562[226]);
9275 scm__rc.d1562[227] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[150])),TRUE); /* if */
9276 scm__rc.d1562[228] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[151])),TRUE); /* >= */
9277 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[550]), scm__rc.d1562[221]);
9278 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[551]), scm__rc.d1562[226]);
9279 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[552]), scm__rc.d1562[228]);
9280 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[553]), scm__rc.d1562[223]);
9281 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[554]), scm__rc.d1562[109]);
9282 scm__rc.d1562[229] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[152])),TRUE); /* let1 */
9283 scm__rc.d1562[230] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[153])),TRUE); /* c */
9284 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[555]), scm__rc.d1562[190]);
9285 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[556]), scm__rc.d1562[230]);
9286 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[557]), scm__rc.d1562[194]);
9287 scm__rc.d1562[231] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[154])),TRUE); /* = */
9288 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[558]), scm__rc.d1562[231]);
9289 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[562]), scm__rc.d1562[227]);
9290 scm__rc.d1562[232] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[155])),TRUE); /* begin */
9291 scm__rc.d1562[233] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[156])),TRUE); /* write-char */
9292 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[563]), scm__rc.d1562[230]);
9293 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[564]), scm__rc.d1562[233]);
9294 scm__rc.d1562[234] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[157])),TRUE); /* + */
9295 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[566]), scm__rc.d1562[226]);
9296 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[567]), scm__rc.d1562[234]);
9297 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[569]), scm__rc.d1562[225]);
9298 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[572]), scm__rc.d1562[232]);
9299 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[576]), scm__rc.d1562[227]);
9300 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[579]), scm__rc.d1562[230]);
9301 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[580]), scm__rc.d1562[229]);
9302 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[584]), scm__rc.d1562[227]);
9303 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[587]), scm__rc.d1562[225]);
9304 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[588]), scm__rc.d1562[224]);
9305 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[592]), scm__rc.d1562[220]);
9306 scm__rc.d1562[235] = Scm_MakeIdentifier(scm__rc.d1562[173], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#error */
9307 scm__rc.d1562[236] = Scm_MakeIdentifier(scm__rc.d1562[107], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#open-output-string */
9308 scm__rc.d1562[237] = Scm_MakeIdentifier(scm__rc.d1562[109], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#get-output-string */
9309 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[596]), scm__rc.d1562[2]);
9310 scm__rc.d1562[238] = Scm_MakeExtendedPair(scm__rc.d1562[219], SCM_OBJ(&scm__rc.d1563[540]), SCM_OBJ(&scm__rc.d1563[597]));
9311 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[598]), scm__rc.d1562[238]);
9312 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[11]))->name = scm__rc.d1562[219];/* read-string */
9313 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[28] = SCM_WORD(scm__rc.d1562[235]);
9314 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[34] = SCM_WORD(scm__rc.d1562[104]);
9315 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[38] = SCM_WORD(scm__rc.d1562[236]);
9316 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[47] = SCM_WORD(scm__rc.d1562[237]);
9317 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[201]))[63] = SCM_WORD(scm__rc.d1562[237]);
9318 ScmObj G1577 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[11]), NULL);
9319
9320 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[219]) /* read-string */, G1577,0);
9321
9322 scm__rc.d1562[239] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[158])),TRUE); /* write-string */
9323 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[600]), scm__rc.d1562[29]);
9324 scm__rc.d1562[240] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[159])),TRUE); /* start */
9325 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[601]), scm__rc.d1562[240]);
9326 scm__rc.d1562[241] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[160])),TRUE); /* end */
9327 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[603]), scm__rc.d1562[241]);
9328 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[607]), scm__rc.d1562[14]);
9329 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[608]), scm__rc.d1562[57]);
9330 scm__rc.d1562[242] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[161])),TRUE); /* display */
9331 scm__rc.d1562[243] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[162])),TRUE); /* with-module */
9332 scm__rc.d1562[244] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[163])),TRUE); /* %maybe-substring */
9333 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[609]), scm__rc.d1562[244]);
9334 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[610]), scm__rc.d1562[79]);
9335 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[611]), scm__rc.d1562[243]);
9336 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[612]), scm__rc.d1562[241]);
9337 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[613]), scm__rc.d1562[240]);
9338 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[614]), scm__rc.d1562[57]);
9339 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[617]), scm__rc.d1562[242]);
9340 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[620]), scm__rc.d1562[220]);
9341 scm__rc.d1562[245] = Scm_MakeIdentifier(scm__rc.d1562[244], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%maybe-substring */
9342 scm__rc.d1562[246] = Scm_MakeIdentifier(scm__rc.d1562[242], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#display */
9343 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[623]), scm__rc.d1562[2]);
9344 scm__rc.d1562[247] = Scm_MakeExtendedPair(scm__rc.d1562[239], SCM_OBJ(&scm__rc.d1563[608]), SCM_OBJ(&scm__rc.d1563[624]));
9345 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[625]), scm__rc.d1562[247]);
9346 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[12]))->name = scm__rc.d1562[239];/* write-string */
9347 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]))[60] = SCM_WORD(scm__rc.d1562[235]);
9348 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]))[67] = SCM_WORD(scm__rc.d1562[245]);
9349 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[274]))[71] = SCM_WORD(scm__rc.d1562[246]);
9350 ScmObj G1583 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[12]), NULL);
9351
9352 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[239]) /* write-string */, G1583,0);
9353
9354 scm__rc.d1562[248] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[164])),TRUE); /* consume-trailing-whitespaces */
9355 scm__rc.d1562[249] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[165])),TRUE); /* when */
9356 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[626]), scm__rc.d1562[200]);
9357 scm__rc.d1562[250] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[166])),TRUE); /* b */
9358 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[627]), scm__rc.d1562[211]);
9359 scm__rc.d1562[251] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[167])),TRUE); /* cond */
9360 scm__rc.d1562[252] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[168])),TRUE); /* memv */
9361 scm__rc.d1562[253] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[169])),TRUE); /* quote */
9362 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[631]), scm__rc.d1562[253]);
9363 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[633]), scm__rc.d1562[250]);
9364 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[634]), scm__rc.d1562[252]);
9365 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[635]), scm__rc.d1562[206]);
9366 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[636]), scm__rc.d1562[225]);
9367 scm__rc.d1562[254] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[170])),TRUE); /* eqv? */
9368 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[641]), scm__rc.d1562[250]);
9369 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[642]), scm__rc.d1562[254]);
9370 scm__rc.d1562[255] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[171])),TRUE); /* and */
9371 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[645]), scm__rc.d1562[254]);
9372 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[648]), scm__rc.d1562[255]);
9373 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[651]), scm__rc.d1562[249]);
9374 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[655]), scm__rc.d1562[250]);
9375 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[656]), scm__rc.d1562[254]);
9376 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[661]), scm__rc.d1562[251]);
9377 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[664]), scm__rc.d1562[250]);
9378 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[665]), scm__rc.d1562[229]);
9379 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[668]), scm__rc.d1562[249]);
9380 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[671]), scm__rc.d1562[225]);
9381 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[672]), scm__rc.d1562[224]);
9382 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[675]), scm__rc.d1562[220]);
9383 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[678]), scm__rc.d1562[2]);
9384 scm__rc.d1562[256] = Scm_MakeExtendedPair(scm__rc.d1562[248], SCM_OBJ(&scm__rc.d1563[539]), SCM_OBJ(&scm__rc.d1563[679]));
9385 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[680]), scm__rc.d1562[256]);
9386 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[13]))->name = scm__rc.d1562[248];/* consume-trailing-whitespaces */
9387 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[28] = SCM_WORD(scm__rc.d1562[235]);
9388 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[33] = SCM_WORD(scm__rc.d1562[202]);
9389 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[40] = SCM_WORD(scm__rc.d1562[213]);
9390 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[52] = SCM_WORD(scm__rc.d1562[208]);
9391 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[64] = SCM_WORD(scm__rc.d1562[208]);
9392 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[69] = SCM_WORD(scm__rc.d1562[202]);
9393 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[76] = SCM_WORD(scm__rc.d1562[213]);
9394 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[82] = SCM_WORD(scm__rc.d1562[208]);
9395 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[347]))[92] = SCM_WORD(scm__rc.d1562[208]);
9396 ScmObj G1587 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[13]), NULL);
9397
9398 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[248]) /* consume-trailing-whitespaces */, G1587,0);
9399
9400 scm__rc.d1562[257] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[172])),TRUE); /* read-block */
9401 scm__rc.d1562[258] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[173])),TRUE); /* bytes */
9402 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[681]), scm__rc.d1562[258]);
9403 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[684]), scm__rc.d1562[2]);
9404 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[685]), scm__rc.d1562[257]);
9405 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[686]), scm__rc.d1562[11]);
9406 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[687]), scm__rc.d1562[3]);
9407 scm__rc.d1562[259] = Scm_MakeExtendedPair(scm__rc.d1562[257], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[689]));
9408 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-block")), SCM_OBJ(&libioread_block__STUB), 0);
9409 libioread_block__STUB.common.info = scm__rc.d1562[259];
9410 scm__rc.d1562[260] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[174])),TRUE); /* read-list */
9411 scm__rc.d1562[261] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[175])),TRUE); /* closer */
9412 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[690]), scm__rc.d1562[261]);
9413 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[693]), scm__rc.d1562[2]);
9414 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[694]), scm__rc.d1562[260]);
9415 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[695]), scm__rc.d1562[11]);
9416 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[696]), scm__rc.d1562[3]);
9417 scm__rc.d1562[262] = Scm_MakeExtendedPair(scm__rc.d1562[260], SCM_OBJ(&scm__rc.d1563[690]), SCM_OBJ(&scm__rc.d1563[698]));
9418 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-list")), SCM_OBJ(&libioread_list__STUB), 0);
9419 libioread_list__STUB.common.info = scm__rc.d1562[262];
9420 scm__rc.d1562[263] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[176])),TRUE); /* port->byte-string */
9421 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[701]), scm__rc.d1562[2]);
9422 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[702]), scm__rc.d1562[263]);
9423 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[703]), scm__rc.d1562[11]);
9424 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[704]), scm__rc.d1562[3]);
9425 scm__rc.d1562[264] = Scm_MakeExtendedPair(scm__rc.d1562[263], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[706]));
9426 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("port->byte-string")), SCM_OBJ(&libioport_TObyte_string__STUB), 0);
9427 libioport_TObyte_string__STUB.common.info = scm__rc.d1562[264];
9428 scm__rc.d1562[265] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[177])),TRUE); /* port->string */
9429 scm__rc.d1562[266] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[178]))); /* :unit */
9430 scm__rc.d1562[267] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[179])),TRUE); /* byte */
9431 scm__rc.d1562[269] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[180])),TRUE); /* copy-port */
9432 scm__rc.d1562[268] = Scm_MakeIdentifier(scm__rc.d1562[269], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#copy-port */
9433 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[709]), scm__rc.d1562[2]);
9434 scm__rc.d1562[270] = Scm_MakeExtendedPair(scm__rc.d1562[265], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[710]));
9435 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[711]), scm__rc.d1562[270]);
9436 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[14]))->name = scm__rc.d1562[265];/* port->string */
9437 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[3] = SCM_WORD(scm__rc.d1562[104]);
9438 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[7] = SCM_WORD(scm__rc.d1562[236]);
9439 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[14] = SCM_WORD(scm__rc.d1562[266]);
9440 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[16] = SCM_WORD(scm__rc.d1562[267]);
9441 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[18] = SCM_WORD(scm__rc.d1562[268]);
9442 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[444]))[21] = SCM_WORD(scm__rc.d1562[237]);
9443 ScmObj G1588 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[14]), NULL);
9444
9445 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[265]) /* port->string */, G1588,0);
9446
9447 scm__rc.d1562[271] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[181])),TRUE); /* port->list */
9448 scm__rc.d1562[273] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[182])),TRUE); /* reverse! */
9449 scm__rc.d1562[272] = Scm_MakeIdentifier(scm__rc.d1562[273], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#reverse! */
9450 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[712]), scm__rc.d1562[271]);
9451 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[715]), scm__rc.d1562[2]);
9452 scm__rc.d1562[274] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[712]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[716]));
9453 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[717]), scm__rc.d1562[274]);
9454 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[467]))[14] = SCM_WORD(scm__rc.d1562[272]);
9455 scm__rc.d1562[275] = Scm_MakeIdentifier(scm__rc.d1562[159], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#with-port-locking */
9456 scm__rc.d1562[276] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[183])),TRUE); /* reader */
9457 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[718]), scm__rc.d1562[276]);
9458 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[721]), scm__rc.d1562[2]);
9459 scm__rc.d1562[277] = Scm_MakeExtendedPair(scm__rc.d1562[271], SCM_OBJ(&scm__rc.d1563[718]), SCM_OBJ(&scm__rc.d1563[722]));
9460 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[723]), scm__rc.d1562[277]);
9461 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[16]))->name = scm__rc.d1562[271];/* port->list */
9462 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[496]))[4] = SCM_WORD(scm__rc.d1562[275]);
9463 ScmObj G1589 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[16]), NULL);
9464
9465 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[271]) /* port->list */, G1589,0);
9466
9467 scm__rc.d1562[278] = Scm_MakeIdentifier(scm__rc.d1562[216], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#read-line */
9468 scm__rc.d1562[279] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[184])),TRUE); /* port->string-list */
9469 scm__rc.d1562[280] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[185])),FALSE); /* G1591 */
9470 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[724]), scm__rc.d1562[280]);
9471 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[725]), scm__rc.d1562[279]);
9472 scm__rc.d1562[281] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[186])),FALSE); /* G1590 */
9473 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[726]), scm__rc.d1562[281]);
9474 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[729]), scm__rc.d1562[2]);
9475 scm__rc.d1562[282] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[725]), SCM_OBJ(&scm__rc.d1563[726]), SCM_OBJ(&scm__rc.d1563[730]));
9476 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[731]), scm__rc.d1562[282]);
9477 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[502]))[4] = SCM_WORD(scm__rc.d1562[278]);
9478 scm__rc.d1562[283] = Scm_MakeIdentifier(scm__rc.d1562[271], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port->list */
9479 scm__rc.d1562[284] = Scm_MakeExtendedPair(scm__rc.d1562[279], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[730]));
9480 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[733]), scm__rc.d1562[284]);
9481 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[18]))->name = scm__rc.d1562[279];/* port->string-list */
9482 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[508]))[3] = SCM_WORD(scm__rc.d1562[283]);
9483 scm__rc.d1562[285] = Scm_MakeIdentifier(scm__rc.d1562[279], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#port->string-list */
9484 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[19]))->name = scm__rc.d1562[205];/* %toplevel */
9485 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[513]))[5] = SCM_WORD(scm__rc.d1562[285]);
9486 scm__rc.d1562[286] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[187])),TRUE); /* port->sexp-list */
9487 scm__rc.d1562[287] = Scm_MakeIdentifier(scm__rc.d1562[188], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#read */
9488 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[736]), scm__rc.d1562[2]);
9489 scm__rc.d1562[288] = Scm_MakeExtendedPair(scm__rc.d1562[286], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[737]));
9490 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[738]), scm__rc.d1562[288]);
9491 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[20]))->name = scm__rc.d1562[286];/* port->sexp-list */
9492 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[520]))[1] = SCM_WORD(scm__rc.d1562[287]);
9493 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[520]))[4] = SCM_WORD(scm__rc.d1562[283]);
9494 ScmObj G1592 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[20]), NULL);
9495
9496 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[286]) /* port->sexp-list */, G1592,0);
9497
9498 scm__rc.d1562[289] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[188])),TRUE); /* reader-lexical-mode */
9499 scm__rc.d1562[290] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[189])),TRUE); /* k */
9500 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[739]), scm__rc.d1562[290]);
9501 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[740]), scm__rc.d1562[14]);
9502 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[743]), scm__rc.d1562[2]);
9503 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[744]), scm__rc.d1562[289]);
9504 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[745]), scm__rc.d1562[11]);
9505 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[746]), scm__rc.d1562[3]);
9506 scm__rc.d1562[291] = Scm_MakeExtendedPair(scm__rc.d1562[289], SCM_OBJ(&scm__rc.d1563[740]), SCM_OBJ(&scm__rc.d1563[748]));
9507 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("reader-lexical-mode")), SCM_OBJ(&libioreader_lexical_mode__STUB), 0);
9508 libioreader_lexical_mode__STUB.common.info = scm__rc.d1562[291];
9509 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
9510 scm__rc.d1562[292] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[190])),TRUE); /* %port-ungotten-chars */
9511 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[751]), scm__rc.d1562[2]);
9512 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[752]), scm__rc.d1562[292]);
9513 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[753]), scm__rc.d1562[79]);
9514 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[754]), scm__rc.d1562[3]);
9515 scm__rc.d1562[293] = Scm_MakeExtendedPair(scm__rc.d1562[292], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[756]));
9516 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-ungotten-chars")), SCM_OBJ(&libio_25port_ungotten_chars__STUB), 0);
9517 libio_25port_ungotten_chars__STUB.common.info = scm__rc.d1562[293];
9518 scm__rc.d1562[294] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[191])),TRUE); /* %port-ungotten-bytes */
9519 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[759]), scm__rc.d1562[2]);
9520 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[760]), scm__rc.d1562[294]);
9521 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[761]), scm__rc.d1562[79]);
9522 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[762]), scm__rc.d1562[3]);
9523 scm__rc.d1562[295] = Scm_MakeExtendedPair(scm__rc.d1562[294], SCM_OBJ(&scm__rc.d1563[86]), SCM_OBJ(&scm__rc.d1563[764]));
9524 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%port-ungotten-bytes")), SCM_OBJ(&libio_25port_ungotten_bytes__STUB), 0);
9525 libio_25port_ungotten_bytes__STUB.common.info = scm__rc.d1562[295];
9526 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
9527 scm__rc.d1562[296] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[192])),TRUE); /* define-reader-ctor */
9528 scm__rc.d1562[297] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[193])),TRUE); /* symbol */
9529 scm__rc.d1562[298] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[194])),TRUE); /* finisher */
9530 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[765]), scm__rc.d1562[298]);
9531 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[766]), scm__rc.d1562[14]);
9532 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[767]), scm__rc.d1562[56]);
9533 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[768]), scm__rc.d1562[297]);
9534 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[771]), scm__rc.d1562[2]);
9535 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[772]), scm__rc.d1562[296]);
9536 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[773]), scm__rc.d1562[11]);
9537 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[774]), scm__rc.d1562[3]);
9538 scm__rc.d1562[299] = Scm_MakeExtendedPair(scm__rc.d1562[296], SCM_OBJ(&scm__rc.d1563[768]), SCM_OBJ(&scm__rc.d1563[776]));
9539 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("define-reader-ctor")), SCM_OBJ(&libiodefine_reader_ctor__STUB), 0);
9540 libiodefine_reader_ctor__STUB.common.info = scm__rc.d1562[299];
9541 scm__rc.d1562[300] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[195])),TRUE); /* %get-reader-ctor */
9542 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[777]), scm__rc.d1562[297]);
9543 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[780]), scm__rc.d1562[2]);
9544 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[781]), scm__rc.d1562[300]);
9545 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[782]), scm__rc.d1562[11]);
9546 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[783]), scm__rc.d1562[3]);
9547 scm__rc.d1562[301] = Scm_MakeExtendedPair(scm__rc.d1562[300], SCM_OBJ(&scm__rc.d1563[777]), SCM_OBJ(&scm__rc.d1563[785]));
9548 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%get-reader-ctor")), SCM_OBJ(&libio_25get_reader_ctor__STUB), 0);
9549 libio_25get_reader_ctor__STUB.common.info = scm__rc.d1562[301];
9550 scm__rc.d1562[302] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[196])),TRUE); /* define-reader-directive */
9551 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[786]), scm__rc.d1562[56]);
9552 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[787]), scm__rc.d1562[297]);
9553 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[790]), scm__rc.d1562[2]);
9554 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[791]), scm__rc.d1562[302]);
9555 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[792]), scm__rc.d1562[11]);
9556 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[793]), scm__rc.d1562[3]);
9557 scm__rc.d1562[303] = Scm_MakeExtendedPair(scm__rc.d1562[302], SCM_OBJ(&scm__rc.d1563[787]), SCM_OBJ(&scm__rc.d1563[795]));
9558 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("define-reader-directive")), SCM_OBJ(&libiodefine_reader_directive__STUB), 0);
9559 libiodefine_reader_directive__STUB.common.info = scm__rc.d1562[303];
9560 scm__rc.d1562[304] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[197])),TRUE); /* current-read-context */
9561 scm__rc.d1562[305] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[198])),TRUE); /* ctx */
9562 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[796]), scm__rc.d1562[305]);
9563 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[797]), scm__rc.d1562[14]);
9564 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[800]), scm__rc.d1562[2]);
9565 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[801]), scm__rc.d1562[304]);
9566 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[802]), scm__rc.d1562[11]);
9567 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[803]), scm__rc.d1562[3]);
9568 scm__rc.d1562[306] = Scm_MakeExtendedPair(scm__rc.d1562[304], SCM_OBJ(&scm__rc.d1563[797]), SCM_OBJ(&scm__rc.d1563[805]));
9569 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("current-read-context")), SCM_OBJ(&libiocurrent_read_context__STUB), 0);
9570 libiocurrent_read_context__STUB.common.info = scm__rc.d1562[306];
9571 scm__rc.d1562[307] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[199])),TRUE); /* read-reference? */
9572 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[808]), scm__rc.d1562[2]);
9573 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[809]), scm__rc.d1562[307]);
9574 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[810]), scm__rc.d1562[11]);
9575 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[811]), scm__rc.d1562[3]);
9576 scm__rc.d1562[308] = Scm_MakeExtendedPair(scm__rc.d1562[307], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[813]));
9577 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-reference?")), SCM_OBJ(&libioread_referenceP__STUB), 0);
9578 libioread_referenceP__STUB.common.info = scm__rc.d1562[308];
9579 scm__rc.d1562[309] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[200])),TRUE); /* read-reference-has-value? */
9580 scm__rc.d1562[310] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[201])),TRUE); /* ref */
9581 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[814]), scm__rc.d1562[310]);
9582 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[817]), scm__rc.d1562[2]);
9583 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[818]), scm__rc.d1562[309]);
9584 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[819]), scm__rc.d1562[11]);
9585 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[820]), scm__rc.d1562[3]);
9586 scm__rc.d1562[311] = Scm_MakeExtendedPair(scm__rc.d1562[309], SCM_OBJ(&scm__rc.d1563[814]), SCM_OBJ(&scm__rc.d1563[822]));
9587 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-reference-has-value?")), SCM_OBJ(&libioread_reference_has_valueP__STUB), 0);
9588 libioread_reference_has_valueP__STUB.common.info = scm__rc.d1562[311];
9589 scm__rc.d1562[312] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[202])),TRUE); /* read-reference-value */
9590 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[825]), scm__rc.d1562[2]);
9591 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[826]), scm__rc.d1562[312]);
9592 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[827]), scm__rc.d1562[11]);
9593 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[828]), scm__rc.d1562[3]);
9594 scm__rc.d1562[313] = Scm_MakeExtendedPair(scm__rc.d1562[312], SCM_OBJ(&scm__rc.d1563[814]), SCM_OBJ(&scm__rc.d1563[830]));
9595 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("read-reference-value")), SCM_OBJ(&libioread_reference_value__STUB), 0);
9596 libioread_reference_value__STUB.common.info = scm__rc.d1562[313];
9597 scm__rc.d1562[315] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[203])),TRUE); /* read-with-shared-structure */
9598 scm__rc.d1562[314] = Scm_MakeIdentifier(scm__rc.d1562[315], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#read-with-shared-structure */
9599 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[21]))->name = scm__rc.d1562[205];/* %toplevel */
9600 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[526]))[1] = SCM_WORD(scm__rc.d1562[287]);
9601 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[526]))[3] = SCM_WORD(scm__rc.d1562[314]);
9602 scm__rc.d1562[317] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[204])),TRUE); /* read/ss */
9603 scm__rc.d1562[316] = Scm_MakeIdentifier(scm__rc.d1562[317], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#read/ss */
9604 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[22]))->name = scm__rc.d1562[205];/* %toplevel */
9605 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[531]))[1] = SCM_WORD(scm__rc.d1562[287]);
9606 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[531]))[3] = SCM_WORD(scm__rc.d1562[316]);
9607 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
9608 scm__rc.d1562[318] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[205])),TRUE); /* write */
9609 scm__rc.d1562[319] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[206])),TRUE); /* port-or-control-1 */
9610 scm__rc.d1562[320] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[207])),TRUE); /* port-or-control-2 */
9611 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[831]), scm__rc.d1562[320]);
9612 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[832]), scm__rc.d1562[319]);
9613 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[833]), scm__rc.d1562[14]);
9614 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[834]), scm__rc.d1562[1]);
9615 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[837]), scm__rc.d1562[2]);
9616 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[838]), scm__rc.d1562[318]);
9617 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[839]), scm__rc.d1562[4]);
9618 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[840]), scm__rc.d1562[3]);
9619 scm__rc.d1562[321] = Scm_MakeExtendedPair(scm__rc.d1562[318], SCM_OBJ(&scm__rc.d1563[834]), SCM_OBJ(&scm__rc.d1563[842]));
9620 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("write")), SCM_OBJ(&libiowrite__STUB), 0);
9621 libiowrite__STUB.common.info = scm__rc.d1562[321];
9622 scm__rc.d1562[322] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[208])),TRUE); /* write-simple */
9623 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[843]), scm__rc.d1562[1]);
9624 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[846]), scm__rc.d1562[2]);
9625 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[847]), scm__rc.d1562[322]);
9626 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[848]), scm__rc.d1562[4]);
9627 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[849]), scm__rc.d1562[3]);
9628 scm__rc.d1562[323] = Scm_MakeExtendedPair(scm__rc.d1562[322], SCM_OBJ(&scm__rc.d1563[843]), SCM_OBJ(&scm__rc.d1563[851]));
9629 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("write-simple")), SCM_OBJ(&libiowrite_simple__STUB), 0);
9630 libiowrite_simple__STUB.common.info = scm__rc.d1562[323];
9631 scm__rc.d1562[324] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[209])),TRUE); /* write-shared */
9632 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[854]), scm__rc.d1562[2]);
9633 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[855]), scm__rc.d1562[324]);
9634 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[856]), scm__rc.d1562[4]);
9635 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[857]), scm__rc.d1562[3]);
9636 scm__rc.d1562[325] = Scm_MakeExtendedPair(scm__rc.d1562[324], SCM_OBJ(&scm__rc.d1563[834]), SCM_OBJ(&scm__rc.d1563[859]));
9637 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("write-shared")), SCM_OBJ(&libiowrite_shared__STUB), 0);
9638 libiowrite_shared__STUB.common.info = scm__rc.d1562[325];
9639 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[862]), scm__rc.d1562[2]);
9640 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[863]), scm__rc.d1562[242]);
9641 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[864]), scm__rc.d1562[4]);
9642 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[865]), scm__rc.d1562[3]);
9643 scm__rc.d1562[326] = Scm_MakeExtendedPair(scm__rc.d1562[242], SCM_OBJ(&scm__rc.d1563[834]), SCM_OBJ(&scm__rc.d1563[867]));
9644 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("display")), SCM_OBJ(&libiodisplay__STUB), 0);
9645 libiodisplay__STUB.common.info = scm__rc.d1562[326];
9646 scm__rc.d1562[327] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[210])),TRUE); /* newline */
9647 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[870]), scm__rc.d1562[2]);
9648 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[871]), scm__rc.d1562[327]);
9649 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[872]), scm__rc.d1562[4]);
9650 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[873]), scm__rc.d1562[3]);
9651 scm__rc.d1562[328] = Scm_MakeExtendedPair(scm__rc.d1562[327], SCM_OBJ(&scm__rc.d1563[456]), SCM_OBJ(&scm__rc.d1563[875]));
9652 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("newline")), SCM_OBJ(&libionewline__STUB), 0);
9653 libionewline__STUB.common.info = scm__rc.d1562[328];
9654 scm__rc.d1562[329] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[211])),TRUE); /* ch */
9655 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[876]), scm__rc.d1562[329]);
9656 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[879]), scm__rc.d1562[2]);
9657 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[880]), scm__rc.d1562[233]);
9658 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[881]), scm__rc.d1562[4]);
9659 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[882]), scm__rc.d1562[3]);
9660 scm__rc.d1562[330] = Scm_MakeExtendedPair(scm__rc.d1562[233], SCM_OBJ(&scm__rc.d1563[876]), SCM_OBJ(&scm__rc.d1563[884]));
9661 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("write-char")), SCM_OBJ(&libiowrite_char__STUB), SCM_BINDING_INLINABLE);
9662 libiowrite_char__STUB.common.info = scm__rc.d1562[330];
9663 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
9664 scm__rc.d1562[331] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[212])),TRUE); /* write-byte */
9665 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[885]), scm__rc.d1562[267]);
9666 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[888]), scm__rc.d1562[2]);
9667 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[889]), scm__rc.d1562[331]);
9668 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[890]), scm__rc.d1562[11]);
9669 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[891]), scm__rc.d1562[3]);
9670 scm__rc.d1562[332] = Scm_MakeExtendedPair(scm__rc.d1562[331], SCM_OBJ(&scm__rc.d1563[885]), SCM_OBJ(&scm__rc.d1563[893]));
9671 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("write-byte")), SCM_OBJ(&libiowrite_byte__STUB), 0);
9672 libiowrite_byte__STUB.common.info = scm__rc.d1562[332];
9673 scm__rc.d1562[333] = Scm_MakeIdentifier(scm__rc.d1562[331], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#write-byte */
9674 scm__rc.d1562[335] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[213])),TRUE); /* write-u8 */
9675 scm__rc.d1562[334] = Scm_MakeIdentifier(scm__rc.d1562[335], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#write-u8 */
9676 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[23]))->name = scm__rc.d1562[205];/* %toplevel */
9677 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[536]))[1] = SCM_WORD(scm__rc.d1562[333]);
9678 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[536]))[3] = SCM_WORD(scm__rc.d1562[334]);
9679 scm__rc.d1562[336] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[214])),TRUE); /* write-limited */
9680 scm__rc.d1562[337] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[215])),TRUE); /* limit */
9681 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[894]), scm__rc.d1562[337]);
9682 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[895]), scm__rc.d1562[1]);
9683 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[898]), scm__rc.d1562[2]);
9684 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[899]), scm__rc.d1562[336]);
9685 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[900]), scm__rc.d1562[11]);
9686 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[901]), scm__rc.d1562[3]);
9687 scm__rc.d1562[338] = Scm_MakeExtendedPair(scm__rc.d1562[336], SCM_OBJ(&scm__rc.d1563[895]), SCM_OBJ(&scm__rc.d1563[903]));
9688 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("write-limited")), SCM_OBJ(&libiowrite_limited__STUB), 0);
9689 libiowrite_limited__STUB.common.info = scm__rc.d1562[338];
9690 scm__rc.d1562[339] = Scm_MakeIdentifier(scm__rc.d1562[324], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#write-shared */
9691 scm__rc.d1562[341] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[216])),TRUE); /* write* */
9692 scm__rc.d1562[340] = Scm_MakeIdentifier(scm__rc.d1562[341], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#write* */
9693 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[24]))->name = scm__rc.d1562[205];/* %toplevel */
9694 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[541]))[1] = SCM_WORD(scm__rc.d1562[339]);
9695 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[541]))[3] = SCM_WORD(scm__rc.d1562[340]);
9696 scm__rc.d1562[342] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[217])),TRUE); /* flush */
9697 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[904]), scm__rc.d1562[14]);
9698 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[907]), scm__rc.d1562[2]);
9699 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[908]), scm__rc.d1562[342]);
9700 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[909]), scm__rc.d1562[11]);
9701 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[910]), scm__rc.d1562[3]);
9702 scm__rc.d1562[343] = Scm_MakeExtendedPair(scm__rc.d1562[342], SCM_OBJ(&scm__rc.d1563[904]), SCM_OBJ(&scm__rc.d1563[912]));
9703 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("flush")), SCM_OBJ(&libioflush__STUB), 0);
9704 libioflush__STUB.common.info = scm__rc.d1562[343];
9705 scm__rc.d1562[344] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[218])),TRUE); /* flush-all-ports */
9706 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[913]), scm__rc.d1562[344]);
9707 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[914]), scm__rc.d1562[11]);
9708 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[915]), scm__rc.d1562[3]);
9709 scm__rc.d1562[345] = Scm_MakeExtendedPair(scm__rc.d1562[344], SCM_NIL, SCM_OBJ(&scm__rc.d1563[916]));
9710 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("flush-all-ports")), SCM_OBJ(&libioflush_all_ports__STUB), 0);
9711 libioflush_all_ports__STUB.common.info = scm__rc.d1562[345];
9712 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
9713 scm__rc.d1562[346] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[219])),TRUE); /* write-need-recurse? */
9714 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[919]), scm__rc.d1562[2]);
9715 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[920]), scm__rc.d1562[346]);
9716 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[921]), scm__rc.d1562[79]);
9717 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[922]), scm__rc.d1562[3]);
9718 scm__rc.d1562[347] = Scm_MakeExtendedPair(scm__rc.d1562[346], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[924]));
9719 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("write-need-recurse?")), SCM_OBJ(&libiowrite_need_recurseP__STUB), 0);
9720 libiowrite_need_recurseP__STUB.common.info = scm__rc.d1562[347];
9721 scm__rc.d1562[348] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[220])),TRUE); /* write-walk */
9722 scm__rc.d1562[350] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120])),TRUE); /* shared-table */
9723 scm__rc.d1562[349] = Scm_MakeIdentifier(scm__rc.d1562[350], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#shared-table */
9724 scm__rc.d1562[352] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[221])),TRUE); /* ~ */
9725 scm__rc.d1562[351] = Scm_MakeIdentifier(scm__rc.d1562[352], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#~ */
9726 scm__rc.d1562[354] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[222])),TRUE); /* %write-walk-rec */
9727 scm__rc.d1562[353] = Scm_MakeIdentifier(scm__rc.d1562[354], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%write-walk-rec */
9728 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[925]), scm__rc.d1562[1]);
9729 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[928]), scm__rc.d1562[2]);
9730 scm__rc.d1562[355] = Scm_MakeExtendedPair(scm__rc.d1562[348], SCM_OBJ(&scm__rc.d1563[925]), SCM_OBJ(&scm__rc.d1563[929]));
9731 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[930]), scm__rc.d1562[355]);
9732 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[25]))->name = scm__rc.d1562[348];/* write-walk */
9733 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]))[4] = SCM_WORD(scm__rc.d1562[171]);
9734 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]))[15] = SCM_WORD(scm__rc.d1562[349]);
9735 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]))[17] = SCM_WORD(scm__rc.d1562[351]);
9736 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[546]))[19] = SCM_WORD(scm__rc.d1562[353]);
9737 ScmObj G1593 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[25]), NULL);
9738
9739 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[348]) /* write-walk */, G1593,0);
9740
9741 scm__rc.d1562[356] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[223])),FALSE); /* G1596 */
9742 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[931]), scm__rc.d1562[356]);
9743 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[932]), scm__rc.d1562[354]);
9744 scm__rc.d1562[357] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[224])),FALSE); /* G1594 */
9745 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[933]), scm__rc.d1562[357]);
9746 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[936]), scm__rc.d1562[2]);
9747 scm__rc.d1562[358] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[932]), SCM_OBJ(&scm__rc.d1563[933]), SCM_OBJ(&scm__rc.d1563[937]));
9748 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[938]), scm__rc.d1562[358]);
9749 scm__rc.d1562[359] = Scm_MakeIdentifier(scm__rc.d1562[346], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write-need-recurse? */
9750 scm__rc.d1562[361] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[225])),TRUE); /* hash-table-exists? */
9751 scm__rc.d1562[360] = Scm_MakeIdentifier(scm__rc.d1562[361], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-exists? */
9752 scm__rc.d1562[363] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[226])),TRUE); /* hash-table-update! */
9753 scm__rc.d1562[362] = Scm_MakeIdentifier(scm__rc.d1562[363], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-update! */
9754 scm__rc.d1562[365] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[227])),TRUE); /* hash-table-put! */
9755 scm__rc.d1562[364] = Scm_MakeIdentifier(scm__rc.d1562[365], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-put! */
9756 scm__rc.d1562[367] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[228])),TRUE); /* write-object */
9757 scm__rc.d1562[366] = Scm_MakeIdentifier(scm__rc.d1562[367], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write-object */
9758 scm__rc.d1562[368] = Scm_MakeIdentifier(scm__rc.d1562[151], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%port-writing-shared? */
9759 scm__rc.d1562[370] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[229])),TRUE); /* hash-table-get */
9760 scm__rc.d1562[369] = Scm_MakeIdentifier(scm__rc.d1562[370], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-get */
9761 scm__rc.d1562[372] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[230])),TRUE); /* hash-table-delete! */
9762 scm__rc.d1562[371] = Scm_MakeIdentifier(scm__rc.d1562[372], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#hash-table-delete! */
9763 scm__rc.d1562[373] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[231])),TRUE); /* tab */
9764 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[940]), scm__rc.d1562[373]);
9765 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[941]), scm__rc.d1562[29]);
9766 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[942]), scm__rc.d1562[1]);
9767 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[945]), scm__rc.d1562[2]);
9768 scm__rc.d1562[374] = Scm_MakeExtendedPair(scm__rc.d1562[354], SCM_OBJ(&scm__rc.d1563[942]), SCM_OBJ(&scm__rc.d1563[946]));
9769 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[947]), scm__rc.d1562[374]);
9770 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[27]))->name = scm__rc.d1562[354];/* %write-walk-rec */
9771 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[4] = SCM_WORD(scm__rc.d1562[359]);
9772 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[12] = SCM_WORD(scm__rc.d1562[360]);
9773 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[19] = SCM_WORD(scm__rc.d1562[362]);
9774 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[27] = SCM_WORD(scm__rc.d1562[364]);
9775 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[51] = SCM_WORD(scm__rc.d1562[353]);
9776 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[59] = SCM_WORD(scm__rc.d1562[353]);
9777 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[86] = SCM_WORD(scm__rc.d1562[353]);
9778 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[99] = SCM_WORD(scm__rc.d1562[366]);
9779 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[104] = SCM_WORD(scm__rc.d1562[368]);
9780 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[114] = SCM_WORD(scm__rc.d1562[369]);
9781 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[570]))[121] = SCM_WORD(scm__rc.d1562[371]);
9782 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[28]))->name = scm__rc.d1562[205];/* %toplevel */
9783 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[695]))[5] = SCM_WORD(scm__rc.d1562[353]);
9784 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
9785 scm__rc.d1562[375] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[232])),TRUE); /* write-with-shared-structure */
9786 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[949]), scm__rc.d1562[14]);
9787 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[950]), scm__rc.d1562[1]);
9788 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[951]), scm__rc.d1562[341]);
9789 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[954]), scm__rc.d1562[220]);
9790 scm__rc.d1562[376] = Scm_MakeIdentifier(scm__rc.d1562[341], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write* */
9791 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[957]), scm__rc.d1562[2]);
9792 scm__rc.d1562[377] = Scm_MakeExtendedPair(scm__rc.d1562[375], SCM_OBJ(&scm__rc.d1563[950]), SCM_OBJ(&scm__rc.d1563[958]));
9793 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[959]), scm__rc.d1562[377]);
9794 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[29]))->name = scm__rc.d1562[375];/* write-with-shared-structure */
9795 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]))[28] = SCM_WORD(scm__rc.d1562[172]);
9796 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[702]))[32] = SCM_WORD(scm__rc.d1562[376]);
9797 ScmObj G1600 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[29]), NULL);
9798
9799 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[375]) /* write-with-shared-structure */, G1600,0);
9800
9801 scm__rc.d1562[378] = Scm_MakeIdentifier(scm__rc.d1562[375], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write-with-shared-structure */
9802 scm__rc.d1562[380] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[233])),TRUE); /* write/ss */
9803 scm__rc.d1562[379] = Scm_MakeIdentifier(scm__rc.d1562[380], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#write/ss */
9804 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[30]))->name = scm__rc.d1562[205];/* %toplevel */
9805 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[736]))[1] = SCM_WORD(scm__rc.d1562[378]);
9806 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[736]))[3] = SCM_WORD(scm__rc.d1562[379]);
9807 scm__rc.d1562[381] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[234])),TRUE); /* print */
9808 scm__rc.d1562[382] = Scm_MakeIdentifier(scm__rc.d1562[242], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#display */
9809 scm__rc.d1562[384] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[235])),TRUE); /* for-each */
9810 scm__rc.d1562[383] = Scm_MakeIdentifier(scm__rc.d1562[384], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#for-each */
9811 scm__rc.d1562[385] = Scm_MakeIdentifier(scm__rc.d1562[327], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#newline */
9812 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[962]), scm__rc.d1562[2]);
9813 scm__rc.d1562[386] = Scm_MakeExtendedPair(scm__rc.d1562[381], scm__rc.d1562[168], SCM_OBJ(&scm__rc.d1563[963]));
9814 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[964]), scm__rc.d1562[386]);
9815 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[31]))->name = scm__rc.d1562[381];/* print */
9816 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[741]))[3] = SCM_WORD(scm__rc.d1562[382]);
9817 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[741]))[6] = SCM_WORD(scm__rc.d1562[383]);
9818 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[741]))[8] = SCM_WORD(scm__rc.d1562[385]);
9819 ScmObj G1601 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[31]), NULL);
9820
9821 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[381]) /* print */, G1601,0);
9822
9823 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
9824 Scm_InitBuiltinClass(&Scm_WriteControlsClass, "<write-controls>", Scm_WriteControlsClass__SLOTS, TRUE, SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
9825 scm__rc.d1562[387] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[236])),TRUE); /* make-write-controls */
9826 scm__rc.d1562[389] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[237])),TRUE); /* undefined? */
9827 scm__rc.d1562[388] = Scm_MakeIdentifier(scm__rc.d1562[389], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#undefined? */
9828 scm__rc.d1562[391] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[238])),TRUE); /* <write-controls> */
9829 scm__rc.d1562[390] = Scm_MakeIdentifier(scm__rc.d1562[391], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#<write-controls> */
9830 scm__rc.d1562[392] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[239]))); /* :length */
9831 scm__rc.d1562[393] = Scm_MakeIdentifier(scm__rc.d1562[389], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#undefined? */
9832 scm__rc.d1562[394] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[240]))); /* :level */
9833 scm__rc.d1562[395] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[241]))); /* :width */
9834 scm__rc.d1562[396] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[242]))); /* :base */
9835 scm__rc.d1562[397] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[243]))); /* :radix */
9836 scm__rc.d1562[398] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[244]))); /* :pretty */
9837 scm__rc.d1562[399] = Scm_MakeIdentifier(scm__rc.d1562[181], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#make */
9838 scm__rc.d1562[400] = Scm_MakeIdentifier(scm__rc.d1562[173], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#error */
9839 scm__rc.d1562[402] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[246])),TRUE); /* unwrap-syntax-1 */
9840 scm__rc.d1562[401] = Scm_MakeIdentifier(scm__rc.d1562[402], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#unwrap-syntax-1 */
9841 scm__rc.d1562[403] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[247]))); /* :print-length */
9842 scm__rc.d1562[404] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[248]))); /* :print-level */
9843 scm__rc.d1562[405] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[249]))); /* :print-width */
9844 scm__rc.d1562[406] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[250]))); /* :print-base */
9845 scm__rc.d1562[407] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[251]))); /* :print-radix */
9846 scm__rc.d1562[408] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[252]))); /* :print-pretty */
9847 scm__rc.d1562[410] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[254])),TRUE); /* errorf */
9848 scm__rc.d1562[409] = Scm_MakeIdentifier(scm__rc.d1562[410], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#errorf */
9849 scm__rc.d1562[411] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28]))); /* :key */
9850 scm__rc.d1562[412] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[239])),TRUE); /* length */
9851 scm__rc.d1562[413] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[240])),TRUE); /* level */
9852 scm__rc.d1562[414] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[241])),TRUE); /* width */
9853 scm__rc.d1562[415] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[242])),TRUE); /* base */
9854 scm__rc.d1562[416] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[243])),TRUE); /* radix */
9855 scm__rc.d1562[417] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[244])),TRUE); /* pretty */
9856 scm__rc.d1562[418] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[247])),TRUE); /* print-length */
9857 scm__rc.d1562[419] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[248])),TRUE); /* print-level */
9858 scm__rc.d1562[420] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[249])),TRUE); /* print-width */
9859 scm__rc.d1562[421] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[250])),TRUE); /* print-base */
9860 scm__rc.d1562[422] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[251])),TRUE); /* print-radix */
9861 scm__rc.d1562[423] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[252])),TRUE); /* print-pretty */
9862 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[965]), scm__rc.d1562[423]);
9863 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[966]), scm__rc.d1562[422]);
9864 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[967]), scm__rc.d1562[421]);
9865 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[968]), scm__rc.d1562[420]);
9866 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[969]), scm__rc.d1562[419]);
9867 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[970]), scm__rc.d1562[418]);
9868 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[971]), scm__rc.d1562[417]);
9869 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[972]), scm__rc.d1562[416]);
9870 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[973]), scm__rc.d1562[415]);
9871 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[974]), scm__rc.d1562[414]);
9872 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[975]), scm__rc.d1562[413]);
9873 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[976]), scm__rc.d1562[412]);
9874 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[977]), scm__rc.d1562[411]);
9875 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[980]), scm__rc.d1562[2]);
9876 scm__rc.d1562[424] = Scm_MakeExtendedPair(scm__rc.d1562[387], SCM_OBJ(&scm__rc.d1563[977]), SCM_OBJ(&scm__rc.d1563[981]));
9877 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[982]), scm__rc.d1562[424]);
9878 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[32]))->name = scm__rc.d1562[387];/* make-write-controls */
9879 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[32] = SCM_WORD(scm__rc.d1562[388]);
9880 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[44] = SCM_WORD(scm__rc.d1562[388]);
9881 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[56] = SCM_WORD(scm__rc.d1562[388]);
9882 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[68] = SCM_WORD(scm__rc.d1562[388]);
9883 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[80] = SCM_WORD(scm__rc.d1562[388]);
9884 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[92] = SCM_WORD(scm__rc.d1562[388]);
9885 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[104] = SCM_WORD(scm__rc.d1562[388]);
9886 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[116] = SCM_WORD(scm__rc.d1562[388]);
9887 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[128] = SCM_WORD(scm__rc.d1562[388]);
9888 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[140] = SCM_WORD(scm__rc.d1562[388]);
9889 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[152] = SCM_WORD(scm__rc.d1562[388]);
9890 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[164] = SCM_WORD(scm__rc.d1562[388]);
9891 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[173] = SCM_WORD(scm__rc.d1562[390]);
9892 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[175] = SCM_WORD(scm__rc.d1562[392]);
9893 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[180] = SCM_WORD(scm__rc.d1562[393]);
9894 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[189] = SCM_WORD(scm__rc.d1562[394]);
9895 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[194] = SCM_WORD(scm__rc.d1562[393]);
9896 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[203] = SCM_WORD(scm__rc.d1562[395]);
9897 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[208] = SCM_WORD(scm__rc.d1562[393]);
9898 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[217] = SCM_WORD(scm__rc.d1562[396]);
9899 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[222] = SCM_WORD(scm__rc.d1562[393]);
9900 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[231] = SCM_WORD(scm__rc.d1562[397]);
9901 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[236] = SCM_WORD(scm__rc.d1562[393]);
9902 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[245] = SCM_WORD(scm__rc.d1562[398]);
9903 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[250] = SCM_WORD(scm__rc.d1562[393]);
9904 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[258] = SCM_WORD(scm__rc.d1562[399]);
9905 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[268] = SCM_WORD(scm__rc.d1562[400]);
9906 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[275] = SCM_WORD(scm__rc.d1562[401]);
9907 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[279] = SCM_WORD(scm__rc.d1562[392]);
9908 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[301] = SCM_WORD(scm__rc.d1562[394]);
9909 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[323] = SCM_WORD(scm__rc.d1562[395]);
9910 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[345] = SCM_WORD(scm__rc.d1562[396]);
9911 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[367] = SCM_WORD(scm__rc.d1562[397]);
9912 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[389] = SCM_WORD(scm__rc.d1562[398]);
9913 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[411] = SCM_WORD(scm__rc.d1562[403]);
9914 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[433] = SCM_WORD(scm__rc.d1562[404]);
9915 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[455] = SCM_WORD(scm__rc.d1562[405]);
9916 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[477] = SCM_WORD(scm__rc.d1562[406]);
9917 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[499] = SCM_WORD(scm__rc.d1562[407]);
9918 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[521] = SCM_WORD(scm__rc.d1562[408]);
9919 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[751]))[548] = SCM_WORD(scm__rc.d1562[409]);
9920 ScmObj G1617 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[32]), NULL);
9921
9922 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[387]) /* make-write-controls */, G1617,0);
9923
9924 scm__rc.d1562[425] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[255])),TRUE); /* write-controls-copy */
9925 scm__rc.d1562[427] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[256])),TRUE); /* slot-ref */
9926 scm__rc.d1562[426] = Scm_MakeIdentifier(scm__rc.d1562[427], SCM_MODULE(scm__rc.d1562[137]), SCM_NIL); /* gauche#slot-ref */
9927 scm__rc.d1562[428] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[257])),TRUE); /* wc */
9928 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[983]), scm__rc.d1562[428]);
9929 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[986]), scm__rc.d1562[2]);
9930 scm__rc.d1562[429] = Scm_MakeExtendedPair(scm__rc.d1562[425], SCM_OBJ(&scm__rc.d1563[983]), SCM_OBJ(&scm__rc.d1563[987]));
9931 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[988]), scm__rc.d1562[429]);
9932 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[33]))->name = scm__rc.d1562[425];/* write-controls-copy */
9933 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[32] = SCM_WORD(scm__rc.d1562[388]);
9934 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[44] = SCM_WORD(scm__rc.d1562[388]);
9935 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[56] = SCM_WORD(scm__rc.d1562[388]);
9936 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[68] = SCM_WORD(scm__rc.d1562[388]);
9937 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[80] = SCM_WORD(scm__rc.d1562[388]);
9938 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[92] = SCM_WORD(scm__rc.d1562[388]);
9939 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[104] = SCM_WORD(scm__rc.d1562[388]);
9940 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[116] = SCM_WORD(scm__rc.d1562[388]);
9941 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[128] = SCM_WORD(scm__rc.d1562[388]);
9942 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[140] = SCM_WORD(scm__rc.d1562[388]);
9943 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[152] = SCM_WORD(scm__rc.d1562[388]);
9944 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[164] = SCM_WORD(scm__rc.d1562[388]);
9945 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[176] = SCM_WORD(scm__rc.d1562[393]);
9946 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[183] = SCM_WORD(scm__rc.d1562[393]);
9947 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[190] = SCM_WORD(scm__rc.d1562[412]);
9948 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[192] = SCM_WORD(scm__rc.d1562[426]);
9949 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[203] = SCM_WORD(scm__rc.d1562[393]);
9950 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[210] = SCM_WORD(scm__rc.d1562[393]);
9951 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[217] = SCM_WORD(scm__rc.d1562[413]);
9952 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[219] = SCM_WORD(scm__rc.d1562[426]);
9953 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[230] = SCM_WORD(scm__rc.d1562[393]);
9954 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[237] = SCM_WORD(scm__rc.d1562[393]);
9955 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[244] = SCM_WORD(scm__rc.d1562[414]);
9956 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[246] = SCM_WORD(scm__rc.d1562[426]);
9957 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[257] = SCM_WORD(scm__rc.d1562[393]);
9958 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[264] = SCM_WORD(scm__rc.d1562[393]);
9959 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[271] = SCM_WORD(scm__rc.d1562[415]);
9960 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[273] = SCM_WORD(scm__rc.d1562[426]);
9961 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[284] = SCM_WORD(scm__rc.d1562[393]);
9962 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[291] = SCM_WORD(scm__rc.d1562[393]);
9963 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[298] = SCM_WORD(scm__rc.d1562[416]);
9964 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[300] = SCM_WORD(scm__rc.d1562[426]);
9965 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[311] = SCM_WORD(scm__rc.d1562[393]);
9966 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[318] = SCM_WORD(scm__rc.d1562[393]);
9967 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[325] = SCM_WORD(scm__rc.d1562[417]);
9968 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[327] = SCM_WORD(scm__rc.d1562[426]);
9969 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[340] = SCM_WORD(scm__rc.d1562[412]);
9970 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[342] = SCM_WORD(scm__rc.d1562[426]);
9971 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[350] = SCM_WORD(scm__rc.d1562[413]);
9972 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[352] = SCM_WORD(scm__rc.d1562[426]);
9973 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[360] = SCM_WORD(scm__rc.d1562[414]);
9974 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[362] = SCM_WORD(scm__rc.d1562[426]);
9975 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[370] = SCM_WORD(scm__rc.d1562[415]);
9976 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[372] = SCM_WORD(scm__rc.d1562[426]);
9977 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[380] = SCM_WORD(scm__rc.d1562[416]);
9978 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[382] = SCM_WORD(scm__rc.d1562[426]);
9979 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[390] = SCM_WORD(scm__rc.d1562[417]);
9980 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[392] = SCM_WORD(scm__rc.d1562[426]);
9981 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[397] = SCM_WORD(scm__rc.d1562[390]);
9982 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[399] = SCM_WORD(scm__rc.d1562[392]);
9983 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[402] = SCM_WORD(scm__rc.d1562[394]);
9984 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[405] = SCM_WORD(scm__rc.d1562[395]);
9985 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[408] = SCM_WORD(scm__rc.d1562[396]);
9986 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[411] = SCM_WORD(scm__rc.d1562[397]);
9987 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[414] = SCM_WORD(scm__rc.d1562[398]);
9988 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[417] = SCM_WORD(scm__rc.d1562[399]);
9989 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[442] = SCM_WORD(scm__rc.d1562[400]);
9990 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[449] = SCM_WORD(scm__rc.d1562[401]);
9991 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[453] = SCM_WORD(scm__rc.d1562[392]);
9992 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[475] = SCM_WORD(scm__rc.d1562[394]);
9993 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[497] = SCM_WORD(scm__rc.d1562[395]);
9994 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[519] = SCM_WORD(scm__rc.d1562[396]);
9995 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[541] = SCM_WORD(scm__rc.d1562[397]);
9996 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[563] = SCM_WORD(scm__rc.d1562[398]);
9997 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[585] = SCM_WORD(scm__rc.d1562[403]);
9998 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[607] = SCM_WORD(scm__rc.d1562[404]);
9999 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[629] = SCM_WORD(scm__rc.d1562[405]);
10000 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[651] = SCM_WORD(scm__rc.d1562[406]);
10001 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[673] = SCM_WORD(scm__rc.d1562[407]);
10002 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[695] = SCM_WORD(scm__rc.d1562[408]);
10003 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[1318]))[722] = SCM_WORD(scm__rc.d1562[409]);
10004 ScmObj G1633 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[33]), NULL);
10005
10006 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[425]) /* write-controls-copy */, G1633,0);
10007
10008 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
10009 scm__rc.d1562[430] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[258])),TRUE); /* open-input-file */
10010 scm__rc.d1562[431] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[259]))); /* :encoding */
10011 scm__rc.d1562[433] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[260])),TRUE); /* get-keyword */
10012 scm__rc.d1562[432] = Scm_MakeIdentifier(scm__rc.d1562[433], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#get-keyword */
10013 scm__rc.d1562[434] = Scm_MakeIdentifier(scm__rc.d1562[77], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%open-input-file */
10014 scm__rc.d1562[436] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[261])),TRUE); /* delete-keyword */
10015 scm__rc.d1562[435] = Scm_MakeIdentifier(scm__rc.d1562[436], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#delete-keyword */
10016 scm__rc.d1562[437] = Scm_MakeIdentifier(scm__rc.d1562[117], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-coding-aware-port */
10017 scm__rc.d1562[439] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[262])),TRUE); /* %open-input-file/conv */
10018 scm__rc.d1562[438] = Scm_MakeIdentifier(scm__rc.d1562[439], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%open-input-file/conv */
10019 scm__rc.d1562[440] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[263])),TRUE); /* filename */
10020 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[989]), scm__rc.d1562[440]);
10021 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[989]), scm__rc.d1562[168]);
10022 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[992]), scm__rc.d1562[2]);
10023 scm__rc.d1562[441] = Scm_MakeExtendedPair(scm__rc.d1562[430], SCM_OBJ(&scm__rc.d1563[989]), SCM_OBJ(&scm__rc.d1563[993]));
10024 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[994]), scm__rc.d1562[441]);
10025 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[34]))->name = scm__rc.d1562[430];/* open-input-file */
10026 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[3] = SCM_WORD(scm__rc.d1562[431]);
10027 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[7] = SCM_WORD(scm__rc.d1562[432]);
10028 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[14] = SCM_WORD(scm__rc.d1562[434]);
10029 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[26] = SCM_WORD(scm__rc.d1562[434]);
10030 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[31] = SCM_WORD(scm__rc.d1562[431]);
10031 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[34] = SCM_WORD(scm__rc.d1562[435]);
10032 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[41] = SCM_WORD(scm__rc.d1562[437]);
10033 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2059]))[44] = SCM_WORD(scm__rc.d1562[438]);
10034 ScmObj G1634 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[34]), NULL);
10035
10036 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[430]) /* open-input-file */, G1634,0);
10037
10038 scm__rc.d1562[442] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[264])),TRUE); /* open-output-file */
10039 scm__rc.d1562[444] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[265])),TRUE); /* %open-output-file/conv */
10040 scm__rc.d1562[443] = Scm_MakeIdentifier(scm__rc.d1562[444], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%open-output-file/conv */
10041 scm__rc.d1562[445] = Scm_MakeIdentifier(scm__rc.d1562[87], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%open-output-file */
10042 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[997]), scm__rc.d1562[2]);
10043 scm__rc.d1562[446] = Scm_MakeExtendedPair(scm__rc.d1562[442], SCM_OBJ(&scm__rc.d1563[989]), SCM_OBJ(&scm__rc.d1563[998]));
10044 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[999]), scm__rc.d1562[446]);
10045 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[35]))->name = scm__rc.d1562[442];/* open-output-file */
10046 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]))[3] = SCM_WORD(scm__rc.d1562[431]);
10047 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]))[7] = SCM_WORD(scm__rc.d1562[432]);
10048 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]))[11] = SCM_WORD(scm__rc.d1562[443]);
10049 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2108]))[17] = SCM_WORD(scm__rc.d1562[445]);
10050 ScmObj G1635 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[35]), NULL);
10051
10052 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[442]) /* open-output-file */, G1635,0);
10053
10054 scm__rc.d1562[447] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[266])),TRUE); /* call-with-port */
10055 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1000]), scm__rc.d1562[447]);
10056 scm__rc.d1562[448] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1000]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10057 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1001]), scm__rc.d1562[448]);
10058 scm__rc.d1562[449] = Scm_MakeIdentifier(scm__rc.d1562[69], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#close-port */
10059 scm__rc.d1562[450] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1000]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10060 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1002]), scm__rc.d1562[450]);
10061 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2134]))[2] = SCM_WORD(scm__rc.d1562[449]);
10062 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1005]), scm__rc.d1562[29]);
10063 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1008]), scm__rc.d1562[2]);
10064 scm__rc.d1562[451] = Scm_MakeExtendedPair(scm__rc.d1562[447], SCM_OBJ(&scm__rc.d1563[1005]), SCM_OBJ(&scm__rc.d1563[1009]));
10065 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1010]), scm__rc.d1562[451]);
10066 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[38]))->name = scm__rc.d1562[447];/* call-with-port */
10067 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2138]))[7] = SCM_WORD(scm__rc.d1562[165]);
10068 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2138]))[11] = SCM_WORD(scm__rc.d1562[166]);
10069 ScmObj G1636 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[38]), NULL);
10070
10071 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[447]) /* call-with-port */, G1636,0);
10072
10073 scm__rc.d1562[452] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[267])),TRUE); /* call-with-input-file */
10074 scm__rc.d1562[453] = Scm_MakeIdentifier(scm__rc.d1562[430], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-input-file */
10075 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1011]), scm__rc.d1562[452]);
10076 scm__rc.d1562[454] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1011]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10077 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1012]), scm__rc.d1562[454]);
10078 scm__rc.d1562[455] = Scm_MakeIdentifier(scm__rc.d1562[65], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#close-input-port */
10079 scm__rc.d1562[456] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1011]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10080 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1013]), scm__rc.d1562[456]);
10081 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2155]))[5] = SCM_WORD(scm__rc.d1562[455]);
10082 scm__rc.d1562[457] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[268])),TRUE); /* flags */
10083 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1016]), scm__rc.d1562[56]);
10084 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[1016]), scm__rc.d1562[457]);
10085 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1017]), scm__rc.d1562[440]);
10086 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1020]), scm__rc.d1562[2]);
10087 scm__rc.d1562[458] = Scm_MakeExtendedPair(scm__rc.d1562[452], SCM_OBJ(&scm__rc.d1563[1017]), SCM_OBJ(&scm__rc.d1563[1021]));
10088 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1022]), scm__rc.d1562[458]);
10089 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[41]))->name = scm__rc.d1562[452];/* call-with-input-file */
10090 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2163]))[3] = SCM_WORD(scm__rc.d1562[453]);
10091 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2163]))[15] = SCM_WORD(scm__rc.d1562[165]);
10092 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2163]))[19] = SCM_WORD(scm__rc.d1562[166]);
10093 ScmObj G1637 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[41]), NULL);
10094
10095 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[452]) /* call-with-input-file */, G1637,0);
10096
10097 scm__rc.d1562[459] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[269])),TRUE); /* call-with-output-file */
10098 scm__rc.d1562[460] = Scm_MakeIdentifier(scm__rc.d1562[442], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-output-file */
10099 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1023]), scm__rc.d1562[459]);
10100 scm__rc.d1562[461] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1023]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10101 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1024]), scm__rc.d1562[461]);
10102 scm__rc.d1562[462] = Scm_MakeIdentifier(scm__rc.d1562[67], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#close-output-port */
10103 scm__rc.d1562[463] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1023]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10104 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1025]), scm__rc.d1562[463]);
10105 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2188]))[5] = SCM_WORD(scm__rc.d1562[462]);
10106 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1030]), scm__rc.d1562[2]);
10107 scm__rc.d1562[464] = Scm_MakeExtendedPair(scm__rc.d1562[459], SCM_OBJ(&scm__rc.d1563[1017]), SCM_OBJ(&scm__rc.d1563[1031]));
10108 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1032]), scm__rc.d1562[464]);
10109 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[44]))->name = scm__rc.d1562[459];/* call-with-output-file */
10110 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2196]))[3] = SCM_WORD(scm__rc.d1562[460]);
10111 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2196]))[15] = SCM_WORD(scm__rc.d1562[165]);
10112 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2196]))[19] = SCM_WORD(scm__rc.d1562[166]);
10113 ScmObj G1638 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[44]), NULL);
10114
10115 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[459]) /* call-with-output-file */, G1638,0);
10116
10117 scm__rc.d1562[465] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[270])),TRUE); /* with-input-from-file */
10118 scm__rc.d1562[467] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[271])),TRUE); /* with-input-from-port */
10119 scm__rc.d1562[466] = Scm_MakeIdentifier(scm__rc.d1562[467], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#with-input-from-port */
10120 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1033]), scm__rc.d1562[465]);
10121 scm__rc.d1562[468] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1033]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10122 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1034]), scm__rc.d1562[468]);
10123 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2217]))[3] = SCM_WORD(scm__rc.d1562[466]);
10124 scm__rc.d1562[469] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1033]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10125 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1035]), scm__rc.d1562[469]);
10126 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2222]))[2] = SCM_WORD(scm__rc.d1562[455]);
10127 scm__rc.d1562[470] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[272])),TRUE); /* thunk */
10128 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1038]), scm__rc.d1562[470]);
10129 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[1038]), scm__rc.d1562[457]);
10130 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1039]), scm__rc.d1562[440]);
10131 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1042]), scm__rc.d1562[2]);
10132 scm__rc.d1562[471] = Scm_MakeExtendedPair(scm__rc.d1562[465], SCM_OBJ(&scm__rc.d1563[1039]), SCM_OBJ(&scm__rc.d1563[1043]));
10133 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1044]), scm__rc.d1562[471]);
10134 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[47]))->name = scm__rc.d1562[465];/* with-input-from-file */
10135 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2226]))[3] = SCM_WORD(scm__rc.d1562[453]);
10136 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2226]))[17] = SCM_WORD(scm__rc.d1562[165]);
10137 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2226]))[21] = SCM_WORD(scm__rc.d1562[166]);
10138 ScmObj G1639 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[47]), NULL);
10139
10140 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[465]) /* with-input-from-file */, G1639,0);
10141
10142 scm__rc.d1562[472] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[273])),TRUE); /* with-output-to-file */
10143 scm__rc.d1562[474] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[274])),TRUE); /* with-output-to-port */
10144 scm__rc.d1562[473] = Scm_MakeIdentifier(scm__rc.d1562[474], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#with-output-to-port */
10145 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1045]), scm__rc.d1562[472]);
10146 scm__rc.d1562[475] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1045]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10147 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1046]), scm__rc.d1562[475]);
10148 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2249]))[3] = SCM_WORD(scm__rc.d1562[473]);
10149 scm__rc.d1562[476] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1045]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10150 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1047]), scm__rc.d1562[476]);
10151 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2254]))[2] = SCM_WORD(scm__rc.d1562[462]);
10152 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1052]), scm__rc.d1562[2]);
10153 scm__rc.d1562[477] = Scm_MakeExtendedPair(scm__rc.d1562[472], SCM_OBJ(&scm__rc.d1563[1039]), SCM_OBJ(&scm__rc.d1563[1053]));
10154 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1054]), scm__rc.d1562[477]);
10155 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[50]))->name = scm__rc.d1562[472];/* with-output-to-file */
10156 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2258]))[3] = SCM_WORD(scm__rc.d1562[460]);
10157 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2258]))[17] = SCM_WORD(scm__rc.d1562[165]);
10158 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2258]))[21] = SCM_WORD(scm__rc.d1562[166]);
10159 ScmObj G1640 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[50]), NULL);
10160
10161 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[472]) /* with-output-to-file */, G1640,0);
10162
10163 scm__rc.d1562[478] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[275])),TRUE); /* with-output-to-string */
10164 scm__rc.d1562[479] = Scm_MakeIdentifier(scm__rc.d1562[107], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-output-string */
10165 scm__rc.d1562[480] = Scm_MakeIdentifier(scm__rc.d1562[109], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#get-output-string */
10166 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1055]), scm__rc.d1562[470]);
10167 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1058]), scm__rc.d1562[2]);
10168 scm__rc.d1562[481] = Scm_MakeExtendedPair(scm__rc.d1562[478], SCM_OBJ(&scm__rc.d1563[1055]), SCM_OBJ(&scm__rc.d1563[1059]));
10169 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1060]), scm__rc.d1562[481]);
10170 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[51]))->name = scm__rc.d1562[478];/* with-output-to-string */
10171 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]))[3] = SCM_WORD(scm__rc.d1562[479]);
10172 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]))[10] = SCM_WORD(scm__rc.d1562[473]);
10173 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2281]))[13] = SCM_WORD(scm__rc.d1562[480]);
10174 ScmObj G1641 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[51]), NULL);
10175
10176 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[478]) /* with-output-to-string */, G1641,0);
10177
10178 scm__rc.d1562[482] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[276])),TRUE); /* with-input-from-string */
10179 scm__rc.d1562[483] = Scm_MakeIdentifier(scm__rc.d1562[105], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#open-input-string */
10180 scm__rc.d1562[484] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[277])),TRUE); /* str */
10181 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1061]), scm__rc.d1562[484]);
10182 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1064]), scm__rc.d1562[2]);
10183 scm__rc.d1562[485] = Scm_MakeExtendedPair(scm__rc.d1562[482], SCM_OBJ(&scm__rc.d1563[1061]), SCM_OBJ(&scm__rc.d1563[1065]));
10184 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1066]), scm__rc.d1562[485]);
10185 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[52]))->name = scm__rc.d1562[482];/* with-input-from-string */
10186 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2296]))[4] = SCM_WORD(scm__rc.d1562[483]);
10187 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2296]))[8] = SCM_WORD(scm__rc.d1562[466]);
10188 ScmObj G1642 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[52]), NULL);
10189
10190 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[482]) /* with-input-from-string */, G1642,0);
10191
10192 scm__rc.d1562[486] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[278])),TRUE); /* call-with-output-string */
10193 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1069]), scm__rc.d1562[2]);
10194 scm__rc.d1562[487] = Scm_MakeExtendedPair(scm__rc.d1562[486], SCM_OBJ(&scm__rc.d1563[786]), SCM_OBJ(&scm__rc.d1563[1070]));
10195 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1071]), scm__rc.d1562[487]);
10196 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[53]))->name = scm__rc.d1562[486];/* call-with-output-string */
10197 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2306]))[3] = SCM_WORD(scm__rc.d1562[479]);
10198 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2306]))[12] = SCM_WORD(scm__rc.d1562[480]);
10199 ScmObj G1643 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[53]), NULL);
10200
10201 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[486]) /* call-with-output-string */, G1643,0);
10202
10203 scm__rc.d1562[488] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[279])),TRUE); /* call-with-input-string */
10204 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1072]), scm__rc.d1562[484]);
10205 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1075]), scm__rc.d1562[2]);
10206 scm__rc.d1562[489] = Scm_MakeExtendedPair(scm__rc.d1562[488], SCM_OBJ(&scm__rc.d1563[1072]), SCM_OBJ(&scm__rc.d1563[1076]));
10207 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1077]), scm__rc.d1562[489]);
10208 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[54]))->name = scm__rc.d1562[488];/* call-with-input-string */
10209 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2320]))[4] = SCM_WORD(scm__rc.d1562[483]);
10210 ScmObj G1644 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[54]), NULL);
10211
10212 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[488]) /* call-with-input-string */, G1644,0);
10213
10214 scm__rc.d1562[490] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[280])),TRUE); /* call-with-string-io */
10215 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1080]), scm__rc.d1562[2]);
10216 scm__rc.d1562[491] = Scm_MakeExtendedPair(scm__rc.d1562[490], SCM_OBJ(&scm__rc.d1563[1072]), SCM_OBJ(&scm__rc.d1563[1081]));
10217 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1082]), scm__rc.d1562[491]);
10218 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[55]))->name = scm__rc.d1562[490];/* call-with-string-io */
10219 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]))[3] = SCM_WORD(scm__rc.d1562[479]);
10220 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]))[8] = SCM_WORD(scm__rc.d1562[483]);
10221 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2329]))[18] = SCM_WORD(scm__rc.d1562[480]);
10222 ScmObj G1645 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[55]), NULL);
10223
10224 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[490]) /* call-with-string-io */, G1645,0);
10225
10226 scm__rc.d1562[492] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[281])),TRUE); /* with-string-io */
10227 scm__rc.d1562[493] = Scm_MakeIdentifier(scm__rc.d1562[482], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#with-input-from-string */
10228 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1083]), scm__rc.d1562[492]);
10229 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1086]), scm__rc.d1562[2]);
10230 scm__rc.d1562[494] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1083]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[1087]));
10231 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1088]), scm__rc.d1562[494]);
10232 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2349]))[3] = SCM_WORD(scm__rc.d1562[493]);
10233 scm__rc.d1562[495] = Scm_MakeIdentifier(scm__rc.d1562[478], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#with-output-to-string */
10234 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1091]), scm__rc.d1562[2]);
10235 scm__rc.d1562[496] = Scm_MakeExtendedPair(scm__rc.d1562[492], SCM_OBJ(&scm__rc.d1563[1061]), SCM_OBJ(&scm__rc.d1563[1092]));
10236 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1093]), scm__rc.d1562[496]);
10237 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[57]))->name = scm__rc.d1562[492];/* with-string-io */
10238 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2354]))[3] = SCM_WORD(scm__rc.d1562[495]);
10239 ScmObj G1646 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[57]), NULL);
10240
10241 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[492]) /* with-string-io */, G1646,0);
10242
10243 scm__rc.d1562[497] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[282])),TRUE); /* write-to-string */
10244 scm__rc.d1562[498] = Scm_MakeIdentifier(scm__rc.d1562[318], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#write */
10245 scm__rc.d1562[499] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[283])),TRUE); /* writer */
10246 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1094]), scm__rc.d1562[499]);
10247 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1096]), scm__rc.d1562[14]);
10248 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1097]), scm__rc.d1562[1]);
10249 scm__rc.d1562[500] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[284])),TRUE); /* cut */
10250 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1098]), scm__rc.d1562[499]);
10251 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1099]), scm__rc.d1562[500]);
10252 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1101]), scm__rc.d1562[478]);
10253 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1104]), scm__rc.d1562[220]);
10254 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1105]), scm__rc.d1562[497]);
10255 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1108]), scm__rc.d1562[2]);
10256 scm__rc.d1562[501] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1105]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[1109]));
10257 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1110]), scm__rc.d1562[501]);
10258 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1113]), scm__rc.d1562[2]);
10259 scm__rc.d1562[502] = Scm_MakeExtendedPair(scm__rc.d1562[497], SCM_OBJ(&scm__rc.d1563[1097]), SCM_OBJ(&scm__rc.d1563[1114]));
10260 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1115]), scm__rc.d1562[502]);
10261 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[59]))->name = scm__rc.d1562[497];/* write-to-string */
10262 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]))[4] = SCM_WORD(scm__rc.d1562[498]);
10263 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]))[29] = SCM_WORD(scm__rc.d1562[172]);
10264 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2363]))[33] = SCM_WORD(scm__rc.d1562[495]);
10265 ScmObj G1650 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[59]), NULL);
10266
10267 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[497]) /* write-to-string */, G1650,0);
10268
10269 scm__rc.d1562[503] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[285])),TRUE); /* read-from-string */
10270 scm__rc.d1562[504] = Scm_MakeIdentifier(scm__rc.d1562[244], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#%maybe-substring */
10271 scm__rc.d1562[505] = Scm_MakeIdentifier(scm__rc.d1562[188], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#read */
10272 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1116]), scm__rc.d1562[57]);
10273 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[1116]), scm__rc.d1562[168]);
10274 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1119]), scm__rc.d1562[2]);
10275 scm__rc.d1562[506] = Scm_MakeExtendedPair(scm__rc.d1562[503], SCM_OBJ(&scm__rc.d1563[1116]), SCM_OBJ(&scm__rc.d1563[1120]));
10276 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1121]), scm__rc.d1562[506]);
10277 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[60]))->name = scm__rc.d1562[503];/* read-from-string */
10278 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]))[9] = SCM_WORD(scm__rc.d1562[504]);
10279 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]))[14] = SCM_WORD(scm__rc.d1562[505]);
10280 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2398]))[16] = SCM_WORD(scm__rc.d1562[493]);
10281 ScmObj G1651 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[60]), NULL);
10282
10283 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[503]) /* read-from-string */, G1651,0);
10284
10285 scm__rc.d1562[507] = Scm_MakeIdentifier(scm__rc.d1562[13], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#current-input-port */
10286 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1122]), scm__rc.d1562[467]);
10287 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1123]), scm__rc.d1562[467]);
10288 scm__rc.d1562[508] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1123]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10289 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1124]), scm__rc.d1562[508]);
10290 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[61]))->name = scm__rc.d1562[467];/* (with-input-from-port with-input-from-port) */
10291 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2416]))[5] = SCM_WORD(scm__rc.d1562[507]);
10292 scm__rc.d1562[509] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1123]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10293 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1125]), scm__rc.d1562[509]);
10294 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[62]))->name = scm__rc.d1562[467];/* (with-input-from-port with-input-from-port) */
10295 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2424]))[7] = SCM_WORD(scm__rc.d1562[507]);
10296 scm__rc.d1562[511] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[286])),TRUE); /* values */
10297 scm__rc.d1562[510] = Scm_MakeIdentifier(scm__rc.d1562[511], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#values */
10298 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1126]), scm__rc.d1562[29]);
10299 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1129]), scm__rc.d1562[2]);
10300 scm__rc.d1562[512] = Scm_MakeExtendedPair(scm__rc.d1562[467], SCM_OBJ(&scm__rc.d1563[1126]), SCM_OBJ(&scm__rc.d1563[1130]));
10301 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1131]), scm__rc.d1562[512]);
10302 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[63]))->name = scm__rc.d1562[467];/* with-input-from-port */
10303 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2435]))[27] = SCM_WORD(scm__rc.d1562[510]);
10304 ScmObj G1652 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[63]), NULL);
10305
10306 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[467]) /* with-input-from-port */, G1652,0);
10307
10308 scm__rc.d1562[513] = Scm_MakeIdentifier(scm__rc.d1562[17], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#current-output-port */
10309 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1132]), scm__rc.d1562[474]);
10310 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1133]), scm__rc.d1562[474]);
10311 scm__rc.d1562[514] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1133]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10312 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1134]), scm__rc.d1562[514]);
10313 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[64]))->name = scm__rc.d1562[474];/* (with-output-to-port with-output-to-port) */
10314 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2466]))[5] = SCM_WORD(scm__rc.d1562[513]);
10315 scm__rc.d1562[515] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1133]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10316 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1135]), scm__rc.d1562[515]);
10317 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[65]))->name = scm__rc.d1562[474];/* (with-output-to-port with-output-to-port) */
10318 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2474]))[7] = SCM_WORD(scm__rc.d1562[513]);
10319 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1138]), scm__rc.d1562[2]);
10320 scm__rc.d1562[516] = Scm_MakeExtendedPair(scm__rc.d1562[474], SCM_OBJ(&scm__rc.d1563[1126]), SCM_OBJ(&scm__rc.d1563[1139]));
10321 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1140]), scm__rc.d1562[516]);
10322 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[66]))->name = scm__rc.d1562[474];/* with-output-to-port */
10323 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2485]))[27] = SCM_WORD(scm__rc.d1562[510]);
10324 ScmObj G1653 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[66]), NULL);
10325
10326 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[474]) /* with-output-to-port */, G1653,0);
10327
10328 scm__rc.d1562[517] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[287])),TRUE); /* with-error-to-port */
10329 scm__rc.d1562[518] = Scm_MakeIdentifier(scm__rc.d1562[19], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#current-error-port */
10330 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1141]), scm__rc.d1562[517]);
10331 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1142]), scm__rc.d1562[517]);
10332 scm__rc.d1562[519] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1142]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10333 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1143]), scm__rc.d1562[519]);
10334 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[67]))->name = scm__rc.d1562[517];/* (with-error-to-port with-error-to-port) */
10335 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2516]))[5] = SCM_WORD(scm__rc.d1562[518]);
10336 scm__rc.d1562[520] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1142]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10337 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1144]), scm__rc.d1562[520]);
10338 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[68]))->name = scm__rc.d1562[517];/* (with-error-to-port with-error-to-port) */
10339 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2524]))[7] = SCM_WORD(scm__rc.d1562[518]);
10340 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1147]), scm__rc.d1562[2]);
10341 scm__rc.d1562[521] = Scm_MakeExtendedPair(scm__rc.d1562[517], SCM_OBJ(&scm__rc.d1563[1126]), SCM_OBJ(&scm__rc.d1563[1148]));
10342 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1149]), scm__rc.d1562[521]);
10343 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[69]))->name = scm__rc.d1562[517];/* with-error-to-port */
10344 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2535]))[27] = SCM_WORD(scm__rc.d1562[510]);
10345 ScmObj G1654 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[69]), NULL);
10346
10347 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[517]) /* with-error-to-port */, G1654,0);
10348
10349 scm__rc.d1562[522] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[288])),TRUE); /* with-ports */
10350 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1150]), scm__rc.d1562[522]);
10351 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1151]), scm__rc.d1562[522]);
10352 scm__rc.d1562[523] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1151]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10353 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1152]), scm__rc.d1562[523]);
10354 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[70]))->name = scm__rc.d1562[522];/* (with-ports with-ports) */
10355 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]))[7] = SCM_WORD(scm__rc.d1562[507]);
10356 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]))[17] = SCM_WORD(scm__rc.d1562[513]);
10357 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2566]))[25] = SCM_WORD(scm__rc.d1562[518]);
10358 scm__rc.d1562[524] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[1151]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[382]));
10359 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1153]), scm__rc.d1562[524]);
10360 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[71]))->name = scm__rc.d1562[522];/* (with-ports with-ports) */
10361 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]))[7] = SCM_WORD(scm__rc.d1562[507]);
10362 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]))[18] = SCM_WORD(scm__rc.d1562[513]);
10363 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2594]))[29] = SCM_WORD(scm__rc.d1562[518]);
10364 scm__rc.d1562[525] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[289])),TRUE); /* eport */
10365 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1154]), scm__rc.d1562[525]);
10366 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1155]), scm__rc.d1562[110]);
10367 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1156]), scm__rc.d1562[115]);
10368 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1159]), scm__rc.d1562[2]);
10369 scm__rc.d1562[526] = Scm_MakeExtendedPair(scm__rc.d1562[522], SCM_OBJ(&scm__rc.d1563[1156]), SCM_OBJ(&scm__rc.d1563[1160]));
10370 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1161]), scm__rc.d1562[526]);
10371 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[72]))->name = scm__rc.d1562[522];/* with-ports */
10372 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2627]))[31] = SCM_WORD(scm__rc.d1562[510]);
10373 ScmObj G1655 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1569[72]), NULL);
10374
10375 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[522]) /* with-ports */, G1655,0);
10376
10377 scm__rc.d1562[527] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[290])),TRUE); /* r6rs */
10378 scm__rc.d1562[529] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[292])),TRUE); /* warn */
10379 scm__rc.d1562[528] = Scm_MakeIdentifier(scm__rc.d1562[529], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#warn */
10380 scm__rc.d1562[530] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[293])),TRUE); /* sym */
10381 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1162]), scm__rc.d1562[29]);
10382 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1163]), scm__rc.d1562[530]);
10383 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1166]), scm__rc.d1562[2]);
10384 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1167]), scm__rc.d1562[138]);
10385 scm__rc.d1562[531] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1169]));
10386 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1170]), scm__rc.d1562[531]);
10387 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2662]))[5] = SCM_WORD(scm__rc.d1562[528]);
10388 scm__rc.d1562[532] = Scm_MakeIdentifier(scm__rc.d1562[302], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#define-reader-directive */
10389 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[74]))->name = scm__rc.d1562[205];/* %toplevel */
10390 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2669]))[1] = SCM_WORD(scm__rc.d1562[527]);
10391 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2669]))[5] = SCM_WORD(scm__rc.d1562[532]);
10392 scm__rc.d1562[533] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[294])),TRUE); /* fold-case */
10393 scm__rc.d1562[534] = Scm_MakeIdentifier(scm__rc.d1562[62], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#port-case-fold-set! */
10394 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1173]), scm__rc.d1562[2]);
10395 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1174]), scm__rc.d1562[530]);
10396 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1175]), scm__rc.d1562[138]);
10397 scm__rc.d1562[535] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1177]));
10398 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1178]), scm__rc.d1562[535]);
10399 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2676]))[6] = SCM_WORD(scm__rc.d1562[534]);
10400 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[76]))->name = scm__rc.d1562[205];/* %toplevel */
10401 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2684]))[1] = SCM_WORD(scm__rc.d1562[533]);
10402 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2684]))[5] = SCM_WORD(scm__rc.d1562[532]);
10403 scm__rc.d1562[536] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[295])),TRUE); /* no-fold-case */
10404 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1181]), scm__rc.d1562[2]);
10405 scm__rc.d1562[537] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1182]));
10406 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1183]), scm__rc.d1562[537]);
10407 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2691]))[5] = SCM_WORD(scm__rc.d1562[534]);
10408 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[78]))->name = scm__rc.d1562[205];/* %toplevel */
10409 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2698]))[1] = SCM_WORD(scm__rc.d1562[536]);
10410 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2698]))[5] = SCM_WORD(scm__rc.d1562[532]);
10411 scm__rc.d1562[538] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[296])),TRUE); /* gauche-legacy */
10412 scm__rc.d1562[539] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[297])),TRUE); /* legacy */
10413 scm__rc.d1562[540] = Scm_MakeIdentifier(scm__rc.d1562[40], SCM_MODULE(scm__rc.d1562[161]), SCM_NIL); /* gauche.internal#port-attribute-set! */
10414 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1186]), scm__rc.d1562[2]);
10415 scm__rc.d1562[541] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1187]));
10416 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1188]), scm__rc.d1562[541]);
10417 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2705]))[4] = SCM_WORD(scm__rc.d1562[289]);
10418 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2705]))[6] = SCM_WORD(scm__rc.d1562[539]);
10419 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2705]))[8] = SCM_WORD(scm__rc.d1562[540]);
10420 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[80]))->name = scm__rc.d1562[205];/* %toplevel */
10421 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2715]))[1] = SCM_WORD(scm__rc.d1562[538]);
10422 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2715]))[5] = SCM_WORD(scm__rc.d1562[532]);
10423 scm__rc.d1562[542] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[298])),TRUE); /* r7rs */
10424 scm__rc.d1562[543] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[299])),TRUE); /* strict-r7 */
10425 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1191]), scm__rc.d1562[2]);
10426 scm__rc.d1562[544] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[1163]), SCM_OBJ(&scm__rc.d1563[1192]));
10427 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1193]), scm__rc.d1562[544]);
10428 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2722]))[4] = SCM_WORD(scm__rc.d1562[289]);
10429 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2722]))[6] = SCM_WORD(scm__rc.d1562[543]);
10430 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2722]))[8] = SCM_WORD(scm__rc.d1562[540]);
10431 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1569[82]))->name = scm__rc.d1562[205];/* %toplevel */
10432 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2732]))[1] = SCM_WORD(scm__rc.d1562[542]);
10433 ((ScmWord*)SCM_OBJ(&scm__rc.d1568[2732]))[5] = SCM_WORD(scm__rc.d1562[532]);
10434 Scm_VMExecuteToplevels(toplevels);
10435 }
10436