1 /* Generated automatically from libstr.scm.  DO NOT EDIT */
2 #define LIBGAUCHE_BODY
3 #include <gauche.h>
4 #include <gauche/code.h>
5 
6 #line 37 "libstr.scm"
7 #include <gauche/bignum.h>
8 #include <gauche/vminsn.h>
9 #include <gauche/priv/stringP.h>
10 
11 
12 static ScmObj libstrstringP(ScmObj*, int, void*);
13 static SCM_DEFINE_SUBRX(libstrstringP__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstringP, SCM_MAKE_INT(SCM_VM_STRINGP), NULL);
14 
15 
16 static ScmObj libstrstring_incompleteP(ScmObj*, int, void*);
17 static SCM_DEFINE_SUBR(libstrstring_incompleteP__STUB, 1, 0,SCM_FALSE,libstrstring_incompleteP, NULL, NULL);
18 
19 
20 static ScmObj libstrstring_immutableP(ScmObj*, int, void*);
21 static SCM_DEFINE_SUBR(libstrstring_immutableP__STUB, 1, 0,SCM_FALSE,libstrstring_immutableP, NULL, NULL);
22 
23 
24 static ScmObj libstrmake_string(ScmObj*, int, void*);
25 static SCM_DEFINE_SUBRX(libstrmake_string__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrmake_string, NULL, NULL);
26 
27 
28 static ScmObj libstrstring(ScmObj*, int, void*);
29 static SCM_DEFINE_SUBRX(libstrstring__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring, NULL, NULL);
30 
31 
32 static ScmObj libstrstring_copy(ScmObj*, int, void*);
33 static SCM_DEFINE_SUBR(libstrstring_copy__STUB, 1, 3,SCM_FALSE,libstrstring_copy, NULL, NULL);
34 
35 
36 static ScmObj libstrstring_append(ScmObj*, int, void*);
37 static SCM_DEFINE_SUBRX(libstrstring_append__STUB, 0, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_append, NULL, NULL);
38 
39 
40 static ScmObj libstrstring_copy_immutable(ScmObj*, int, void*);
41 static SCM_DEFINE_SUBR(libstrstring_copy_immutable__STUB, 1, 3,SCM_FALSE,libstrstring_copy_immutable, NULL, NULL);
42 
43 
44 static ScmObj libstrstring_join(ScmObj*, int, void*);
45 static SCM_DEFINE_SUBR(libstrstring_join__STUB, 1, 3,SCM_FALSE,libstrstring_join, NULL, NULL);
46 
47 
48 static ScmObj libstrstring_TOlist(ScmObj*, int, void*);
49 static SCM_DEFINE_SUBR(libstrstring_TOlist__STUB, 1, 3,SCM_FALSE,libstrstring_TOlist, NULL, NULL);
50 
51 
52 static ScmObj libstrlist_TOstring(ScmObj*, int, void*);
53 static SCM_DEFINE_SUBRX(libstrlist_TOstring__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrlist_TOstring, NULL, NULL);
54 
55 
56 static ScmObj libstrstring_length(ScmObj*, int, void*);
57 static SCM_DEFINE_SUBRX(libstrstring_length__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_length, NULL, NULL);
58 
59 
60 static ScmObj libstrstring_ref(ScmObj*, int, void*);
61 static SCM_DEFINE_SUBRX(libstrstring_ref__STUB, 2, 2,1, SCM_FALSE,0, libstrstring_ref, NULL, NULL);
62 
63 
64 static ScmObj libstrsubstring(ScmObj*, int, void*);
65 static SCM_DEFINE_SUBR(libstrsubstring__STUB, 3, 0,SCM_FALSE,libstrsubstring, NULL, NULL);
66 
67 
68 static ScmObj libstrstring_size(ScmObj*, int, void*);
69 static SCM_DEFINE_SUBRX(libstrstring_size__STUB, 1, 0,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_size, NULL, NULL);
70 
71 
72 static ScmObj libstr_25maybe_substring(ScmObj*, int, void*);
73 static SCM_DEFINE_SUBR(libstr_25maybe_substring__STUB, 1, 3,SCM_FALSE,libstr_25maybe_substring, NULL, NULL);
74 
75 
76 static ScmObj libstr_25hash_string(ScmObj*, int, void*);
77 static SCM_DEFINE_SUBR(libstr_25hash_string__STUB, 1, 2,SCM_FALSE,libstr_25hash_string, NULL, NULL);
78 
79 
80 
81 static ScmObj libstrstring_scan(ScmObj*, int, void*);
82 static SCM_DEFINE_SUBR(libstrstring_scan__STUB, 2, 2,SCM_FALSE,libstrstring_scan, NULL, NULL);
83 
84 
85 static ScmObj libstrstring_scan_right(ScmObj*, int, void*);
86 static SCM_DEFINE_SUBR(libstrstring_scan_right__STUB, 2, 2,SCM_FALSE,libstrstring_scan_right, NULL, NULL);
87 
88 
89 static ScmObj libstr_25string_split_by_char(ScmObj*, int, void*);
90 static SCM_DEFINE_SUBRX(libstr_25string_split_by_char__STUB, 2, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_split_by_char, NULL, NULL);
91 
92 
93 static ScmObj libstr_25string_replace_bodyX(ScmObj*, int, void*);
94 static SCM_DEFINE_SUBRX(libstr_25string_replace_bodyX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_replace_bodyX, NULL, NULL);
95 
96 
97 static ScmObj libstrstring_build_indexX(ScmObj*, int, void*);
98 static SCM_DEFINE_SUBRX(libstrstring_build_indexX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_build_indexX, NULL, NULL);
99 
100 
101 static ScmObj libstrstring_fast_indexableP(ScmObj*, int, void*);
102 static SCM_DEFINE_SUBRX(libstrstring_fast_indexableP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_fast_indexableP, NULL, NULL);
103 
104 
105 static ScmObj libstr_25string_index_dump(ScmObj*, int, void*);
106 static SCM_DEFINE_SUBRX(libstr_25string_index_dump__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_index_dump, NULL, NULL);
107 
108 
109 static ScmObj libstrstring_3dP(ScmObj*, int, void*);
110 static SCM_DEFINE_SUBRX(libstrstring_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_3dP, NULL, NULL);
111 
112 
113 static ScmObj libstrstring_LTP(ScmObj*, int, void*);
114 static SCM_DEFINE_SUBRX(libstrstring_LTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_LTP, NULL, NULL);
115 
116 
117 static ScmObj libstrstring_GTP(ScmObj*, int, void*);
118 static SCM_DEFINE_SUBRX(libstrstring_GTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_GTP, NULL, NULL);
119 
120 
121 static ScmObj libstrstring_LT_3dP(ScmObj*, int, void*);
122 static SCM_DEFINE_SUBRX(libstrstring_LT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_LT_3dP, NULL, NULL);
123 
124 
125 static ScmObj libstrstring_GT_3dP(ScmObj*, int, void*);
126 static SCM_DEFINE_SUBRX(libstrstring_GT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_GT_3dP, NULL, NULL);
127 
128 
129 static ScmObj libstrstring_ci_3dP(ScmObj*, int, void*);
130 static SCM_DEFINE_SUBRX(libstrstring_ci_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_3dP, NULL, NULL);
131 
132 
133 static ScmObj libstrstring_ci_LTP(ScmObj*, int, void*);
134 static SCM_DEFINE_SUBRX(libstrstring_ci_LTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_LTP, NULL, NULL);
135 
136 
137 static ScmObj libstrstring_ci_GTP(ScmObj*, int, void*);
138 static SCM_DEFINE_SUBRX(libstrstring_ci_GTP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_GTP, NULL, NULL);
139 
140 
141 static ScmObj libstrstring_ci_LT_3dP(ScmObj*, int, void*);
142 static SCM_DEFINE_SUBRX(libstrstring_ci_LT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_LT_3dP, NULL, NULL);
143 
144 
145 static ScmObj libstrstring_ci_GT_3dP(ScmObj*, int, void*);
146 static SCM_DEFINE_SUBRX(libstrstring_ci_GT_3dP__STUB, 2, 1,1, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_ci_GT_3dP, NULL, NULL);
147 
148 
149 static ScmObj libstrstring_complete_TOincomplete(ScmObj*, int, void*);
150 static SCM_DEFINE_SUBRX(libstrstring_complete_TOincomplete__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_complete_TOincomplete, NULL, NULL);
151 
152 
153 static ScmObj libstrstring_incomplete_TOcomplete(ScmObj*, int, void*);
154 static SCM_DEFINE_SUBR(libstrstring_incomplete_TOcomplete__STUB, 1, 3,SCM_FALSE,libstrstring_incomplete_TOcomplete, NULL, NULL);
155 
156 
157 static ScmObj libstrmake_byte_string(ScmObj*, int, void*);
158 static SCM_DEFINE_SUBRX(libstrmake_byte_string__STUB, 1, 2,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrmake_byte_string, NULL, NULL);
159 
160 
161 static ScmObj libstrstring_byte_ref(ScmObj*, int, void*);
162 static SCM_DEFINE_SUBR(libstrstring_byte_ref__STUB, 2, 2,SCM_FALSE,libstrstring_byte_ref, NULL, NULL);
163 
164 
165 static ScmObj libstrbyte_substring(ScmObj*, int, void*);
166 static SCM_DEFINE_SUBRX(libstrbyte_substring__STUB, 3, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrbyte_substring, NULL, NULL);
167 
168 #if GAUCHE_STRING_POINTER
169 
170 static ScmObj libstrmake_string_pointer(ScmObj*, int, void*);
171 static SCM_DEFINE_SUBRX(libstrmake_string_pointer__STUB, 1, 4,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrmake_string_pointer, NULL, NULL);
172 
173 #endif /* GAUCHE_STRING_POINTER */
174 #if GAUCHE_STRING_POINTER
175 
176 static ScmObj libstrstring_pointerP(ScmObj*, int, void*);
177 static SCM_DEFINE_SUBR(libstrstring_pointerP__STUB, 1, 0,SCM_FALSE,libstrstring_pointerP, NULL, NULL);
178 
179 #endif /* GAUCHE_STRING_POINTER */
180 #if GAUCHE_STRING_POINTER
181 
182 static ScmObj libstrstring_pointer_ref(ScmObj*, int, void*);
183 static SCM_DEFINE_SUBRX(libstrstring_pointer_ref__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_ref, NULL, NULL);
184 
185 #endif /* GAUCHE_STRING_POINTER */
186 #if GAUCHE_STRING_POINTER
187 
188 static ScmObj libstrstring_pointer_nextX(ScmObj*, int, void*);
189 static SCM_DEFINE_SUBRX(libstrstring_pointer_nextX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_nextX, NULL, NULL);
190 
191 #endif /* GAUCHE_STRING_POINTER */
192 #if GAUCHE_STRING_POINTER
193 
194 static ScmObj libstrstring_pointer_prevX(ScmObj*, int, void*);
195 static SCM_DEFINE_SUBRX(libstrstring_pointer_prevX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_prevX, NULL, NULL);
196 
197 #endif /* GAUCHE_STRING_POINTER */
198 #if GAUCHE_STRING_POINTER
199 
200 static ScmObj libstrstring_pointer_setX(ScmObj*, int, void*);
201 static SCM_DEFINE_SUBRX(libstrstring_pointer_setX__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_setX, NULL, NULL);
202 
203 #endif /* GAUCHE_STRING_POINTER */
204 #if GAUCHE_STRING_POINTER
205 
206 static ScmObj libstrstring_pointer_substring(ScmObj*, int, void*);
207 static SCM_DEFINE_SUBRX(libstrstring_pointer_substring__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_substring, NULL, NULL);
208 
209 #endif /* GAUCHE_STRING_POINTER */
210 #if GAUCHE_STRING_POINTER
211 
212 static ScmObj libstrstring_pointer_index(ScmObj*, int, void*);
213 static SCM_DEFINE_SUBRX(libstrstring_pointer_index__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_index, NULL, NULL);
214 
215 #endif /* GAUCHE_STRING_POINTER */
216 #if GAUCHE_STRING_POINTER
217 
218 static ScmObj libstrstring_pointer_copy(ScmObj*, int, void*);
219 static SCM_DEFINE_SUBRX(libstrstring_pointer_copy__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_copy, NULL, NULL);
220 
221 #endif /* GAUCHE_STRING_POINTER */
222 #if GAUCHE_STRING_POINTER
223 
224 static ScmObj libstrstring_pointer_byte_index(ScmObj*, int, void*);
225 static SCM_DEFINE_SUBRX(libstrstring_pointer_byte_index__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_pointer_byte_index, NULL, NULL);
226 
227 #endif /* GAUCHE_STRING_POINTER */
228 #if GAUCHE_STRING_POINTER
229 
230 static ScmObj libstr_25string_pointer_dump(ScmObj*, int, void*);
231 static SCM_DEFINE_SUBRX(libstr_25string_pointer_dump__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstr_25string_pointer_dump, NULL, NULL);
232 
233 #endif /* GAUCHE_STRING_POINTER */
234 
235 static ScmObj libstrstring_cursorP(ScmObj*, int, void*);
236 static SCM_DEFINE_SUBR(libstrstring_cursorP__STUB, 1, 0,SCM_FALSE,libstrstring_cursorP, NULL, NULL);
237 
238 
239 static ScmObj libstrstring_cursor_start(ScmObj*, int, void*);
240 static SCM_DEFINE_SUBRX(libstrstring_cursor_start__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_cursor_start, NULL, NULL);
241 
242 
243 static ScmObj libstrstring_cursor_end(ScmObj*, int, void*);
244 static SCM_DEFINE_SUBRX(libstrstring_cursor_end__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libstrstring_cursor_end, NULL, NULL);
245 
246 
247 static ScmObj libstrstring_cursor_next(ScmObj*, int, void*);
248 static SCM_DEFINE_SUBR(libstrstring_cursor_next__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_next, NULL, NULL);
249 
250 
251 static ScmObj libstrstring_cursor_prev(ScmObj*, int, void*);
252 static SCM_DEFINE_SUBR(libstrstring_cursor_prev__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_prev, NULL, NULL);
253 
254 
255 static ScmObj libstrstring_cursor_forward(ScmObj*, int, void*);
256 static SCM_DEFINE_SUBR(libstrstring_cursor_forward__STUB, 3, 0,SCM_FALSE,libstrstring_cursor_forward, NULL, NULL);
257 
258 
259 static ScmObj libstrstring_cursor_back(ScmObj*, int, void*);
260 static SCM_DEFINE_SUBR(libstrstring_cursor_back__STUB, 3, 0,SCM_FALSE,libstrstring_cursor_back, NULL, NULL);
261 
262 
263 static ScmObj libstrstring_index_TOcursor(ScmObj*, int, void*);
264 static SCM_DEFINE_SUBR(libstrstring_index_TOcursor__STUB, 2, 0,SCM_FALSE,libstrstring_index_TOcursor, NULL, NULL);
265 
266 
267 static ScmObj libstrstring_cursor_TOindex(ScmObj*, int, void*);
268 static SCM_DEFINE_SUBR(libstrstring_cursor_TOindex__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_TOindex, NULL, NULL);
269 
270 
271 static ScmObj libstrstring_cursor_3dP(ScmObj*, int, void*);
272 static SCM_DEFINE_SUBR(libstrstring_cursor_3dP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_3dP, NULL, NULL);
273 
274 
275 static ScmObj libstrstring_cursor_LTP(ScmObj*, int, void*);
276 static SCM_DEFINE_SUBR(libstrstring_cursor_LTP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_LTP, NULL, NULL);
277 
278 
279 static ScmObj libstrstring_cursor_GTP(ScmObj*, int, void*);
280 static SCM_DEFINE_SUBR(libstrstring_cursor_GTP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_GTP, NULL, NULL);
281 
282 
283 static ScmObj libstrstring_cursor_LT_3dP(ScmObj*, int, void*);
284 static SCM_DEFINE_SUBR(libstrstring_cursor_LT_3dP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_LT_3dP, NULL, NULL);
285 
286 
287 static ScmObj libstrstring_cursor_GT_3dP(ScmObj*, int, void*);
288 static SCM_DEFINE_SUBR(libstrstring_cursor_GT_3dP__STUB, 2, 0,SCM_FALSE,libstrstring_cursor_GT_3dP, NULL, NULL);
289 
290 
291 static ScmObj libstrstring_cursor_diff(ScmObj*, int, void*);
292 static SCM_DEFINE_SUBR(libstrstring_cursor_diff__STUB, 3, 0,SCM_FALSE,libstrstring_cursor_diff, NULL, NULL);
293 
294 #if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
295 #define SCM_CGEN_CONST /*empty*/
296 #else
297 #define SCM_CGEN_CONST const
298 #endif
299 static SCM_CGEN_CONST struct scm__scRec {
300 #if GAUCHE_STRING_POINTER
301   ScmString d1600[24];
302 #endif /*GAUCHE_STRING_POINTER*/
303   ScmString d1561[195];
304 } scm__sc SCM_UNUSED = {
305 #if GAUCHE_STRING_POINTER
306   {   /* ScmString d1600 */
307       SCM_STRING_CONST_INITIALIZER("make-string-pointer", 19, 19),
308       SCM_STRING_CONST_INITIALIZER("str", 3, 3),
309       SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
310       SCM_STRING_CONST_INITIALIZER("index", 5, 5),
311       SCM_STRING_CONST_INITIALIZER("start", 5, 5),
312       SCM_STRING_CONST_INITIALIZER("end", 3, 3),
313       SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
314       SCM_STRING_CONST_INITIALIZER("libstr.scm", 10, 10),
315       SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
316       SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
317       SCM_STRING_CONST_INITIALIZER("string-pointer\077", 15, 15),
318       SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
319       SCM_STRING_CONST_INITIALIZER("string-pointer-ref", 18, 18),
320       SCM_STRING_CONST_INITIALIZER("sp", 2, 2),
321       SCM_STRING_CONST_INITIALIZER("string-pointer-next!", 20, 20),
322       SCM_STRING_CONST_INITIALIZER("string-pointer-prev!", 20, 20),
323       SCM_STRING_CONST_INITIALIZER("string-pointer-set!", 19, 19),
324       SCM_STRING_CONST_INITIALIZER("after", 5, 5),
325       SCM_STRING_CONST_INITIALIZER("string-pointer-substring", 24, 24),
326       SCM_STRING_CONST_INITIALIZER("string-pointer-index", 20, 20),
327       SCM_STRING_CONST_INITIALIZER("string-pointer-copy", 19, 19),
328       SCM_STRING_CONST_INITIALIZER("string-pointer-byte-index", 25, 25),
329       SCM_STRING_CONST_INITIALIZER("%string-pointer-dump", 20, 20),
330       SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
331   },
332 #endif /*GAUCHE_STRING_POINTER*/
333   {   /* ScmString d1561 */
334       SCM_STRING_CONST_INITIALIZER("string\077", 7, 7),
335       SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
336       SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
337       SCM_STRING_CONST_INITIALIZER("libstr.scm", 10, 10),
338       SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
339       SCM_STRING_CONST_INITIALIZER("scheme", 6, 6),
340       SCM_STRING_CONST_INITIALIZER("string-incomplete\077", 18, 18),
341       SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
342       SCM_STRING_CONST_INITIALIZER("string-immutable\077", 17, 17),
343       SCM_STRING_CONST_INITIALIZER("make-string", 11, 11),
344       SCM_STRING_CONST_INITIALIZER("len", 3, 3),
345       SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
346       SCM_STRING_CONST_INITIALIZER("c", 1, 1),
347       SCM_STRING_CONST_INITIALIZER("string", 6, 6),
348       SCM_STRING_CONST_INITIALIZER("rest", 4, 4),
349       SCM_STRING_CONST_INITIALIZER("chars", 5, 5),
350       SCM_STRING_CONST_INITIALIZER("string-copy", 11, 11),
351       SCM_STRING_CONST_INITIALIZER("str", 3, 3),
352       SCM_STRING_CONST_INITIALIZER("start", 5, 5),
353       SCM_STRING_CONST_INITIALIZER("end", 3, 3),
354       SCM_STRING_CONST_INITIALIZER("string-append", 13, 13),
355       SCM_STRING_CONST_INITIALIZER("args", 4, 4),
356       SCM_STRING_CONST_INITIALIZER("string-copy-immutable", 21, 21),
357       SCM_STRING_CONST_INITIALIZER(" ", 1, 1),
358       SCM_STRING_CONST_INITIALIZER("infix", 5, 5),
359       SCM_STRING_CONST_INITIALIZER("string-join", 11, 11),
360       SCM_STRING_CONST_INITIALIZER("prefix", 6, 6),
361       SCM_STRING_CONST_INITIALIZER("suffix", 6, 6),
362       SCM_STRING_CONST_INITIALIZER("strict-infix", 12, 12),
363       SCM_STRING_CONST_INITIALIZER("strs", 4, 4),
364       SCM_STRING_CONST_INITIALIZER("delim", 5, 5),
365       SCM_STRING_CONST_INITIALIZER("grammar", 7, 7),
366       SCM_STRING_CONST_INITIALIZER("string-interpolate", 18, 18),
367       SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
368       SCM_STRING_CONST_INITIALIZER("define-reader-ctor", 18, 18),
369       SCM_STRING_CONST_INITIALIZER("%toplevel", 9, 9),
370       SCM_STRING_CONST_INITIALIZER("string->list", 12, 12),
371       SCM_STRING_CONST_INITIALIZER("list->string", 12, 12),
372       SCM_STRING_CONST_INITIALIZER("list", 4, 4),
373       SCM_STRING_CONST_INITIALIZER("string-length", 13, 13),
374       SCM_STRING_CONST_INITIALIZER("string-ref", 10, 10),
375       SCM_STRING_CONST_INITIALIZER("k", 1, 1),
376       SCM_STRING_CONST_INITIALIZER("fallback", 8, 8),
377       SCM_STRING_CONST_INITIALIZER("substring", 9, 9),
378       SCM_STRING_CONST_INITIALIZER("string-size", 11, 11),
379       SCM_STRING_CONST_INITIALIZER("%maybe-substring", 16, 16),
380       SCM_STRING_CONST_INITIALIZER("%hash-string", 12, 12),
381       SCM_STRING_CONST_INITIALIZER("bound", 5, 5),
382       SCM_STRING_CONST_INITIALIZER("both", 4, 4),
383       SCM_STRING_CONST_INITIALIZER("after*", 6, 6),
384       SCM_STRING_CONST_INITIALIZER("before*", 7, 7),
385       SCM_STRING_CONST_INITIALIZER("after", 5, 5),
386       SCM_STRING_CONST_INITIALIZER("before", 6, 6),
387       SCM_STRING_CONST_INITIALIZER("cursor", 6, 6),
388       SCM_STRING_CONST_INITIALIZER("index", 5, 5),
389       SCM_STRING_CONST_INITIALIZER("string-scan", 11, 11),
390       SCM_STRING_CONST_INITIALIZER("s1", 2, 2),
391       SCM_STRING_CONST_INITIALIZER("s2", 2, 2),
392       SCM_STRING_CONST_INITIALIZER("mode", 4, 4),
393       SCM_STRING_CONST_INITIALIZER("string-scan-right", 17, 17),
394       SCM_STRING_CONST_INITIALIZER("string-split", 12, 12),
395       SCM_STRING_CONST_INITIALIZER("too many arguments for", 22, 22),
396       SCM_STRING_CONST_INITIALIZER("lambda", 6, 6),
397       SCM_STRING_CONST_INITIALIZER("splitter", 8, 8),
398       SCM_STRING_CONST_INITIALIZER("quote", 5, 5),
399       SCM_STRING_CONST_INITIALIZER("limit", 5, 5),
400       SCM_STRING_CONST_INITIALIZER("if", 2, 2),
401       SCM_STRING_CONST_INITIALIZER("or", 2, 2),
402       SCM_STRING_CONST_INITIALIZER("not", 3, 3),
403       SCM_STRING_CONST_INITIALIZER("integer\077", 8, 8),
404       SCM_STRING_CONST_INITIALIZER("with-module", 11, 11),
405       SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
406       SCM_STRING_CONST_INITIALIZER("%string-split", 13, 13),
407       SCM_STRING_CONST_INITIALIZER("error", 5, 5),
408       SCM_STRING_CONST_INITIALIZER("%string-split-by-char", 21, 21),
409       SCM_STRING_CONST_INITIALIZER("s", 1, 1),
410       SCM_STRING_CONST_INITIALIZER("ch", 2, 2),
411       SCM_STRING_CONST_INITIALIZER("grammar argument must be one of (infix strict-infix prefix suffix), but got", 75, 75),
412       SCM_STRING_CONST_INITIALIZER("limit argument must be a nonnegative integer or #f, but got", 59, 59),
413       SCM_STRING_CONST_INITIALIZER("", 0, 0),
414       SCM_STRING_CONST_INITIALIZER("equal\077", 6, 6),
415       SCM_STRING_CONST_INITIALIZER("string must not be empty with strict-infix grammar", 50, 50),
416       SCM_STRING_CONST_INITIALIZER("%string-split-scanner", 21, 21),
417       SCM_STRING_CONST_INITIALIZER("%string-split-by-scanner", 24, 24),
418       SCM_STRING_CONST_INITIALIZER("last-pair", 9, 9),
419       SCM_STRING_CONST_INITIALIZER("drop-right", 10, 10),
420       SCM_STRING_CONST_INITIALIZER("string=\077", 8, 8),
421       SCM_STRING_CONST_INITIALIZER("char-set\077", 9, 9),
422       SCM_STRING_CONST_INITIALIZER("char-set-contains\077", 18, 18),
423       SCM_STRING_CONST_INITIALIZER("G1574", 5, 5),
424       SCM_STRING_CONST_INITIALIZER("%string-split-scanner-each-char", 31, 31),
425       SCM_STRING_CONST_INITIALIZER("regexp\077", 7, 7),
426       SCM_STRING_CONST_INITIALIZER("rxmatch", 7, 7),
427       SCM_STRING_CONST_INITIALIZER("string-cursor-start", 19, 19),
428       SCM_STRING_CONST_INITIALIZER("string-cursor-end", 17, 17),
429       SCM_STRING_CONST_INITIALIZER("string-cursor=\077", 15, 15),
430       SCM_STRING_CONST_INITIALIZER("string-cursor-next", 18, 18),
431       SCM_STRING_CONST_INITIALIZER("pred", 4, 4),
432       SCM_STRING_CONST_INITIALIZER("reverse!", 8, 8),
433       SCM_STRING_CONST_INITIALIZER("scanner", 7, 7),
434       SCM_STRING_CONST_INITIALIZER("%string-replace-body!", 21, 21),
435       SCM_STRING_CONST_INITIALIZER("target", 6, 6),
436       SCM_STRING_CONST_INITIALIZER("source", 6, 6),
437       SCM_STRING_CONST_INITIALIZER("string-set!", 11, 11),
438       SCM_STRING_CONST_INITIALIZER("bad type of argument for ~s: ~s", 31, 31),
439       SCM_STRING_CONST_INITIALIZER("arg", 3, 3),
440       SCM_STRING_CONST_INITIALIZER("errorf", 6, 6),
441       SCM_STRING_CONST_INITIALIZER("string-index->cursor", 20, 20),
442       SCM_STRING_CONST_INITIALIZER("setter", 6, 6),
443       SCM_STRING_CONST_INITIALIZER("string-byte-set!", 16, 16),
444       SCM_STRING_CONST_INITIALIZER("exact\077", 6, 6),
445       SCM_STRING_CONST_INITIALIZER("private\077", 8, 8),
446       SCM_STRING_CONST_INITIALIZER("open-output-string", 18, 18),
447       SCM_STRING_CONST_INITIALIZER("string index out of range:", 26, 26),
448       SCM_STRING_CONST_INITIALIZER("byte-substring", 14, 14),
449       SCM_STRING_CONST_INITIALIZER("display", 7, 7),
450       SCM_STRING_CONST_INITIALIZER("write-byte", 10, 10),
451       SCM_STRING_CONST_INITIALIZER("get-output-byte-string", 22, 22),
452       SCM_STRING_CONST_INITIALIZER("b", 1, 1),
453       SCM_STRING_CONST_INITIALIZER("string-byte-ref", 15, 15),
454       SCM_STRING_CONST_INITIALIZER("string-fill!", 12, 12),
455       SCM_STRING_CONST_INITIALIZER("let", 3, 3),
456       SCM_STRING_CONST_INITIALIZER("istart", 6, 6),
457       SCM_STRING_CONST_INITIALIZER("string-cursor->index", 20, 20),
458       SCM_STRING_CONST_INITIALIZER("iend", 4, 4),
459       SCM_STRING_CONST_INITIALIZER("when", 4, 4),
460       SCM_STRING_CONST_INITIALIZER("<", 1, 1),
461       SCM_STRING_CONST_INITIALIZER("end index ~s is smaller than start index ~s", 43, 43),
462       SCM_STRING_CONST_INITIALIZER("and", 3, 3),
463       SCM_STRING_CONST_INITIALIZER("=", 1, 1),
464       SCM_STRING_CONST_INITIALIZER("-", 1, 1),
465       SCM_STRING_CONST_INITIALIZER("string-build-index!", 19, 19),
466       SCM_STRING_CONST_INITIALIZER("string-fast-indexable\077", 22, 22),
467       SCM_STRING_CONST_INITIALIZER("%string-index-dump", 18, 18),
468       SCM_STRING_CONST_INITIALIZER("p", 1, 1),
469       SCM_STRING_CONST_INITIALIZER("ss", 2, 2),
470       SCM_STRING_CONST_INITIALIZER("string<\077", 8, 8),
471       SCM_STRING_CONST_INITIALIZER("string>\077", 8, 8),
472       SCM_STRING_CONST_INITIALIZER("string<=\077", 9, 9),
473       SCM_STRING_CONST_INITIALIZER("string>=\077", 9, 9),
474       SCM_STRING_CONST_INITIALIZER("string-ci=\077", 11, 11),
475       SCM_STRING_CONST_INITIALIZER("string-ci<\077", 11, 11),
476       SCM_STRING_CONST_INITIALIZER("string-ci>\077", 11, 11),
477       SCM_STRING_CONST_INITIALIZER("string-ci<=\077", 12, 12),
478       SCM_STRING_CONST_INITIALIZER("string-ci>=\077", 12, 12),
479       SCM_STRING_CONST_INITIALIZER("%string-map-dispatch", 20, 20),
480       SCM_STRING_CONST_INITIALIZER("G1591", 5, 5),
481       SCM_STRING_CONST_INITIALIZER("Too many arguments for srfi-13 style ~a", 39, 39),
482       SCM_STRING_CONST_INITIALIZER("string-cursor\077", 14, 14),
483       SCM_STRING_CONST_INITIALIZER("Integer or string-cursor expected, but got:", 43, 43),
484       SCM_STRING_CONST_INITIALIZER("find", 4, 4),
485       SCM_STRING_CONST_INITIALIZER("string expected, but got:", 25, 25),
486       SCM_STRING_CONST_INITIALIZER("name", 4, 4),
487       SCM_STRING_CONST_INITIALIZER("proc", 4, 4),
488       SCM_STRING_CONST_INITIALIZER("proc-single", 11, 11),
489       SCM_STRING_CONST_INITIALIZER("proc-multi", 10, 10),
490       SCM_STRING_CONST_INITIALIZER("string-cursor-prev", 18, 18),
491       SCM_STRING_CONST_INITIALIZER("string-map", 10, 10),
492       SCM_STRING_CONST_INITIALIZER("string-map-1", 12, 12),
493       SCM_STRING_CONST_INITIALIZER("map", 3, 3),
494       SCM_STRING_CONST_INITIALIZER("any", 3, 3),
495       SCM_STRING_CONST_INITIALIZER("string-map-n", 12, 12),
496       SCM_STRING_CONST_INITIALIZER("string-for-each", 15, 15),
497       SCM_STRING_CONST_INITIALIZER("string-for-each-1", 17, 17),
498       SCM_STRING_CONST_INITIALIZER("string-for-each-n", 17, 17),
499       SCM_STRING_CONST_INITIALIZER("string-incomplete->complete!", 28, 28),
500       SCM_STRING_CONST_INITIALIZER("string-incomplete->complete", 27, 27),
501       SCM_STRING_CONST_INITIALIZER("string-complete->incomplete", 27, 27),
502       SCM_STRING_CONST_INITIALIZER("replace", 7, 7),
503       SCM_STRING_CONST_INITIALIZER("omit", 4, 4),
504       SCM_STRING_CONST_INITIALIZER("escape", 6, 6),
505       SCM_STRING_CONST_INITIALIZER("handling", 8, 8),
506       SCM_STRING_CONST_INITIALIZER("filler", 6, 6),
507       SCM_STRING_CONST_INITIALIZER("make-byte-string", 16, 16),
508       SCM_STRING_CONST_INITIALIZER("size", 4, 4),
509       SCM_STRING_CONST_INITIALIZER("byte", 4, 4),
510       SCM_STRING_CONST_INITIALIZER("complete-sexp\077", 14, 14),
511       SCM_STRING_CONST_INITIALIZER("rec-escaped", 11, 11),
512       SCM_STRING_CONST_INITIALIZER("closer", 6, 6),
513       SCM_STRING_CONST_INITIALIZER("skip-token", 10, 10),
514       SCM_STRING_CONST_INITIALIZER("unreadable sequence #<~a...", 27, 27),
515       SCM_STRING_CONST_INITIALIZER("read-block", 10, 10),
516       SCM_STRING_CONST_INITIALIZER("rec", 3, 3),
517       SCM_STRING_CONST_INITIALIZER("G1597", 5, 5),
518       SCM_STRING_CONST_INITIALIZER("with-input-from-string", 22, 22),
519       SCM_STRING_CONST_INITIALIZER("string-cursor-forward", 21, 21),
520       SCM_STRING_CONST_INITIALIZER("nchars", 6, 6),
521       SCM_STRING_CONST_INITIALIZER("string-cursor-back", 18, 18),
522       SCM_STRING_CONST_INITIALIZER("cursor1", 7, 7),
523       SCM_STRING_CONST_INITIALIZER("cursor2", 7, 7),
524       SCM_STRING_CONST_INITIALIZER("string-cursor<\077", 15, 15),
525       SCM_STRING_CONST_INITIALIZER("string-cursor>\077", 15, 15),
526       SCM_STRING_CONST_INITIALIZER("string-cursor<=\077", 16, 16),
527       SCM_STRING_CONST_INITIALIZER("string-cursor>=\077", 16, 16),
528       SCM_STRING_CONST_INITIALIZER("string-cursor-diff", 18, 18),
529   },
530 };
531 static struct scm__rcRec {
532 #if GAUCHE_STRING_POINTER
533   ScmPair d1602[98] SCM_ALIGN_PAIR;
534 #endif /*GAUCHE_STRING_POINTER*/
535 #if GAUCHE_STRING_POINTER
536   ScmObj d1601[34];
537 #endif /*GAUCHE_STRING_POINTER*/
538   ScmCompiledCode d1565[36];
539   ScmWord d1564[1747];
540   ScmPair d1563[786] SCM_ALIGN_PAIR;
541   ScmObj d1562[340];
542 } scm__rc SCM_UNUSED = {
543 #if GAUCHE_STRING_POINTER
544   {   /* ScmPair d1602 */
545        { SCM_NIL, SCM_NIL },
546        { SCM_UNDEFINED, SCM_NIL},
547        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[1])},
548        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[2])},
549        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[3])},
550        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[4])},
551        { SCM_MAKE_INT(660U), SCM_NIL},
552        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[6])},
553        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[7])},
554        { SCM_UNDEFINED, SCM_NIL},
555        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[9])},
556        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[10])},
557        { SCM_OBJ(&scm__rc.d1602[11]), SCM_NIL},
558        { SCM_OBJ(&scm__rc.d1602[8]), SCM_OBJ(&scm__rc.d1602[12])},
559        { SCM_UNDEFINED, SCM_NIL},
560        { SCM_MAKE_INT(665U), SCM_NIL},
561        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[15])},
562        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[16])},
563        { SCM_UNDEFINED, SCM_NIL},
564        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[18])},
565        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[19])},
566        { SCM_OBJ(&scm__rc.d1602[20]), SCM_NIL},
567        { SCM_OBJ(&scm__rc.d1602[17]), SCM_OBJ(&scm__rc.d1602[21])},
568        { SCM_UNDEFINED, SCM_NIL},
569        { SCM_MAKE_INT(667U), SCM_NIL},
570        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[24])},
571        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[25])},
572        { SCM_UNDEFINED, SCM_NIL},
573        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[27])},
574        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[28])},
575        { SCM_OBJ(&scm__rc.d1602[29]), SCM_NIL},
576        { SCM_OBJ(&scm__rc.d1602[26]), SCM_OBJ(&scm__rc.d1602[30])},
577        { SCM_MAKE_INT(669U), SCM_NIL},
578        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[32])},
579        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[33])},
580        { SCM_UNDEFINED, SCM_NIL},
581        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[35])},
582        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[36])},
583        { SCM_OBJ(&scm__rc.d1602[37]), SCM_NIL},
584        { SCM_OBJ(&scm__rc.d1602[34]), SCM_OBJ(&scm__rc.d1602[38])},
585        { SCM_MAKE_INT(671U), SCM_NIL},
586        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[40])},
587        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[41])},
588        { SCM_UNDEFINED, SCM_NIL},
589        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[43])},
590        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[44])},
591        { SCM_OBJ(&scm__rc.d1602[45]), SCM_NIL},
592        { SCM_OBJ(&scm__rc.d1602[42]), SCM_OBJ(&scm__rc.d1602[46])},
593        { SCM_UNDEFINED, SCM_NIL},
594        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[48])},
595        { SCM_MAKE_INT(673U), SCM_NIL},
596        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[50])},
597        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[51])},
598        { SCM_UNDEFINED, SCM_NIL},
599        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[53])},
600        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[54])},
601        { SCM_OBJ(&scm__rc.d1602[55]), SCM_NIL},
602        { SCM_OBJ(&scm__rc.d1602[52]), SCM_OBJ(&scm__rc.d1602[56])},
603        { SCM_MAKE_INT(675U), SCM_NIL},
604        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[58])},
605        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[59])},
606        { SCM_UNDEFINED, SCM_NIL},
607        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[61])},
608        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[62])},
609        { SCM_OBJ(&scm__rc.d1602[63]), SCM_NIL},
610        { SCM_OBJ(&scm__rc.d1602[60]), SCM_OBJ(&scm__rc.d1602[64])},
611        { SCM_MAKE_INT(677U), SCM_NIL},
612        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[66])},
613        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[67])},
614        { SCM_UNDEFINED, SCM_NIL},
615        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[69])},
616        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[70])},
617        { SCM_OBJ(&scm__rc.d1602[71]), SCM_NIL},
618        { SCM_OBJ(&scm__rc.d1602[68]), SCM_OBJ(&scm__rc.d1602[72])},
619        { SCM_MAKE_INT(679U), SCM_NIL},
620        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[74])},
621        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[75])},
622        { SCM_UNDEFINED, SCM_NIL},
623        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[77])},
624        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[78])},
625        { SCM_OBJ(&scm__rc.d1602[79]), SCM_NIL},
626        { SCM_OBJ(&scm__rc.d1602[76]), SCM_OBJ(&scm__rc.d1602[80])},
627        { SCM_MAKE_INT(681U), SCM_NIL},
628        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[82])},
629        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[83])},
630        { SCM_UNDEFINED, SCM_NIL},
631        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[85])},
632        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[86])},
633        { SCM_OBJ(&scm__rc.d1602[87]), SCM_NIL},
634        { SCM_OBJ(&scm__rc.d1602[84]), SCM_OBJ(&scm__rc.d1602[88])},
635        { SCM_MAKE_INT(687U), SCM_NIL},
636        { SCM_OBJ(&scm__sc.d1600[7]), SCM_OBJ(&scm__rc.d1602[90])},
637        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[91])},
638        { SCM_UNDEFINED, SCM_NIL},
639        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[93])},
640        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1602[94])},
641        { SCM_OBJ(&scm__rc.d1602[95]), SCM_NIL},
642        { SCM_OBJ(&scm__rc.d1602[92]), SCM_OBJ(&scm__rc.d1602[96])},
643   },
644 #endif /*GAUCHE_STRING_POINTER*/
645 #if GAUCHE_STRING_POINTER
646   {   /* ScmObj d1601 */
647     SCM_UNBOUND,
648     SCM_UNBOUND,
649     SCM_UNBOUND,
650     SCM_UNBOUND,
651     SCM_UNBOUND,
652     SCM_UNBOUND,
653     SCM_UNBOUND,
654     SCM_UNBOUND,
655     SCM_UNBOUND,
656     SCM_UNBOUND,
657     SCM_UNBOUND,
658     SCM_UNBOUND,
659     SCM_UNBOUND,
660     SCM_UNBOUND,
661     SCM_UNBOUND,
662     SCM_UNBOUND,
663     SCM_UNBOUND,
664     SCM_UNBOUND,
665     SCM_UNBOUND,
666     SCM_UNBOUND,
667     SCM_UNBOUND,
668     SCM_UNBOUND,
669     SCM_UNBOUND,
670     SCM_UNBOUND,
671     SCM_UNBOUND,
672     SCM_UNBOUND,
673     SCM_UNBOUND,
674     SCM_UNBOUND,
675     SCM_UNBOUND,
676     SCM_UNBOUND,
677     SCM_UNBOUND,
678     SCM_UNBOUND,
679     SCM_UNBOUND,
680     SCM_UNBOUND,
681   },
682 #endif /*GAUCHE_STRING_POINTER*/
683   {   /* ScmCompiledCode d1565 */
684         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
685             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[0])), 5,
686             2, 0, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[95]),
687             SCM_OBJ(&scm__rc.d1565[1]), SCM_FALSE),
688         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
689             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[5])), 7,
690             5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
691             SCM_FALSE, SCM_FALSE),
692         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* string-split */
693             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[12])), 110,
694             31, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[232]),
695             SCM_FALSE, SCM_FALSE),
696         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %string-split */
697             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[122])), 159,
698             25, 6, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[253]),
699             SCM_FALSE, SCM_FALSE),
700         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (%string-split-scanner %string-split-scanner) */
701             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[281])), 26,
702             12, 1, 0, SCM_OBJ(&scm__rc.d1563[255]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[261]),
703             SCM_OBJ(&scm__rc.d1565[9]), SCM_FALSE),
704         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %string-split-scanner */
705             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[307])), 18,
706             12, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[267]),
707             SCM_OBJ(&scm__rc.d1565[8]), SCM_FALSE),
708         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* #f */
709             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[325])), 5,
710             5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[274]),
711             SCM_OBJ(&scm__rc.d1565[8]), SCM_FALSE),
712         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %string-split-scanner */
713             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[330])), 63,
714             21, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[279]),
715             SCM_OBJ(&scm__rc.d1565[8]), SCM_FALSE),
716         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %string-split-scanner */
717             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[393])), 43,
718             11, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[285]),
719             SCM_OBJ(&scm__rc.d1565[9]), SCM_FALSE),
720         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
721             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[436])), 7,
722             4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
723             SCM_FALSE, SCM_FALSE),
724         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %string-split-scanner-each-char */
725             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[443])), 131,
726             42, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[292]),
727             SCM_OBJ(&scm__rc.d1565[11]), SCM_FALSE),
728         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %string-split-scanner-each-char */
729             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[574])), 3,
730             0, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[298]),
731             SCM_FALSE, SCM_FALSE),
732         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %string-split-by-scanner */
733             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[577])), 37,
734             23, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[305]),
735             SCM_FALSE, SCM_FALSE),
736         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* string-set! */
737             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[614])), 68,
738             27, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[323]),
739             SCM_FALSE, SCM_FALSE),
740         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
741             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[682])), 9,
742             5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
743             SCM_FALSE, SCM_FALSE),
744         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* string-byte-set! */
745             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[691])), 143,
746             24, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[331]),
747             SCM_FALSE, SCM_FALSE),
748         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
749             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[834])), 9,
750             5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
751             SCM_FALSE, SCM_FALSE),
752         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* string-fill! */
753             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[843])), 141,
754             37, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[412]),
755             SCM_FALSE, SCM_FALSE),
756         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (%string-map-dispatch G1591) */
757             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[984])), 4,
758             0, 1, 0, SCM_OBJ(&scm__rc.d1563[525]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[530]),
759             SCM_OBJ(&scm__rc.d1565[20]), SCM_FALSE),
760         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %string-map-dispatch */
761             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[988])), 117,
762             12, 6, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[542]),
763             SCM_OBJ(&scm__rc.d1565[20]), SCM_FALSE),
764         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
765             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1105])), 7,
766             4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
767             SCM_FALSE, SCM_FALSE),
768         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (string-map string-map-1) */
769             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1112])), 52,
770             36, 2, 0, SCM_OBJ(&scm__rc.d1563[544]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[546]),
771             SCM_OBJ(&scm__rc.d1565[24]), SCM_FALSE),
772         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (string-map string-map-n) */
773             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1164])), 60,
774             35, 1, 1, SCM_OBJ(&scm__rc.d1563[548]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[550]),
775             SCM_OBJ(&scm__rc.d1565[24]), SCM_FALSE),
776         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* string-map */
777             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1224])), 10,
778             9, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[559]),
779             SCM_OBJ(&scm__rc.d1565[24]), SCM_FALSE),
780         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
781             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1234])), 7,
782             5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
783             SCM_FALSE, SCM_FALSE),
784         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (string-for-each string-for-each-1) */
785             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1241])), 43,
786             31, 2, 0, SCM_OBJ(&scm__rc.d1563[561]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[562]),
787             SCM_OBJ(&scm__rc.d1565[28]), SCM_FALSE),
788         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (string-for-each string-for-each-n) */
789             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1284])), 52,
790             34, 1, 1, SCM_OBJ(&scm__rc.d1563[564]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[565]),
791             SCM_OBJ(&scm__rc.d1565[28]), SCM_FALSE),
792         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* string-for-each */
793             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1336])), 10,
794             9, 2, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[572]),
795             SCM_OBJ(&scm__rc.d1565[28]), SCM_FALSE),
796         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
797             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1346])), 7,
798             5, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
799             SCM_FALSE, SCM_FALSE),
800         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* string-incomplete->complete! */
801             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1353])), 15,
802             15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[577]),
803             SCM_FALSE, SCM_FALSE),
804         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (complete-sexp? rec-escaped) */
805             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1368])), 26,
806             8, 1, 0, SCM_OBJ(&scm__rc.d1563[629]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[631]),
807             SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE),
808         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (complete-sexp? skip-token) */
809             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1394])), 24,
810             21, 0, 0, SCM_OBJ(&scm__rc.d1563[633]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[634]),
811             SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE),
812         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* rec */
813             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1418])), 307,
814             29, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[639]),
815             SCM_OBJ(&scm__rc.d1565[33]), SCM_FALSE),
816         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* (complete-sexp? G1597) */
817             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1725])), 10,
818             10, 0, 0, SCM_OBJ(&scm__rc.d1563[636]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[647]),
819             SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE),
820         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* complete-sexp? */
821             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1735])), 5,
822             5, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[655]),
823             SCM_OBJ(&scm__rc.d1565[35]), SCM_FALSE),
824         SCM_COMPILED_CODE_CONST_INITIALIZER(  /* %toplevel */
825             (ScmWord*)(SCM_OBJ(&scm__rc.d1564[1740])), 7,
826             6, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
827             SCM_FALSE, SCM_FALSE),
828   },
829   {   /* ScmWord d1564 */
830     /* #f */
831     0x0000005e    /*   0 (GREF-PUSH) */,
832     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-interpolate.509e0240> */,
833     0x0000003d    /*   2 (LREF0) */,
834     0x00002095    /*   3 (TAIL-APPLY 2) */,
835     0x00000014    /*   4 (RET) */,
836     /* %toplevel */
837     0x00000006    /*   0 (CONST-PUSH) */,
838     SCM_WORD(SCM_UNDEFINED) /* string-interpolate */,
839     0x00000016    /*   2 (CLOSURE) */,
840     SCM_WORD(SCM_OBJ(&scm__rc.d1565[0])) /* #<compiled-code #f@0x7fa750ef5240> */,
841     0x00002063    /*   4 (PUSH-GREF-TAIL-CALL 2) */,
842     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#define-reader-ctor.509e0400> */,
843     0x00000014    /*   6 (RET) */,
844     /* string-split */
845     0x0000003d    /*   0 (LREF0) */,
846     0x00000022    /*   1 (BNNULL) */,
847     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 7),
848     0x00000001    /*   3 (CONST) */,
849     SCM_WORD(SCM_UNDEFINED) /* infix */,
850     0x00000013    /*   5 (JUMP) */,
851     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 8),
852     0x0000006a    /*   7 (LREF0-CAR) */,
853     0x0000000d    /*   8 (PUSH) */,
854     0x0000003d    /*   9 (LREF0) */,
855     0x00000022    /*  10 (BNNULL) */,
856     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 15),
857     0x00000003    /*  12 (CONSTN) */,
858     0x00000013    /*  13 (JUMP) */,
859     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 16),
860     0x00000076    /*  15 (LREF0-CDR) */,
861     0x00002018    /*  16 (PUSH-LOCAL-ENV 2) */,
862     0x0000003d    /*  17 (LREF0) */,
863     0x00000022    /*  18 (BNNULL) */,
864     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 23),
865     0x00000004    /*  20 (CONSTF) */,
866     0x00000013    /*  21 (JUMP) */,
867     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 24),
868     0x0000006a    /*  23 (LREF0-CAR) */,
869     0x0000000d    /*  24 (PUSH) */,
870     0x0000003d    /*  25 (LREF0) */,
871     0x00000022    /*  26 (BNNULL) */,
872     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 31),
873     0x00000003    /*  28 (CONSTN) */,
874     0x00000013    /*  29 (JUMP) */,
875     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 32),
876     0x00000076    /*  31 (LREF0-CDR) */,
877     0x00002018    /*  32 (PUSH-LOCAL-ENV 2) */,
878     0x0000003d    /*  33 (LREF0) */,
879     0x00000022    /*  34 (BNNULL) */,
880     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 39),
881     0x00000005    /*  36 (CONSTU) */,
882     0x00000013    /*  37 (JUMP) */,
883     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 40),
884     0x0000006a    /*  39 (LREF0-CAR) */,
885     0x0000000d    /*  40 (PUSH) */,
886     0x0000003d    /*  41 (LREF0) */,
887     0x00000022    /*  42 (BNNULL) */,
888     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 47),
889     0x00000003    /*  44 (CONSTN) */,
890     0x00000013    /*  45 (JUMP) */,
891     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 48),
892     0x00000076    /*  47 (LREF0-CDR) */,
893     0x00002018    /*  48 (PUSH-LOCAL-ENV 2) */,
894     0x0000003d    /*  49 (LREF0) */,
895     0x00000022    /*  50 (BNNULL) */,
896     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 55),
897     0x00000005    /*  52 (CONSTU) */,
898     0x00000013    /*  53 (JUMP) */,
899     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 56),
900     0x0000006a    /*  55 (LREF0-CAR) */,
901     0x0000000d    /*  56 (PUSH) */,
902     0x0000003d    /*  57 (LREF0) */,
903     0x00000022    /*  58 (BNNULL) */,
904     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 63),
905     0x00000003    /*  60 (CONSTN) */,
906     0x00000013    /*  61 (JUMP) */,
907     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 64),
908     0x00000076    /*  63 (LREF0-CDR) */,
909     0x00002018    /*  64 (PUSH-LOCAL-ENV 2) */,
910     0x0000003d    /*  65 (LREF0) */,
911     0x00000022    /*  66 (BNNULL) */,
912     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 70),
913     0x00000013    /*  68 (JUMP) */,
914     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 78),
915     0x0000200e    /*  70 (PRE-CALL 2) */,
916     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 78),
917     0x00000006    /*  72 (CONST-PUSH) */,
918     SCM_WORD(SCM_OBJ(&scm__sc.d1561[61])) /* "too many arguments for" */,
919     0x00000006    /*  74 (CONST-PUSH) */,
920     SCM_WORD(SCM_OBJ(&scm__rc.d1563[227])) /* (lambda (string splitter :optional (grammar 'infix) (limit #f) start end) (if (or (not grammar) (integer? grammar)) ((with-module gauche.internal %string-split) string splitter 'infix grammar limit start) ((with-module gauche.internal %string-split) string splitter grammar limit start end))) */,
921     0x0000205f    /*  76 (GREF-CALL 2) */,
922     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.50d3da20> */,
923     0x0040303c    /*  78 (LREF 3 1) */,
924     0x0000001e    /*  79 (BF) */,
925     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 88),
926     0x0000100e    /*  81 (PRE-CALL 1) */,
927     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 86),
928     0x00403047    /*  83 (LREF-PUSH 3 1) */,
929     0x0000105f    /*  84 (GREF-CALL 1) */,
930     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.50d3fc20> */,
931     0x0000001e    /*  86 (BF) */,
932     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 98),
933     0x00804047    /*  88 (LREF-PUSH 4 2) */,
934     0x00404047    /*  89 (LREF-PUSH 4 1) */,
935     0x00000006    /*  90 (CONST-PUSH) */,
936     SCM_WORD(SCM_UNDEFINED) /* infix */,
937     0x00403047    /*  92 (LREF-PUSH 3 1) */,
938     0x00000050    /*  93 (LREF21-PUSH) */,
939     0x0000004d    /*  94 (LREF11-PUSH) */,
940     0x00006060    /*  95 (GREF-TAIL-CALL 6) */,
941     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-split.50d3fba0> */,
942     0x00000014    /*  97 (RET) */,
943     0x00804047    /*  98 (LREF-PUSH 4 2) */,
944     0x00404047    /*  99 (LREF-PUSH 4 1) */,
945     0x00403047    /* 100 (LREF-PUSH 3 1) */,
946     0x00000050    /* 101 (LREF21-PUSH) */,
947     0x0000004d    /* 102 (LREF11-PUSH) */,
948     0x00000049    /* 103 (LREF1-PUSH) */,
949     0x00006060    /* 104 (GREF-TAIL-CALL 6) */,
950     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-split.50d3fa20> */,
951     0x00000014    /* 106 (RET) */,
952     0x00000013    /* 107 (JUMP) */,
953     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]) + 88),
954     0x00000014    /* 109 (RET) */,
955     /* %string-split */
956     0x0000004b    /*   0 (LREF3-PUSH) */,
957     0x00000001    /*   1 (CONST) */,
958     SCM_WORD(SCM_OBJ(&scm__rc.d1563[248])) /* (infix strict-infix prefix suffix) */,
959     0x0000008b    /*   3 (MEMQ) */,
960     0x0000001e    /*   4 (BF) */,
961     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 8),
962     0x00000013    /*   6 (JUMP) */,
963     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 15),
964     0x0000200e    /*   8 (PRE-CALL 2) */,
965     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 15),
966     0x00000006    /*  10 (CONST-PUSH) */,
967     SCM_WORD(SCM_OBJ(&scm__sc.d1561[77])) /* "grammar argument must be one of (infix strict-infix prefix suffix), but got" */,
968     0x0000004b    /*  12 (LREF3-PUSH) */,
969     0x0000205f    /*  13 (GREF-CALL 2) */,
970     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51eee640> */,
971     0x0000003f    /*  15 (LREF2) */,
972     0x0000001e    /*  16 (BF) */,
973     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
974     0x0000100e    /*  18 (PRE-CALL 1) */,
975     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 23),
976     0x0000004a    /*  20 (LREF2-PUSH) */,
977     0x0000105f    /*  21 (GREF-CALL 1) */,
978     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.51eee4c0> */,
979     0x0000001e    /*  23 (BF) */,
980     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 30),
981     0x00000002    /*  25 (CONSTI 0) */,
982     0x0080002c    /*  26 (LREF-VAL0-BNGE 0 2) */,
983     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 30),
984     0x00000013    /*  28 (JUMP) */,
985     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
986     0x0000200e    /*  30 (PRE-CALL 2) */,
987     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
988     0x00000006    /*  32 (CONST-PUSH) */,
989     SCM_WORD(SCM_OBJ(&scm__sc.d1561[78])) /* "limit argument must be a nonnegative integer or #f, but got" */,
990     0x0000004a    /*  34 (LREF2-PUSH) */,
991     0x0000205f    /*  35 (GREF-CALL 2) */,
992     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51eee400> */,
993     0x00000013    /*  37 (JUMP) */,
994     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
995     0x00000013    /*  39 (JUMP) */,
996     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 30),
997     0x00000013    /*  41 (JUMP) */,
998     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 43),
999     0x0000300e    /*  43 (PRE-CALL 3) */,
1000     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 50),
1001     0x01400047    /*  45 (LREF-PUSH 0 5) */,
1002     0x00000049    /*  46 (LREF1-PUSH) */,
1003     0x00000048    /*  47 (LREF0-PUSH) */,
1004     0x0000305f    /*  48 (GREF-CALL 3) */,
1005     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%maybe-substring.51eee260> */,
1006     0x00001018    /*  50 (PUSH-LOCAL-ENV 1) */,
1007     0x0000200e    /*  51 (PRE-CALL 2) */,
1008     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 58),
1009     0x00000048    /*  53 (LREF0-PUSH) */,
1010     0x00000006    /*  54 (CONST-PUSH) */,
1011     SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1012     0x0000205f    /*  56 (GREF-CALL 2) */,
1013     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#equal?.51eee180> */,
1014     0x0000001e    /*  58 (BF) */,
1015     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 71),
1016     0x00c0103c    /*  60 (LREF 1 3) */,
1017     0x0000002e    /*  61 (BNEQC) */,
1018     SCM_WORD(SCM_UNDEFINED) /* strict-infix */,
1019     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 69)  /*     69 */,
1020     0x00000006    /*  64 (CONST-PUSH) */,
1021     SCM_WORD(SCM_OBJ(&scm__sc.d1561[81])) /* "string must not be empty with strict-infix grammar" */,
1022     0x00001060    /*  66 (GREF-TAIL-CALL 1) */,
1023     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51ef3fe0> */,
1024     0x00000014    /*  68 (RET) */,
1025     0x00000003    /*  69 (CONSTN) */,
1026     0x00000014    /*  70 (RET) */,
1027     0x0100103c    /*  71 (LREF 1 4) */,
1028     0x00000099    /*  72 (CHARP) */,
1029     0x0000001e    /*  73 (BF) */,
1030     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 89),
1031     0x0000300e    /*  75 (PRE-CALL 3) */,
1032     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 106),
1033     0x00000048    /*  77 (LREF0-PUSH) */,
1034     0x01001047    /*  78 (LREF-PUSH 1 4) */,
1035     0x00000043    /*  79 (LREF12) */,
1036     0x0000001e    /*  80 (BF) */,
1037     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 84),
1038     0x00000013    /*  82 (JUMP) */,
1039     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 85),
1040     -0x00000ffe   /*  84 (CONSTI -1) */,
1041     0x00003062    /*  85 (PUSH-GREF-CALL 3) */,
1042     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-by-char.51ef3d40> */,
1043     0x00000013    /*  87 (JUMP) */,
1044     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 106),
1045     0x0000300e    /*  89 (PRE-CALL 3) */,
1046     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 106),
1047     0x00000048    /*  91 (LREF0-PUSH) */,
1048     0x0000100e    /*  92 (PRE-CALL 1) */,
1049     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 97),
1050     0x01001047    /*  94 (LREF-PUSH 1 4) */,
1051     0x0000105f    /*  95 (GREF-CALL 1) */,
1052     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-scanner.51ef3b20> */,
1053     0x0000000d    /*  97 (PUSH) */,
1054     0x00000043    /*  98 (LREF12) */,
1055     0x0000001e    /*  99 (BF) */,
1056     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 103),
1057     0x00000013    /* 101 (JUMP) */,
1058     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 104),
1059     -0x00000ffe   /* 103 (CONSTI -1) */,
1060     0x00003062    /* 104 (PUSH-GREF-CALL 3) */,
1061     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-by-scanner.51ef3b80> */,
1062     0x00001018    /* 106 (PUSH-LOCAL-ENV 1) */,
1063     0x00c0203c    /* 107 (LREF 2 3) */,
1064     0x0000002e    /* 108 (BNEQC) */,
1065     SCM_WORD(SCM_UNDEFINED) /* prefix */,
1066     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 129)  /*    129 */,
1067     0x0000003d    /* 111 (LREF0) */,
1068     0x00000098    /* 112 (PAIRP) */,
1069     0x0000001e    /* 113 (BF) */,
1070     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 128),
1071     0x0000200e    /* 115 (PRE-CALL 2) */,
1072     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 123),
1073     0x0000006a    /* 117 (LREF0-CAR) */,
1074     0x0000000d    /* 118 (PUSH) */,
1075     0x00000006    /* 119 (CONST-PUSH) */,
1076     SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1077     0x0000205f    /* 121 (GREF-CALL 2) */,
1078     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#equal?.51ef37c0> */,
1079     0x0000001e    /* 123 (BF) */,
1080     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 127),
1081     0x00000076    /* 125 (LREF0-CDR) */,
1082     0x00000014    /* 126 (RET) */,
1083     0x00000053    /* 127 (LREF0-RET) */,
1084     0x00000053    /* 128 (LREF0-RET) */,
1085     0x00c0203c    /* 129 (LREF 2 3) */,
1086     0x0000002e    /* 130 (BNEQC) */,
1087     SCM_WORD(SCM_UNDEFINED) /* suffix */,
1088     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 158)  /*    158 */,
1089     0x0000003d    /* 133 (LREF0) */,
1090     0x00000098    /* 134 (PAIRP) */,
1091     0x0000001e    /* 135 (BF) */,
1092     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 157),
1093     0x0000200e    /* 137 (PRE-CALL 2) */,
1094     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 149),
1095     0x0000100e    /* 139 (PRE-CALL 1) */,
1096     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 144),
1097     0x00000048    /* 141 (LREF0-PUSH) */,
1098     0x0000105f    /* 142 (GREF-CALL 1) */,
1099     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#last-pair.51ef34a0> */,
1100     0x00000069    /* 144 (CAR-PUSH) */,
1101     0x00000006    /* 145 (CONST-PUSH) */,
1102     SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1103     0x0000205f    /* 147 (GREF-CALL 2) */,
1104     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#equal?.51ef3500> */,
1105     0x0000001e    /* 149 (BF) */,
1106     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]) + 156),
1107     0x00000048    /* 151 (LREF0-PUSH) */,
1108     0x00001007    /* 152 (CONSTI-PUSH 1) */,
1109     0x00002060    /* 153 (GREF-TAIL-CALL 2) */,
1110     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#drop-right.51ef3420> */,
1111     0x00000014    /* 155 (RET) */,
1112     0x00000053    /* 156 (LREF0-RET) */,
1113     0x00000053    /* 157 (LREF0-RET) */,
1114     0x00000053    /* 158 (LREF0-RET) */,
1115     /* (%string-split-scanner %string-split-scanner) */
1116     0x0000100e    /*   0 (PRE-CALL 1) */,
1117     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 5),
1118     0x00000048    /*   2 (LREF0-PUSH) */,
1119     0x0000105f    /*   3 (GREF-CALL 1) */,
1120     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-length.51783f60> */,
1121     0x0000000d    /*   5 (PUSH) */,
1122     0x00001002    /*   6 (CONSTI 1) */,
1123     0x00000025    /*   7 (BNLE) */,
1124     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 12),
1125     0x00000048    /*   9 (LREF0-PUSH) */,
1126     0x00000004    /*  10 (CONSTF) */,
1127     0x000020a3    /*  11 (VALUES-RET 2) */,
1128     0x0000300e    /*  12 (PRE-CALL 3) */,
1129     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 19),
1130     0x00000048    /*  14 (LREF0-PUSH) */,
1131     0x00000007    /*  15 (CONSTI-PUSH 0) */,
1132     0x00001007    /*  16 (CONSTI-PUSH 1) */,
1133     0x0000305f    /*  17 (GREF-CALL 3) */,
1134     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.51783e00> */,
1135     0x0000200f    /*  19 (PUSH-PRE-CALL 2) */,
1136     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]) + 25),
1137     0x00000048    /*  21 (LREF0-PUSH) */,
1138     0x00001007    /*  22 (CONSTI-PUSH 1) */,
1139     0x0000205f    /*  23 (GREF-CALL 2) */,
1140     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.51783d40> */,
1141     0x000020a3    /*  25 (VALUES-RET 2) */,
1142     /* (%string-split-scanner %string-split-scanner) */
1143     0x0000300e    /*   0 (PRE-CALL 3) */,
1144     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]) + 8),
1145     0x00000048    /*   2 (LREF0-PUSH) */,
1146     0x0000004c    /*   3 (LREF10-PUSH) */,
1147     0x00000006    /*   4 (CONST-PUSH) */,
1148     SCM_WORD(SCM_UNDEFINED) /* both */,
1149     0x0000305f    /*   6 (GREF-CALL 3) */,
1150     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-scan.51783a40> */,
1151     0x00002036    /*   8 (TAIL-RECEIVE 2 0) */,
1152     0x0000003e    /*   9 (LREF1) */,
1153     0x0000001e    /*  10 (BF) */,
1154     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]) + 15),
1155     0x00000049    /*  12 (LREF1-PUSH) */,
1156     0x0000003d    /*  13 (LREF0) */,
1157     0x000020a3    /*  14 (VALUES-RET 2) */,
1158     0x0000004c    /*  15 (LREF10-PUSH) */,
1159     0x00000004    /*  16 (CONSTF) */,
1160     0x000020a3    /*  17 (VALUES-RET 2) */,
1161     /* (%string-split-scanner #f) */
1162     0x0000004c    /*   0 (LREF10-PUSH) */,
1163     0x00000048    /*   1 (LREF0-PUSH) */,
1164     0x00002060    /*   2 (GREF-TAIL-CALL 2) */,
1165     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set-contains?.51784ec0> */,
1166     0x00000014    /*   4 (RET) */,
1167     /* (%string-split-scanner %string-split-scanner) */
1168     0x0000200e    /*   0 (PRE-CALL 2) */,
1169     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 6),
1170     0x0000004c    /*   2 (LREF10-PUSH) */,
1171     0x00000048    /*   3 (LREF0-PUSH) */,
1172     0x0000205f    /*   4 (GREF-CALL 2) */,
1173     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#rxmatch.5178aae0> */,
1174     0x00001018    /*   6 (PUSH-LOCAL-ENV 1) */,
1175     0x0000003d    /*   7 (LREF0) */,
1176     0x0000001e    /*   8 (BF) */,
1177     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 60),
1178     0x0000100e    /*  10 (PRE-CALL 1) */,
1179     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 16),
1180     0x00000006    /*  12 (CONST-PUSH) */,
1181     SCM_WORD(SCM_UNDEFINED) /* before */,
1182     0x0000003d    /*  14 (LREF0) */,
1183     0x00001011    /*  15 (CALL 1) */,
1184     0x0000100f    /*  16 (PUSH-PRE-CALL 1) */,
1185     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 22),
1186     0x00000006    /*  18 (CONST-PUSH) */,
1187     SCM_WORD(SCM_UNDEFINED) /* after */,
1188     0x0000003d    /*  20 (LREF0) */,
1189     0x00001011    /*  21 (CALL 1) */,
1190     0x00002018    /*  22 (PUSH-LOCAL-ENV 2) */,
1191     0x0000200e    /*  23 (PRE-CALL 2) */,
1192     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 29),
1193     0x0000004f    /*  25 (LREF20-PUSH) */,
1194     0x00000048    /*  26 (LREF0-PUSH) */,
1195     0x0000205f    /*  27 (GREF-CALL 2) */,
1196     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string=?.5178a3a0> */,
1197     0x0000001e    /*  29 (BF) */,
1198     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 57),
1199     0x0000100e    /*  31 (PRE-CALL 1) */,
1200     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 36),
1201     0x0000004f    /*  33 (LREF20-PUSH) */,
1202     0x0000105f    /*  34 (GREF-CALL 1) */,
1203     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-length.5178a2e0> */,
1204     0x0000000d    /*  36 (PUSH) */,
1205     0x00001002    /*  37 (CONSTI 1) */,
1206     0x00000025    /*  38 (BNLE) */,
1207     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 43),
1208     0x0000004f    /*  40 (LREF20-PUSH) */,
1209     0x00000004    /*  41 (CONSTF) */,
1210     0x000020a3    /*  42 (VALUES-RET 2) */,
1211     0x0000300e    /*  43 (PRE-CALL 3) */,
1212     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 50),
1213     0x0000004f    /*  45 (LREF20-PUSH) */,
1214     0x00000007    /*  46 (CONSTI-PUSH 0) */,
1215     0x00001007    /*  47 (CONSTI-PUSH 1) */,
1216     0x0000305f    /*  48 (GREF-CALL 3) */,
1217     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.5178d960> */,
1218     0x0000200f    /*  50 (PUSH-PRE-CALL 2) */,
1219     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]) + 56),
1220     0x0000004f    /*  52 (LREF20-PUSH) */,
1221     0x00001007    /*  53 (CONSTI-PUSH 1) */,
1222     0x0000205f    /*  54 (GREF-CALL 2) */,
1223     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.5178d840> */,
1224     0x000020a3    /*  56 (VALUES-RET 2) */,
1225     0x00000049    /*  57 (LREF1-PUSH) */,
1226     0x0000003d    /*  58 (LREF0) */,
1227     0x000020a3    /*  59 (VALUES-RET 2) */,
1228     0x0000004c    /*  60 (LREF10-PUSH) */,
1229     0x00000004    /*  61 (CONSTF) */,
1230     0x000020a3    /*  62 (VALUES-RET 2) */,
1231     /* %string-split-scanner */
1232     0x0000003d    /*   0 (LREF0) */,
1233     0x0000009b    /*   1 (STRINGP) */,
1234     0x0000001e    /*   2 (BF) */,
1235     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 17),
1236     0x0000200e    /*   4 (PRE-CALL 2) */,
1237     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 11),
1238     0x00000048    /*   6 (LREF0-PUSH) */,
1239     0x00000006    /*   7 (CONST-PUSH) */,
1240     SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1241     0x0000205f    /*   9 (GREF-CALL 2) */,
1242     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string=?.51782180> */,
1243     0x0000001e    /*  11 (BF) */,
1244     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 14),
1245     0x00000057    /*  13 (LREF10-RET) */,
1246     0x00000016    /*  14 (CLOSURE) */,
1247     SCM_WORD(SCM_OBJ(&scm__rc.d1565[5])) /* #<compiled-code (%string-split-scanner %string-split-scanner)@0x7fa753f3d0c0> */,
1248     0x00000014    /*  16 (RET) */,
1249     0x0000100e    /*  17 (PRE-CALL 1) */,
1250     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 22),
1251     0x00000048    /*  19 (LREF0-PUSH) */,
1252     0x0000105f    /*  20 (GREF-CALL 1) */,
1253     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set?.517836e0> */,
1254     0x0000001e    /*  22 (BF) */,
1255     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 29),
1256     0x00000016    /*  24 (CLOSURE) */,
1257     SCM_WORD(SCM_OBJ(&scm__rc.d1565[6])) /* #<compiled-code (%string-split-scanner #f)@0x7fa75272ef60> */,
1258     0x00001063    /*  26 (PUSH-GREF-TAIL-CALL 1) */,
1259     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-scanner-each-char.51783660> */,
1260     0x00000014    /*  28 (RET) */,
1261     0x0000100e    /*  29 (PRE-CALL 1) */,
1262     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 34),
1263     0x00000048    /*  31 (LREF0-PUSH) */,
1264     0x0000105f    /*  32 (GREF-CALL 1) */,
1265     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#regexp?.51784e20> */,
1266     0x0000001e    /*  34 (BF) */,
1267     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]) + 39),
1268     0x00000016    /*  36 (CLOSURE) */,
1269     SCM_WORD(SCM_OBJ(&scm__rc.d1565[7])) /* #<compiled-code (%string-split-scanner %string-split-scanner)@0x7fa75272e9c0> */,
1270     0x00000014    /*  38 (RET) */,
1271     0x00000048    /*  39 (LREF0-PUSH) */,
1272     0x00001060    /*  40 (GREF-TAIL-CALL 1) */,
1273     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-scanner-each-char.5178d340> */,
1274     0x00000014    /*  42 (RET) */,
1275     /* %toplevel */
1276     0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
1277     SCM_WORD(SCM_OBJ(&scm__rc.d1563[262])) /* (#<compiled-code (%string-split-scanner %string-split-scanner)@0x7fa753f3d360>) */,
1278     0x00000016    /*   2 (CLOSURE) */,
1279     SCM_WORD(SCM_OBJ(&scm__rc.d1565[8])) /* #<compiled-code %string-split-scanner@0x7fa753f3d240> */,
1280     0x00000015    /*   4 (DEFINE 0) */,
1281     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-split-scanner.51782400> */,
1282     0x00000014    /*   6 (RET) */,
1283     /* (%string-split-scanner-each-char %string-split-scanner-each-char) */
1284     0x00000048    /*   0 (LREF0-PUSH) */,
1285     0x0000100e    /*   1 (PRE-CALL 1) */,
1286     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 6),
1287     0x00000048    /*   3 (LREF0-PUSH) */,
1288     0x0000105f    /*   4 (GREF-CALL 1) */,
1289     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.50efefe0> */,
1290     0x0000100f    /*   6 (PUSH-PRE-CALL 1) */,
1291     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 11),
1292     0x00000048    /*   8 (LREF0-PUSH) */,
1293     0x0000105f    /*   9 (GREF-CALL 1) */,
1294     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.50efef80> */,
1295     0x00003018    /*  11 (PUSH-LOCAL-ENV 3) */,
1296     0x0000200e    /*  12 (PRE-CALL 2) */,
1297     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 18),
1298     0x00000049    /*  14 (LREF1-PUSH) */,
1299     0x00000048    /*  15 (LREF0-PUSH) */,
1300     0x0000205f    /*  16 (GREF-CALL 2) */,
1301     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.50eef940> */,
1302     0x0000001e    /*  18 (BF) */,
1303     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 35),
1304     0x0000300e    /*  20 (PRE-CALL 3) */,
1305     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 32),
1306     0x0000004a    /*  22 (LREF2-PUSH) */,
1307     0x0000100e    /*  23 (PRE-CALL 1) */,
1308     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 28),
1309     0x0000004a    /*  25 (LREF2-PUSH) */,
1310     0x0000105f    /*  26 (GREF-CALL 1) */,
1311     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.50eefaa0> */,
1312     0x0000000d    /*  28 (PUSH) */,
1313     0x00000049    /*  29 (LREF1-PUSH) */,
1314     0x0000305f    /*  30 (GREF-CALL 3) */,
1315     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.50eefb00> */,
1316     0x0000000d    /*  32 (PUSH) */,
1317     0x00000004    /*  33 (CONSTF) */,
1318     0x000020a3    /*  34 (VALUES-RET 2) */,
1319     0x0000100e    /*  35 (PRE-CALL 1) */,
1320     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 46),
1321     0x0000200e    /*  37 (PRE-CALL 2) */,
1322     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 43),
1323     0x0000004a    /*  39 (LREF2-PUSH) */,
1324     0x00000049    /*  40 (LREF1-PUSH) */,
1325     0x0000205f    /*  41 (GREF-CALL 2) */,
1326     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.50eef7e0> */,
1327     0x0000000d    /*  43 (PUSH) */,
1328     0x00000044    /*  44 (LREF20) */,
1329     0x00001011    /*  45 (CALL 1) */,
1330     0x0000001e    /*  46 (BF) */,
1331     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 118),
1332     0x0000004a    /*  48 (LREF2-PUSH) */,
1333     0x0000200e    /*  49 (PRE-CALL 2) */,
1334     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 55),
1335     0x0000004a    /*  51 (LREF2-PUSH) */,
1336     0x00000049    /*  52 (LREF1-PUSH) */,
1337     0x0000205f    /*  53 (GREF-CALL 2) */,
1338     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.50eef720> */,
1339     0x0000000d    /*  55 (PUSH) */,
1340     0x00000048    /*  56 (LREF0-PUSH) */,
1341     0x0000300e    /*  57 (PRE-CALL 3) */,
1342     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 69),
1343     0x0000004a    /*  59 (LREF2-PUSH) */,
1344     0x0000100e    /*  60 (PRE-CALL 1) */,
1345     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 65),
1346     0x0000004a    /*  62 (LREF2-PUSH) */,
1347     0x0000105f    /*  63 (GREF-CALL 1) */,
1348     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.50eefaa0> */,
1349     0x0000000d    /*  65 (PUSH) */,
1350     0x00000049    /*  66 (LREF1-PUSH) */,
1351     0x0000305f    /*  67 (GREF-CALL 3) */,
1352     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.50eefb00> */,
1353     0x00004018    /*  69 (PUSH-LOCAL-ENV 4) */,
1354     0x0000200e    /*  70 (PRE-CALL 2) */,
1355     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 76),
1356     0x0000004a    /*  72 (LREF2-PUSH) */,
1357     0x00000049    /*  73 (LREF1-PUSH) */,
1358     0x0000205f    /*  74 (GREF-CALL 2) */,
1359     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.50eef420> */,
1360     0x0000001e    /*  76 (BF) */,
1361     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 82),
1362     0x00000048    /*  78 (LREF0-PUSH) */,
1363     0x00000001    /*  79 (CONST) */,
1364     SCM_WORD(SCM_OBJ(&scm__sc.d1561[79])) /* "" */,
1365     0x000020a3    /*  81 (VALUES-RET 2) */,
1366     0x0000100e    /*  82 (PRE-CALL 1) */,
1367     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 93),
1368     0x0000200e    /*  84 (PRE-CALL 2) */,
1369     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 90),
1370     0x0000004b    /*  86 (LREF3-PUSH) */,
1371     0x0000004a    /*  87 (LREF2-PUSH) */,
1372     0x0000205f    /*  88 (GREF-CALL 2) */,
1373     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.50eef300> */,
1374     0x0000000d    /*  90 (PUSH) */,
1375     0x00000046    /*  91 (LREF30) */,
1376     0x00001011    /*  92 (CALL 1) */,
1377     0x0000001e    /*  93 (BF) */,
1378     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 108),
1379     0x0000004b    /*  95 (LREF3-PUSH) */,
1380     0x0000200e    /*  96 (PRE-CALL 2) */,
1381     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 102),
1382     0x0000004b    /*  98 (LREF3-PUSH) */,
1383     0x0000004a    /*  99 (LREF2-PUSH) */,
1384     0x0000205f    /* 100 (GREF-CALL 2) */,
1385     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.50eef240> */,
1386     0x0000000d    /* 102 (PUSH) */,
1387     0x00000049    /* 103 (LREF1-PUSH) */,
1388     0x00000048    /* 104 (LREF0-PUSH) */,
1389     0x0000101b    /* 105 (LOCAL-ENV-JUMP 1) */,
1390     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 70),
1391     0x00000014    /* 107 (RET) */,
1392     0x00000048    /* 108 (LREF0-PUSH) */,
1393     0x0000300e    /* 109 (PRE-CALL 3) */,
1394     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 116),
1395     0x0000004b    /* 111 (LREF3-PUSH) */,
1396     0x0000004a    /* 112 (LREF2-PUSH) */,
1397     0x00000049    /* 113 (LREF1-PUSH) */,
1398     0x0000305f    /* 114 (GREF-CALL 3) */,
1399     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.50eef100> */,
1400     0x000020a3    /* 116 (VALUES-RET 2) */,
1401     0x00000014    /* 117 (RET) */,
1402     0x0000004a    /* 118 (LREF2-PUSH) */,
1403     0x0000200e    /* 119 (PRE-CALL 2) */,
1404     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 125),
1405     0x0000004a    /* 121 (LREF2-PUSH) */,
1406     0x00000049    /* 122 (LREF1-PUSH) */,
1407     0x0000205f    /* 123 (GREF-CALL 2) */,
1408     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.50eef5a0> */,
1409     0x0000000d    /* 125 (PUSH) */,
1410     0x00000048    /* 126 (LREF0-PUSH) */,
1411     0x0000101b    /* 127 (LOCAL-ENV-JUMP 1) */,
1412     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]) + 12),
1413     0x00000014    /* 129 (RET) */,
1414     0x00000014    /* 130 (RET) */,
1415     /* %string-split-scanner-each-char */
1416     0x00000016    /*   0 (CLOSURE) */,
1417     SCM_WORD(SCM_OBJ(&scm__rc.d1565[10])) /* #<compiled-code (%string-split-scanner-each-char %string-split-scanner-each-char)@0x7fa752001360> */,
1418     0x00000014    /*   2 (RET) */,
1419     /* %string-split-by-scanner */
1420     0x0000004a    /*   0 (LREF2-PUSH) */,
1421     0x00000008    /*   1 (CONSTN-PUSH) */,
1422     0x00000048    /*   2 (LREF0-PUSH) */,
1423     0x00003017    /*   3 (LOCAL-ENV 3) */,
1424     0x0000003d    /*   4 (LREF0) */,
1425     0x0000002d    /*   5 (BNUMNEI 0) */,
1426     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 13),
1427     0x0000004a    /*   7 (LREF2-PUSH) */,
1428     0x0000003e    /*   8 (LREF1) */,
1429     0x00000067    /*   9 (CONS-PUSH) */,
1430     0x00001060    /*  10 (GREF-TAIL-CALL 1) */,
1431     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#reverse!.51ec5ca0> */,
1432     0x00000014    /*  12 (RET) */,
1433     0x0000100e    /*  13 (PRE-CALL 1) */,
1434     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 18),
1435     0x0000004a    /*  15 (LREF2-PUSH) */,
1436     0x00000042    /*  16 (LREF11) */,
1437     0x00001011    /*  17 (CALL 1) */,
1438     0x00002036    /*  18 (TAIL-RECEIVE 2 0) */,
1439     0x0000003d    /*  19 (LREF0) */,
1440     0x0000001e    /*  20 (BF) */,
1441     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 30),
1442     0x00000048    /*  22 (LREF0-PUSH) */,
1443     0x00000049    /*  23 (LREF1-PUSH) */,
1444     0x00000042    /*  24 (LREF11) */,
1445     0x00000067    /*  25 (CONS-PUSH) */,
1446     -0x00000f35   /*  26 (LREF10-NUMADDI-PUSH -1) */,
1447     0x0000201b    /*  27 (LOCAL-ENV-JUMP 2) */,
1448     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]) + 4),
1449     0x00000014    /*  29 (RET) */,
1450     0x00000049    /*  30 (LREF1-PUSH) */,
1451     0x00000042    /*  31 (LREF11) */,
1452     0x00000067    /*  32 (CONS-PUSH) */,
1453     0x00001060    /*  33 (GREF-TAIL-CALL 1) */,
1454     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#reverse!.51ec59c0> */,
1455     0x00000014    /*  35 (RET) */,
1456     0x00000014    /*  36 (RET) */,
1457     /* string-set! */
1458     0x0000003f    /*   0 (LREF2) */,
1459     0x0000009b    /*   1 (STRINGP) */,
1460     0x0000001e    /*   2 (BF) */,
1461     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 6),
1462     0x00000013    /*   4 (JUMP) */,
1463     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 15),
1464     0x0000300e    /*   6 (PRE-CALL 3) */,
1465     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 15),
1466     0x00000006    /*   8 (CONST-PUSH) */,
1467     SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1468     0x00000006    /*  10 (CONST-PUSH) */,
1469     SCM_WORD(SCM_UNDEFINED) /* arg */,
1470     0x0000004a    /*  12 (LREF2-PUSH) */,
1471     0x0000305f    /*  13 (GREF-CALL 3) */,
1472     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5140f4a0> */,
1473     0x0000003d    /*  15 (LREF0) */,
1474     0x00000099    /*  16 (CHARP) */,
1475     0x0000001e    /*  17 (BF) */,
1476     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 21),
1477     0x00000013    /*  19 (JUMP) */,
1478     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 30),
1479     0x0000300e    /*  21 (PRE-CALL 3) */,
1480     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 30),
1481     0x00000006    /*  23 (CONST-PUSH) */,
1482     SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1483     0x00000006    /*  25 (CONST-PUSH) */,
1484     SCM_WORD(SCM_UNDEFINED) /* arg */,
1485     0x00000048    /*  27 (LREF0-PUSH) */,
1486     0x0000305f    /*  28 (GREF-CALL 3) */,
1487     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5140f0e0> */,
1488     0x0000200e    /*  30 (PRE-CALL 2) */,
1489     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 36),
1490     0x0000004a    /*  32 (LREF2-PUSH) */,
1491     0x00000049    /*  33 (LREF1-PUSH) */,
1492     0x0000205f    /*  34 (GREF-CALL 2) */,
1493     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-index->cursor.514168c0> */,
1494     0x00001018    /*  36 (PUSH-LOCAL-ENV 1) */,
1495     0x0000004e    /*  37 (LREF12-PUSH) */,
1496     0x0000300e    /*  38 (PRE-CALL 3) */,
1497     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 65),
1498     0x0000300e    /*  40 (PRE-CALL 3) */,
1499     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 47),
1500     0x0000004e    /*  42 (LREF12-PUSH) */,
1501     0x00000007    /*  43 (CONSTI-PUSH 0) */,
1502     0x00000048    /*  44 (LREF0-PUSH) */,
1503     0x0000305f    /*  45 (GREF-CALL 3) */,
1504     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.514165a0> */,
1505     0x0000100f    /*  47 (PUSH-PRE-CALL 1) */,
1506     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 52),
1507     0x0000004c    /*  49 (LREF10-PUSH) */,
1508     0x0000105f    /*  50 (GREF-CALL 1) */,
1509     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string.514164a0> */,
1510     0x0000200f    /*  52 (PUSH-PRE-CALL 2) */,
1511     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 63),
1512     0x0000004e    /*  54 (LREF12-PUSH) */,
1513     0x0000200e    /*  55 (PRE-CALL 2) */,
1514     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]) + 61),
1515     0x0000004e    /*  57 (LREF12-PUSH) */,
1516     0x0000004d    /*  58 (LREF11-PUSH) */,
1517     0x0000205f    /*  59 (GREF-CALL 2) */,
1518     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.514163c0> */,
1519     0x00002062    /*  61 (PUSH-GREF-CALL 2) */,
1520     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.51416440> */,
1521     0x00003062    /*  63 (PUSH-GREF-CALL 3) */,
1522     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-append.514165e0> */,
1523     0x00002063    /*  65 (PUSH-GREF-TAIL-CALL 2) */,
1524     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-replace-body!.51416640> */,
1525     0x00000014    /*  67 (RET) */,
1526     /* %toplevel */
1527     0x0000005e    /*   0 (GREF-PUSH) */,
1528     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.516c1520> */,
1529     0x0000005e    /*   2 (GREF-PUSH) */,
1530     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-set!.516c14e0> */,
1531     0x0000005d    /*   4 (GREF) */,
1532     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#setter.516c1560> */,
1533     0x000000a1    /*   6 (SETTER) */,
1534     0x00002012    /*   7 (TAIL-CALL 2) */,
1535     0x00000014    /*   8 (RET) */,
1536     /* string-byte-set! */
1537     0x0000003f    /*   0 (LREF2) */,
1538     0x0000009b    /*   1 (STRINGP) */,
1539     0x0000001e    /*   2 (BF) */,
1540     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 6),
1541     0x00000013    /*   4 (JUMP) */,
1542     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 15),
1543     0x0000300e    /*   6 (PRE-CALL 3) */,
1544     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 15),
1545     0x00000006    /*   8 (CONST-PUSH) */,
1546     SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1547     0x00000006    /*  10 (CONST-PUSH) */,
1548     SCM_WORD(SCM_UNDEFINED) /* arg */,
1549     0x0000004a    /*  12 (LREF2-PUSH) */,
1550     0x0000305f    /*  13 (GREF-CALL 3) */,
1551     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5171bb00> */,
1552     0x0000100e    /*  15 (PRE-CALL 1) */,
1553     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 20),
1554     0x00000049    /*  17 (LREF1-PUSH) */,
1555     0x0000105f    /*  18 (GREF-CALL 1) */,
1556     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.5171b560> */,
1557     0x0000001e    /*  20 (BF) */,
1558     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 24),
1559     0x00000013    /*  22 (JUMP) */,
1560     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 33),
1561     0x0000300e    /*  24 (PRE-CALL 3) */,
1562     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 33),
1563     0x00000006    /*  26 (CONST-PUSH) */,
1564     SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1565     0x00000006    /*  28 (CONST-PUSH) */,
1566     SCM_WORD(SCM_UNDEFINED) /* arg */,
1567     0x00000049    /*  30 (LREF1-PUSH) */,
1568     0x0000305f    /*  31 (GREF-CALL 3) */,
1569     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5171b7a0> */,
1570     0x0000100e    /*  33 (PRE-CALL 1) */,
1571     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 38),
1572     0x00000049    /*  35 (LREF1-PUSH) */,
1573     0x0000105f    /*  36 (GREF-CALL 1) */,
1574     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#exact?.5171b240> */,
1575     0x0000001e    /*  38 (BF) */,
1576     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 42),
1577     0x00000013    /*  40 (JUMP) */,
1578     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 51),
1579     0x0000300e    /*  42 (PRE-CALL 3) */,
1580     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 51),
1581     0x00000006    /*  44 (CONST-PUSH) */,
1582     SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1583     0x00000006    /*  46 (CONST-PUSH) */,
1584     SCM_WORD(SCM_UNDEFINED) /* arg */,
1585     0x00000049    /*  48 (LREF1-PUSH) */,
1586     0x0000305f    /*  49 (GREF-CALL 3) */,
1587     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5171b360> */,
1588     0x0000100e    /*  51 (PRE-CALL 1) */,
1589     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 56),
1590     0x00000048    /*  53 (LREF0-PUSH) */,
1591     0x0000105f    /*  54 (GREF-CALL 1) */,
1592     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.5171fe20> */,
1593     0x0000001e    /*  56 (BF) */,
1594     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 60),
1595     0x00000013    /*  58 (JUMP) */,
1596     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 69),
1597     0x0000300e    /*  60 (PRE-CALL 3) */,
1598     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 69),
1599     0x00000006    /*  62 (CONST-PUSH) */,
1600     SCM_WORD(SCM_OBJ(&scm__sc.d1561[104])) /* "bad type of argument for ~s: ~s" */,
1601     0x00000006    /*  64 (CONST-PUSH) */,
1602     SCM_WORD(SCM_UNDEFINED) /* arg */,
1603     0x00000048    /*  66 (LREF0-PUSH) */,
1604     0x0000305f    /*  67 (GREF-CALL 3) */,
1605     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche#errorf.5171ffe0> */,
1606     0x0000100e    /*  69 (PRE-CALL 1) */,
1607     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 74),
1608     0x0000004a    /*  71 (LREF2-PUSH) */,
1609     0x0000105f    /*  72 (GREF-CALL 1) */,
1610     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-size.5171fc00> */,
1611     0x0000200f    /*  74 (PUSH-PRE-CALL 2) */,
1612     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 82),
1613     0x00000006    /*  76 (CONST-PUSH) */,
1614     SCM_WORD(SCM_UNDEFINED) /* :private? */,
1615     0x00000006    /*  78 (CONST-PUSH) */,
1616     SCM_WORD(SCM_TRUE) /* #t */,
1617     0x0000205f    /*  80 (GREF-CALL 2) */,
1618     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.5171fb80> */,
1619     0x00002018    /*  82 (PUSH-LOCAL-ENV 2) */,
1620     0x00000002    /*  83 (CONSTI 0) */,
1621     0x00401029    /*  84 (LREF-VAL0-BNLT 1 1) */,
1622     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 95),
1623     0x0000200e    /*  86 (PRE-CALL 2) */,
1624     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102),
1625     0x00000006    /*  88 (CONST-PUSH) */,
1626     SCM_WORD(SCM_OBJ(&scm__sc.d1561[113])) /* "string index out of range:" */,
1627     0x0000004d    /*  90 (LREF11-PUSH) */,
1628     0x0000205f    /*  91 (GREF-CALL 2) */,
1629     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.5171f860> */,
1630     0x00000013    /*  93 (JUMP) */,
1631     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102),
1632     0x00000042    /*  95 (LREF11) */,
1633     0x0040002a    /*  96 (LREF-VAL0-BNLE 0 1) */,
1634     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102),
1635     0x00000013    /*  98 (JUMP) */,
1636     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 86),
1637     0x00000013    /* 100 (JUMP) */,
1638     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 102),
1639     0x0000200e    /* 102 (PRE-CALL 2) */,
1640     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 115),
1641     0x0000300e    /* 104 (PRE-CALL 3) */,
1642     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 111),
1643     0x0000004e    /* 106 (LREF12-PUSH) */,
1644     0x00000007    /* 107 (CONSTI-PUSH 0) */,
1645     0x0000004d    /* 108 (LREF11-PUSH) */,
1646     0x0000305f    /* 109 (GREF-CALL 3) */,
1647     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-substring.5171f700> */,
1648     0x0000000d    /* 111 (PUSH) */,
1649     0x00000048    /* 112 (LREF0-PUSH) */,
1650     0x0000205f    /* 113 (GREF-CALL 2) */,
1651     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.5171f7e0> */,
1652     0x0000200e    /* 115 (PRE-CALL 2) */,
1653     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 121),
1654     0x0000004c    /* 117 (LREF10-PUSH) */,
1655     0x00000048    /* 118 (LREF0-PUSH) */,
1656     0x0000205f    /* 119 (GREF-CALL 2) */,
1657     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write-byte.5171f640> */,
1658     0x0000200e    /* 121 (PRE-CALL 2) */,
1659     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 134),
1660     0x0000300e    /* 123 (PRE-CALL 3) */,
1661     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 130),
1662     0x0000004e    /* 125 (LREF12-PUSH) */,
1663     0x000010cc    /* 126 (LREF11-NUMADDI-PUSH 1) */,
1664     0x00000049    /* 127 (LREF1-PUSH) */,
1665     0x0000305f    /* 128 (GREF-CALL 3) */,
1666     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#byte-substring.5171f500> */,
1667     0x0000000d    /* 130 (PUSH) */,
1668     0x00000048    /* 131 (LREF0-PUSH) */,
1669     0x0000205f    /* 132 (GREF-CALL 2) */,
1670     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.5171f5a0> */,
1671     0x0000004e    /* 134 (LREF12-PUSH) */,
1672     0x0000100e    /* 135 (PRE-CALL 1) */,
1673     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]) + 140),
1674     0x00000048    /* 137 (LREF0-PUSH) */,
1675     0x0000105f    /* 138 (GREF-CALL 1) */,
1676     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-byte-string.5171f2e0> */,
1677     0x00002063    /* 140 (PUSH-GREF-TAIL-CALL 2) */,
1678     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-replace-body!.5171f360> */,
1679     0x00000014    /* 142 (RET) */,
1680     /* %toplevel */
1681     0x0000005e    /*   0 (GREF-PUSH) */,
1682     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-byte-ref.512f7500> */,
1683     0x0000005e    /*   2 (GREF-PUSH) */,
1684     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-byte-set!.512f74c0> */,
1685     0x0000005d    /*   4 (GREF) */,
1686     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#setter.512f7540> */,
1687     0x000000a1    /*   6 (SETTER) */,
1688     0x00002012    /*   7 (TAIL-CALL 2) */,
1689     0x00000014    /*   8 (RET) */,
1690     /* string-fill! */
1691     0x0000003d    /*   0 (LREF0) */,
1692     0x00000022    /*   1 (BNNULL) */,
1693     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 6),
1694     0x00000002    /*   3 (CONSTI 0) */,
1695     0x00000013    /*   4 (JUMP) */,
1696     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 7),
1697     0x0000006a    /*   6 (LREF0-CAR) */,
1698     0x0000000d    /*   7 (PUSH) */,
1699     0x0000003d    /*   8 (LREF0) */,
1700     0x00000022    /*   9 (BNNULL) */,
1701     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 14),
1702     0x00000003    /*  11 (CONSTN) */,
1703     0x00000013    /*  12 (JUMP) */,
1704     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 15),
1705     0x00000076    /*  14 (LREF0-CDR) */,
1706     0x00002018    /*  15 (PUSH-LOCAL-ENV 2) */,
1707     0x0000003d    /*  16 (LREF0) */,
1708     0x00000022    /*  17 (BNNULL) */,
1709     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 26),
1710     0x0000100e    /*  19 (PRE-CALL 1) */,
1711     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 27),
1712     0x0000004e    /*  21 (LREF12-PUSH) */,
1713     0x0000105f    /*  22 (GREF-CALL 1) */,
1714     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-length.513e5680> */,
1715     0x00000013    /*  24 (JUMP) */,
1716     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 27),
1717     0x0000006a    /*  26 (LREF0-CAR) */,
1718     0x0000000d    /*  27 (PUSH) */,
1719     0x0000003d    /*  28 (LREF0) */,
1720     0x00000022    /*  29 (BNNULL) */,
1721     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 34),
1722     0x00000003    /*  31 (CONSTN) */,
1723     0x00000013    /*  32 (JUMP) */,
1724     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 35),
1725     0x00000076    /*  34 (LREF0-CDR) */,
1726     0x00002018    /*  35 (PUSH-LOCAL-ENV 2) */,
1727     0x0000003d    /*  36 (LREF0) */,
1728     0x00000022    /*  37 (BNNULL) */,
1729     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 41),
1730     0x00000013    /*  39 (JUMP) */,
1731     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 49),
1732     0x0000200e    /*  41 (PRE-CALL 2) */,
1733     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 49),
1734     0x00000006    /*  43 (CONST-PUSH) */,
1735     SCM_WORD(SCM_OBJ(&scm__sc.d1561[61])) /* "too many arguments for" */,
1736     0x00000006    /*  45 (CONST-PUSH) */,
1737     SCM_WORD(SCM_OBJ(&scm__rc.d1563[407])) /* (lambda (str c :optional (start 0) (end (string-length str))) (let ((start (string-index->cursor str start)) (end (string-index->cursor str end)) (istart (string-cursor->index str start)) (iend (string-cursor->index str end)) (len (string-length str))) (when (< iend istart) (errorf "end index ~s is smaller than start index ~s" iend istart)) (if (and (= istart 0) (= iend len)) (%string-replace-body! str (make-string len c)) (%string-replace-body! str (string-append (substring str 0 start) (make-string (- iend istart) c) (string-copy str end)))))) */,
1738     0x0000205f    /*  47 (GREF-CALL 2) */,
1739     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.513e53e0> */,
1740     0x0000200e    /*  49 (PRE-CALL 2) */,
1741     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 55),
1742     0x00802047    /*  51 (LREF-PUSH 2 2) */,
1743     0x0000004d    /*  52 (LREF11-PUSH) */,
1744     0x0000205f    /*  53 (GREF-CALL 2) */,
1745     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-index->cursor.513fc080> */,
1746     0x0000200f    /*  55 (PUSH-PRE-CALL 2) */,
1747     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 61),
1748     0x00802047    /*  57 (LREF-PUSH 2 2) */,
1749     0x00000049    /*  58 (LREF1-PUSH) */,
1750     0x0000205f    /*  59 (GREF-CALL 2) */,
1751     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-index->cursor.513fc000> */,
1752     0x0000200f    /*  61 (PUSH-PRE-CALL 2) */,
1753     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 67),
1754     0x00802047    /*  63 (LREF-PUSH 2 2) */,
1755     0x0000004d    /*  64 (LREF11-PUSH) */,
1756     0x0000205f    /*  65 (GREF-CALL 2) */,
1757     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor->index.513fef60> */,
1758     0x0000200f    /*  67 (PUSH-PRE-CALL 2) */,
1759     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 73),
1760     0x00802047    /*  69 (LREF-PUSH 2 2) */,
1761     0x00000049    /*  70 (LREF1-PUSH) */,
1762     0x0000205f    /*  71 (GREF-CALL 2) */,
1763     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor->index.513feec0> */,
1764     0x0000100f    /*  73 (PUSH-PRE-CALL 1) */,
1765     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 78),
1766     0x00802047    /*  75 (LREF-PUSH 2 2) */,
1767     0x0000105f    /*  76 (GREF-CALL 1) */,
1768     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-length.513fee00> */,
1769     0x00005018    /*  78 (PUSH-LOCAL-ENV 5) */,
1770     0x0000003f    /*  79 (LREF2) */,
1771     0x00400029    /*  80 (LREF-VAL0-BNLT 0 1) */,
1772     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 92),
1773     0x0000300e    /*  82 (PRE-CALL 3) */,
1774     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 92),
1775     0x00000006    /*  84 (CONST-PUSH) */,
1776     SCM_WORD(SCM_OBJ(&scm__sc.d1561[127])) /* "end index ~s is smaller than start index ~s" */,
1777     0x00000049    /*  86 (LREF1-PUSH) */,
1778     0x0000004a    /*  87 (LREF2-PUSH) */,
1779     0x0000305f    /*  88 (GREF-CALL 3) */,
1780     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#errorf.513fed00> */,
1781     0x00000013    /*  90 (JUMP) */,
1782     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 92),
1783     0x0000003f    /*  92 (LREF2) */,
1784     0x0000002d    /*  93 (BNUMNEI 0) */,
1785     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 108),
1786     0x0000003d    /*  95 (LREF0) */,
1787     0x00400028    /*  96 (LREF-VAL0-BNUMNE 0 1) */,
1788     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 108),
1789     0x00803047    /*  98 (LREF-PUSH 3 2) */,
1790     0x0000200e    /*  99 (PRE-CALL 2) */,
1791     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 105),
1792     0x00000048    /* 101 (LREF0-PUSH) */,
1793     0x00403047    /* 102 (LREF-PUSH 3 1) */,
1794     0x0000205f    /* 103 (GREF-CALL 2) */,
1795     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-string.513fea40> */,
1796     0x00002063    /* 105 (PUSH-GREF-TAIL-CALL 2) */,
1797     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-replace-body!.513feac0> */,
1798     0x00000014    /* 107 (RET) */,
1799     0x00803047    /* 108 (LREF-PUSH 3 2) */,
1800     0x0000300e    /* 109 (PRE-CALL 3) */,
1801     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 135),
1802     0x0000300e    /* 111 (PRE-CALL 3) */,
1803     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 118),
1804     0x00803047    /* 113 (LREF-PUSH 3 2) */,
1805     0x00000007    /* 114 (CONSTI-PUSH 0) */,
1806     0x01000047    /* 115 (LREF-PUSH 0 4) */,
1807     0x0000305f    /* 116 (GREF-CALL 3) */,
1808     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#substring.513fe8e0> */,
1809     0x0000200f    /* 118 (PUSH-PRE-CALL 2) */,
1810     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 127),
1811     0x00000049    /* 120 (LREF1-PUSH) */,
1812     0x0000003f    /* 121 (LREF2) */,
1813     0x000000b3    /* 122 (NUMSUB2) */,
1814     0x0000000d    /* 123 (PUSH) */,
1815     0x00403047    /* 124 (LREF-PUSH 3 1) */,
1816     0x0000205f    /* 125 (GREF-CALL 2) */,
1817     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-string.513fe840> */,
1818     0x0000200f    /* 127 (PUSH-PRE-CALL 2) */,
1819     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 133),
1820     0x00803047    /* 129 (LREF-PUSH 3 2) */,
1821     0x0000004b    /* 130 (LREF3-PUSH) */,
1822     0x0000205f    /* 131 (GREF-CALL 2) */,
1823     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-copy.513fe720> */,
1824     0x00003062    /* 133 (PUSH-GREF-CALL 3) */,
1825     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-append.513fe920> */,
1826     0x00002063    /* 135 (PUSH-GREF-TAIL-CALL 2) */,
1827     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-replace-body!.513fe980> */,
1828     0x00000014    /* 137 (RET) */,
1829     0x00000013    /* 138 (JUMP) */,
1830     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]) + 108),
1831     0x00000014    /* 140 (RET) */,
1832     /* (%string-map-dispatch G1591) */
1833     0x0000003d    /*   0 (LREF0) */,
1834     0x0000009b    /*   1 (STRINGP) */,
1835     0x00000092    /*   2 (NOT) */,
1836     0x00000014    /*   3 (RET) */,
1837     /* %string-map-dispatch */
1838     0x0000003f    /*   0 (LREF2) */,
1839     0x00000022    /*   1 (BNNULL) */,
1840     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 8),
1841     0x01000047    /*   3 (LREF-PUSH 0 4) */,
1842     0x0000004b    /*   4 (LREF3-PUSH) */,
1843     0x0000003e    /*   5 (LREF1) */,
1844     0x00002012    /*   6 (TAIL-CALL 2) */,
1845     0x00000014    /*   7 (RET) */,
1846     0x0000100e    /*   8 (PRE-CALL 1) */,
1847     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 13),
1848     0x0000006c    /*  10 (LREF2-CAR) */,
1849     0x00001062    /*  11 (PUSH-GREF-CALL 1) */,
1850     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.51183d20> */,
1851     0x0000001e    /*  13 (BF) */,
1852     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 78),
1853     0x00000078    /*  15 (LREF2-CDR) */,
1854     0x00000022    /*  16 (BNNULL) */,
1855     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 31),
1856     0x01000047    /*  18 (LREF-PUSH 0 4) */,
1857     0x0000300e    /*  19 (PRE-CALL 3) */,
1858     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 27),
1859     0x0000004b    /*  21 (LREF3-PUSH) */,
1860     0x0000006c    /*  22 (LREF2-CAR) */,
1861     0x0000000d    /*  23 (PUSH) */,
1862     0x00000005    /*  24 (CONSTU) */,
1863     0x00003062    /*  25 (PUSH-GREF-CALL 3) */,
1864     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%maybe-substring.51183b00> */,
1865     0x0000000d    /*  27 (PUSH) */,
1866     0x0000003e    /*  28 (LREF1) */,
1867     0x00002012    /*  29 (TAIL-CALL 2) */,
1868     0x00000014    /*  30 (RET) */,
1869     0x0000100e    /*  31 (PRE-CALL 1) */,
1870     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 37),
1871     0x0000003f    /*  33 (LREF2) */,
1872     0x00000083    /*  34 (CADR-PUSH) */,
1873     0x0000105f    /*  35 (GREF-CALL 1) */,
1874     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.511839e0> */,
1875     0x0000001e    /*  37 (BF) */,
1876     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 63),
1877     0x0000003f    /*  39 (LREF2) */,
1878     0x00000086    /*  40 (CDDR) */,
1879     0x00000022    /*  41 (BNNULL) */,
1880     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 57),
1881     0x01000047    /*  43 (LREF-PUSH 0 4) */,
1882     0x0000300e    /*  44 (PRE-CALL 3) */,
1883     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 53),
1884     0x0000004b    /*  46 (LREF3-PUSH) */,
1885     0x0000006c    /*  47 (LREF2-CAR) */,
1886     0x0000000d    /*  48 (PUSH) */,
1887     0x0000003f    /*  49 (LREF2) */,
1888     0x00000083    /*  50 (CADR-PUSH) */,
1889     0x0000305f    /*  51 (GREF-CALL 3) */,
1890     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%maybe-substring.511837a0> */,
1891     0x0000000d    /*  53 (PUSH) */,
1892     0x0000003e    /*  54 (LREF1) */,
1893     0x00002012    /*  55 (TAIL-CALL 2) */,
1894     0x00000014    /*  56 (RET) */,
1895     0x00000006    /*  57 (CONST-PUSH) */,
1896     SCM_WORD(SCM_OBJ(&scm__sc.d1561[147])) /* "Too many arguments for srfi-13 style ~a" */,
1897     0x01400047    /*  59 (LREF-PUSH 0 5) */,
1898     0x00002060    /*  60 (GREF-TAIL-CALL 2) */,
1899     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#errorf.511835e0> */,
1900     0x00000014    /*  62 (RET) */,
1901     0x0000100e    /*  63 (PRE-CALL 1) */,
1902     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 69),
1903     0x0000003f    /*  65 (LREF2) */,
1904     0x00000083    /*  66 (CADR-PUSH) */,
1905     0x0000105f    /*  67 (GREF-CALL 1) */,
1906     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor?.51183960> */,
1907     0x0000001f    /*  69 (BT) */,
1908     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 39),
1909     0x00000006    /*  71 (CONST-PUSH) */,
1910     SCM_WORD(SCM_OBJ(&scm__sc.d1561[149])) /* "Integer or string-cursor expected, but got:" */,
1911     0x0000003f    /*  73 (LREF2) */,
1912     0x00000083    /*  74 (CADR-PUSH) */,
1913     0x00002060    /*  75 (GREF-TAIL-CALL 2) */,
1914     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51183560> */,
1915     0x00000014    /*  77 (RET) */,
1916     0x0000100e    /*  78 (PRE-CALL 1) */,
1917     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 83),
1918     0x0000006c    /*  80 (LREF2-CAR) */,
1919     0x00001062    /*  81 (PUSH-GREF-CALL 1) */,
1920     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor?.51183ca0> */,
1921     0x0000001f    /*  83 (BT) */,
1922     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 15),
1923     0x0000006c    /*  85 (LREF2-CAR) */,
1924     0x0000009b    /*  86 (STRINGP) */,
1925     0x0000001e    /*  87 (BF) */,
1926     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 111),
1927     0x0000200e    /*  89 (PRE-CALL 2) */,
1928     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 95),
1929     0x0000004c    /*  91 (LREF10-PUSH) */,
1930     0x00000078    /*  92 (LREF2-CDR) */,
1931     0x00002062    /*  93 (PUSH-GREF-CALL 2) */,
1932     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#find.51183340> */,
1933     0x00001018    /*  95 (PUSH-LOCAL-ENV 1) */,
1934     0x0000003d    /*  96 (LREF0) */,
1935     0x0000001e    /*  97 (BF) */,
1936     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]) + 105),
1937     0x00000006    /*  99 (CONST-PUSH) */,
1938     SCM_WORD(SCM_OBJ(&scm__sc.d1561[151])) /* "string expected, but got:" */,
1939     0x00000048    /* 101 (LREF0-PUSH) */,
1940     0x00002060    /* 102 (GREF-TAIL-CALL 2) */,
1941     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51183160> */,
1942     0x00000014    /* 104 (RET) */,
1943     0x0000004c    /* 105 (LREF10-PUSH) */,
1944     0x01001047    /* 106 (LREF-PUSH 1 4) */,
1945     0x00c01047    /* 107 (LREF-PUSH 1 3) */,
1946     0x00000043    /* 108 (LREF12) */,
1947     0x00004095    /* 109 (TAIL-APPLY 4) */,
1948     0x00000014    /* 110 (RET) */,
1949     0x00000006    /* 111 (CONST-PUSH) */,
1950     SCM_WORD(SCM_OBJ(&scm__sc.d1561[151])) /* "string expected, but got:" */,
1951     0x0000006c    /* 113 (LREF2-CAR) */,
1952     0x00002063    /* 114 (PUSH-GREF-TAIL-CALL 2) */,
1953     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.51183000> */,
1954     0x00000014    /* 116 (RET) */,
1955     /* %toplevel */
1956     0x00001019    /*   0 (LOCAL-ENV-CLOSURES 1) */,
1957     SCM_WORD(SCM_OBJ(&scm__rc.d1563[531])) /* (#<compiled-code (%string-map-dispatch #:G1591)@0x7fa7518ac3c0>) */,
1958     0x00000016    /*   2 (CLOSURE) */,
1959     SCM_WORD(SCM_OBJ(&scm__rc.d1565[19])) /* #<compiled-code %string-map-dispatch@0x7fa7518ac360> */,
1960     0x00000015    /*   4 (DEFINE 0) */,
1961     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%string-map-dispatch.5117b4c0> */,
1962     0x00000014    /*   6 (RET) */,
1963     /* (string-map string-map-1) */
1964     0x0000100e    /*   0 (PRE-CALL 1) */,
1965     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 5),
1966     0x00000048    /*   2 (LREF0-PUSH) */,
1967     0x0000105f    /*   3 (GREF-CALL 1) */,
1968     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.50909460> */,
1969     0x00001018    /*   5 (PUSH-LOCAL-ENV 1) */,
1970     0x0000100e    /*   6 (PRE-CALL 1) */,
1971     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 11),
1972     0x0000004c    /*   8 (LREF10-PUSH) */,
1973     0x0000105f    /*   9 (GREF-CALL 1) */,
1974     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.50910fa0> */,
1975     0x0000000d    /*  11 (PUSH) */,
1976     0x00000008    /*  12 (CONSTN-PUSH) */,
1977     0x00002017    /*  13 (LOCAL-ENV 2) */,
1978     0x0000200e    /*  14 (PRE-CALL 2) */,
1979     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 20),
1980     0x00000049    /*  16 (LREF1-PUSH) */,
1981     0x0000004c    /*  17 (LREF10-PUSH) */,
1982     0x0000205f    /*  18 (GREF-CALL 2) */,
1983     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.50909380> */,
1984     0x0000001e    /*  20 (BF) */,
1985     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 26),
1986     0x00000048    /*  22 (LREF0-PUSH) */,
1987     0x00001060    /*  23 (GREF-TAIL-CALL 1) */,
1988     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#list->string.50909300> */,
1989     0x00000014    /*  25 (RET) */,
1990     0x0000200e    /*  26 (PRE-CALL 2) */,
1991     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 32),
1992     0x0000004f    /*  28 (LREF20-PUSH) */,
1993     0x00000049    /*  29 (LREF1-PUSH) */,
1994     0x0000205f    /*  30 (GREF-CALL 2) */,
1995     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-prev.50909160> */,
1996     0x00001018    /*  32 (PUSH-LOCAL-ENV 1) */,
1997     0x00000048    /*  33 (LREF0-PUSH) */,
1998     0x0000100e    /*  34 (PRE-CALL 1) */,
1999     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 45),
2000     0x0000200e    /*  36 (PRE-CALL 2) */,
2001     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 42),
2002     0x00000051    /*  38 (LREF30-PUSH) */,
2003     0x00000048    /*  39 (LREF0-PUSH) */,
2004     0x0000205f    /*  40 (GREF-CALL 2) */,
2005     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.50909060> */,
2006     0x0000000d    /*  42 (PUSH) */,
2007     0x0040303c    /*  43 (LREF 3 1) */,
2008     0x00001011    /*  44 (CALL 1) */,
2009     0x0000000d    /*  45 (PUSH) */,
2010     0x00000041    /*  46 (LREF10) */,
2011     0x00000067    /*  47 (CONS-PUSH) */,
2012     0x0000201b    /*  48 (LOCAL-ENV-JUMP 2) */,
2013     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]) + 14),
2014     0x00000014    /*  50 (RET) */,
2015     0x00000014    /*  51 (RET) */,
2016     /* (string-map string-map-n) */
2017     0x0000200e    /*   0 (PRE-CALL 2) */,
2018     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 7),
2019     0x0000005e    /*   2 (GREF-PUSH) */,
2020     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.50910ce0> */,
2021     0x00000048    /*   4 (LREF0-PUSH) */,
2022     0x0000205f    /*   5 (GREF-CALL 2) */,
2023     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.50910d20> */,
2024     0x00001018    /*   7 (PUSH-LOCAL-ENV 1) */,
2025     0x0000200e    /*   8 (PRE-CALL 2) */,
2026     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 15),
2027     0x0000005e    /*  10 (GREF-PUSH) */,
2028     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.509107e0> */,
2029     0x0000004c    /*  12 (LREF10-PUSH) */,
2030     0x0000205f    /*  13 (GREF-CALL 2) */,
2031     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.50910820> */,
2032     0x0000000d    /*  15 (PUSH) */,
2033     0x00000008    /*  16 (CONSTN-PUSH) */,
2034     0x00002017    /*  17 (LOCAL-ENV 2) */,
2035     0x0000300e    /*  18 (PRE-CALL 3) */,
2036     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 26),
2037     0x0000005e    /*  20 (GREF-PUSH) */,
2038     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.50910bc0> */,
2039     0x00000049    /*  22 (LREF1-PUSH) */,
2040     0x0000004c    /*  23 (LREF10-PUSH) */,
2041     0x0000305f    /*  24 (GREF-CALL 3) */,
2042     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#any.50910c00> */,
2043     0x0000001e    /*  26 (BF) */,
2044     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 33),
2045     0x0000003d    /*  28 (LREF0) */,
2046     0x00000093    /*  29 (REVERSE) */,
2047     0x00001063    /*  30 (PUSH-GREF-TAIL-CALL 1) */,
2048     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#list->string.50910b40> */,
2049     0x00000014    /*  32 (RET) */,
2050     0x0000300e    /*  33 (PRE-CALL 3) */,
2051     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 41),
2052     0x0000005e    /*  35 (GREF-PUSH) */,
2053     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.50910a00> */,
2054     0x0000004f    /*  37 (LREF20-PUSH) */,
2055     0x00000049    /*  38 (LREF1-PUSH) */,
2056     0x0000305f    /*  39 (GREF-CALL 3) */,
2057     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.50910aa0> */,
2058     0x0000000f    /*  41 (PUSH-PRE-CALL 0) */,
2059     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 53),
2060     0x00000050    /*  43 (LREF21-PUSH) */,
2061     0x0000300e    /*  44 (PRE-CALL 3) */,
2062     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 52),
2063     0x0000005e    /*  46 (GREF-PUSH) */,
2064     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.509108e0> */,
2065     0x0000004f    /*  48 (LREF20-PUSH) */,
2066     0x00000049    /*  49 (LREF1-PUSH) */,
2067     0x0000305f    /*  50 (GREF-CALL 3) */,
2068     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.50910920> */,
2069     0x00002095    /*  52 (TAIL-APPLY 2) */,
2070     0x0000000d    /*  53 (PUSH) */,
2071     0x0000003d    /*  54 (LREF0) */,
2072     0x00000067    /*  55 (CONS-PUSH) */,
2073     0x0000101b    /*  56 (LOCAL-ENV-JUMP 1) */,
2074     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]) + 18),
2075     0x00000014    /*  58 (RET) */,
2076     0x00000014    /*  59 (RET) */,
2077     /* string-map */
2078     0x00000006    /*   0 (CONST-PUSH) */,
2079     SCM_WORD(SCM_UNDEFINED) /* string-map */,
2080     0x0000004a    /*   2 (LREF2-PUSH) */,
2081     0x00000049    /*   3 (LREF1-PUSH) */,
2082     0x00000048    /*   4 (LREF0-PUSH) */,
2083     0x0000004d    /*   5 (LREF11-PUSH) */,
2084     0x0000004c    /*   6 (LREF10-PUSH) */,
2085     0x00006060    /*   7 (GREF-TAIL-CALL 6) */,
2086     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-map-dispatch.509106e0> */,
2087     0x00000014    /*   9 (RET) */,
2088     /* %toplevel */
2089     0x00002019    /*   0 (LOCAL-ENV-CLOSURES 2) */,
2090     SCM_WORD(SCM_OBJ(&scm__rc.d1563[552])) /* (#<compiled-code (string-map string-map-1)@0x7fa7518b7180> #<compiled-code (string-map string-map-n)@0x7fa7518b7000>) */,
2091     0x00000016    /*   2 (CLOSURE) */,
2092     SCM_WORD(SCM_OBJ(&scm__rc.d1565[23])) /* #<compiled-code string-map@0x7fa7518fcde0> */,
2093     0x00000015    /*   4 (DEFINE 0) */,
2094     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-map.509096a0> */,
2095     0x00000014    /*   6 (RET) */,
2096     /* (string-for-each string-for-each-1) */
2097     0x0000100e    /*   0 (PRE-CALL 1) */,
2098     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 5),
2099     0x00000048    /*   2 (LREF0-PUSH) */,
2100     0x0000105f    /*   3 (GREF-CALL 1) */,
2101     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.52869d80> */,
2102     0x00001018    /*   5 (PUSH-LOCAL-ENV 1) */,
2103     0x0000100e    /*   6 (PRE-CALL 1) */,
2104     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 11),
2105     0x0000004c    /*   8 (LREF10-PUSH) */,
2106     0x0000105f    /*   9 (GREF-CALL 1) */,
2107     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.528694c0> */,
2108     0x00001018    /*  11 (PUSH-LOCAL-ENV 1) */,
2109     0x0000200e    /*  12 (PRE-CALL 2) */,
2110     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 18),
2111     0x00000048    /*  14 (LREF0-PUSH) */,
2112     0x0000004c    /*  15 (LREF10-PUSH) */,
2113     0x0000205f    /*  16 (GREF-CALL 2) */,
2114     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.52869bc0> */,
2115     0x0000001e    /*  18 (BF) */,
2116     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 21),
2117     0x0000000c    /*  20 (CONSTU-RET) */,
2118     0x0000100e    /*  21 (PRE-CALL 1) */,
2119     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 32),
2120     0x0000200e    /*  23 (PRE-CALL 2) */,
2121     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 29),
2122     0x0000004f    /*  25 (LREF20-PUSH) */,
2123     0x00000048    /*  26 (LREF0-PUSH) */,
2124     0x0000205f    /*  27 (GREF-CALL 2) */,
2125     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.52869a00> */,
2126     0x0000000d    /*  29 (PUSH) */,
2127     0x00000045    /*  30 (LREF21) */,
2128     0x00001011    /*  31 (CALL 1) */,
2129     0x0000200e    /*  32 (PRE-CALL 2) */,
2130     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 38),
2131     0x0000004f    /*  34 (LREF20-PUSH) */,
2132     0x00000048    /*  35 (LREF0-PUSH) */,
2133     0x0000205f    /*  36 (GREF-CALL 2) */,
2134     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.52869860> */,
2135     0x0000000d    /*  38 (PUSH) */,
2136     0x0000101b    /*  39 (LOCAL-ENV-JUMP 1) */,
2137     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]) + 12),
2138     0x00000014    /*  41 (RET) */,
2139     0x00000014    /*  42 (RET) */,
2140     /* (string-for-each string-for-each-n) */
2141     0x0000200e    /*   0 (PRE-CALL 2) */,
2142     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 7),
2143     0x0000005e    /*   2 (GREF-PUSH) */,
2144     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-end.5286afe0> */,
2145     0x00000048    /*   4 (LREF0-PUSH) */,
2146     0x0000205f    /*   5 (GREF-CALL 2) */,
2147     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.52869040> */,
2148     0x00001018    /*   7 (PUSH-LOCAL-ENV 1) */,
2149     0x0000200e    /*   8 (PRE-CALL 2) */,
2150     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 15),
2151     0x0000005e    /*  10 (GREF-PUSH) */,
2152     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-start.5286a8a0> */,
2153     0x0000004c    /*  12 (LREF10-PUSH) */,
2154     0x0000205f    /*  13 (GREF-CALL 2) */,
2155     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.5286a8e0> */,
2156     0x00001018    /*  15 (PUSH-LOCAL-ENV 1) */,
2157     0x0000300e    /*  16 (PRE-CALL 3) */,
2158     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 24),
2159     0x0000005e    /*  18 (GREF-PUSH) */,
2160     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor=?.5286aca0> */,
2161     0x00000048    /*  20 (LREF0-PUSH) */,
2162     0x0000004c    /*  21 (LREF10-PUSH) */,
2163     0x0000305f    /*  22 (GREF-CALL 3) */,
2164     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#any.5286ace0> */,
2165     0x0000001e    /*  24 (BF) */,
2166     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 27),
2167     0x0000000c    /*  26 (CONSTU-RET) */,
2168     0x0000000e    /*  27 (PRE-CALL 0) */,
2169     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 39),
2170     0x00000050    /*  29 (LREF21-PUSH) */,
2171     0x0000300e    /*  30 (PRE-CALL 3) */,
2172     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 38),
2173     0x0000005e    /*  32 (GREF-PUSH) */,
2174     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-ref.5286aa80> */,
2175     0x0000004f    /*  34 (LREF20-PUSH) */,
2176     0x00000048    /*  35 (LREF0-PUSH) */,
2177     0x0000305f    /*  36 (GREF-CALL 3) */,
2178     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.5286aac0> */,
2179     0x00002095    /*  38 (TAIL-APPLY 2) */,
2180     0x0000300e    /*  39 (PRE-CALL 3) */,
2181     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 47),
2182     0x0000005e    /*  41 (GREF-PUSH) */,
2183     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-cursor-next.5286a9a0> */,
2184     0x0000004f    /*  43 (LREF20-PUSH) */,
2185     0x00000048    /*  44 (LREF0-PUSH) */,
2186     0x0000305f    /*  45 (GREF-CALL 3) */,
2187     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.5286a9e0> */,
2188     0x0000000d    /*  47 (PUSH) */,
2189     0x0000101b    /*  48 (LOCAL-ENV-JUMP 1) */,
2190     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]) + 16),
2191     0x00000014    /*  50 (RET) */,
2192     0x00000014    /*  51 (RET) */,
2193     /* string-for-each */
2194     0x00000006    /*   0 (CONST-PUSH) */,
2195     SCM_WORD(SCM_UNDEFINED) /* string-for-each */,
2196     0x0000004a    /*   2 (LREF2-PUSH) */,
2197     0x00000049    /*   3 (LREF1-PUSH) */,
2198     0x00000048    /*   4 (LREF0-PUSH) */,
2199     0x0000004d    /*   5 (LREF11-PUSH) */,
2200     0x0000004c    /*   6 (LREF10-PUSH) */,
2201     0x00006060    /*   7 (GREF-TAIL-CALL 6) */,
2202     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-map-dispatch.5286a820> */,
2203     0x00000014    /*   9 (RET) */,
2204     /* %toplevel */
2205     0x00002019    /*   0 (LOCAL-ENV-CLOSURES 2) */,
2206     SCM_WORD(SCM_OBJ(&scm__rc.d1563[567])) /* (#<compiled-code (string-for-each string-for-each-1)@0x7fa7518fcae0> #<compiled-code (string-for-each string-for-each-n)@0x7fa7518fc720>) */,
2207     0x00000016    /*   2 (CLOSURE) */,
2208     SCM_WORD(SCM_OBJ(&scm__rc.d1565[27])) /* #<compiled-code string-for-each@0x7fa7518fc5a0> */,
2209     0x00000015    /*   4 (DEFINE 0) */,
2210     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-for-each.52865620> */,
2211     0x00000014    /*   6 (RET) */,
2212     /* string-incomplete->complete! */
2213     0x0000100e    /*   0 (PRE-CALL 1) */,
2214     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]) + 5),
2215     0x00000048    /*   2 (LREF0-PUSH) */,
2216     0x0000105f    /*   3 (GREF-CALL 1) */,
2217     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-incomplete->complete.51515f40> */,
2218     0x00001018    /*   5 (PUSH-LOCAL-ENV 1) */,
2219     0x0000003d    /*   6 (LREF0) */,
2220     0x00000030    /*   7 (RF) */,
2221     0x0000200e    /*   8 (PRE-CALL 2) */,
2222     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]) + 14),
2223     0x0000004c    /*  10 (LREF10-PUSH) */,
2224     0x00000048    /*  11 (LREF0-PUSH) */,
2225     0x0000205f    /*  12 (GREF-CALL 2) */,
2226     SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%string-replace-body!.51515e60> */,
2227     0x00000053    /*  14 (LREF0-RET) */,
2228     /* (complete-sexp? rec-escaped) */
2229     0x000000db    /*   0 (READ-CHAR 0) */,
2230     0x00001018    /*   1 (PUSH-LOCAL-ENV 1) */,
2231     0x0000003d    /*   2 (LREF0) */,
2232     0x0000009a    /*   3 (EOFP) */,
2233     0x0000001e    /*   4 (BF) */,
2234     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1368]) + 7),
2235     0x0000000b    /*   6 (CONSTF-RET) */,
2236     0x0000004c    /*   7 (LREF10-PUSH) */,
2237     0x0000003d    /*   8 (LREF0) */,
2238     0x00000021    /*   9 (BNEQV) */,
2239     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1368]) + 13),
2240     0x0000000a    /*  11 (CONST-RET) */,
2241     SCM_WORD(SCM_TRUE) /* #t */,
2242     0x0000003d    /*  13 (LREF0) */,
2243     0x0000002f    /*  14 (BNEQVC) */,
2244     SCM_WORD(SCM_MAKE_CHAR(92)) /* #\\ */,
2245     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1368]) + 22)  /*     22 */,
2246     0x000000db    /*  17 (READ-CHAR 0) */,
2247     0x0000004c    /*  18 (LREF10-PUSH) */,
2248     0x0080203c    /*  19 (LREF 2 2) */,
2249     0x0000101d    /*  20 (LOCAL-ENV-TAIL-CALL 1) */,
2250     0x00000014    /*  21 (RET) */,
2251     0x0000004c    /*  22 (LREF10-PUSH) */,
2252     0x0080203c    /*  23 (LREF 2 2) */,
2253     0x0000101d    /*  24 (LOCAL-ENV-TAIL-CALL 1) */,
2254     0x00000014    /*  25 (RET) */,
2255     /* (complete-sexp? skip-token) */
2256     0x000000dc    /*   0 (PEEK-CHAR 0) */,
2257     0x00001018    /*   1 (PUSH-LOCAL-ENV 1) */,
2258     0x0000003d    /*   2 (LREF0) */,
2259     0x0000009a    /*   3 (EOFP) */,
2260     0x0000001e    /*   4 (BF) */,
2261     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 7),
2262     0x0000000c    /*   6 (CONSTU-RET) */,
2263     0x0000200e    /*   7 (PRE-CALL 2) */,
2264     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 14),
2265     0x00000006    /*   9 (CONST-PUSH) */,
2266     SCM_WORD(SCM_UNDEFINED) /* #[\u0000- "'-),;\[-\]`{-}\u007f] */,
2267     0x00000048    /*  11 (LREF0-PUSH) */,
2268     0x0000205f    /*  12 (GREF-CALL 2) */,
2269     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set-contains?.5125eae0> */,
2270     0x0000001e    /*  14 (BF) */,
2271     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 17),
2272     0x0000000c    /*  16 (CONSTU-RET) */,
2273     0x000000db    /*  17 (READ-CHAR 0) */,
2274     0x000000dc    /*  18 (PEEK-CHAR 0) */,
2275     0x0000000d    /*  19 (PUSH) */,
2276     0x0000101b    /*  20 (LOCAL-ENV-JUMP 1) */,
2277     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]) + 2),
2278     0x00000014    /*  22 (RET) */,
2279     0x00000014    /*  23 (RET) */,
2280     /* ((complete-sexp? G1597) rec) */
2281     0x000000db    /*   0 (READ-CHAR 0) */,
2282     0x00001018    /*   1 (PUSH-LOCAL-ENV 1) */,
2283     0x0000003d    /*   2 (LREF0) */,
2284     0x0000009a    /*   3 (EOFP) */,
2285     0x0000001e    /*   4 (BF) */,
2286     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 12),
2287     0x00000041    /*   6 (LREF10) */,
2288     0x0000001e    /*   7 (BF) */,
2289     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 10),
2290     0x0000000b    /*   9 (CONSTF-RET) */,
2291     0x0000000a    /*  10 (CONST-RET) */,
2292     SCM_WORD(SCM_TRUE) /* #t */,
2293     0x0000004c    /*  12 (LREF10-PUSH) */,
2294     0x0000003d    /*  13 (LREF0) */,
2295     0x00000021    /*  14 (BNEQV) */,
2296     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 18),
2297     0x0000000a    /*  16 (CONST-RET) */,
2298     SCM_WORD(SCM_TRUE) /* #t */,
2299     0x0000003d    /*  18 (LREF0) */,
2300     0x0000002f    /*  19 (BNEQVC) */,
2301     SCM_WORD(SCM_MAKE_CHAR(40)) /* #\( */,
2302     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 33)  /*     33 */,
2303     0x0000100e    /*  22 (PRE-CALL 1) */,
2304     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 28),
2305     0x00000006    /*  24 (CONST-PUSH) */,
2306     SCM_WORD(SCM_MAKE_CHAR(41)) /* #\) */,
2307     0x0080203c    /*  26 (LREF 2 2) */,
2308     0x0000101c    /*  27 (LOCAL-ENV-CALL 1) */,
2309     0x00000030    /*  28 (RF) */,
2310     0x0000004c    /*  29 (LREF10-PUSH) */,
2311     0x0080203c    /*  30 (LREF 2 2) */,
2312     0x0000101d    /*  31 (LOCAL-ENV-TAIL-CALL 1) */,
2313     0x00000014    /*  32 (RET) */,
2314     0x0000003d    /*  33 (LREF0) */,
2315     0x0000002f    /*  34 (BNEQVC) */,
2316     SCM_WORD(SCM_MAKE_CHAR(91)) /* #\[ */,
2317     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 48)  /*     48 */,
2318     0x0000100e    /*  37 (PRE-CALL 1) */,
2319     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 43),
2320     0x00000006    /*  39 (CONST-PUSH) */,
2321     SCM_WORD(SCM_MAKE_CHAR(93)) /* #\] */,
2322     0x0080203c    /*  41 (LREF 2 2) */,
2323     0x0000101c    /*  42 (LOCAL-ENV-CALL 1) */,
2324     0x00000030    /*  43 (RF) */,
2325     0x0000004c    /*  44 (LREF10-PUSH) */,
2326     0x0080203c    /*  45 (LREF 2 2) */,
2327     0x0000101d    /*  46 (LOCAL-ENV-TAIL-CALL 1) */,
2328     0x00000014    /*  47 (RET) */,
2329     0x0000003d    /*  48 (LREF0) */,
2330     0x0000002f    /*  49 (BNEQVC) */,
2331     SCM_WORD(SCM_MAKE_CHAR(123)) /* #\{ */,
2332     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 63)  /*     63 */,
2333     0x0000100e    /*  52 (PRE-CALL 1) */,
2334     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 58),
2335     0x00000006    /*  54 (CONST-PUSH) */,
2336     SCM_WORD(SCM_MAKE_CHAR(125)) /* #\} */,
2337     0x0080203c    /*  56 (LREF 2 2) */,
2338     0x0000101c    /*  57 (LOCAL-ENV-CALL 1) */,
2339     0x00000030    /*  58 (RF) */,
2340     0x0000004c    /*  59 (LREF10-PUSH) */,
2341     0x0080203c    /*  60 (LREF 2 2) */,
2342     0x0000101d    /*  61 (LOCAL-ENV-TAIL-CALL 1) */,
2343     0x00000014    /*  62 (RET) */,
2344     0x0000003d    /*  63 (LREF0) */,
2345     0x0000002f    /*  64 (BNEQVC) */,
2346     SCM_WORD(SCM_MAKE_CHAR(34)) /* #\" */,
2347     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 78)  /*     78 */,
2348     0x0000100e    /*  67 (PRE-CALL 1) */,
2349     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 73),
2350     0x00000006    /*  69 (CONST-PUSH) */,
2351     SCM_WORD(SCM_MAKE_CHAR(34)) /* #\" */,
2352     0x0080303c    /*  71 (LREF 3 2) */,
2353     0x0000101c    /*  72 (LOCAL-ENV-CALL 1) */,
2354     0x00000030    /*  73 (RF) */,
2355     0x0000004c    /*  74 (LREF10-PUSH) */,
2356     0x0080203c    /*  75 (LREF 2 2) */,
2357     0x0000101d    /*  76 (LOCAL-ENV-TAIL-CALL 1) */,
2358     0x00000014    /*  77 (RET) */,
2359     0x0000003d    /*  78 (LREF0) */,
2360     0x0000002f    /*  79 (BNEQVC) */,
2361     SCM_WORD(SCM_MAKE_CHAR(124)) /* #\| */,
2362     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 93)  /*     93 */,
2363     0x0000100e    /*  82 (PRE-CALL 1) */,
2364     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 88),
2365     0x00000006    /*  84 (CONST-PUSH) */,
2366     SCM_WORD(SCM_MAKE_CHAR(124)) /* #\| */,
2367     0x0080303c    /*  86 (LREF 3 2) */,
2368     0x0000101c    /*  87 (LOCAL-ENV-CALL 1) */,
2369     0x00000030    /*  88 (RF) */,
2370     0x0000004c    /*  89 (LREF10-PUSH) */,
2371     0x0080203c    /*  90 (LREF 2 2) */,
2372     0x0000101d    /*  91 (LOCAL-ENV-TAIL-CALL 1) */,
2373     0x00000014    /*  92 (RET) */,
2374     0x0000003d    /*  93 (LREF0) */,
2375     0x0000002f    /*  94 (BNEQVC) */,
2376     SCM_WORD(SCM_MAKE_CHAR(59)) /* #\; */,
2377     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 120)  /*    120 */,
2378     0x0000100e    /*  97 (PRE-CALL 1) */,
2379     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 116),
2380     0x000000db    /*  99 (READ-CHAR 0) */,
2381     0x00001018    /* 100 (PUSH-LOCAL-ENV 1) */,
2382     0x0000003d    /* 101 (LREF0) */,
2383     0x0000009a    /* 102 (EOFP) */,
2384     0x0000001e    /* 103 (BF) */,
2385     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 106),
2386     0x0000000c    /* 105 (CONSTU-RET) */,
2387     0x0000003d    /* 106 (LREF0) */,
2388     0x0000002f    /* 107 (BNEQVC) */,
2389     SCM_WORD(SCM_MAKE_CHAR(10)) /* #\newline */,
2390     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 111)  /*    111 */,
2391     0x0000000c    /* 110 (CONSTU-RET) */,
2392     0x000000db    /* 111 (READ-CHAR 0) */,
2393     0x0000000d    /* 112 (PUSH) */,
2394     0x0000101b    /* 113 (LOCAL-ENV-JUMP 1) */,
2395     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 101),
2396     0x00000014    /* 115 (RET) */,
2397     0x0000004c    /* 116 (LREF10-PUSH) */,
2398     0x0080203c    /* 117 (LREF 2 2) */,
2399     0x0000101d    /* 118 (LOCAL-ENV-TAIL-CALL 1) */,
2400     0x00000014    /* 119 (RET) */,
2401     0x0000003d    /* 120 (LREF0) */,
2402     0x0000002f    /* 121 (BNEQVC) */,
2403     SCM_WORD(SCM_MAKE_CHAR(35)) /* #\# */,
2404     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 303)  /*    303 */,
2405     0x000000db    /* 124 (READ-CHAR 0) */,
2406     0x00001018    /* 125 (PUSH-LOCAL-ENV 1) */,
2407     0x0000003d    /* 126 (LREF0) */,
2408     0x0000009a    /* 127 (EOFP) */,
2409     0x0000001e    /* 128 (BF) */,
2410     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 131),
2411     0x0000000b    /* 130 (CONSTF-RET) */,
2412     0x0000003d    /* 131 (LREF0) */,
2413     0x0000002f    /* 132 (BNEQVC) */,
2414     SCM_WORD(SCM_MAKE_CHAR(92)) /* #\\ */,
2415     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 147)  /*    147 */,
2416     0x000000db    /* 135 (READ-CHAR 0) */,
2417     0x0000009a    /* 136 (EOFP) */,
2418     0x00000092    /* 137 (NOT) */,
2419     0x00000030    /* 138 (RF) */,
2420     0x0000000e    /* 139 (PRE-CALL 0) */,
2421     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 143),
2422     0x0040403c    /* 141 (LREF 4 1) */,
2423     0x0000001c    /* 142 (LOCAL-ENV-CALL 0) */,
2424     0x0000004f    /* 143 (LREF20-PUSH) */,
2425     0x0080303c    /* 144 (LREF 3 2) */,
2426     0x0000101d    /* 145 (LOCAL-ENV-TAIL-CALL 1) */,
2427     0x00000014    /* 146 (RET) */,
2428     0x0000003d    /* 147 (LREF0) */,
2429     0x0000002f    /* 148 (BNEQVC) */,
2430     SCM_WORD(SCM_MAKE_CHAR(47)) /* #\/ */,
2431     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 162)  /*    162 */,
2432     0x0000100e    /* 151 (PRE-CALL 1) */,
2433     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 157),
2434     0x00000006    /* 153 (CONST-PUSH) */,
2435     SCM_WORD(SCM_MAKE_CHAR(47)) /* #\/ */,
2436     0x0080403c    /* 155 (LREF 4 2) */,
2437     0x0000101c    /* 156 (LOCAL-ENV-CALL 1) */,
2438     0x00000030    /* 157 (RF) */,
2439     0x0000004f    /* 158 (LREF20-PUSH) */,
2440     0x0080303c    /* 159 (LREF 3 2) */,
2441     0x0000101d    /* 160 (LOCAL-ENV-TAIL-CALL 1) */,
2442     0x00000014    /* 161 (RET) */,
2443     0x0000003d    /* 162 (LREF0) */,
2444     0x0000002f    /* 163 (BNEQVC) */,
2445     SCM_WORD(SCM_MAKE_CHAR(91)) /* #\[ */,
2446     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 177)  /*    177 */,
2447     0x0000100e    /* 166 (PRE-CALL 1) */,
2448     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 172),
2449     0x00000006    /* 168 (CONST-PUSH) */,
2450     SCM_WORD(SCM_MAKE_CHAR(93)) /* #\] */,
2451     0x0080403c    /* 170 (LREF 4 2) */,
2452     0x0000101c    /* 171 (LOCAL-ENV-CALL 1) */,
2453     0x00000030    /* 172 (RF) */,
2454     0x0000004f    /* 173 (LREF20-PUSH) */,
2455     0x0080303c    /* 174 (LREF 3 2) */,
2456     0x0000101d    /* 175 (LOCAL-ENV-TAIL-CALL 1) */,
2457     0x00000014    /* 176 (RET) */,
2458     0x0000003d    /* 177 (LREF0) */,
2459     0x0000002f    /* 178 (BNEQVC) */,
2460     SCM_WORD(SCM_MAKE_CHAR(44)) /* #\, */,
2461     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 264)  /*    264 */,
2462     0x0000100e    /* 181 (PRE-CALL 1) */,
2463     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 205),
2464     0x000000db    /* 183 (READ-CHAR 0) */,
2465     0x00001018    /* 184 (PUSH-LOCAL-ENV 1) */,
2466     0x0000003d    /* 185 (LREF0) */,
2467     0x0000009a    /* 186 (EOFP) */,
2468     0x0000001e    /* 187 (BF) */,
2469     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 190),
2470     0x00000053    /* 189 (LREF0-RET) */,
2471     0x0000200e    /* 190 (PRE-CALL 2) */,
2472     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 197),
2473     0x00000006    /* 192 (CONST-PUSH) */,
2474     SCM_WORD(SCM_UNDEFINED) /* #[\u0000-\u0008\u000e-\u001f!-\u007f\u0080-\U00ffffff] */,
2475     0x00000048    /* 194 (LREF0-PUSH) */,
2476     0x0000205f    /* 195 (GREF-CALL 2) */,
2477     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#char-set-contains?.5125e780> */,
2478     0x0000001e    /* 197 (BF) */,
2479     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 200),
2480     0x00000053    /* 199 (LREF0-RET) */,
2481     0x000000db    /* 200 (READ-CHAR 0) */,
2482     0x0000000d    /* 201 (PUSH) */,
2483     0x0000101b    /* 202 (LOCAL-ENV-JUMP 1) */,
2484     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 185),
2485     0x00000014    /* 204 (RET) */,
2486     0x00001018    /* 205 (PUSH-LOCAL-ENV 1) */,
2487     0x0000003d    /* 206 (LREF0) */,
2488     0x0000009a    /* 207 (EOFP) */,
2489     0x0000001e    /* 208 (BF) */,
2490     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 211),
2491     0x0000000b    /* 210 (CONSTF-RET) */,
2492     0x0000003d    /* 211 (LREF0) */,
2493     0x0000002f    /* 212 (BNEQVC) */,
2494     SCM_WORD(SCM_MAKE_CHAR(40)) /* #\( */,
2495     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 226)  /*    226 */,
2496     0x0000100e    /* 215 (PRE-CALL 1) */,
2497     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 221),
2498     0x00000006    /* 217 (CONST-PUSH) */,
2499     SCM_WORD(SCM_MAKE_CHAR(41)) /* #\) */,
2500     0x0080403c    /* 219 (LREF 4 2) */,
2501     0x0000101c    /* 220 (LOCAL-ENV-CALL 1) */,
2502     0x00000030    /* 221 (RF) */,
2503     0x00000051    /* 222 (LREF30-PUSH) */,
2504     0x0080403c    /* 223 (LREF 4 2) */,
2505     0x0000101d    /* 224 (LOCAL-ENV-TAIL-CALL 1) */,
2506     0x00000014    /* 225 (RET) */,
2507     0x0000003d    /* 226 (LREF0) */,
2508     0x0000002f    /* 227 (BNEQVC) */,
2509     SCM_WORD(SCM_MAKE_CHAR(91)) /* #\[ */,
2510     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 241)  /*    241 */,
2511     0x0000100e    /* 230 (PRE-CALL 1) */,
2512     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 236),
2513     0x00000006    /* 232 (CONST-PUSH) */,
2514     SCM_WORD(SCM_MAKE_CHAR(93)) /* #\] */,
2515     0x0080403c    /* 234 (LREF 4 2) */,
2516     0x0000101c    /* 235 (LOCAL-ENV-CALL 1) */,
2517     0x00000030    /* 236 (RF) */,
2518     0x00000051    /* 237 (LREF30-PUSH) */,
2519     0x0080403c    /* 238 (LREF 4 2) */,
2520     0x0000101d    /* 239 (LOCAL-ENV-TAIL-CALL 1) */,
2521     0x00000014    /* 240 (RET) */,
2522     0x0000003d    /* 241 (LREF0) */,
2523     0x0000002f    /* 242 (BNEQVC) */,
2524     SCM_WORD(SCM_MAKE_CHAR(123)) /* #\{ */,
2525     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 256)  /*    256 */,
2526     0x0000100e    /* 245 (PRE-CALL 1) */,
2527     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 251),
2528     0x00000006    /* 247 (CONST-PUSH) */,
2529     SCM_WORD(SCM_MAKE_CHAR(125)) /* #\} */,
2530     0x0080403c    /* 249 (LREF 4 2) */,
2531     0x0000101c    /* 250 (LOCAL-ENV-CALL 1) */,
2532     0x00000030    /* 251 (RF) */,
2533     0x00000051    /* 252 (LREF30-PUSH) */,
2534     0x0080403c    /* 253 (LREF 4 2) */,
2535     0x0000101d    /* 254 (LOCAL-ENV-TAIL-CALL 1) */,
2536     0x00000014    /* 255 (RET) */,
2537     0x0000000e    /* 256 (PRE-CALL 0) */,
2538     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 260),
2539     0x0040503c    /* 258 (LREF 5 1) */,
2540     0x0000001c    /* 259 (LOCAL-ENV-CALL 0) */,
2541     0x00000051    /* 260 (LREF30-PUSH) */,
2542     0x0080403c    /* 261 (LREF 4 2) */,
2543     0x0000101d    /* 262 (LOCAL-ENV-TAIL-CALL 1) */,
2544     0x00000014    /* 263 (RET) */,
2545     0x0000003d    /* 264 (LREF0) */,
2546     0x0000002f    /* 265 (BNEQVC) */,
2547     SCM_WORD(SCM_MAKE_CHAR(40)) /* #\( */,
2548     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 279)  /*    279 */,
2549     0x0000100e    /* 268 (PRE-CALL 1) */,
2550     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 274),
2551     0x00000006    /* 270 (CONST-PUSH) */,
2552     SCM_WORD(SCM_MAKE_CHAR(41)) /* #\) */,
2553     0x0080303c    /* 272 (LREF 3 2) */,
2554     0x0000101c    /* 273 (LOCAL-ENV-CALL 1) */,
2555     0x00000030    /* 274 (RF) */,
2556     0x0000004f    /* 275 (LREF20-PUSH) */,
2557     0x0080303c    /* 276 (LREF 3 2) */,
2558     0x0000101d    /* 277 (LOCAL-ENV-TAIL-CALL 1) */,
2559     0x00000014    /* 278 (RET) */,
2560     0x0000003d    /* 279 (LREF0) */,
2561     0x0000002f    /* 280 (BNEQVC) */,
2562     SCM_WORD(SCM_MAKE_CHAR(60)) /* #\< */,
2563     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 293)  /*    293 */,
2564     0x00000006    /* 283 (CONST-PUSH) */,
2565     SCM_WORD(SCM_OBJ(&scm__sc.d1561[180])) /* "unreadable sequence #<~a..." */,
2566     0x0000100e    /* 285 (PRE-CALL 1) */,
2567     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 290),
2568     0x0000a007    /* 287 (CONSTI-PUSH 10) */,
2569     0x0000105f    /* 288 (GREF-CALL 1) */,
2570     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#read-block.51255be0> */,
2571     0x00002063    /* 290 (PUSH-GREF-TAIL-CALL 2) */,
2572     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#errorf.51255c40> */,
2573     0x00000014    /* 292 (RET) */,
2574     0x00000048    /* 293 (LREF0-PUSH) */,
2575     0x00000044    /* 294 (LREF20) */,
2576     0x00000021    /* 295 (BNEQV) */,
2577     SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]) + 299),
2578     0x0000000a    /* 297 (CONST-RET) */,
2579     SCM_WORD(SCM_TRUE) /* #t */,
2580     0x0000004f    /* 299 (LREF20-PUSH) */,
2581     0x0080303c    /* 300 (LREF 3 2) */,
2582     0x0000101d    /* 301 (LOCAL-ENV-TAIL-CALL 1) */,
2583     0x00000014    /* 302 (RET) */,
2584     0x0000004c    /* 303 (LREF10-PUSH) */,
2585     0x0080203c    /* 304 (LREF 2 2) */,
2586     0x0000101d    /* 305 (LOCAL-ENV-TAIL-CALL 1) */,
2587     0x00000014    /* 306 (RET) */,
2588     /* (complete-sexp? G1597) */
2589     0x00003019    /*   0 (LOCAL-ENV-CLOSURES 3) */,
2590     SCM_WORD(SCM_OBJ(&scm__rc.d1563[642])) /* (#<compiled-code ((complete-sexp? #:G1597) rec)@0x7fa7518ac600> #<undef> #<undef>) */,
2591     0x00000043    /*   2 (LREF12) */,
2592     0x000010e8    /*   3 (ENV-SET 1) */,
2593     0x00000042    /*   4 (LREF11) */,
2594     0x000000e8    /*   5 (ENV-SET 0) */,
2595     0x00000009    /*   6 (CONSTF-PUSH) */,
2596     0x0000003f    /*   7 (LREF2) */,
2597     0x0000101d    /*   8 (LOCAL-ENV-TAIL-CALL 1) */,
2598     0x00000014    /*   9 (RET) */,
2599     /* complete-sexp? */
2600     0x00000048    /*   0 (LREF0-PUSH) */,
2601     0x0000004c    /*   1 (LREF10-PUSH) */,
2602     0x00002060    /*   2 (GREF-TAIL-CALL 2) */,
2603     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-string.51240320> */,
2604     0x00000014    /*   4 (RET) */,
2605     /* %toplevel */
2606     0x00003019    /*   0 (LOCAL-ENV-CLOSURES 3) */,
2607     SCM_WORD(SCM_OBJ(&scm__rc.d1563[650])) /* (#<compiled-code (complete-sexp? rec-escaped)@0x7fa7518ac9c0> #<compiled-code (complete-sexp? skip-token)@0x7fa7518ac840> #<compiled-code (complete-sexp? #:G1597)@0x7fa7518ac7e0>) */,
2608     0x00000016    /*   2 (CLOSURE) */,
2609     SCM_WORD(SCM_OBJ(&scm__rc.d1565[34])) /* #<compiled-code complete-sexp?@0x7fa751994f00> */,
2610     0x00000015    /*   4 (DEFINE 0) */,
2611     SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#complete-sexp?.51240420> */,
2612     0x00000014    /*   6 (RET) */,
2613   },
2614   {   /* ScmPair d1563 */
2615        { SCM_NIL, SCM_NIL },
2616        { SCM_UNDEFINED, SCM_NIL},
2617        { SCM_MAKE_INT(46U), SCM_NIL},
2618        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[2])},
2619        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[3])},
2620        { SCM_UNDEFINED, SCM_NIL},
2621        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[5])},
2622        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])},
2623        { SCM_OBJ(&scm__rc.d1563[7]), SCM_NIL},
2624        { SCM_OBJ(&scm__rc.d1563[4]), SCM_OBJ(&scm__rc.d1563[8])},
2625        { SCM_MAKE_INT(50U), SCM_NIL},
2626        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[10])},
2627        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[11])},
2628        { SCM_UNDEFINED, SCM_NIL},
2629        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[13])},
2630        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[14])},
2631        { SCM_OBJ(&scm__rc.d1563[15]), SCM_NIL},
2632        { SCM_OBJ(&scm__rc.d1563[12]), SCM_OBJ(&scm__rc.d1563[16])},
2633        { SCM_MAKE_INT(52U), SCM_NIL},
2634        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[18])},
2635        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[19])},
2636        { SCM_UNDEFINED, SCM_NIL},
2637        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[21])},
2638        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[22])},
2639        { SCM_OBJ(&scm__rc.d1563[23]), SCM_NIL},
2640        { SCM_OBJ(&scm__rc.d1563[20]), SCM_OBJ(&scm__rc.d1563[24])},
2641        { SCM_UNDEFINED, SCM_NIL},
2642        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[26])},
2643        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[27])},
2644        { SCM_MAKE_INT(60U), SCM_NIL},
2645        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[29])},
2646        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])},
2647        { SCM_UNDEFINED, SCM_NIL},
2648        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[32])},
2649        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[33])},
2650        { SCM_OBJ(&scm__rc.d1563[34]), SCM_NIL},
2651        { SCM_OBJ(&scm__rc.d1563[31]), SCM_OBJ(&scm__rc.d1563[35])},
2652        { SCM_UNDEFINED, SCM_NIL},
2653        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[37])},
2654        { SCM_MAKE_INT(62U), SCM_NIL},
2655        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[39])},
2656        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[40])},
2657        { SCM_UNDEFINED, SCM_NIL},
2658        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[42])},
2659        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[43])},
2660        { SCM_OBJ(&scm__rc.d1563[44]), SCM_NIL},
2661        { SCM_OBJ(&scm__rc.d1563[41]), SCM_OBJ(&scm__rc.d1563[45])},
2662        { SCM_UNDEFINED, SCM_NIL},
2663        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
2664        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
2665        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[49])},
2666        { SCM_MAKE_INT(63U), SCM_NIL},
2667        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[51])},
2668        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[52])},
2669        { SCM_UNDEFINED, SCM_NIL},
2670        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[54])},
2671        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[55])},
2672        { SCM_OBJ(&scm__rc.d1563[56]), SCM_NIL},
2673        { SCM_OBJ(&scm__rc.d1563[53]), SCM_OBJ(&scm__rc.d1563[57])},
2674        { SCM_UNDEFINED, SCM_NIL},
2675        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[59])},
2676        { SCM_MAKE_INT(66U), SCM_NIL},
2677        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[61])},
2678        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[62])},
2679        { SCM_UNDEFINED, SCM_NIL},
2680        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[64])},
2681        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[65])},
2682        { SCM_OBJ(&scm__rc.d1563[66]), SCM_NIL},
2683        { SCM_OBJ(&scm__rc.d1563[63]), SCM_OBJ(&scm__rc.d1563[67])},
2684        { SCM_MAKE_INT(69U), SCM_NIL},
2685        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[69])},
2686        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[70])},
2687        { SCM_UNDEFINED, SCM_NIL},
2688        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[72])},
2689        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[73])},
2690        { SCM_OBJ(&scm__rc.d1563[74]), SCM_NIL},
2691        { SCM_OBJ(&scm__rc.d1563[71]), SCM_OBJ(&scm__rc.d1563[75])},
2692        { SCM_UNDEFINED, SCM_NIL},
2693        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])},
2694        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[78])},
2695        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[79])},
2696        { SCM_MAKE_INT(77U), SCM_NIL},
2697        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[81])},
2698        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[82])},
2699        { SCM_UNDEFINED, SCM_NIL},
2700        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[84])},
2701        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[85])},
2702        { SCM_OBJ(&scm__rc.d1563[86]), SCM_NIL},
2703        { SCM_OBJ(&scm__rc.d1563[83]), SCM_OBJ(&scm__rc.d1563[87])},
2704        { SCM_MAKE_INT(90U), SCM_NIL},
2705        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[89])},
2706        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[90])},
2707        { SCM_UNDEFINED, SCM_NIL},
2708        { SCM_OBJ(&scm__rc.d1563[92]), SCM_NIL},
2709        { SCM_OBJ(&scm__rc.d1563[91]), SCM_OBJ(&scm__rc.d1563[93])},
2710        { SCM_UNDEFINED, SCM_NIL},
2711        { SCM_MAKE_INT(98U), SCM_NIL},
2712        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[96])},
2713        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[97])},
2714        { SCM_UNDEFINED, SCM_NIL},
2715        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[99])},
2716        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[100])},
2717        { SCM_OBJ(&scm__rc.d1563[101]), SCM_NIL},
2718        { SCM_OBJ(&scm__rc.d1563[98]), SCM_OBJ(&scm__rc.d1563[102])},
2719        { SCM_UNDEFINED, SCM_NIL},
2720        { SCM_MAKE_INT(100U), SCM_NIL},
2721        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[105])},
2722        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[106])},
2723        { SCM_UNDEFINED, SCM_NIL},
2724        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[108])},
2725        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[109])},
2726        { SCM_OBJ(&scm__rc.d1563[110]), SCM_NIL},
2727        { SCM_OBJ(&scm__rc.d1563[107]), SCM_OBJ(&scm__rc.d1563[111])},
2728        { SCM_UNDEFINED, SCM_NIL},
2729        { SCM_MAKE_INT(107U), SCM_NIL},
2730        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[114])},
2731        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[115])},
2732        { SCM_UNDEFINED, SCM_NIL},
2733        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[117])},
2734        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[118])},
2735        { SCM_OBJ(&scm__rc.d1563[119]), SCM_NIL},
2736        { SCM_OBJ(&scm__rc.d1563[116]), SCM_OBJ(&scm__rc.d1563[120])},
2737        { SCM_UNDEFINED, SCM_NIL},
2738        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[122])},
2739        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[123])},
2740        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[124])},
2741        { SCM_MAKE_INT(109U), SCM_NIL},
2742        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[126])},
2743        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[127])},
2744        { SCM_UNDEFINED, SCM_NIL},
2745        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[129])},
2746        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[130])},
2747        { SCM_OBJ(&scm__rc.d1563[131]), SCM_NIL},
2748        { SCM_OBJ(&scm__rc.d1563[128]), SCM_OBJ(&scm__rc.d1563[132])},
2749        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
2750        { SCM_MAKE_INT(113U), SCM_NIL},
2751        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[135])},
2752        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[136])},
2753        { SCM_UNDEFINED, SCM_NIL},
2754        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[138])},
2755        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[139])},
2756        { SCM_OBJ(&scm__rc.d1563[140]), SCM_NIL},
2757        { SCM_OBJ(&scm__rc.d1563[137]), SCM_OBJ(&scm__rc.d1563[141])},
2758        { SCM_MAKE_INT(117U), SCM_NIL},
2759        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[143])},
2760        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[144])},
2761        { SCM_UNDEFINED, SCM_NIL},
2762        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[146])},
2763        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[147])},
2764        { SCM_OBJ(&scm__rc.d1563[148]), SCM_NIL},
2765        { SCM_OBJ(&scm__rc.d1563[145]), SCM_OBJ(&scm__rc.d1563[149])},
2766        { SCM_MAKE_INT(120U), SCM_NIL},
2767        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[151])},
2768        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[152])},
2769        { SCM_UNDEFINED, SCM_NIL},
2770        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[154])},
2771        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[155])},
2772        { SCM_OBJ(&scm__rc.d1563[156]), SCM_NIL},
2773        { SCM_OBJ(&scm__rc.d1563[153]), SCM_OBJ(&scm__rc.d1563[157])},
2774        { SCM_UNDEFINED, SCM_NIL},
2775        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[159])},
2776        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[160])},
2777        { SCM_MAKE_INT(124U), SCM_NIL},
2778        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[162])},
2779        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[163])},
2780        { SCM_UNDEFINED, SCM_NIL},
2781        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[165])},
2782        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[166])},
2783        { SCM_OBJ(&scm__rc.d1563[167]), SCM_NIL},
2784        { SCM_OBJ(&scm__rc.d1563[164]), SCM_OBJ(&scm__rc.d1563[168])},
2785        { SCM_UNDEFINED, SCM_NIL},
2786        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[170])},
2787        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[171])},
2788        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[172])},
2789        { SCM_MAKE_INT(152U), SCM_NIL},
2790        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[174])},
2791        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[175])},
2792        { SCM_UNDEFINED, SCM_NIL},
2793        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[177])},
2794        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[178])},
2795        { SCM_OBJ(&scm__rc.d1563[179]), SCM_NIL},
2796        { SCM_OBJ(&scm__rc.d1563[176]), SCM_OBJ(&scm__rc.d1563[180])},
2797        { SCM_MAKE_INT(162U), SCM_NIL},
2798        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[182])},
2799        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[183])},
2800        { SCM_UNDEFINED, SCM_NIL},
2801        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[185])},
2802        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[186])},
2803        { SCM_OBJ(&scm__rc.d1563[187]), SCM_NIL},
2804        { SCM_OBJ(&scm__rc.d1563[184]), SCM_OBJ(&scm__rc.d1563[188])},
2805        { SCM_UNDEFINED, SCM_NIL},
2806        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[190])},
2807        { SCM_OBJ(&scm__rc.d1563[191]), SCM_NIL},
2808        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[192])},
2809        { SCM_FALSE, SCM_NIL},
2810        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])},
2811        { SCM_OBJ(&scm__rc.d1563[195]), SCM_OBJ(&scm__rc.d1563[48])},
2812        { SCM_OBJ(&scm__rc.d1563[193]), SCM_OBJ(&scm__rc.d1563[196])},
2813        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[197])},
2814        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[198])},
2815        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[199])},
2816        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])},
2817        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[77])},
2818        { SCM_OBJ(&scm__rc.d1563[202]), SCM_NIL},
2819        { SCM_OBJ(&scm__rc.d1563[201]), SCM_OBJ(&scm__rc.d1563[203])},
2820        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[204])},
2821        { SCM_UNDEFINED, SCM_NIL},
2822        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[206])},
2823        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[207])},
2824        { SCM_UNDEFINED, SCM_NIL},
2825        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[209])},
2826        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[210])},
2827        { SCM_OBJ(&scm__rc.d1563[191]), SCM_OBJ(&scm__rc.d1563[211])},
2828        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[212])},
2829        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[213])},
2830        { SCM_OBJ(&scm__rc.d1563[208]), SCM_OBJ(&scm__rc.d1563[214])},
2831        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
2832        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[216])},
2833        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[217])},
2834        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[218])},
2835        { SCM_OBJ(&scm__rc.d1563[208]), SCM_OBJ(&scm__rc.d1563[219])},
2836        { SCM_OBJ(&scm__rc.d1563[220]), SCM_NIL},
2837        { SCM_OBJ(&scm__rc.d1563[215]), SCM_OBJ(&scm__rc.d1563[221])},
2838        { SCM_OBJ(&scm__rc.d1563[205]), SCM_OBJ(&scm__rc.d1563[222])},
2839        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[223])},
2840        { SCM_OBJ(&scm__rc.d1563[224]), SCM_NIL},
2841        { SCM_OBJ(&scm__rc.d1563[200]), SCM_OBJ(&scm__rc.d1563[225])},
2842        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[226])},
2843        { SCM_MAKE_INT(178U), SCM_NIL},
2844        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[228])},
2845        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[229])},
2846        { SCM_OBJ(&scm__rc.d1563[230]), SCM_OBJ(&scm__rc.d1563[93])},
2847        { SCM_UNDEFINED, SCM_NIL},
2848        { SCM_UNDEFINED, SCM_NIL},
2849        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])},
2850        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[234])},
2851        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[235])},
2852        { SCM_MAKE_INT(187U), SCM_NIL},
2853        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[237])},
2854        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[238])},
2855        { SCM_UNDEFINED, SCM_NIL},
2856        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[240])},
2857        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[241])},
2858        { SCM_OBJ(&scm__rc.d1563[242]), SCM_NIL},
2859        { SCM_OBJ(&scm__rc.d1563[239]), SCM_OBJ(&scm__rc.d1563[243])},
2860        { SCM_UNDEFINED, SCM_NIL},
2861        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[245])},
2862        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[246])},
2863        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[247])},
2864        { SCM_MAKE_INT(191U), SCM_NIL},
2865        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[249])},
2866        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[250])},
2867        { SCM_OBJ(&scm__rc.d1563[251]), SCM_OBJ(&scm__rc.d1563[93])},
2868        { SCM_UNDEFINED, SCM_NIL},
2869        { SCM_UNDEFINED, SCM_NIL},
2870        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[254])},
2871        { SCM_UNDEFINED, SCM_NIL},
2872        { SCM_MAKE_INT(218U), SCM_NIL},
2873        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[257])},
2874        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[258])},
2875        { SCM_OBJ(&scm__rc.d1563[259]), SCM_OBJ(&scm__rc.d1563[93])},
2876        { SCM_UNDEFINED, SCM_NIL},
2877        { SCM_OBJ(&scm__rc.d1565[4]), SCM_NIL},
2878        { SCM_MAKE_INT(221U), SCM_NIL},
2879        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[263])},
2880        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[264])},
2881        { SCM_OBJ(&scm__rc.d1563[265]), SCM_OBJ(&scm__rc.d1563[93])},
2882        { SCM_UNDEFINED, SCM_NIL},
2883        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])},
2884        { SCM_UNDEFINED, SCM_NIL},
2885        { SCM_MAKE_INT(225U), SCM_NIL},
2886        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[270])},
2887        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[271])},
2888        { SCM_OBJ(&scm__rc.d1563[272]), SCM_OBJ(&scm__rc.d1563[93])},
2889        { SCM_UNDEFINED, SCM_NIL},
2890        { SCM_MAKE_INT(227U), SCM_NIL},
2891        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[275])},
2892        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[276])},
2893        { SCM_OBJ(&scm__rc.d1563[277]), SCM_OBJ(&scm__rc.d1563[93])},
2894        { SCM_UNDEFINED, SCM_NIL},
2895        { SCM_UNDEFINED, SCM_NIL},
2896        { SCM_MAKE_INT(215U), SCM_NIL},
2897        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[281])},
2898        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[282])},
2899        { SCM_OBJ(&scm__rc.d1563[283]), SCM_OBJ(&scm__rc.d1563[93])},
2900        { SCM_UNDEFINED, SCM_NIL},
2901        { SCM_UNDEFINED, SCM_NIL},
2902        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[286])},
2903        { SCM_MAKE_INT(260U), SCM_NIL},
2904        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[288])},
2905        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[289])},
2906        { SCM_OBJ(&scm__rc.d1563[290]), SCM_OBJ(&scm__rc.d1563[93])},
2907        { SCM_UNDEFINED, SCM_NIL},
2908        { SCM_UNDEFINED, SCM_NIL},
2909        { SCM_MAKE_INT(240U), SCM_NIL},
2910        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[294])},
2911        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[295])},
2912        { SCM_OBJ(&scm__rc.d1563[296]), SCM_OBJ(&scm__rc.d1563[93])},
2913        { SCM_UNDEFINED, SCM_NIL},
2914        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])},
2915        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[299])},
2916        { SCM_MAKE_INT(262U), SCM_NIL},
2917        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[301])},
2918        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[302])},
2919        { SCM_OBJ(&scm__rc.d1563[303]), SCM_OBJ(&scm__rc.d1563[93])},
2920        { SCM_UNDEFINED, SCM_NIL},
2921        { SCM_UNDEFINED, SCM_NIL},
2922        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[306])},
2923        { SCM_MAKE_INT(278U), SCM_NIL},
2924        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[308])},
2925        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[309])},
2926        { SCM_UNDEFINED, SCM_NIL},
2927        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[311])},
2928        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[312])},
2929        { SCM_OBJ(&scm__rc.d1563[313]), SCM_NIL},
2930        { SCM_OBJ(&scm__rc.d1563[310]), SCM_OBJ(&scm__rc.d1563[314])},
2931        { SCM_UNDEFINED, SCM_NIL},
2932        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[316])},
2933        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[317])},
2934        { SCM_MAKE_INT(281U), SCM_NIL},
2935        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[319])},
2936        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[320])},
2937        { SCM_OBJ(&scm__rc.d1563[321]), SCM_OBJ(&scm__rc.d1563[93])},
2938        { SCM_UNDEFINED, SCM_NIL},
2939        { SCM_UNDEFINED, SCM_NIL},
2940        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[324])},
2941        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[325])},
2942        { SCM_MAKE_INT(292U), SCM_NIL},
2943        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[327])},
2944        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[328])},
2945        { SCM_OBJ(&scm__rc.d1563[329]), SCM_OBJ(&scm__rc.d1563[93])},
2946        { SCM_UNDEFINED, SCM_NIL},
2947        { SCM_MAKE_INT(0), SCM_NIL},
2948        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[332])},
2949        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[113])},
2950        { SCM_OBJ(&scm__rc.d1563[334]), SCM_NIL},
2951        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[335])},
2952        { SCM_OBJ(&scm__rc.d1563[336]), SCM_NIL},
2953        { SCM_OBJ(&scm__rc.d1563[333]), SCM_OBJ(&scm__rc.d1563[337])},
2954        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[338])},
2955        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[339])},
2956        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[340])},
2957        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[209])},
2958        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[342])},
2959        { SCM_OBJ(&scm__rc.d1563[343]), SCM_NIL},
2960        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[344])},
2961        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
2962        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])},
2963        { SCM_OBJ(&scm__rc.d1563[347]), SCM_NIL},
2964        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[348])},
2965        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[342])},
2966        { SCM_OBJ(&scm__rc.d1563[350]), SCM_NIL},
2967        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[351])},
2968        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])},
2969        { SCM_OBJ(&scm__rc.d1563[353]), SCM_NIL},
2970        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[354])},
2971        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[335])},
2972        { SCM_OBJ(&scm__rc.d1563[356]), SCM_NIL},
2973        { SCM_OBJ(&scm__rc.d1563[355]), SCM_OBJ(&scm__rc.d1563[357])},
2974        { SCM_OBJ(&scm__rc.d1563[352]), SCM_OBJ(&scm__rc.d1563[358])},
2975        { SCM_OBJ(&scm__rc.d1563[349]), SCM_OBJ(&scm__rc.d1563[359])},
2976        { SCM_OBJ(&scm__rc.d1563[345]), SCM_OBJ(&scm__rc.d1563[360])},
2977        { SCM_UNDEFINED, SCM_NIL},
2978        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[362])},
2979        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[363])},
2980        { SCM_OBJ(&scm__sc.d1561[127]), SCM_OBJ(&scm__rc.d1563[363])},
2981        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[365])},
2982        { SCM_OBJ(&scm__rc.d1563[366]), SCM_NIL},
2983        { SCM_OBJ(&scm__rc.d1563[364]), SCM_OBJ(&scm__rc.d1563[367])},
2984        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[368])},
2985        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[332])},
2986        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[370])},
2987        { SCM_UNDEFINED, SCM_NIL},
2988        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[372])},
2989        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[373])},
2990        { SCM_OBJ(&scm__rc.d1563[374]), SCM_NIL},
2991        { SCM_OBJ(&scm__rc.d1563[371]), SCM_OBJ(&scm__rc.d1563[375])},
2992        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[376])},
2993        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[26])},
2994        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[378])},
2995        { SCM_OBJ(&scm__rc.d1563[379]), SCM_NIL},
2996        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[380])},
2997        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[381])},
2998        { SCM_MAKE_INT(0), SCM_OBJ(&scm__rc.d1563[209])},
2999        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[383])},
3000        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[384])},
3001        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[363])},
3002        { SCM_OBJ(&scm__rc.d1563[386]), SCM_OBJ(&scm__rc.d1563[26])},
3003        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[387])},
3004        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])},
3005        { SCM_OBJ(&scm__rc.d1563[389]), SCM_NIL},
3006        { SCM_OBJ(&scm__rc.d1563[388]), SCM_OBJ(&scm__rc.d1563[390])},
3007        { SCM_OBJ(&scm__rc.d1563[385]), SCM_OBJ(&scm__rc.d1563[391])},
3008        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[392])},
3009        { SCM_OBJ(&scm__rc.d1563[393]), SCM_NIL},
3010        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[394])},
3011        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[395])},
3012        { SCM_OBJ(&scm__rc.d1563[396]), SCM_NIL},
3013        { SCM_OBJ(&scm__rc.d1563[382]), SCM_OBJ(&scm__rc.d1563[397])},
3014        { SCM_OBJ(&scm__rc.d1563[377]), SCM_OBJ(&scm__rc.d1563[398])},
3015        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[399])},
3016        { SCM_OBJ(&scm__rc.d1563[400]), SCM_NIL},
3017        { SCM_OBJ(&scm__rc.d1563[369]), SCM_OBJ(&scm__rc.d1563[401])},
3018        { SCM_OBJ(&scm__rc.d1563[361]), SCM_OBJ(&scm__rc.d1563[402])},
3019        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[403])},
3020        { SCM_OBJ(&scm__rc.d1563[404]), SCM_NIL},
3021        { SCM_OBJ(&scm__rc.d1563[341]), SCM_OBJ(&scm__rc.d1563[405])},
3022        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[406])},
3023        { SCM_MAKE_INT(308U), SCM_NIL},
3024        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[408])},
3025        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[409])},
3026        { SCM_OBJ(&scm__rc.d1563[410]), SCM_OBJ(&scm__rc.d1563[93])},
3027        { SCM_UNDEFINED, SCM_NIL},
3028        { SCM_MAKE_INT(329U), SCM_NIL},
3029        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[413])},
3030        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[414])},
3031        { SCM_UNDEFINED, SCM_NIL},
3032        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[416])},
3033        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[417])},
3034        { SCM_OBJ(&scm__rc.d1563[418]), SCM_NIL},
3035        { SCM_OBJ(&scm__rc.d1563[415]), SCM_OBJ(&scm__rc.d1563[419])},
3036        { SCM_MAKE_INT(333U), SCM_NIL},
3037        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[421])},
3038        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[422])},
3039        { SCM_UNDEFINED, SCM_NIL},
3040        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[424])},
3041        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[425])},
3042        { SCM_OBJ(&scm__rc.d1563[426]), SCM_NIL},
3043        { SCM_OBJ(&scm__rc.d1563[423]), SCM_OBJ(&scm__rc.d1563[427])},
3044        { SCM_UNDEFINED, SCM_NIL},
3045        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[429])},
3046        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
3047        { SCM_MAKE_INT(337U), SCM_NIL},
3048        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[432])},
3049        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[433])},
3050        { SCM_UNDEFINED, SCM_NIL},
3051        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[435])},
3052        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[436])},
3053        { SCM_OBJ(&scm__rc.d1563[437]), SCM_NIL},
3054        { SCM_OBJ(&scm__rc.d1563[434]), SCM_OBJ(&scm__rc.d1563[438])},
3055        { SCM_UNDEFINED, SCM_NIL},
3056        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[440])},
3057        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[441])},
3058        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[442])},
3059        { SCM_MAKE_INT(361U), SCM_NIL},
3060        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[444])},
3061        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[445])},
3062        { SCM_UNDEFINED, SCM_NIL},
3063        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[447])},
3064        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[448])},
3065        { SCM_OBJ(&scm__rc.d1563[449]), SCM_NIL},
3066        { SCM_OBJ(&scm__rc.d1563[446]), SCM_OBJ(&scm__rc.d1563[450])},
3067        { SCM_MAKE_INT(364U), SCM_NIL},
3068        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[452])},
3069        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[453])},
3070        { SCM_UNDEFINED, SCM_NIL},
3071        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[455])},
3072        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[456])},
3073        { SCM_OBJ(&scm__rc.d1563[457]), SCM_NIL},
3074        { SCM_OBJ(&scm__rc.d1563[454]), SCM_OBJ(&scm__rc.d1563[458])},
3075        { SCM_MAKE_INT(367U), SCM_NIL},
3076        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[460])},
3077        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[461])},
3078        { SCM_UNDEFINED, SCM_NIL},
3079        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[463])},
3080        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[464])},
3081        { SCM_OBJ(&scm__rc.d1563[465]), SCM_NIL},
3082        { SCM_OBJ(&scm__rc.d1563[462]), SCM_OBJ(&scm__rc.d1563[466])},
3083        { SCM_MAKE_INT(370U), SCM_NIL},
3084        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[468])},
3085        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[469])},
3086        { SCM_UNDEFINED, SCM_NIL},
3087        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[471])},
3088        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[472])},
3089        { SCM_OBJ(&scm__rc.d1563[473]), SCM_NIL},
3090        { SCM_OBJ(&scm__rc.d1563[470]), SCM_OBJ(&scm__rc.d1563[474])},
3091        { SCM_MAKE_INT(373U), SCM_NIL},
3092        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[476])},
3093        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[477])},
3094        { SCM_UNDEFINED, SCM_NIL},
3095        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[479])},
3096        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[480])},
3097        { SCM_OBJ(&scm__rc.d1563[481]), SCM_NIL},
3098        { SCM_OBJ(&scm__rc.d1563[478]), SCM_OBJ(&scm__rc.d1563[482])},
3099        { SCM_MAKE_INT(377U), SCM_NIL},
3100        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[484])},
3101        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[485])},
3102        { SCM_UNDEFINED, SCM_NIL},
3103        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[487])},
3104        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[488])},
3105        { SCM_OBJ(&scm__rc.d1563[489]), SCM_NIL},
3106        { SCM_OBJ(&scm__rc.d1563[486]), SCM_OBJ(&scm__rc.d1563[490])},
3107        { SCM_MAKE_INT(380U), SCM_NIL},
3108        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[492])},
3109        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[493])},
3110        { SCM_UNDEFINED, SCM_NIL},
3111        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[495])},
3112        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[496])},
3113        { SCM_OBJ(&scm__rc.d1563[497]), SCM_NIL},
3114        { SCM_OBJ(&scm__rc.d1563[494]), SCM_OBJ(&scm__rc.d1563[498])},
3115        { SCM_MAKE_INT(383U), SCM_NIL},
3116        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[500])},
3117        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[501])},
3118        { SCM_UNDEFINED, SCM_NIL},
3119        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[503])},
3120        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[504])},
3121        { SCM_OBJ(&scm__rc.d1563[505]), SCM_NIL},
3122        { SCM_OBJ(&scm__rc.d1563[502]), SCM_OBJ(&scm__rc.d1563[506])},
3123        { SCM_MAKE_INT(386U), SCM_NIL},
3124        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[508])},
3125        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[509])},
3126        { SCM_UNDEFINED, SCM_NIL},
3127        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[511])},
3128        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[512])},
3129        { SCM_OBJ(&scm__rc.d1563[513]), SCM_NIL},
3130        { SCM_OBJ(&scm__rc.d1563[510]), SCM_OBJ(&scm__rc.d1563[514])},
3131        { SCM_MAKE_INT(389U), SCM_NIL},
3132        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[516])},
3133        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[517])},
3134        { SCM_UNDEFINED, SCM_NIL},
3135        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[519])},
3136        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[520])},
3137        { SCM_OBJ(&scm__rc.d1563[521]), SCM_NIL},
3138        { SCM_OBJ(&scm__rc.d1563[518]), SCM_OBJ(&scm__rc.d1563[522])},
3139        { SCM_UNDEFINED, SCM_NIL},
3140        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[524])},
3141        { SCM_MAKE_INT(419U), SCM_NIL},
3142        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[526])},
3143        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[527])},
3144        { SCM_OBJ(&scm__rc.d1563[528]), SCM_OBJ(&scm__rc.d1563[93])},
3145        { SCM_UNDEFINED, SCM_NIL},
3146        { SCM_OBJ(&scm__rc.d1565[18]), SCM_NIL},
3147        { SCM_UNDEFINED, SCM_NIL},
3148        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[532])},
3149        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[533])},
3150        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[534])},
3151        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[535])},
3152        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[536])},
3153        { SCM_MAKE_INT(404U), SCM_NIL},
3154        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[538])},
3155        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[539])},
3156        { SCM_OBJ(&scm__rc.d1563[540]), SCM_OBJ(&scm__rc.d1563[93])},
3157        { SCM_UNDEFINED, SCM_NIL},
3158        { SCM_UNDEFINED, SCM_NIL},
3159        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[543])},
3160        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[113])},
3161        { SCM_UNDEFINED, SCM_NIL},
3162        { SCM_UNDEFINED, SCM_NIL},
3163        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[547])},
3164        { SCM_UNDEFINED, SCM_UNDEFINED},
3165        { SCM_UNDEFINED, SCM_NIL},
3166        { SCM_OBJ(&scm__rc.d1565[22]), SCM_NIL},
3167        { SCM_OBJ(&scm__rc.d1565[21]), SCM_OBJ(&scm__rc.d1563[551])},
3168        { SCM_UNDEFINED, SCM_UNDEFINED},
3169        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[553])},
3170        { SCM_MAKE_INT(425U), SCM_NIL},
3171        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[555])},
3172        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[556])},
3173        { SCM_OBJ(&scm__rc.d1563[557]), SCM_OBJ(&scm__rc.d1563[93])},
3174        { SCM_UNDEFINED, SCM_NIL},
3175        { SCM_UNDEFINED, SCM_NIL},
3176        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[560])},
3177        { SCM_UNDEFINED, SCM_NIL},
3178        { SCM_UNDEFINED, SCM_NIL},
3179        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[563])},
3180        { SCM_UNDEFINED, SCM_NIL},
3181        { SCM_OBJ(&scm__rc.d1565[26]), SCM_NIL},
3182        { SCM_OBJ(&scm__rc.d1565[25]), SCM_OBJ(&scm__rc.d1563[566])},
3183        { SCM_MAKE_INT(450U), SCM_NIL},
3184        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[568])},
3185        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[569])},
3186        { SCM_OBJ(&scm__rc.d1563[570]), SCM_OBJ(&scm__rc.d1563[93])},
3187        { SCM_UNDEFINED, SCM_NIL},
3188        { SCM_MAKE_INT(477U), SCM_NIL},
3189        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[573])},
3190        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[574])},
3191        { SCM_OBJ(&scm__rc.d1563[575]), SCM_OBJ(&scm__rc.d1563[93])},
3192        { SCM_UNDEFINED, SCM_NIL},
3193        { SCM_MAKE_INT(482U), SCM_NIL},
3194        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[578])},
3195        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[579])},
3196        { SCM_UNDEFINED, SCM_NIL},
3197        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[581])},
3198        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[582])},
3199        { SCM_OBJ(&scm__rc.d1563[583]), SCM_NIL},
3200        { SCM_OBJ(&scm__rc.d1563[580]), SCM_OBJ(&scm__rc.d1563[584])},
3201        { SCM_UNDEFINED, SCM_NIL},
3202        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[586])},
3203        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[587])},
3204        { SCM_UNDEFINED, SCM_NIL},
3205        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[589])},
3206        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[590])},
3207        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[591])},
3208        { SCM_MAKE_INT(489U), SCM_NIL},
3209        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[593])},
3210        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[594])},
3211        { SCM_UNDEFINED, SCM_NIL},
3212        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[596])},
3213        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[597])},
3214        { SCM_OBJ(&scm__rc.d1563[598]), SCM_NIL},
3215        { SCM_OBJ(&scm__rc.d1563[595]), SCM_OBJ(&scm__rc.d1563[599])},
3216        { SCM_UNDEFINED, SCM_NIL},
3217        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[601])},
3218        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[602])},
3219        { SCM_MAKE_INT(548U), SCM_NIL},
3220        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[604])},
3221        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[605])},
3222        { SCM_UNDEFINED, SCM_NIL},
3223        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[607])},
3224        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[608])},
3225        { SCM_OBJ(&scm__rc.d1563[609]), SCM_NIL},
3226        { SCM_OBJ(&scm__rc.d1563[606]), SCM_OBJ(&scm__rc.d1563[610])},
3227        { SCM_MAKE_INT(555U), SCM_NIL},
3228        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[612])},
3229        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[613])},
3230        { SCM_UNDEFINED, SCM_NIL},
3231        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[615])},
3232        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[616])},
3233        { SCM_OBJ(&scm__rc.d1563[617]), SCM_NIL},
3234        { SCM_OBJ(&scm__rc.d1563[614]), SCM_OBJ(&scm__rc.d1563[618])},
3235        { SCM_MAKE_INT(559U), SCM_NIL},
3236        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[620])},
3237        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[621])},
3238        { SCM_UNDEFINED, SCM_NIL},
3239        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[623])},
3240        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[624])},
3241        { SCM_OBJ(&scm__rc.d1563[625]), SCM_NIL},
3242        { SCM_OBJ(&scm__rc.d1563[622]), SCM_OBJ(&scm__rc.d1563[626])},
3243        { SCM_UNDEFINED, SCM_NIL},
3244        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[628])},
3245        { SCM_UNDEFINED, SCM_NIL},
3246        { SCM_UNDEFINED, SCM_NIL},
3247        { SCM_UNDEFINED, SCM_NIL},
3248        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[632])},
3249        { SCM_UNDEFINED, SCM_NIL},
3250        { SCM_UNDEFINED, SCM_NIL},
3251        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[635])},
3252        { SCM_UNDEFINED, SCM_NIL},
3253        { SCM_OBJ(&scm__rc.d1563[636]), SCM_OBJ(&scm__rc.d1563[637])},
3254        { SCM_UNDEFINED, SCM_NIL},
3255        { SCM_UNDEFINED, SCM_NIL},
3256        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[640])},
3257        { SCM_OBJ(&scm__rc.d1565[32]), SCM_OBJ(&scm__rc.d1563[641])},
3258        { SCM_MAKE_INT(578U), SCM_NIL},
3259        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[643])},
3260        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[644])},
3261        { SCM_OBJ(&scm__rc.d1563[645]), SCM_OBJ(&scm__rc.d1563[93])},
3262        { SCM_UNDEFINED, SCM_NIL},
3263        { SCM_OBJ(&scm__rc.d1565[33]), SCM_NIL},
3264        { SCM_OBJ(&scm__rc.d1565[31]), SCM_OBJ(&scm__rc.d1563[648])},
3265        { SCM_OBJ(&scm__rc.d1565[30]), SCM_OBJ(&scm__rc.d1563[649])},
3266        { SCM_MAKE_INT(576U), SCM_NIL},
3267        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[651])},
3268        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[652])},
3269        { SCM_OBJ(&scm__rc.d1563[653]), SCM_OBJ(&scm__rc.d1563[93])},
3270        { SCM_UNDEFINED, SCM_NIL},
3271        { SCM_MAKE_INT(697U), SCM_NIL},
3272        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[656])},
3273        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[657])},
3274        { SCM_UNDEFINED, SCM_NIL},
3275        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[659])},
3276        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[660])},
3277        { SCM_OBJ(&scm__rc.d1563[661]), SCM_NIL},
3278        { SCM_OBJ(&scm__rc.d1563[658]), SCM_OBJ(&scm__rc.d1563[662])},
3279        { SCM_MAKE_INT(699U), SCM_NIL},
3280        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[664])},
3281        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[665])},
3282        { SCM_UNDEFINED, SCM_NIL},
3283        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[667])},
3284        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[668])},
3285        { SCM_OBJ(&scm__rc.d1563[669]), SCM_NIL},
3286        { SCM_OBJ(&scm__rc.d1563[666]), SCM_OBJ(&scm__rc.d1563[670])},
3287        { SCM_MAKE_INT(701U), SCM_NIL},
3288        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[672])},
3289        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[673])},
3290        { SCM_UNDEFINED, SCM_NIL},
3291        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[675])},
3292        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[676])},
3293        { SCM_OBJ(&scm__rc.d1563[677]), SCM_NIL},
3294        { SCM_OBJ(&scm__rc.d1563[674]), SCM_OBJ(&scm__rc.d1563[678])},
3295        { SCM_UNDEFINED, SCM_NIL},
3296        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[680])},
3297        { SCM_MAKE_INT(703U), SCM_NIL},
3298        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[682])},
3299        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[683])},
3300        { SCM_UNDEFINED, SCM_NIL},
3301        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[685])},
3302        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[686])},
3303        { SCM_OBJ(&scm__rc.d1563[687]), SCM_NIL},
3304        { SCM_OBJ(&scm__rc.d1563[684]), SCM_OBJ(&scm__rc.d1563[688])},
3305        { SCM_MAKE_INT(705U), SCM_NIL},
3306        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[690])},
3307        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[691])},
3308        { SCM_UNDEFINED, SCM_NIL},
3309        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[693])},
3310        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[694])},
3311        { SCM_OBJ(&scm__rc.d1563[695]), SCM_NIL},
3312        { SCM_OBJ(&scm__rc.d1563[692]), SCM_OBJ(&scm__rc.d1563[696])},
3313        { SCM_UNDEFINED, SCM_NIL},
3314        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[698])},
3315        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[699])},
3316        { SCM_MAKE_INT(707U), SCM_NIL},
3317        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[701])},
3318        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[702])},
3319        { SCM_UNDEFINED, SCM_NIL},
3320        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[704])},
3321        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[705])},
3322        { SCM_OBJ(&scm__rc.d1563[706]), SCM_NIL},
3323        { SCM_OBJ(&scm__rc.d1563[703]), SCM_OBJ(&scm__rc.d1563[707])},
3324        { SCM_MAKE_INT(709U), SCM_NIL},
3325        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[709])},
3326        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[710])},
3327        { SCM_UNDEFINED, SCM_NIL},
3328        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[712])},
3329        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[713])},
3330        { SCM_OBJ(&scm__rc.d1563[714]), SCM_NIL},
3331        { SCM_OBJ(&scm__rc.d1563[711]), SCM_OBJ(&scm__rc.d1563[715])},
3332        { SCM_UNDEFINED, SCM_NIL},
3333        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[717])},
3334        { SCM_MAKE_INT(711U), SCM_NIL},
3335        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[719])},
3336        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[720])},
3337        { SCM_UNDEFINED, SCM_NIL},
3338        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[722])},
3339        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[723])},
3340        { SCM_OBJ(&scm__rc.d1563[724]), SCM_NIL},
3341        { SCM_OBJ(&scm__rc.d1563[721]), SCM_OBJ(&scm__rc.d1563[725])},
3342        { SCM_MAKE_INT(715U), SCM_NIL},
3343        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[727])},
3344        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[728])},
3345        { SCM_UNDEFINED, SCM_NIL},
3346        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[730])},
3347        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[731])},
3348        { SCM_OBJ(&scm__rc.d1563[732]), SCM_NIL},
3349        { SCM_OBJ(&scm__rc.d1563[729]), SCM_OBJ(&scm__rc.d1563[733])},
3350        { SCM_UNDEFINED, SCM_NIL},
3351        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[735])},
3352        { SCM_MAKE_INT(718U), SCM_NIL},
3353        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[737])},
3354        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[738])},
3355        { SCM_UNDEFINED, SCM_NIL},
3356        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[740])},
3357        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[741])},
3358        { SCM_OBJ(&scm__rc.d1563[742]), SCM_NIL},
3359        { SCM_OBJ(&scm__rc.d1563[739]), SCM_OBJ(&scm__rc.d1563[743])},
3360        { SCM_MAKE_INT(721U), SCM_NIL},
3361        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[745])},
3362        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[746])},
3363        { SCM_UNDEFINED, SCM_NIL},
3364        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[748])},
3365        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[749])},
3366        { SCM_OBJ(&scm__rc.d1563[750]), SCM_NIL},
3367        { SCM_OBJ(&scm__rc.d1563[747]), SCM_OBJ(&scm__rc.d1563[751])},
3368        { SCM_MAKE_INT(724U), SCM_NIL},
3369        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[753])},
3370        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[754])},
3371        { SCM_UNDEFINED, SCM_NIL},
3372        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[756])},
3373        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[757])},
3374        { SCM_OBJ(&scm__rc.d1563[758]), SCM_NIL},
3375        { SCM_OBJ(&scm__rc.d1563[755]), SCM_OBJ(&scm__rc.d1563[759])},
3376        { SCM_MAKE_INT(727U), SCM_NIL},
3377        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[761])},
3378        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[762])},
3379        { SCM_UNDEFINED, SCM_NIL},
3380        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[764])},
3381        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[765])},
3382        { SCM_OBJ(&scm__rc.d1563[766]), SCM_NIL},
3383        { SCM_OBJ(&scm__rc.d1563[763]), SCM_OBJ(&scm__rc.d1563[767])},
3384        { SCM_MAKE_INT(730U), SCM_NIL},
3385        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[769])},
3386        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[770])},
3387        { SCM_UNDEFINED, SCM_NIL},
3388        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[772])},
3389        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[773])},
3390        { SCM_OBJ(&scm__rc.d1563[774]), SCM_NIL},
3391        { SCM_OBJ(&scm__rc.d1563[771]), SCM_OBJ(&scm__rc.d1563[775])},
3392        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[48])},
3393        { SCM_MAKE_INT(733U), SCM_NIL},
3394        { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[778])},
3395        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[779])},
3396        { SCM_UNDEFINED, SCM_NIL},
3397        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[781])},
3398        { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[782])},
3399        { SCM_OBJ(&scm__rc.d1563[783]), SCM_NIL},
3400        { SCM_OBJ(&scm__rc.d1563[780]), SCM_OBJ(&scm__rc.d1563[784])},
3401   },
3402   {   /* ScmObj d1562 */
3403     SCM_UNBOUND,
3404     SCM_UNBOUND,
3405     SCM_UNBOUND,
3406     SCM_UNBOUND,
3407     SCM_UNBOUND,
3408     SCM_UNBOUND,
3409     SCM_UNBOUND,
3410     SCM_UNBOUND,
3411     SCM_UNBOUND,
3412     SCM_UNBOUND,
3413     SCM_UNBOUND,
3414     SCM_UNBOUND,
3415     SCM_UNBOUND,
3416     SCM_UNBOUND,
3417     SCM_UNBOUND,
3418     SCM_UNBOUND,
3419     SCM_UNBOUND,
3420     SCM_UNBOUND,
3421     SCM_UNBOUND,
3422     SCM_UNBOUND,
3423     SCM_UNBOUND,
3424     SCM_UNBOUND,
3425     SCM_UNBOUND,
3426     SCM_UNBOUND,
3427     SCM_UNBOUND,
3428     SCM_UNBOUND,
3429     SCM_UNBOUND,
3430     SCM_UNBOUND,
3431     SCM_UNBOUND,
3432     SCM_UNBOUND,
3433     SCM_UNBOUND,
3434     SCM_UNBOUND,
3435     SCM_UNBOUND,
3436     SCM_UNBOUND,
3437     SCM_UNBOUND,
3438     SCM_UNBOUND,
3439     SCM_UNBOUND,
3440     SCM_UNBOUND,
3441     SCM_UNBOUND,
3442     SCM_UNBOUND,
3443     SCM_UNBOUND,
3444     SCM_UNBOUND,
3445     SCM_UNBOUND,
3446     SCM_UNBOUND,
3447     SCM_UNBOUND,
3448     SCM_UNBOUND,
3449     SCM_UNBOUND,
3450     SCM_UNBOUND,
3451     SCM_UNBOUND,
3452     SCM_UNBOUND,
3453     SCM_UNBOUND,
3454     SCM_UNBOUND,
3455     SCM_UNBOUND,
3456     SCM_UNBOUND,
3457     SCM_UNBOUND,
3458     SCM_UNBOUND,
3459     SCM_UNBOUND,
3460     SCM_UNBOUND,
3461     SCM_UNBOUND,
3462     SCM_UNBOUND,
3463     SCM_UNBOUND,
3464     SCM_UNBOUND,
3465     SCM_UNBOUND,
3466     SCM_UNBOUND,
3467     SCM_UNBOUND,
3468     SCM_UNBOUND,
3469     SCM_UNBOUND,
3470     SCM_UNBOUND,
3471     SCM_UNBOUND,
3472     SCM_UNBOUND,
3473     SCM_UNBOUND,
3474     SCM_UNBOUND,
3475     SCM_UNBOUND,
3476     SCM_UNBOUND,
3477     SCM_UNBOUND,
3478     SCM_UNBOUND,
3479     SCM_UNBOUND,
3480     SCM_UNBOUND,
3481     SCM_UNBOUND,
3482     SCM_UNBOUND,
3483     SCM_UNBOUND,
3484     SCM_UNBOUND,
3485     SCM_UNBOUND,
3486     SCM_UNBOUND,
3487     SCM_UNBOUND,
3488     SCM_UNBOUND,
3489     SCM_UNBOUND,
3490     SCM_UNBOUND,
3491     SCM_UNBOUND,
3492     SCM_UNBOUND,
3493     SCM_UNBOUND,
3494     SCM_UNBOUND,
3495     SCM_UNBOUND,
3496     SCM_UNBOUND,
3497     SCM_UNBOUND,
3498     SCM_UNBOUND,
3499     SCM_UNBOUND,
3500     SCM_UNBOUND,
3501     SCM_UNBOUND,
3502     SCM_UNBOUND,
3503     SCM_UNBOUND,
3504     SCM_UNBOUND,
3505     SCM_UNBOUND,
3506     SCM_UNBOUND,
3507     SCM_UNBOUND,
3508     SCM_UNBOUND,
3509     SCM_UNBOUND,
3510     SCM_UNBOUND,
3511     SCM_UNBOUND,
3512     SCM_UNBOUND,
3513     SCM_UNBOUND,
3514     SCM_UNBOUND,
3515     SCM_UNBOUND,
3516     SCM_UNBOUND,
3517     SCM_UNBOUND,
3518     SCM_UNBOUND,
3519     SCM_UNBOUND,
3520     SCM_UNBOUND,
3521     SCM_UNBOUND,
3522     SCM_UNBOUND,
3523     SCM_UNBOUND,
3524     SCM_UNBOUND,
3525     SCM_UNBOUND,
3526     SCM_UNBOUND,
3527     SCM_UNBOUND,
3528     SCM_UNBOUND,
3529     SCM_UNBOUND,
3530     SCM_UNBOUND,
3531     SCM_UNBOUND,
3532     SCM_UNBOUND,
3533     SCM_UNBOUND,
3534     SCM_UNBOUND,
3535     SCM_UNBOUND,
3536     SCM_UNBOUND,
3537     SCM_UNBOUND,
3538     SCM_UNBOUND,
3539     SCM_UNBOUND,
3540     SCM_UNBOUND,
3541     SCM_UNBOUND,
3542     SCM_UNBOUND,
3543     SCM_UNBOUND,
3544     SCM_UNBOUND,
3545     SCM_UNBOUND,
3546     SCM_UNBOUND,
3547     SCM_UNBOUND,
3548     SCM_UNBOUND,
3549     SCM_UNBOUND,
3550     SCM_UNBOUND,
3551     SCM_UNBOUND,
3552     SCM_UNBOUND,
3553     SCM_UNBOUND,
3554     SCM_UNBOUND,
3555     SCM_UNBOUND,
3556     SCM_UNBOUND,
3557     SCM_UNBOUND,
3558     SCM_UNBOUND,
3559     SCM_UNBOUND,
3560     SCM_UNBOUND,
3561     SCM_UNBOUND,
3562     SCM_UNBOUND,
3563     SCM_UNBOUND,
3564     SCM_UNBOUND,
3565     SCM_UNBOUND,
3566     SCM_UNBOUND,
3567     SCM_UNBOUND,
3568     SCM_UNBOUND,
3569     SCM_UNBOUND,
3570     SCM_UNBOUND,
3571     SCM_UNBOUND,
3572     SCM_UNBOUND,
3573     SCM_UNBOUND,
3574     SCM_UNBOUND,
3575     SCM_UNBOUND,
3576     SCM_UNBOUND,
3577     SCM_UNBOUND,
3578     SCM_UNBOUND,
3579     SCM_UNBOUND,
3580     SCM_UNBOUND,
3581     SCM_UNBOUND,
3582     SCM_UNBOUND,
3583     SCM_UNBOUND,
3584     SCM_UNBOUND,
3585     SCM_UNBOUND,
3586     SCM_UNBOUND,
3587     SCM_UNBOUND,
3588     SCM_UNBOUND,
3589     SCM_UNBOUND,
3590     SCM_UNBOUND,
3591     SCM_UNBOUND,
3592     SCM_UNBOUND,
3593     SCM_UNBOUND,
3594     SCM_UNBOUND,
3595     SCM_UNBOUND,
3596     SCM_UNBOUND,
3597     SCM_UNBOUND,
3598     SCM_UNBOUND,
3599     SCM_UNBOUND,
3600     SCM_UNBOUND,
3601     SCM_UNBOUND,
3602     SCM_UNBOUND,
3603     SCM_UNBOUND,
3604     SCM_UNBOUND,
3605     SCM_UNBOUND,
3606     SCM_UNBOUND,
3607     SCM_UNBOUND,
3608     SCM_UNBOUND,
3609     SCM_UNBOUND,
3610     SCM_UNBOUND,
3611     SCM_UNBOUND,
3612     SCM_UNBOUND,
3613     SCM_UNBOUND,
3614     SCM_UNBOUND,
3615     SCM_UNBOUND,
3616     SCM_UNBOUND,
3617     SCM_UNBOUND,
3618     SCM_UNBOUND,
3619     SCM_UNBOUND,
3620     SCM_UNBOUND,
3621     SCM_UNBOUND,
3622     SCM_UNBOUND,
3623     SCM_UNBOUND,
3624     SCM_UNBOUND,
3625     SCM_UNBOUND,
3626     SCM_UNBOUND,
3627     SCM_UNBOUND,
3628     SCM_UNBOUND,
3629     SCM_UNBOUND,
3630     SCM_UNBOUND,
3631     SCM_UNBOUND,
3632     SCM_UNBOUND,
3633     SCM_UNBOUND,
3634     SCM_UNBOUND,
3635     SCM_UNBOUND,
3636     SCM_UNBOUND,
3637     SCM_UNBOUND,
3638     SCM_UNBOUND,
3639     SCM_UNBOUND,
3640     SCM_UNBOUND,
3641     SCM_UNBOUND,
3642     SCM_UNBOUND,
3643     SCM_UNBOUND,
3644     SCM_UNBOUND,
3645     SCM_UNBOUND,
3646     SCM_UNBOUND,
3647     SCM_UNBOUND,
3648     SCM_UNBOUND,
3649     SCM_UNBOUND,
3650     SCM_UNBOUND,
3651     SCM_UNBOUND,
3652     SCM_UNBOUND,
3653     SCM_UNBOUND,
3654     SCM_UNBOUND,
3655     SCM_UNBOUND,
3656     SCM_UNBOUND,
3657     SCM_UNBOUND,
3658     SCM_UNBOUND,
3659     SCM_UNBOUND,
3660     SCM_UNBOUND,
3661     SCM_UNBOUND,
3662     SCM_UNBOUND,
3663     SCM_UNBOUND,
3664     SCM_UNBOUND,
3665     SCM_UNBOUND,
3666     SCM_UNBOUND,
3667     SCM_UNBOUND,
3668     SCM_UNBOUND,
3669     SCM_UNBOUND,
3670     SCM_UNBOUND,
3671     SCM_UNBOUND,
3672     SCM_UNBOUND,
3673     SCM_UNBOUND,
3674     SCM_UNBOUND,
3675     SCM_UNBOUND,
3676     SCM_UNBOUND,
3677     SCM_UNBOUND,
3678     SCM_UNBOUND,
3679     SCM_UNBOUND,
3680     SCM_UNBOUND,
3681     SCM_UNBOUND,
3682     SCM_UNBOUND,
3683     SCM_UNBOUND,
3684     SCM_UNBOUND,
3685     SCM_UNBOUND,
3686     SCM_UNBOUND,
3687     SCM_UNBOUND,
3688     SCM_UNBOUND,
3689     SCM_UNBOUND,
3690     SCM_UNBOUND,
3691     SCM_UNBOUND,
3692     SCM_UNBOUND,
3693     SCM_UNBOUND,
3694     SCM_UNBOUND,
3695     SCM_UNBOUND,
3696     SCM_UNBOUND,
3697     SCM_UNBOUND,
3698     SCM_UNBOUND,
3699     SCM_UNBOUND,
3700     SCM_UNBOUND,
3701     SCM_UNBOUND,
3702     SCM_UNBOUND,
3703     SCM_UNBOUND,
3704     SCM_UNBOUND,
3705     SCM_UNBOUND,
3706     SCM_UNBOUND,
3707     SCM_UNBOUND,
3708     SCM_UNBOUND,
3709     SCM_UNBOUND,
3710     SCM_UNBOUND,
3711     SCM_UNBOUND,
3712     SCM_UNBOUND,
3713     SCM_UNBOUND,
3714     SCM_UNBOUND,
3715     SCM_UNBOUND,
3716     SCM_UNBOUND,
3717     SCM_UNBOUND,
3718     SCM_UNBOUND,
3719     SCM_UNBOUND,
3720     SCM_UNBOUND,
3721     SCM_UNBOUND,
3722     SCM_UNBOUND,
3723     SCM_UNBOUND,
3724     SCM_UNBOUND,
3725     SCM_UNBOUND,
3726     SCM_UNBOUND,
3727     SCM_UNBOUND,
3728     SCM_UNBOUND,
3729     SCM_UNBOUND,
3730     SCM_UNBOUND,
3731     SCM_UNBOUND,
3732     SCM_UNBOUND,
3733     SCM_UNBOUND,
3734     SCM_UNBOUND,
3735     SCM_UNBOUND,
3736     SCM_UNBOUND,
3737     SCM_UNBOUND,
3738     SCM_UNBOUND,
3739     SCM_UNBOUND,
3740     SCM_UNBOUND,
3741     SCM_UNBOUND,
3742     SCM_UNBOUND,
3743   },
3744 };
libstrstringP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3745 static ScmObj libstrstringP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3746 {
3747   ScmObj obj_scm;
3748   ScmObj obj;
3749   ScmObj SCM_SUBRARGS[1];
3750   SCM_ENTER_SUBR("string?");
3751   for (int SCM_i=0; SCM_i<1; SCM_i++) {
3752     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3753   }
3754   obj_scm = SCM_SUBRARGS[0];
3755   obj = (obj_scm);
3756   {
3757 {
3758 int SCM_RESULT;
3759 {SCM_RESULT=(SCM_STRINGP(obj));goto SCM_STUB_RETURN;}
3760 goto SCM_STUB_RETURN;
3761 SCM_STUB_RETURN:
3762 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3763 }
3764   }
3765 }
3766 
libstrstring_incompleteP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3767 static ScmObj libstrstring_incompleteP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3768 {
3769   ScmObj obj_scm;
3770   ScmObj obj;
3771   ScmObj SCM_SUBRARGS[1];
3772   SCM_ENTER_SUBR("string-incomplete?");
3773   for (int SCM_i=0; SCM_i<1; SCM_i++) {
3774     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3775   }
3776   obj_scm = SCM_SUBRARGS[0];
3777   obj = (obj_scm);
3778   {
3779 {
3780 int SCM_RESULT;
3781 
3782 #line 51 "libstr.scm"
3783 {SCM_RESULT=((SCM_STRINGP(obj))&&(SCM_STRING_INCOMPLETE_P(obj)));goto SCM_STUB_RETURN;}
3784 goto SCM_STUB_RETURN;
3785 SCM_STUB_RETURN:
3786 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3787 }
3788   }
3789 }
3790 
libstrstring_immutableP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3791 static ScmObj libstrstring_immutableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3792 {
3793   ScmObj obj_scm;
3794   ScmObj obj;
3795   ScmObj SCM_SUBRARGS[1];
3796   SCM_ENTER_SUBR("string-immutable?");
3797   for (int SCM_i=0; SCM_i<1; SCM_i++) {
3798     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3799   }
3800   obj_scm = SCM_SUBRARGS[0];
3801   obj = (obj_scm);
3802   {
3803 {
3804 int SCM_RESULT;
3805 
3806 #line 53 "libstr.scm"
3807 {SCM_RESULT=((SCM_STRINGP(obj))&&(SCM_STRING_IMMUTABLE_P(obj)));goto SCM_STUB_RETURN;}
3808 goto SCM_STUB_RETURN;
3809 SCM_STUB_RETURN:
3810 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
3811 }
3812   }
3813 }
3814 
libstrmake_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3815 static ScmObj libstrmake_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3816 {
3817   ScmObj len_scm;
3818   ScmSmallInt len;
3819   ScmObj c_scm;
3820   ScmChar c;
3821   ScmObj SCM_SUBRARGS[3];
3822   SCM_ENTER_SUBR("make-string");
3823   if (SCM_ARGCNT >= 3
3824       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3825     Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3826   for (int SCM_i=0; SCM_i<3; SCM_i++) {
3827     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3828   }
3829   len_scm = SCM_SUBRARGS[0];
3830   if (!SCM_INTP(len_scm)) Scm_Error("small integer required, but got %S", len_scm);
3831   len = SCM_INT_VALUE(len_scm);
3832   if (SCM_ARGCNT > 1+1) {
3833     c_scm = SCM_SUBRARGS[1];
3834   } else {
3835     c_scm = SCM_MAKE_CHAR(32);
3836   }
3837   if (!SCM_CHARP(c_scm)) Scm_Error("character required, but got %S", c_scm);
3838   c = SCM_CHAR_VALUE(c_scm);
3839   {
3840 {
3841 ScmObj SCM_RESULT;
3842 {SCM_RESULT=(Scm_MakeFillString(len,c));goto SCM_STUB_RETURN;}
3843 goto SCM_STUB_RETURN;
3844 SCM_STUB_RETURN:
3845 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3846 }
3847   }
3848 }
3849 
libstrstring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3850 static ScmObj libstrstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3851 {
3852   ScmObj chars_scm;
3853   ScmObj chars;
3854   ScmObj SCM_SUBRARGS[2];
3855   SCM_ENTER_SUBR("string");
3856   for (int SCM_i=0; SCM_i<2; SCM_i++) {
3857     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3858   }
3859   chars_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
3860   chars = (chars_scm);
3861   {
3862 {
3863 ScmObj SCM_RESULT;
3864 {SCM_RESULT=(Scm_ListToString(chars));goto SCM_STUB_RETURN;}
3865 goto SCM_STUB_RETURN;
3866 SCM_STUB_RETURN:
3867 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3868 }
3869   }
3870 }
3871 
libstrstring_copy(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3872 static ScmObj libstrstring_copy(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3873 {
3874   ScmObj str_scm;
3875   ScmString* str;
3876   ScmObj start_scm;
3877   ScmObj start;
3878   ScmObj end_scm;
3879   ScmObj end;
3880   ScmObj SCM_SUBRARGS[5];
3881   SCM_ENTER_SUBR("string-copy");
3882   if (SCM_ARGCNT >= 4
3883       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3884     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3885   for (int SCM_i=0; SCM_i<5; SCM_i++) {
3886     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3887   }
3888   str_scm = SCM_SUBRARGS[0];
3889   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
3890   str = SCM_STRING(str_scm);
3891   if (SCM_ARGCNT > 1+1) {
3892     start_scm = SCM_SUBRARGS[1];
3893   } else {
3894     start_scm = SCM_UNBOUND;
3895   }
3896   start = (start_scm);
3897   if (SCM_ARGCNT > 2+1) {
3898     end_scm = SCM_SUBRARGS[2];
3899   } else {
3900     end_scm = SCM_UNBOUND;
3901   }
3902   end = (end_scm);
3903   {
3904 {
3905 ScmObj SCM_RESULT;
3906 
3907 #line 64 "libstr.scm"
3908 {SCM_RESULT=(Scm_CopyString(SCM_STRING(Scm_MaybeSubstring(str,start,end))));goto SCM_STUB_RETURN;}
3909 goto SCM_STUB_RETURN;
3910 SCM_STUB_RETURN:
3911 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3912 }
3913   }
3914 }
3915 
libstrstring_append(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3916 static ScmObj libstrstring_append(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3917 {
3918   ScmObj args_scm;
3919   ScmObj args;
3920   ScmObj SCM_SUBRARGS[2];
3921   SCM_ENTER_SUBR("string-append");
3922   for (int SCM_i=0; SCM_i<2; SCM_i++) {
3923     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3924   }
3925   args_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
3926   args = (args_scm);
3927   {
3928 {
3929 ScmObj SCM_RESULT;
3930 {SCM_RESULT=(Scm_StringAppend(args));goto SCM_STUB_RETURN;}
3931 goto SCM_STUB_RETURN;
3932 SCM_STUB_RETURN:
3933 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3934 }
3935   }
3936 }
3937 
libstrstring_copy_immutable(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3938 static ScmObj libstrstring_copy_immutable(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3939 {
3940   ScmObj str_scm;
3941   ScmString* str;
3942   ScmObj start_scm;
3943   ScmObj start;
3944   ScmObj end_scm;
3945   ScmObj end;
3946   ScmObj SCM_SUBRARGS[5];
3947   SCM_ENTER_SUBR("string-copy-immutable");
3948   if (SCM_ARGCNT >= 4
3949       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3950     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3951   for (int SCM_i=0; SCM_i<5; SCM_i++) {
3952     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
3953   }
3954   str_scm = SCM_SUBRARGS[0];
3955   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
3956   str = SCM_STRING(str_scm);
3957   if (SCM_ARGCNT > 1+1) {
3958     start_scm = SCM_SUBRARGS[1];
3959   } else {
3960     start_scm = SCM_UNBOUND;
3961   }
3962   start = (start_scm);
3963   if (SCM_ARGCNT > 2+1) {
3964     end_scm = SCM_SUBRARGS[2];
3965   } else {
3966     end_scm = SCM_UNBOUND;
3967   }
3968   end = (end_scm);
3969   {
3970 {
3971 ScmObj SCM_RESULT;
3972 
3973 #line 70 "libstr.scm"
3974 {ScmObj s=Scm_MaybeSubstring(str,start,end);
3975 if (SCM_STRING_IMMUTABLE_P(s)){
3976 {SCM_RESULT=(s);goto SCM_STUB_RETURN;}} else {
3977 {SCM_RESULT=(Scm_CopyStringWithFlags(SCM_STRING(s),SCM_STRING_IMMUTABLE,SCM_STRING_IMMUTABLE));goto SCM_STUB_RETURN;}}}
3978 goto SCM_STUB_RETURN;
3979 SCM_STUB_RETURN:
3980 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
3981 }
3982   }
3983 }
3984 
libstrstring_join(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)3985 static ScmObj libstrstring_join(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
3986 {
3987   ScmObj strs_scm;
3988   ScmObj strs;
3989   ScmObj delim_scm;
3990   ScmString* delim;
3991   ScmObj grammar_scm;
3992   ScmObj grammar;
3993   ScmObj SCM_SUBRARGS[5];
3994   SCM_ENTER_SUBR("string-join");
3995   if (SCM_ARGCNT >= 4
3996       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
3997     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
3998   for (int SCM_i=0; SCM_i<5; SCM_i++) {
3999     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4000   }
4001   strs_scm = SCM_SUBRARGS[0];
4002   if (!SCM_LISTP(strs_scm)) Scm_Error("list required, but got %S", strs_scm);
4003   strs = (strs_scm);
4004   if (SCM_ARGCNT > 1+1) {
4005     delim_scm = SCM_SUBRARGS[1];
4006   } else {
4007     delim_scm = SCM_OBJ(&scm__sc.d1561[23]);
4008   }
4009   if (!SCM_STRINGP(delim_scm)) Scm_Error("string required, but got %S", delim_scm);
4010   delim = SCM_STRING(delim_scm);
4011   if (SCM_ARGCNT > 2+1) {
4012     grammar_scm = SCM_SUBRARGS[2];
4013   } else {
4014     grammar_scm = scm__rc.d1562[30];
4015   }
4016   grammar = (grammar_scm);
4017   {
4018 {
4019 ScmObj SCM_RESULT;
4020 
4021 #line 79 "libstr.scm"
4022 {int gm=0;
4023 if (
4024 SCM_EQ(grammar,scm__rc.d1562[30])){gm=(SCM_STRING_JOIN_INFIX);}else if(
4025 SCM_EQ(grammar,scm__rc.d1562[33])){gm=(SCM_STRING_JOIN_STRICT_INFIX);}else if(
4026 SCM_EQ(grammar,scm__rc.d1562[32])){gm=(SCM_STRING_JOIN_SUFFIX);}else if(
4027 SCM_EQ(grammar,scm__rc.d1562[31])){gm=(SCM_STRING_JOIN_PREFIX);} else {
4028 SCM_TYPE_ERROR(grammar,"one of the symbols infix, strict-infix, suffix, or prefix");}
4029 #line 87 "libstr.scm"
4030 {SCM_RESULT=(Scm_StringJoin(strs,delim,gm));goto SCM_STUB_RETURN;}}
4031 goto SCM_STUB_RETURN;
4032 SCM_STUB_RETURN:
4033 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4034 }
4035   }
4036 }
4037 
libstrstring_TOlist(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4038 static ScmObj libstrstring_TOlist(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4039 {
4040   ScmObj str_scm;
4041   ScmString* str;
4042   ScmObj start_scm;
4043   ScmObj start;
4044   ScmObj end_scm;
4045   ScmObj end;
4046   ScmObj SCM_SUBRARGS[5];
4047   SCM_ENTER_SUBR("string->list");
4048   if (SCM_ARGCNT >= 4
4049       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4050     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4051   for (int SCM_i=0; SCM_i<5; SCM_i++) {
4052     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4053   }
4054   str_scm = SCM_SUBRARGS[0];
4055   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4056   str = SCM_STRING(str_scm);
4057   if (SCM_ARGCNT > 1+1) {
4058     start_scm = SCM_SUBRARGS[1];
4059   } else {
4060     start_scm = SCM_UNBOUND;
4061   }
4062   start = (start_scm);
4063   if (SCM_ARGCNT > 2+1) {
4064     end_scm = SCM_SUBRARGS[2];
4065   } else {
4066     end_scm = SCM_UNBOUND;
4067   }
4068   end = (end_scm);
4069   {
4070 {
4071 ScmObj SCM_RESULT;
4072 
4073 #line 99 "libstr.scm"
4074 {SCM_RESULT=(Scm_StringToList(SCM_STRING(Scm_MaybeSubstring(str,start,end))));goto SCM_STUB_RETURN;}
4075 goto SCM_STUB_RETURN;
4076 SCM_STUB_RETURN:
4077 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4078 }
4079   }
4080 }
4081 
libstrlist_TOstring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4082 static ScmObj libstrlist_TOstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4083 {
4084   ScmObj list_scm;
4085   ScmObj list;
4086   ScmObj SCM_SUBRARGS[1];
4087   SCM_ENTER_SUBR("list->string");
4088   for (int SCM_i=0; SCM_i<1; SCM_i++) {
4089     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4090   }
4091   list_scm = SCM_SUBRARGS[0];
4092   if (!SCM_LISTP(list_scm)) Scm_Error("list required, but got %S", list_scm);
4093   list = (list_scm);
4094   {
4095 {
4096 ScmObj SCM_RESULT;
4097 {SCM_RESULT=(Scm_ListToString(list));goto SCM_STUB_RETURN;}
4098 goto SCM_STUB_RETURN;
4099 SCM_STUB_RETURN:
4100 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4101 }
4102   }
4103 }
4104 
libstrstring_length(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4105 static ScmObj libstrstring_length(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4106 {
4107   ScmObj str_scm;
4108   ScmString* str;
4109   ScmObj SCM_SUBRARGS[1];
4110   SCM_ENTER_SUBR("string-length");
4111   for (int SCM_i=0; SCM_i<1; SCM_i++) {
4112     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4113   }
4114   str_scm = SCM_SUBRARGS[0];
4115   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4116   str = SCM_STRING(str_scm);
4117   {
4118 {
4119 ScmSmallInt SCM_RESULT;
4120 
4121 #line 108 "libstr.scm"
4122 {SCM_RESULT=(SCM_STRING_BODY_LENGTH(SCM_STRING_BODY(str)));goto SCM_STUB_RETURN;}
4123 goto SCM_STUB_RETURN;
4124 SCM_STUB_RETURN:
4125 SCM_RETURN(SCM_MAKE_INT(SCM_RESULT));
4126 }
4127   }
4128 }
4129 
libstrstring_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4130 static ScmObj libstrstring_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4131 {
4132   ScmObj str_scm;
4133   ScmString* str;
4134   ScmObj k_scm;
4135   ScmObj k;
4136   ScmObj fallback_scm;
4137   ScmObj fallback;
4138   ScmObj SCM_SUBRARGS[4];
4139   SCM_ENTER_SUBR("string-ref");
4140   if (SCM_ARGCNT >= 4
4141       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4142     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4143   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4144     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4145   }
4146   str_scm = SCM_SUBRARGS[0];
4147   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4148   str = SCM_STRING(str_scm);
4149   k_scm = SCM_SUBRARGS[1];
4150   k = (k_scm);
4151   if (SCM_ARGCNT > 2+1) {
4152     fallback_scm = SCM_SUBRARGS[2];
4153   } else {
4154     fallback_scm = SCM_UNBOUND;
4155   }
4156   fallback = (fallback_scm);
4157   {
4158 {
4159 ScmObj SCM_RESULT;
4160 
4161 #line 111 "libstr.scm"
4162 {ScmChar r=Scm_StringRefCursor(str,k,SCM_UNBOUNDP(fallback));
4163 {SCM_RESULT=((((r)==(SCM_CHAR_INVALID))?(fallback):(SCM_MAKE_CHAR(r))));goto SCM_STUB_RETURN;}}
4164 goto SCM_STUB_RETURN;
4165 SCM_STUB_RETURN:
4166 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4167 }
4168   }
4169 }
4170 
libstrsubstring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4171 static ScmObj libstrsubstring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4172 {
4173   ScmObj str_scm;
4174   ScmString* str;
4175   ScmObj start_scm;
4176   ScmObj start;
4177   ScmObj end_scm;
4178   ScmObj end;
4179   ScmObj SCM_SUBRARGS[3];
4180   SCM_ENTER_SUBR("substring");
4181   for (int SCM_i=0; SCM_i<3; SCM_i++) {
4182     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4183   }
4184   str_scm = SCM_SUBRARGS[0];
4185   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4186   str = SCM_STRING(str_scm);
4187   start_scm = SCM_SUBRARGS[1];
4188   start = (start_scm);
4189   end_scm = SCM_SUBRARGS[2];
4190   end = (end_scm);
4191   {
4192 {
4193 ScmObj SCM_RESULT;
4194 
4195 #line 114 "libstr.scm"
4196 {SCM_RESULT=(Scm_SubstringCursor(str,start,end));goto SCM_STUB_RETURN;}
4197 goto SCM_STUB_RETURN;
4198 SCM_STUB_RETURN:
4199 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4200 }
4201   }
4202 }
4203 
libstrstring_size(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4204 static ScmObj libstrstring_size(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4205 {
4206   ScmObj str_scm;
4207   ScmString* str;
4208   ScmObj SCM_SUBRARGS[1];
4209   SCM_ENTER_SUBR("string-size");
4210   for (int SCM_i=0; SCM_i<1; SCM_i++) {
4211     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4212   }
4213   str_scm = SCM_SUBRARGS[0];
4214   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4215   str = SCM_STRING(str_scm);
4216   {
4217 {
4218 ScmSmallInt SCM_RESULT;
4219 
4220 #line 118 "libstr.scm"
4221 {SCM_RESULT=(SCM_STRING_BODY_SIZE(SCM_STRING_BODY(str)));goto SCM_STUB_RETURN;}
4222 goto SCM_STUB_RETURN;
4223 SCM_STUB_RETURN:
4224 SCM_RETURN(SCM_MAKE_INT(SCM_RESULT));
4225 }
4226   }
4227 }
4228 
libstr_25maybe_substring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4229 static ScmObj libstr_25maybe_substring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4230 {
4231   ScmObj str_scm;
4232   ScmString* str;
4233   ScmObj start_scm;
4234   ScmObj start;
4235   ScmObj end_scm;
4236   ScmObj end;
4237   ScmObj SCM_SUBRARGS[5];
4238   SCM_ENTER_SUBR("%maybe-substring");
4239   if (SCM_ARGCNT >= 4
4240       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4241     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4242   for (int SCM_i=0; SCM_i<5; SCM_i++) {
4243     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4244   }
4245   str_scm = SCM_SUBRARGS[0];
4246   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4247   str = SCM_STRING(str_scm);
4248   if (SCM_ARGCNT > 1+1) {
4249     start_scm = SCM_SUBRARGS[1];
4250   } else {
4251     start_scm = SCM_UNBOUND;
4252   }
4253   start = (start_scm);
4254   if (SCM_ARGCNT > 2+1) {
4255     end_scm = SCM_SUBRARGS[2];
4256   } else {
4257     end_scm = SCM_UNBOUND;
4258   }
4259   end = (end_scm);
4260   {
4261 {
4262 ScmObj SCM_RESULT;
4263 {SCM_RESULT=(Scm_MaybeSubstring(str,start,end));goto SCM_STUB_RETURN;}
4264 goto SCM_STUB_RETURN;
4265 SCM_STUB_RETURN:
4266 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4267 }
4268   }
4269 }
4270 
libstr_25hash_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4271 static ScmObj libstr_25hash_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4272 {
4273   ScmObj str_scm;
4274   ScmString* str;
4275   ScmObj bound_scm;
4276   ScmObj bound;
4277   ScmObj SCM_SUBRARGS[3];
4278   SCM_ENTER_SUBR("%hash-string");
4279   if (SCM_ARGCNT >= 3
4280       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4281     Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4282   for (int SCM_i=0; SCM_i<3; SCM_i++) {
4283     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4284   }
4285   str_scm = SCM_SUBRARGS[0];
4286   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4287   str = SCM_STRING(str_scm);
4288   if (SCM_ARGCNT > 1+1) {
4289     bound_scm = SCM_SUBRARGS[1];
4290   } else {
4291     bound_scm = SCM_UNBOUND;
4292   }
4293   bound = (bound_scm);
4294   {
4295 {
4296 u_long SCM_RESULT;
4297 
4298 #line 125 "libstr.scm"
4299 {u_long modulo=0;
4300 if ((SCM_UNBOUNDP(bound))||(SCM_UNDEFINEDP(bound))){
4301 modulo=(0);}else if(
4302 SCM_INTP(bound)){modulo=(SCM_INT_VALUE(bound));}else if(
4303 SCM_BIGNUMP(bound)){
4304 modulo=(
4305 Scm_BignumToUI(SCM_BIGNUM(bound),SCM_CLAMP_BOTH,NULL));} else {
4306 Scm_Error("argument out of domain: %S",bound);}
4307 {SCM_RESULT=(Scm_HashString(str,modulo));goto SCM_STUB_RETURN;}}
4308 goto SCM_STUB_RETURN;
4309 SCM_STUB_RETURN:
4310 SCM_RETURN(Scm_MakeIntegerFromUI(SCM_RESULT));
4311 }
4312   }
4313 }
4314 
string_scan_mode(ScmObj mode)4315  int string_scan_mode(ScmObj mode){{
4316 #line 138 "libstr.scm"
4317 {int rmode=0;
4318 if (
4319 SCM_EQ(mode,scm__rc.d1562[73])){rmode=(SCM_STRING_SCAN_INDEX);}else if(
4320 SCM_EQ(mode,scm__rc.d1562[72])){rmode=(SCM_STRING_SCAN_CURSOR);}else if(
4321 SCM_EQ(mode,scm__rc.d1562[71])){rmode=(SCM_STRING_SCAN_BEFORE);}else if(
4322 SCM_EQ(mode,scm__rc.d1562[70])){rmode=(SCM_STRING_SCAN_AFTER);}else if(
4323 SCM_EQ(mode,scm__rc.d1562[69])){rmode=(SCM_STRING_SCAN_BEFORE2);}else if(
4324 SCM_EQ(mode,scm__rc.d1562[68])){rmode=(SCM_STRING_SCAN_AFTER2);}else if(
4325 SCM_EQ(mode,scm__rc.d1562[67])){rmode=(SCM_STRING_SCAN_BOTH);} else {
4326 Scm_Error("bad value in mode argumet: %S, must be one of 'index, 'before, 'after, 'before*, 'after* or 'both.",mode);}
4327 #line 149 "libstr.scm"
4328 return (rmode);}}}
libstrstring_scan(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4329 static ScmObj libstrstring_scan(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4330 {
4331   ScmObj s1_scm;
4332   ScmString* s1;
4333   ScmObj s2_scm;
4334   ScmObj s2;
4335   ScmObj mode_scm;
4336   ScmObj mode;
4337   ScmObj SCM_SUBRARGS[4];
4338   SCM_ENTER_SUBR("string-scan");
4339   if (SCM_ARGCNT >= 4
4340       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4341     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4342   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4343     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4344   }
4345   s1_scm = SCM_SUBRARGS[0];
4346   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4347   s1 = SCM_STRING(s1_scm);
4348   s2_scm = SCM_SUBRARGS[1];
4349   s2 = (s2_scm);
4350   if (SCM_ARGCNT > 2+1) {
4351     mode_scm = SCM_SUBRARGS[2];
4352   } else {
4353     mode_scm = scm__rc.d1562[73];
4354   }
4355   mode = (mode_scm);
4356   {
4357 {
4358 ScmObj SCM_RESULT;
4359 
4360 #line 153 "libstr.scm"
4361 {int rmode=string_scan_mode(mode);
4362 if (
4363 SCM_STRINGP(s2)){{SCM_RESULT=(Scm_StringScan(s1,SCM_STRING(s2),rmode));goto SCM_STUB_RETURN;}}else if(
4364 SCM_CHARP(s2)){
4365 {SCM_RESULT=(Scm_StringScanChar(s1,SCM_CHAR_VALUE(s2),rmode));goto SCM_STUB_RETURN;}} else {
4366 Scm_Error("bad type of argument for s2: %S, must be either string or character",s2);
4367 #line 160 "libstr.scm"
4368 {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}}
4369 goto SCM_STUB_RETURN;
4370 SCM_STUB_RETURN:
4371 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4372 }
4373   }
4374 }
4375 
libstrstring_scan_right(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4376 static ScmObj libstrstring_scan_right(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4377 {
4378   ScmObj s1_scm;
4379   ScmString* s1;
4380   ScmObj s2_scm;
4381   ScmObj s2;
4382   ScmObj mode_scm;
4383   ScmObj mode;
4384   ScmObj SCM_SUBRARGS[4];
4385   SCM_ENTER_SUBR("string-scan-right");
4386   if (SCM_ARGCNT >= 4
4387       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4388     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4389   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4390     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4391   }
4392   s1_scm = SCM_SUBRARGS[0];
4393   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4394   s1 = SCM_STRING(s1_scm);
4395   s2_scm = SCM_SUBRARGS[1];
4396   s2 = (s2_scm);
4397   if (SCM_ARGCNT > 2+1) {
4398     mode_scm = SCM_SUBRARGS[2];
4399   } else {
4400     mode_scm = scm__rc.d1562[73];
4401   }
4402   mode = (mode_scm);
4403   {
4404 {
4405 ScmObj SCM_RESULT;
4406 
4407 #line 163 "libstr.scm"
4408 {int rmode=string_scan_mode(mode);
4409 if (
4410 SCM_STRINGP(s2)){{SCM_RESULT=(Scm_StringScanRight(s1,SCM_STRING(s2),rmode));goto SCM_STUB_RETURN;}}else if(
4411 SCM_CHARP(s2)){
4412 {SCM_RESULT=(Scm_StringScanCharRight(s1,SCM_CHAR_VALUE(s2),rmode));goto SCM_STUB_RETURN;}} else {
4413 Scm_Error("bad type of argument for s2: %S, must be either string or character",s2);
4414 #line 170 "libstr.scm"
4415 {SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}}
4416 goto SCM_STUB_RETURN;
4417 SCM_STUB_RETURN:
4418 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4419 }
4420   }
4421 }
4422 
libstr_25string_split_by_char(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4423 static ScmObj libstr_25string_split_by_char(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4424 {
4425   ScmObj s_scm;
4426   ScmString* s;
4427   ScmObj ch_scm;
4428   ScmChar ch;
4429   ScmObj limit_scm;
4430   int limit;
4431   ScmObj SCM_SUBRARGS[4];
4432   SCM_ENTER_SUBR("%string-split-by-char");
4433   if (SCM_ARGCNT >= 4
4434       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4435     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4436   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4437     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4438   }
4439   s_scm = SCM_SUBRARGS[0];
4440   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
4441   s = SCM_STRING(s_scm);
4442   ch_scm = SCM_SUBRARGS[1];
4443   if (!SCM_CHARP(ch_scm)) Scm_Error("character required, but got %S", ch_scm);
4444   ch = SCM_CHAR_VALUE(ch_scm);
4445   if (SCM_ARGCNT > 2+1) {
4446     limit_scm = SCM_SUBRARGS[2];
4447   } else {
4448     limit_scm = SCM_MAKE_INT(-1);
4449   }
4450   if (!SCM_INTEGERP(limit_scm)) Scm_Error("C integer required, but got %S", limit_scm);
4451   limit = Scm_GetInteger(limit_scm);
4452   {
4453 {
4454 ScmObj SCM_RESULT;
4455 {SCM_RESULT=(Scm_StringSplitByCharWithLimit(s,ch,limit));goto SCM_STUB_RETURN;}
4456 goto SCM_STUB_RETURN;
4457 SCM_STUB_RETURN:
4458 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4459 }
4460   }
4461 }
4462 
libstr_25string_replace_bodyX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4463 static ScmObj libstr_25string_replace_bodyX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4464 {
4465   ScmObj target_scm;
4466   ScmString* target;
4467   ScmObj source_scm;
4468   ScmString* source;
4469   ScmObj SCM_SUBRARGS[2];
4470   SCM_ENTER_SUBR("%string-replace-body!");
4471   for (int SCM_i=0; SCM_i<2; SCM_i++) {
4472     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4473   }
4474   target_scm = SCM_SUBRARGS[0];
4475   if (!SCM_STRINGP(target_scm)) Scm_Error("string required, but got %S", target_scm);
4476   target = SCM_STRING(target_scm);
4477   source_scm = SCM_SUBRARGS[1];
4478   if (!SCM_STRINGP(source_scm)) Scm_Error("string required, but got %S", source_scm);
4479   source = SCM_STRING(source_scm);
4480   {
4481 {
4482 ScmObj SCM_RESULT;
4483 
4484 #line 279 "libstr.scm"
4485 {SCM_RESULT=(Scm_StringReplaceBody(target,SCM_STRING_BODY(source)));goto SCM_STUB_RETURN;}
4486 goto SCM_STUB_RETURN;
4487 SCM_STUB_RETURN:
4488 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4489 }
4490   }
4491 }
4492 
libstrstring_build_indexX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4493 static ScmObj libstrstring_build_indexX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4494 {
4495   ScmObj s_scm;
4496   ScmString* s;
4497   ScmObj SCM_SUBRARGS[1];
4498   SCM_ENTER_SUBR("string-build-index!");
4499   for (int SCM_i=0; SCM_i<1; SCM_i++) {
4500     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4501   }
4502   s_scm = SCM_SUBRARGS[0];
4503   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
4504   s = SCM_STRING(s_scm);
4505   {
4506 {
4507 ScmString* SCM_RESULT;
4508 
4509 #line 330 "libstr.scm"
4510 Scm_StringBodyBuildIndex(((ScmStringBody* )(SCM_STRING_BODY(s))));
4511 
4512 #line 331 "libstr.scm"
4513 {SCM_RESULT=(s);goto SCM_STUB_RETURN;}
4514 goto SCM_STUB_RETURN;
4515 SCM_STUB_RETURN:
4516 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4517 }
4518   }
4519 }
4520 
libstrstring_fast_indexableP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4521 static ScmObj libstrstring_fast_indexableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4522 {
4523   ScmObj s_scm;
4524   ScmString* s;
4525   ScmObj SCM_SUBRARGS[1];
4526   SCM_ENTER_SUBR("string-fast-indexable?");
4527   for (int SCM_i=0; SCM_i<1; SCM_i++) {
4528     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4529   }
4530   s_scm = SCM_SUBRARGS[0];
4531   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
4532   s = SCM_STRING(s_scm);
4533   {
4534 {
4535 int SCM_RESULT;
4536 
4537 #line 334 "libstr.scm"
4538 {SCM_RESULT=(Scm_StringBodyFastIndexableP(SCM_STRING_BODY(s)));goto SCM_STUB_RETURN;}
4539 goto SCM_STUB_RETURN;
4540 SCM_STUB_RETURN:
4541 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4542 }
4543   }
4544 }
4545 
libstr_25string_index_dump(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4546 static ScmObj libstr_25string_index_dump(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4547 {
4548   ScmObj s_scm;
4549   ScmString* s;
4550   ScmObj p_scm;
4551   ScmPort* p;
4552   ScmObj SCM_SUBRARGS[3];
4553   SCM_ENTER_SUBR("%string-index-dump");
4554   if (SCM_ARGCNT >= 3
4555       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4556     Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4557   for (int SCM_i=0; SCM_i<3; SCM_i++) {
4558     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4559   }
4560   s_scm = SCM_SUBRARGS[0];
4561   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
4562   s = SCM_STRING(s_scm);
4563   if (SCM_ARGCNT > 1+1) {
4564     p_scm = SCM_SUBRARGS[1];
4565   } else {
4566     p_scm = SCM_OBJ(SCM_CUROUT);
4567   }
4568   if (!SCM_PORTP(p_scm)) Scm_Error("port required, but got %S", p_scm);
4569   p = SCM_PORT(p_scm);
4570   {
4571 
4572 #line 338 "libstr.scm"
4573 Scm_StringBodyIndexDump(SCM_STRING_BODY(s),p);
4574 goto SCM_STUB_RETURN;
4575 SCM_STUB_RETURN:
4576 SCM_RETURN(SCM_UNDEFINED);
4577   }
4578 }
4579 
libstrstring_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4580 static ScmObj libstrstring_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4581 {
4582   ScmObj s1_scm;
4583   ScmString* s1;
4584   ScmObj s2_scm;
4585   ScmString* s2;
4586   ScmObj ss_scm;
4587   ScmObj ss;
4588   ScmObj SCM_SUBRARGS[4];
4589   SCM_ENTER_SUBR("string=?");
4590   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4591     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4592   }
4593   s1_scm = SCM_SUBRARGS[0];
4594   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4595   s1 = SCM_STRING(s1_scm);
4596   s2_scm = SCM_SUBRARGS[1];
4597   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4598   s2 = SCM_STRING(s2_scm);
4599   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4600   ss = (ss_scm);
4601   {
4602 {
4603 int SCM_RESULT;
4604 
4605 #line 363 "libstr.scm"
4606 while(TRUE){if (Scm_StringEqual(s1,s2)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4607 goto SCM_STUB_RETURN;
4608 SCM_STUB_RETURN:
4609 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4610 }
4611   }
4612 }
4613 
libstrstring_LTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4614 static ScmObj libstrstring_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4615 {
4616   ScmObj s1_scm;
4617   ScmString* s1;
4618   ScmObj s2_scm;
4619   ScmString* s2;
4620   ScmObj ss_scm;
4621   ScmObj ss;
4622   ScmObj SCM_SUBRARGS[4];
4623   SCM_ENTER_SUBR("string<?");
4624   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4625     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4626   }
4627   s1_scm = SCM_SUBRARGS[0];
4628   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4629   s1 = SCM_STRING(s1_scm);
4630   s2_scm = SCM_SUBRARGS[1];
4631   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4632   s2 = SCM_STRING(s2_scm);
4633   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4634   ss = (ss_scm);
4635   {
4636 {
4637 int SCM_RESULT;
4638 
4639 #line 366 "libstr.scm"
4640 while(TRUE){if ((Scm_StringCmp(s1,s2))<(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4641 goto SCM_STUB_RETURN;
4642 SCM_STUB_RETURN:
4643 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4644 }
4645   }
4646 }
4647 
libstrstring_GTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4648 static ScmObj libstrstring_GTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4649 {
4650   ScmObj s1_scm;
4651   ScmString* s1;
4652   ScmObj s2_scm;
4653   ScmString* s2;
4654   ScmObj ss_scm;
4655   ScmObj ss;
4656   ScmObj SCM_SUBRARGS[4];
4657   SCM_ENTER_SUBR("string>?");
4658   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4659     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4660   }
4661   s1_scm = SCM_SUBRARGS[0];
4662   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4663   s1 = SCM_STRING(s1_scm);
4664   s2_scm = SCM_SUBRARGS[1];
4665   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4666   s2 = SCM_STRING(s2_scm);
4667   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4668   ss = (ss_scm);
4669   {
4670 {
4671 int SCM_RESULT;
4672 
4673 #line 369 "libstr.scm"
4674 while(TRUE){if ((Scm_StringCmp(s1,s2))>(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4675 goto SCM_STUB_RETURN;
4676 SCM_STUB_RETURN:
4677 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4678 }
4679   }
4680 }
4681 
libstrstring_LT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4682 static ScmObj libstrstring_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4683 {
4684   ScmObj s1_scm;
4685   ScmString* s1;
4686   ScmObj s2_scm;
4687   ScmString* s2;
4688   ScmObj ss_scm;
4689   ScmObj ss;
4690   ScmObj SCM_SUBRARGS[4];
4691   SCM_ENTER_SUBR("string<=?");
4692   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4693     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4694   }
4695   s1_scm = SCM_SUBRARGS[0];
4696   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4697   s1 = SCM_STRING(s1_scm);
4698   s2_scm = SCM_SUBRARGS[1];
4699   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4700   s2 = SCM_STRING(s2_scm);
4701   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4702   ss = (ss_scm);
4703   {
4704 {
4705 int SCM_RESULT;
4706 
4707 #line 372 "libstr.scm"
4708 while(TRUE){if ((Scm_StringCmp(s1,s2))<=(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4709 goto SCM_STUB_RETURN;
4710 SCM_STUB_RETURN:
4711 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4712 }
4713   }
4714 }
4715 
libstrstring_GT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4716 static ScmObj libstrstring_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4717 {
4718   ScmObj s1_scm;
4719   ScmString* s1;
4720   ScmObj s2_scm;
4721   ScmString* s2;
4722   ScmObj ss_scm;
4723   ScmObj ss;
4724   ScmObj SCM_SUBRARGS[4];
4725   SCM_ENTER_SUBR("string>=?");
4726   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4727     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4728   }
4729   s1_scm = SCM_SUBRARGS[0];
4730   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4731   s1 = SCM_STRING(s1_scm);
4732   s2_scm = SCM_SUBRARGS[1];
4733   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4734   s2 = SCM_STRING(s2_scm);
4735   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4736   ss = (ss_scm);
4737   {
4738 {
4739 int SCM_RESULT;
4740 
4741 #line 375 "libstr.scm"
4742 while(TRUE){if ((Scm_StringCmp(s1,s2))>=(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4743 goto SCM_STUB_RETURN;
4744 SCM_STUB_RETURN:
4745 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4746 }
4747   }
4748 }
4749 
libstrstring_ci_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4750 static ScmObj libstrstring_ci_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4751 {
4752   ScmObj s1_scm;
4753   ScmString* s1;
4754   ScmObj s2_scm;
4755   ScmString* s2;
4756   ScmObj ss_scm;
4757   ScmObj ss;
4758   ScmObj SCM_SUBRARGS[4];
4759   SCM_ENTER_SUBR("string-ci=?");
4760   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4761     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4762   }
4763   s1_scm = SCM_SUBRARGS[0];
4764   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4765   s1 = SCM_STRING(s1_scm);
4766   s2_scm = SCM_SUBRARGS[1];
4767   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4768   s2 = SCM_STRING(s2_scm);
4769   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4770   ss = (ss_scm);
4771   {
4772 {
4773 int SCM_RESULT;
4774 
4775 #line 379 "libstr.scm"
4776 while(TRUE){if ((Scm_StringCiCmp(s1,s2))==(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4777 goto SCM_STUB_RETURN;
4778 SCM_STUB_RETURN:
4779 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4780 }
4781   }
4782 }
4783 
libstrstring_ci_LTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4784 static ScmObj libstrstring_ci_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4785 {
4786   ScmObj s1_scm;
4787   ScmString* s1;
4788   ScmObj s2_scm;
4789   ScmString* s2;
4790   ScmObj ss_scm;
4791   ScmObj ss;
4792   ScmObj SCM_SUBRARGS[4];
4793   SCM_ENTER_SUBR("string-ci<?");
4794   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4795     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4796   }
4797   s1_scm = SCM_SUBRARGS[0];
4798   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4799   s1 = SCM_STRING(s1_scm);
4800   s2_scm = SCM_SUBRARGS[1];
4801   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4802   s2 = SCM_STRING(s2_scm);
4803   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4804   ss = (ss_scm);
4805   {
4806 {
4807 int SCM_RESULT;
4808 
4809 #line 382 "libstr.scm"
4810 while(TRUE){if ((Scm_StringCiCmp(s1,s2))<(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4811 goto SCM_STUB_RETURN;
4812 SCM_STUB_RETURN:
4813 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4814 }
4815   }
4816 }
4817 
libstrstring_ci_GTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4818 static ScmObj libstrstring_ci_GTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4819 {
4820   ScmObj s1_scm;
4821   ScmString* s1;
4822   ScmObj s2_scm;
4823   ScmString* s2;
4824   ScmObj ss_scm;
4825   ScmObj ss;
4826   ScmObj SCM_SUBRARGS[4];
4827   SCM_ENTER_SUBR("string-ci>?");
4828   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4829     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4830   }
4831   s1_scm = SCM_SUBRARGS[0];
4832   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4833   s1 = SCM_STRING(s1_scm);
4834   s2_scm = SCM_SUBRARGS[1];
4835   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4836   s2 = SCM_STRING(s2_scm);
4837   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4838   ss = (ss_scm);
4839   {
4840 {
4841 int SCM_RESULT;
4842 
4843 #line 385 "libstr.scm"
4844 while(TRUE){if ((Scm_StringCiCmp(s1,s2))>(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4845 goto SCM_STUB_RETURN;
4846 SCM_STUB_RETURN:
4847 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4848 }
4849   }
4850 }
4851 
libstrstring_ci_LT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4852 static ScmObj libstrstring_ci_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4853 {
4854   ScmObj s1_scm;
4855   ScmString* s1;
4856   ScmObj s2_scm;
4857   ScmString* s2;
4858   ScmObj ss_scm;
4859   ScmObj ss;
4860   ScmObj SCM_SUBRARGS[4];
4861   SCM_ENTER_SUBR("string-ci<=?");
4862   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4863     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4864   }
4865   s1_scm = SCM_SUBRARGS[0];
4866   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4867   s1 = SCM_STRING(s1_scm);
4868   s2_scm = SCM_SUBRARGS[1];
4869   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4870   s2 = SCM_STRING(s2_scm);
4871   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4872   ss = (ss_scm);
4873   {
4874 {
4875 int SCM_RESULT;
4876 
4877 #line 388 "libstr.scm"
4878 while(TRUE){if ((Scm_StringCiCmp(s1,s2))<=(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4879 goto SCM_STUB_RETURN;
4880 SCM_STUB_RETURN:
4881 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4882 }
4883   }
4884 }
4885 
libstrstring_ci_GT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4886 static ScmObj libstrstring_ci_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4887 {
4888   ScmObj s1_scm;
4889   ScmString* s1;
4890   ScmObj s2_scm;
4891   ScmString* s2;
4892   ScmObj ss_scm;
4893   ScmObj ss;
4894   ScmObj SCM_SUBRARGS[4];
4895   SCM_ENTER_SUBR("string-ci>=?");
4896   for (int SCM_i=0; SCM_i<4; SCM_i++) {
4897     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4898   }
4899   s1_scm = SCM_SUBRARGS[0];
4900   if (!SCM_STRINGP(s1_scm)) Scm_Error("string required, but got %S", s1_scm);
4901   s1 = SCM_STRING(s1_scm);
4902   s2_scm = SCM_SUBRARGS[1];
4903   if (!SCM_STRINGP(s2_scm)) Scm_Error("string required, but got %S", s2_scm);
4904   s2 = SCM_STRING(s2_scm);
4905   ss_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
4906   ss = (ss_scm);
4907   {
4908 {
4909 int SCM_RESULT;
4910 
4911 #line 391 "libstr.scm"
4912 while(TRUE){if ((Scm_StringCiCmp(s1,s2))>=(0)){if (SCM_NULLP(ss)){{SCM_RESULT=(TRUE);goto SCM_STUB_RETURN;}break;}else if(!(SCM_STRINGP(SCM_CAR(ss)))){SCM_TYPE_ERROR(SCM_CAR(ss),"string");} else {s1=(s2);s2=(SCM_STRING(SCM_CAR(ss)));ss=(SCM_CDR(ss));}} else {{{SCM_RESULT=(FALSE);goto SCM_STUB_RETURN;}break;}}}
4913 goto SCM_STUB_RETURN;
4914 SCM_STUB_RETURN:
4915 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
4916 }
4917   }
4918 }
4919 
libstrstring_complete_TOincomplete(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4920 static ScmObj libstrstring_complete_TOincomplete(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4921 {
4922   ScmObj str_scm;
4923   ScmString* str;
4924   ScmObj SCM_SUBRARGS[1];
4925   SCM_ENTER_SUBR("string-complete->incomplete");
4926   for (int SCM_i=0; SCM_i<1; SCM_i++) {
4927     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4928   }
4929   str_scm = SCM_SUBRARGS[0];
4930   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4931   str = SCM_STRING(str_scm);
4932   {
4933 {
4934 ScmObj SCM_RESULT;
4935 
4936 #line 483 "libstr.scm"
4937 {SCM_RESULT=(Scm_CopyStringWithFlags(str,SCM_STRING_INCOMPLETE,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}
4938 goto SCM_STUB_RETURN;
4939 SCM_STUB_RETURN:
4940 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
4941 }
4942   }
4943 }
4944 
libstrstring_incomplete_TOcomplete(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)4945 static ScmObj libstrstring_incomplete_TOcomplete(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
4946 {
4947   ScmObj str_scm;
4948   ScmString* str;
4949   ScmObj handling_scm;
4950   ScmObj handling;
4951   ScmObj filler_scm;
4952   ScmObj filler;
4953   ScmObj SCM_SUBRARGS[5];
4954   SCM_ENTER_SUBR("string-incomplete->complete");
4955   if (SCM_ARGCNT >= 4
4956       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
4957     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
4958   for (int SCM_i=0; SCM_i<5; SCM_i++) {
4959     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
4960   }
4961   str_scm = SCM_SUBRARGS[0];
4962   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
4963   str = SCM_STRING(str_scm);
4964   if (SCM_ARGCNT > 1+1) {
4965     handling_scm = SCM_SUBRARGS[1];
4966   } else {
4967     handling_scm = SCM_FALSE;
4968   }
4969   handling = (handling_scm);
4970   if (SCM_ARGCNT > 2+1) {
4971     filler_scm = SCM_SUBRARGS[2];
4972   } else {
4973     filler_scm = SCM_FALSE;
4974   }
4975   filler = (filler_scm);
4976   {
4977 {
4978 ScmObj SCM_RESULT;
4979 
4980 #line 493 "libstr.scm"
4981 if (SCM_CHARP(handling)){{
4982 filler=(handling),handling=(
4983 scm__rc.d1562[283]);}}
4984 
4985 #line 497 "libstr.scm"
4986 if (!((SCM_FALSEP(handling))||(
4987 Scm_Memq(handling,SCM_OBJ(&scm__rc.d1563[588]))))){{
4988 Scm_Error("Either #f, :omit, :replace or :escape required, but got:",handling);}}
4989 
4990 #line 501 "libstr.scm"
4991 if (!((SCM_FALSEP(filler))||(SCM_CHARP(filler)))){{
4992 Scm_Error("Either a character or #f required, but got:",filler);}}
4993 
4994 #line 503 "libstr.scm"
4995 {const ScmStringBody* b=SCM_STRING_BODY(str);
4996 if (!(SCM_STRING_BODY_INCOMPLETE_P(b))){{
4997 #line 506 "libstr.scm"
4998 {SCM_RESULT=(Scm_CopyString(str));goto SCM_STUB_RETURN;}}}
4999 {const char* s=SCM_STRING_BODY_START(b);ScmSmallInt siz=
5000 SCM_STRING_BODY_SIZE(b);ScmSmallInt len=
5001 Scm_MBLen(s,(s)+(siz));
5002 if ((len)>=(0)){{
5003 #line 512 "libstr.scm"
5004 {SCM_RESULT=(Scm_MakeString(s,siz,len,0));goto SCM_STUB_RETURN;}}}
5005 if (SCM_FALSEP(handling)){{
5006 #line 515 "libstr.scm"
5007 {SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}}}
5008 {const char* p=s;ScmDString ds;ScmChar echar=
5009 #line 518 "libstr.scm"
5010 ((SCM_CHARP(filler))?(
5011 SCM_CHAR_VALUE(filler)):('\x3f'));
5012 #line 521 "libstr.scm"
5013 Scm_DStringInit(&(ds));
5014 while((p)<((s)+(siz))){
5015 {ScmChar ch;
5016 if (((p)+(SCM_CHAR_NFOLLOWS(*(p))))>=((s)+(siz))){
5017 ch=(SCM_CHAR_INVALID);} else {
5018 SCM_CHAR_GET(p,ch);}
5019 if (
5020 (SCM_EQ(handling,scm__rc.d1562[285]))&&(
5021 (ch)==(echar))){
5022 Scm_DStringPutc(&(ds),ch);
5023 Scm_DStringPutc(&(ds),ch);
5024 (p)+=(SCM_CHAR_NBYTES(ch));}else if(
5025 (ch)!=(SCM_CHAR_INVALID)){
5026 Scm_DStringPutc(&(ds),ch);
5027 (p)+=(SCM_CHAR_NBYTES(ch));}else if(
5028 SCM_EQ(handling,scm__rc.d1562[284])){++(p);}else if(
5029 SCM_EQ(handling,scm__rc.d1562[283])){
5030 Scm_DStringPutc(&(ds),echar);
5031 ++(p);}else if(
5032 SCM_EQ(handling,scm__rc.d1562[285])){
5033 {u_char octet=*(p);
5034 Scm_DStringPutc(&(ds),echar);
5035 Scm_DStringPutc(&(ds),Scm_IntToDigit((octet)>>(4),16,0,0));
5036 Scm_DStringPutc(&(ds),Scm_IntToDigit((octet)&(15),16,0,0));
5037 ++(p);}}}}
5038 {SCM_RESULT=(Scm_DStringGet(&(ds),0));goto SCM_STUB_RETURN;}}}}
5039 goto SCM_STUB_RETURN;
5040 SCM_STUB_RETURN:
5041 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5042 }
5043   }
5044 }
5045 
libstrmake_byte_string(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5046 static ScmObj libstrmake_byte_string(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5047 {
5048   ScmObj size_scm;
5049   int size;
5050   ScmObj byte_scm;
5051   u_int byte;
5052   ScmObj SCM_SUBRARGS[3];
5053   SCM_ENTER_SUBR("make-byte-string");
5054   if (SCM_ARGCNT >= 3
5055       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5056     Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5057   for (int SCM_i=0; SCM_i<3; SCM_i++) {
5058     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5059   }
5060   size_scm = SCM_SUBRARGS[0];
5061   if (!SCM_INTEGERP(size_scm)) Scm_Error("32bit signed integer required, but got %S", size_scm);
5062   size = Scm_GetInteger32(size_scm);
5063   if (SCM_ARGCNT > 1+1) {
5064     byte_scm = SCM_SUBRARGS[1];
5065   } else {
5066     byte_scm = SCM_MAKE_INT(0);
5067   }
5068   if (!SCM_UINTP(byte_scm)) Scm_Error("8bit unsigned integer required, but got %S", byte_scm);
5069   byte = Scm_GetIntegerU8(byte_scm);
5070   {
5071 {
5072 ScmObj SCM_RESULT;
5073 
5074 #line 549 "libstr.scm"
5075 {char* s;
5076 if ((size)<(0)){{Scm_Error("size out of bound: %d",size);}}
5077 s=(SCM_NEW_ATOMIC2(char*,size));
5078 memset(s,byte,size);
5079 {SCM_RESULT=(Scm_MakeString(s,size,size,SCM_STRING_INCOMPLETE));goto SCM_STUB_RETURN;}}
5080 goto SCM_STUB_RETURN;
5081 SCM_STUB_RETURN:
5082 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5083 }
5084   }
5085 }
5086 
libstrstring_byte_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5087 static ScmObj libstrstring_byte_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5088 {
5089   ScmObj str_scm;
5090   ScmString* str;
5091   ScmObj k_scm;
5092   ScmSmallInt k;
5093   ScmObj fallback_scm;
5094   ScmObj fallback;
5095   ScmObj SCM_SUBRARGS[4];
5096   SCM_ENTER_SUBR("string-byte-ref");
5097   if (SCM_ARGCNT >= 4
5098       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5099     Scm_Error("too many arguments: up to 3 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5100   for (int SCM_i=0; SCM_i<4; SCM_i++) {
5101     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5102   }
5103   str_scm = SCM_SUBRARGS[0];
5104   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
5105   str = SCM_STRING(str_scm);
5106   k_scm = SCM_SUBRARGS[1];
5107   if (!SCM_INTP(k_scm)) Scm_Error("small integer required, but got %S", k_scm);
5108   k = SCM_INT_VALUE(k_scm);
5109   if (SCM_ARGCNT > 2+1) {
5110     fallback_scm = SCM_SUBRARGS[2];
5111   } else {
5112     fallback_scm = SCM_UNBOUND;
5113   }
5114   fallback = (fallback_scm);
5115   {
5116 {
5117 ScmObj SCM_RESULT;
5118 
5119 #line 556 "libstr.scm"
5120 {int r=Scm_StringByteRef(str,k,SCM_UNBOUNDP(fallback));
5121 {SCM_RESULT=((((r)<(0))?(fallback):(SCM_MAKE_INT(r))));goto SCM_STUB_RETURN;}}
5122 goto SCM_STUB_RETURN;
5123 SCM_STUB_RETURN:
5124 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5125 }
5126   }
5127 }
5128 
libstrbyte_substring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5129 static ScmObj libstrbyte_substring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5130 {
5131   ScmObj str_scm;
5132   ScmString* str;
5133   ScmObj start_scm;
5134   ScmSmallInt start;
5135   ScmObj end_scm;
5136   ScmSmallInt end;
5137   ScmObj SCM_SUBRARGS[3];
5138   SCM_ENTER_SUBR("byte-substring");
5139   for (int SCM_i=0; SCM_i<3; SCM_i++) {
5140     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5141   }
5142   str_scm = SCM_SUBRARGS[0];
5143   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
5144   str = SCM_STRING(str_scm);
5145   start_scm = SCM_SUBRARGS[1];
5146   if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
5147   start = SCM_INT_VALUE(start_scm);
5148   end_scm = SCM_SUBRARGS[2];
5149   if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
5150   end = SCM_INT_VALUE(end_scm);
5151   {
5152 {
5153 ScmObj SCM_RESULT;
5154 
5155 #line 560 "libstr.scm"
5156 {SCM_RESULT=(Scm_Substring(str,start,end,TRUE));goto SCM_STUB_RETURN;}
5157 goto SCM_STUB_RETURN;
5158 SCM_STUB_RETURN:
5159 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5160 }
5161   }
5162 }
5163 
5164 #if GAUCHE_STRING_POINTER
libstrmake_string_pointer(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5165 static ScmObj libstrmake_string_pointer(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5166 {
5167   ScmObj str_scm;
5168   ScmString* str;
5169   ScmObj index_scm;
5170   ScmSmallInt index;
5171   ScmObj start_scm;
5172   ScmSmallInt start;
5173   ScmObj end_scm;
5174   ScmSmallInt end;
5175   ScmObj SCM_SUBRARGS[7];
5176   SCM_ENTER_SUBR("make-string-pointer");
5177   if (SCM_ARGCNT >= 5
5178       && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
5179     Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
5180   for (int SCM_i=0; SCM_i<7; SCM_i++) {
5181     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5182   }
5183   str_scm = SCM_SUBRARGS[0];
5184   if (!SCM_STRINGP(str_scm)) Scm_Error("string required, but got %S", str_scm);
5185   str = SCM_STRING(str_scm);
5186   if (SCM_ARGCNT > 1+1) {
5187     index_scm = SCM_SUBRARGS[1];
5188   } else {
5189     index_scm = SCM_MAKE_INT(0);
5190   }
5191   if (!SCM_INTP(index_scm)) Scm_Error("small integer required, but got %S", index_scm);
5192   index = SCM_INT_VALUE(index_scm);
5193   if (SCM_ARGCNT > 2+1) {
5194     start_scm = SCM_SUBRARGS[2];
5195   } else {
5196     start_scm = SCM_MAKE_INT(0);
5197   }
5198   if (!SCM_INTP(start_scm)) Scm_Error("small integer required, but got %S", start_scm);
5199   start = SCM_INT_VALUE(start_scm);
5200   if (SCM_ARGCNT > 3+1) {
5201     end_scm = SCM_SUBRARGS[3];
5202   } else {
5203     end_scm = SCM_MAKE_INT(-1);
5204   }
5205   if (!SCM_INTP(end_scm)) Scm_Error("small integer required, but got %S", end_scm);
5206   end = SCM_INT_VALUE(end_scm);
5207   {
5208 {
5209 ScmObj SCM_RESULT;
5210 {SCM_RESULT=(Scm_MakeStringPointer(str,index,start,end));goto SCM_STUB_RETURN;}
5211 goto SCM_STUB_RETURN;
5212 SCM_STUB_RETURN:
5213 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5214 }
5215   }
5216 }
5217 
5218 #endif /* GAUCHE_STRING_POINTER */
5219 #if GAUCHE_STRING_POINTER
libstrstring_pointerP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5220 static ScmObj libstrstring_pointerP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5221 {
5222   ScmObj obj_scm;
5223   ScmObj obj;
5224   ScmObj SCM_SUBRARGS[1];
5225   SCM_ENTER_SUBR("string-pointer?");
5226   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5227     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5228   }
5229   obj_scm = SCM_SUBRARGS[0];
5230   obj = (obj_scm);
5231   {
5232 {
5233 int SCM_RESULT;
5234 {SCM_RESULT=(SCM_STRING_POINTERP(obj));goto SCM_STUB_RETURN;}
5235 goto SCM_STUB_RETURN;
5236 SCM_STUB_RETURN:
5237 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5238 }
5239   }
5240 }
5241 
5242 #endif /* GAUCHE_STRING_POINTER */
5243 #if GAUCHE_STRING_POINTER
libstrstring_pointer_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5244 static ScmObj libstrstring_pointer_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5245 {
5246   ScmObj sp_scm;
5247   ScmStringPointer* sp;
5248   ScmObj SCM_SUBRARGS[1];
5249   SCM_ENTER_SUBR("string-pointer-ref");
5250   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5251     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5252   }
5253   sp_scm = SCM_SUBRARGS[0];
5254   if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5255   sp = SCM_STRING_POINTER(sp_scm);
5256   {
5257 {
5258 ScmObj SCM_RESULT;
5259 {SCM_RESULT=(Scm_StringPointerRef(sp));goto SCM_STUB_RETURN;}
5260 goto SCM_STUB_RETURN;
5261 SCM_STUB_RETURN:
5262 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5263 }
5264   }
5265 }
5266 
5267 #endif /* GAUCHE_STRING_POINTER */
5268 #if GAUCHE_STRING_POINTER
libstrstring_pointer_nextX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5269 static ScmObj libstrstring_pointer_nextX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5270 {
5271   ScmObj sp_scm;
5272   ScmStringPointer* sp;
5273   ScmObj SCM_SUBRARGS[1];
5274   SCM_ENTER_SUBR("string-pointer-next!");
5275   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5276     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5277   }
5278   sp_scm = SCM_SUBRARGS[0];
5279   if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5280   sp = SCM_STRING_POINTER(sp_scm);
5281   {
5282 {
5283 ScmObj SCM_RESULT;
5284 {SCM_RESULT=(Scm_StringPointerNext(sp));goto SCM_STUB_RETURN;}
5285 goto SCM_STUB_RETURN;
5286 SCM_STUB_RETURN:
5287 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5288 }
5289   }
5290 }
5291 
5292 #endif /* GAUCHE_STRING_POINTER */
5293 #if GAUCHE_STRING_POINTER
libstrstring_pointer_prevX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5294 static ScmObj libstrstring_pointer_prevX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5295 {
5296   ScmObj sp_scm;
5297   ScmStringPointer* sp;
5298   ScmObj SCM_SUBRARGS[1];
5299   SCM_ENTER_SUBR("string-pointer-prev!");
5300   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5301     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5302   }
5303   sp_scm = SCM_SUBRARGS[0];
5304   if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5305   sp = SCM_STRING_POINTER(sp_scm);
5306   {
5307 {
5308 ScmObj SCM_RESULT;
5309 {SCM_RESULT=(Scm_StringPointerPrev(sp));goto SCM_STUB_RETURN;}
5310 goto SCM_STUB_RETURN;
5311 SCM_STUB_RETURN:
5312 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5313 }
5314   }
5315 }
5316 
5317 #endif /* GAUCHE_STRING_POINTER */
5318 #if GAUCHE_STRING_POINTER
libstrstring_pointer_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5319 static ScmObj libstrstring_pointer_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5320 {
5321   ScmObj sp_scm;
5322   ScmStringPointer* sp;
5323   ScmObj index_scm;
5324   ScmSmallInt index;
5325   ScmObj SCM_SUBRARGS[2];
5326   SCM_ENTER_SUBR("string-pointer-set!");
5327   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5328     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5329   }
5330   sp_scm = SCM_SUBRARGS[0];
5331   if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5332   sp = SCM_STRING_POINTER(sp_scm);
5333   index_scm = SCM_SUBRARGS[1];
5334   if (!SCM_INTP(index_scm)) Scm_Error("small integer required, but got %S", index_scm);
5335   index = SCM_INT_VALUE(index_scm);
5336   {
5337 {
5338 ScmObj SCM_RESULT;
5339 {SCM_RESULT=(Scm_StringPointerSet(sp,index));goto SCM_STUB_RETURN;}
5340 goto SCM_STUB_RETURN;
5341 SCM_STUB_RETURN:
5342 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5343 }
5344   }
5345 }
5346 
5347 #endif /* GAUCHE_STRING_POINTER */
5348 #if GAUCHE_STRING_POINTER
libstrstring_pointer_substring(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5349 static ScmObj libstrstring_pointer_substring(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5350 {
5351   ScmObj sp_scm;
5352   ScmStringPointer* sp;
5353   ScmObj after_scm = SCM_FALSE;
5354   ScmObj after;
5355   ScmObj SCM_SUBRARGS[1];
5356   ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
5357   SCM_ENTER_SUBR("string-pointer-substring");
5358   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5359     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5360   }
5361   sp_scm = SCM_SUBRARGS[0];
5362   if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5363   sp = SCM_STRING_POINTER(sp_scm);
5364   if (Scm_Length(SCM_OPTARGS) % 2)
5365     Scm_Error("keyword list not even: %S", SCM_OPTARGS);
5366   while (!SCM_NULLP(SCM_OPTARGS)) {
5367     if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1601[22])) {
5368       after_scm = SCM_CADR(SCM_OPTARGS);
5369     }
5370     else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
5371     SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
5372   }
5373   after = (after_scm);
5374   {
5375 {
5376 ScmObj SCM_RESULT;
5377 
5378 #line 676 "libstr.scm"
5379 {SCM_RESULT=(Scm_StringPointerSubstring(sp,!(SCM_FALSEP(after))));goto SCM_STUB_RETURN;}
5380 goto SCM_STUB_RETURN;
5381 SCM_STUB_RETURN:
5382 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5383 }
5384   }
5385 }
5386 
5387 #endif /* GAUCHE_STRING_POINTER */
5388 #if GAUCHE_STRING_POINTER
libstrstring_pointer_index(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5389 static ScmObj libstrstring_pointer_index(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5390 {
5391   ScmObj sp_scm;
5392   ScmStringPointer* sp;
5393   ScmObj SCM_SUBRARGS[1];
5394   SCM_ENTER_SUBR("string-pointer-index");
5395   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5396     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5397   }
5398   sp_scm = SCM_SUBRARGS[0];
5399   if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5400   sp = SCM_STRING_POINTER(sp_scm);
5401   {
5402 {
5403 int SCM_RESULT;
5404 
5405 #line 678 "libstr.scm"
5406 {SCM_RESULT=((sp)->index);goto SCM_STUB_RETURN;}
5407 goto SCM_STUB_RETURN;
5408 SCM_STUB_RETURN:
5409 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
5410 }
5411   }
5412 }
5413 
5414 #endif /* GAUCHE_STRING_POINTER */
5415 #if GAUCHE_STRING_POINTER
libstrstring_pointer_copy(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5416 static ScmObj libstrstring_pointer_copy(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5417 {
5418   ScmObj sp_scm;
5419   ScmStringPointer* sp;
5420   ScmObj SCM_SUBRARGS[1];
5421   SCM_ENTER_SUBR("string-pointer-copy");
5422   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5423     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5424   }
5425   sp_scm = SCM_SUBRARGS[0];
5426   if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5427   sp = SCM_STRING_POINTER(sp_scm);
5428   {
5429 {
5430 ScmObj SCM_RESULT;
5431 {SCM_RESULT=(Scm_StringPointerCopy(sp));goto SCM_STUB_RETURN;}
5432 goto SCM_STUB_RETURN;
5433 SCM_STUB_RETURN:
5434 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5435 }
5436   }
5437 }
5438 
5439 #endif /* GAUCHE_STRING_POINTER */
5440 #if GAUCHE_STRING_POINTER
libstrstring_pointer_byte_index(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5441 static ScmObj libstrstring_pointer_byte_index(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5442 {
5443   ScmObj sp_scm;
5444   ScmStringPointer* sp;
5445   ScmObj SCM_SUBRARGS[1];
5446   SCM_ENTER_SUBR("string-pointer-byte-index");
5447   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5448     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5449   }
5450   sp_scm = SCM_SUBRARGS[0];
5451   if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5452   sp = SCM_STRING_POINTER(sp_scm);
5453   {
5454 {
5455 int SCM_RESULT;
5456 
5457 #line 682 "libstr.scm"
5458 {SCM_RESULT=(((int )(((sp)->current)-((sp)->start))));goto SCM_STUB_RETURN;}
5459 goto SCM_STUB_RETURN;
5460 SCM_STUB_RETURN:
5461 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
5462 }
5463   }
5464 }
5465 
5466 #endif /* GAUCHE_STRING_POINTER */
5467 #if GAUCHE_STRING_POINTER
libstr_25string_pointer_dump(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5468 static ScmObj libstr_25string_pointer_dump(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5469 {
5470   ScmObj sp_scm;
5471   ScmStringPointer* sp;
5472   ScmObj SCM_SUBRARGS[1];
5473   SCM_ENTER_SUBR("%string-pointer-dump");
5474   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5475     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5476   }
5477   sp_scm = SCM_SUBRARGS[0];
5478   if (!SCM_STRING_POINTERP(sp_scm)) Scm_Error("string pointer required, but got %S", sp_scm);
5479   sp = SCM_STRING_POINTER(sp_scm);
5480   {
5481 Scm_StringPointerDump(sp);
5482 goto SCM_STUB_RETURN;
5483 SCM_STUB_RETURN:
5484 SCM_RETURN(SCM_UNDEFINED);
5485   }
5486 }
5487 
5488 #endif /* GAUCHE_STRING_POINTER */
libstrstring_cursorP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5489 static ScmObj libstrstring_cursorP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5490 {
5491   ScmObj obj_scm;
5492   ScmObj obj;
5493   ScmObj SCM_SUBRARGS[1];
5494   SCM_ENTER_SUBR("string-cursor?");
5495   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5496     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5497   }
5498   obj_scm = SCM_SUBRARGS[0];
5499   obj = (obj_scm);
5500   {
5501 {
5502 int SCM_RESULT;
5503 {SCM_RESULT=(SCM_STRING_CURSOR_P(obj));goto SCM_STUB_RETURN;}
5504 goto SCM_STUB_RETURN;
5505 SCM_STUB_RETURN:
5506 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5507 }
5508   }
5509 }
5510 
libstrstring_cursor_start(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5511 static ScmObj libstrstring_cursor_start(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5512 {
5513   ScmObj s_scm;
5514   ScmString* s;
5515   ScmObj SCM_SUBRARGS[1];
5516   SCM_ENTER_SUBR("string-cursor-start");
5517   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5518     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5519   }
5520   s_scm = SCM_SUBRARGS[0];
5521   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5522   s = SCM_STRING(s_scm);
5523   {
5524 {
5525 ScmObj SCM_RESULT;
5526 
5527 #line 700 "libstr.scm"
5528 {SCM_RESULT=(Scm_MakeStringCursorFromIndex(s,0));goto SCM_STUB_RETURN;}
5529 goto SCM_STUB_RETURN;
5530 SCM_STUB_RETURN:
5531 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5532 }
5533   }
5534 }
5535 
libstrstring_cursor_end(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5536 static ScmObj libstrstring_cursor_end(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5537 {
5538   ScmObj s_scm;
5539   ScmString* s;
5540   ScmObj SCM_SUBRARGS[1];
5541   SCM_ENTER_SUBR("string-cursor-end");
5542   for (int SCM_i=0; SCM_i<1; SCM_i++) {
5543     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5544   }
5545   s_scm = SCM_SUBRARGS[0];
5546   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5547   s = SCM_STRING(s_scm);
5548   {
5549 {
5550 ScmObj SCM_RESULT;
5551 {SCM_RESULT=(Scm_MakeStringCursorEnd(s));goto SCM_STUB_RETURN;}
5552 goto SCM_STUB_RETURN;
5553 SCM_STUB_RETURN:
5554 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5555 }
5556   }
5557 }
5558 
libstrstring_cursor_next(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5559 static ScmObj libstrstring_cursor_next(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5560 {
5561   ScmObj s_scm;
5562   ScmString* s;
5563   ScmObj cursor_scm;
5564   ScmObj cursor;
5565   ScmObj SCM_SUBRARGS[2];
5566   SCM_ENTER_SUBR("string-cursor-next");
5567   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5568     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5569   }
5570   s_scm = SCM_SUBRARGS[0];
5571   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5572   s = SCM_STRING(s_scm);
5573   cursor_scm = SCM_SUBRARGS[1];
5574   cursor = (cursor_scm);
5575   {
5576 {
5577 ScmObj SCM_RESULT;
5578 
5579 #line 704 "libstr.scm"
5580 {SCM_RESULT=(Scm_StringCursorForward(s,cursor,1));goto SCM_STUB_RETURN;}
5581 goto SCM_STUB_RETURN;
5582 SCM_STUB_RETURN:
5583 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5584 }
5585   }
5586 }
5587 
libstrstring_cursor_prev(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5588 static ScmObj libstrstring_cursor_prev(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5589 {
5590   ScmObj s_scm;
5591   ScmString* s;
5592   ScmObj cursor_scm;
5593   ScmObj cursor;
5594   ScmObj SCM_SUBRARGS[2];
5595   SCM_ENTER_SUBR("string-cursor-prev");
5596   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5597     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5598   }
5599   s_scm = SCM_SUBRARGS[0];
5600   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5601   s = SCM_STRING(s_scm);
5602   cursor_scm = SCM_SUBRARGS[1];
5603   cursor = (cursor_scm);
5604   {
5605 {
5606 ScmObj SCM_RESULT;
5607 
5608 #line 706 "libstr.scm"
5609 {SCM_RESULT=(Scm_StringCursorBack(s,cursor,1));goto SCM_STUB_RETURN;}
5610 goto SCM_STUB_RETURN;
5611 SCM_STUB_RETURN:
5612 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5613 }
5614   }
5615 }
5616 
libstrstring_cursor_forward(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5617 static ScmObj libstrstring_cursor_forward(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5618 {
5619   ScmObj s_scm;
5620   ScmString* s;
5621   ScmObj cursor_scm;
5622   ScmObj cursor;
5623   ScmObj nchars_scm;
5624   ScmSmallInt nchars;
5625   ScmObj SCM_SUBRARGS[3];
5626   SCM_ENTER_SUBR("string-cursor-forward");
5627   for (int SCM_i=0; SCM_i<3; SCM_i++) {
5628     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5629   }
5630   s_scm = SCM_SUBRARGS[0];
5631   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5632   s = SCM_STRING(s_scm);
5633   cursor_scm = SCM_SUBRARGS[1];
5634   cursor = (cursor_scm);
5635   nchars_scm = SCM_SUBRARGS[2];
5636   if (!SCM_INTP(nchars_scm)) Scm_Error("small integer required, but got %S", nchars_scm);
5637   nchars = SCM_INT_VALUE(nchars_scm);
5638   {
5639 {
5640 ScmObj SCM_RESULT;
5641 {SCM_RESULT=(Scm_StringCursorForward(s,cursor,nchars));goto SCM_STUB_RETURN;}
5642 goto SCM_STUB_RETURN;
5643 SCM_STUB_RETURN:
5644 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5645 }
5646   }
5647 }
5648 
libstrstring_cursor_back(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5649 static ScmObj libstrstring_cursor_back(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5650 {
5651   ScmObj s_scm;
5652   ScmString* s;
5653   ScmObj cursor_scm;
5654   ScmObj cursor;
5655   ScmObj nchars_scm;
5656   ScmSmallInt nchars;
5657   ScmObj SCM_SUBRARGS[3];
5658   SCM_ENTER_SUBR("string-cursor-back");
5659   for (int SCM_i=0; SCM_i<3; SCM_i++) {
5660     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5661   }
5662   s_scm = SCM_SUBRARGS[0];
5663   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5664   s = SCM_STRING(s_scm);
5665   cursor_scm = SCM_SUBRARGS[1];
5666   cursor = (cursor_scm);
5667   nchars_scm = SCM_SUBRARGS[2];
5668   if (!SCM_INTP(nchars_scm)) Scm_Error("small integer required, but got %S", nchars_scm);
5669   nchars = SCM_INT_VALUE(nchars_scm);
5670   {
5671 {
5672 ScmObj SCM_RESULT;
5673 {SCM_RESULT=(Scm_StringCursorBack(s,cursor,nchars));goto SCM_STUB_RETURN;}
5674 goto SCM_STUB_RETURN;
5675 SCM_STUB_RETURN:
5676 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5677 }
5678   }
5679 }
5680 
libstrstring_index_TOcursor(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5681 static ScmObj libstrstring_index_TOcursor(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5682 {
5683   ScmObj s_scm;
5684   ScmString* s;
5685   ScmObj index_scm;
5686   ScmObj index;
5687   ScmObj SCM_SUBRARGS[2];
5688   SCM_ENTER_SUBR("string-index->cursor");
5689   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5690     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5691   }
5692   s_scm = SCM_SUBRARGS[0];
5693   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5694   s = SCM_STRING(s_scm);
5695   index_scm = SCM_SUBRARGS[1];
5696   index = (index_scm);
5697   {
5698 {
5699 ScmObj SCM_RESULT;
5700 
5701 #line 712 "libstr.scm"
5702 if (SCM_STRING_CURSOR_P(index)){
5703 {SCM_RESULT=(index);goto SCM_STUB_RETURN;}} else {
5704 {SCM_RESULT=(Scm_MakeStringCursorFromIndex(s,Scm_GetInteger(index)));goto SCM_STUB_RETURN;}}
5705 goto SCM_STUB_RETURN;
5706 SCM_STUB_RETURN:
5707 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5708 }
5709   }
5710 }
5711 
libstrstring_cursor_TOindex(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5712 static ScmObj libstrstring_cursor_TOindex(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5713 {
5714   ScmObj s_scm;
5715   ScmString* s;
5716   ScmObj cursor_scm;
5717   ScmObj cursor;
5718   ScmObj SCM_SUBRARGS[2];
5719   SCM_ENTER_SUBR("string-cursor->index");
5720   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5721     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5722   }
5723   s_scm = SCM_SUBRARGS[0];
5724   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5725   s = SCM_STRING(s_scm);
5726   cursor_scm = SCM_SUBRARGS[1];
5727   cursor = (cursor_scm);
5728   {
5729 {
5730 ScmObj SCM_RESULT;
5731 {SCM_RESULT=(Scm_StringCursorIndex(s,cursor));goto SCM_STUB_RETURN;}
5732 goto SCM_STUB_RETURN;
5733 SCM_STUB_RETURN:
5734 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5735 }
5736   }
5737 }
5738 
libstrstring_cursor_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5739 static ScmObj libstrstring_cursor_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5740 {
5741   ScmObj cursor1_scm;
5742   ScmObj cursor1;
5743   ScmObj cursor2_scm;
5744   ScmObj cursor2;
5745   ScmObj SCM_SUBRARGS[2];
5746   SCM_ENTER_SUBR("string-cursor=?");
5747   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5748     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5749   }
5750   cursor1_scm = SCM_SUBRARGS[0];
5751   cursor1 = (cursor1_scm);
5752   cursor2_scm = SCM_SUBRARGS[1];
5753   cursor2 = (cursor2_scm);
5754   {
5755 {
5756 int SCM_RESULT;
5757 
5758 #line 719 "libstr.scm"
5759 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumEq));goto SCM_STUB_RETURN;}
5760 goto SCM_STUB_RETURN;
5761 SCM_STUB_RETURN:
5762 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5763 }
5764   }
5765 }
5766 
libstrstring_cursor_LTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5767 static ScmObj libstrstring_cursor_LTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5768 {
5769   ScmObj cursor1_scm;
5770   ScmObj cursor1;
5771   ScmObj cursor2_scm;
5772   ScmObj cursor2;
5773   ScmObj SCM_SUBRARGS[2];
5774   SCM_ENTER_SUBR("string-cursor<?");
5775   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5776     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5777   }
5778   cursor1_scm = SCM_SUBRARGS[0];
5779   cursor1 = (cursor1_scm);
5780   cursor2_scm = SCM_SUBRARGS[1];
5781   cursor2 = (cursor2_scm);
5782   {
5783 {
5784 int SCM_RESULT;
5785 
5786 #line 722 "libstr.scm"
5787 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumLT));goto SCM_STUB_RETURN;}
5788 goto SCM_STUB_RETURN;
5789 SCM_STUB_RETURN:
5790 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5791 }
5792   }
5793 }
5794 
libstrstring_cursor_GTP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5795 static ScmObj libstrstring_cursor_GTP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5796 {
5797   ScmObj cursor1_scm;
5798   ScmObj cursor1;
5799   ScmObj cursor2_scm;
5800   ScmObj cursor2;
5801   ScmObj SCM_SUBRARGS[2];
5802   SCM_ENTER_SUBR("string-cursor>?");
5803   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5804     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5805   }
5806   cursor1_scm = SCM_SUBRARGS[0];
5807   cursor1 = (cursor1_scm);
5808   cursor2_scm = SCM_SUBRARGS[1];
5809   cursor2 = (cursor2_scm);
5810   {
5811 {
5812 int SCM_RESULT;
5813 
5814 #line 725 "libstr.scm"
5815 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumGT));goto SCM_STUB_RETURN;}
5816 goto SCM_STUB_RETURN;
5817 SCM_STUB_RETURN:
5818 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5819 }
5820   }
5821 }
5822 
libstrstring_cursor_LT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5823 static ScmObj libstrstring_cursor_LT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5824 {
5825   ScmObj cursor1_scm;
5826   ScmObj cursor1;
5827   ScmObj cursor2_scm;
5828   ScmObj cursor2;
5829   ScmObj SCM_SUBRARGS[2];
5830   SCM_ENTER_SUBR("string-cursor<=?");
5831   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5832     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5833   }
5834   cursor1_scm = SCM_SUBRARGS[0];
5835   cursor1 = (cursor1_scm);
5836   cursor2_scm = SCM_SUBRARGS[1];
5837   cursor2 = (cursor2_scm);
5838   {
5839 {
5840 int SCM_RESULT;
5841 
5842 #line 728 "libstr.scm"
5843 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumLE));goto SCM_STUB_RETURN;}
5844 goto SCM_STUB_RETURN;
5845 SCM_STUB_RETURN:
5846 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5847 }
5848   }
5849 }
5850 
libstrstring_cursor_GT_3dP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5851 static ScmObj libstrstring_cursor_GT_3dP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5852 {
5853   ScmObj cursor1_scm;
5854   ScmObj cursor1;
5855   ScmObj cursor2_scm;
5856   ScmObj cursor2;
5857   ScmObj SCM_SUBRARGS[2];
5858   SCM_ENTER_SUBR("string-cursor>=?");
5859   for (int SCM_i=0; SCM_i<2; SCM_i++) {
5860     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5861   }
5862   cursor1_scm = SCM_SUBRARGS[0];
5863   cursor1 = (cursor1_scm);
5864   cursor2_scm = SCM_SUBRARGS[1];
5865   cursor2 = (cursor2_scm);
5866   {
5867 {
5868 int SCM_RESULT;
5869 
5870 #line 731 "libstr.scm"
5871 {SCM_RESULT=(Scm_StringCursorCompare(cursor1,cursor2,Scm_NumGE));goto SCM_STUB_RETURN;}
5872 goto SCM_STUB_RETURN;
5873 SCM_STUB_RETURN:
5874 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
5875 }
5876   }
5877 }
5878 
libstrstring_cursor_diff(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)5879 static ScmObj libstrstring_cursor_diff(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
5880 {
5881   ScmObj s_scm;
5882   ScmString* s;
5883   ScmObj start_scm;
5884   ScmObj start;
5885   ScmObj end_scm;
5886   ScmObj end;
5887   ScmObj SCM_SUBRARGS[3];
5888   SCM_ENTER_SUBR("string-cursor-diff");
5889   for (int SCM_i=0; SCM_i<3; SCM_i++) {
5890     SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
5891   }
5892   s_scm = SCM_SUBRARGS[0];
5893   if (!SCM_STRINGP(s_scm)) Scm_Error("string required, but got %S", s_scm);
5894   s = SCM_STRING(s_scm);
5895   start_scm = SCM_SUBRARGS[1];
5896   start = (start_scm);
5897   end_scm = SCM_SUBRARGS[2];
5898   end = (end_scm);
5899   {
5900 {
5901 ScmObj SCM_RESULT;
5902 
5903 #line 734 "libstr.scm"
5904 {SCM_RESULT=(Scm_Sub(Scm_StringCursorIndex(s,end),
5905 Scm_StringCursorIndex(s,start)));goto SCM_STUB_RETURN;}
5906 goto SCM_STUB_RETURN;
5907 SCM_STUB_RETURN:
5908 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
5909 }
5910   }
5911 }
5912 
5913 static ScmCompiledCode *toplevels[] = {
5914   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[1])),
5915   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[9])),
5916   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[14])),
5917   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[16])),
5918   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[20])),
5919   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[24])),
5920   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[28])),
5921   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[35])),
5922  NULL /*termination*/
5923 };
Scm_Init_libstr()5924 void Scm_Init_libstr() {
5925    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
5926    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
5927    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
5928   scm__rc.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* string? */
5929   scm__rc.d1562[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1])),TRUE); /* obj */
5930   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[1]);
5931   scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* source-info */
5932   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[4]), scm__rc.d1562[2]);
5933   scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[4])),TRUE); /* bind-info */
5934   scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* scheme */
5935   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[0]);
5936   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[4]);
5937   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[3]);
5938   scm__rc.d1562[5] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[9]));
5939   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string?")), SCM_OBJ(&libstrstringP__STUB), SCM_BINDING_INLINABLE);
5940   libstrstringP__STUB.common.info = scm__rc.d1562[5];
5941    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
5942   scm__rc.d1562[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* string-incomplete? */
5943   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[12]), scm__rc.d1562[2]);
5944   scm__rc.d1562[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* gauche */
5945   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[13]), scm__rc.d1562[6]);
5946   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[14]), scm__rc.d1562[7]);
5947   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[15]), scm__rc.d1562[3]);
5948   scm__rc.d1562[8] = Scm_MakeExtendedPair(scm__rc.d1562[6], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[17]));
5949   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-incomplete?")), SCM_OBJ(&libstrstring_incompleteP__STUB), 0);
5950   libstrstring_incompleteP__STUB.common.info = scm__rc.d1562[8];
5951   scm__rc.d1562[9] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* string-immutable? */
5952   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[20]), scm__rc.d1562[2]);
5953   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[21]), scm__rc.d1562[9]);
5954   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[22]), scm__rc.d1562[7]);
5955   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[3]);
5956   scm__rc.d1562[10] = Scm_MakeExtendedPair(scm__rc.d1562[9], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[25]));
5957   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-immutable?")), SCM_OBJ(&libstrstring_immutableP__STUB), 0);
5958   libstrstring_immutableP__STUB.common.info = scm__rc.d1562[10];
5959    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
5960   scm__rc.d1562[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9])),TRUE); /* make-string */
5961   scm__rc.d1562[12] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[10])),TRUE); /* len */
5962   scm__rc.d1562[13] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11]))); /* :optional */
5963   scm__rc.d1562[14] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* c */
5964   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[26]), scm__rc.d1562[14]);
5965   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[27]), scm__rc.d1562[13]);
5966   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[28]), scm__rc.d1562[12]);
5967   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[31]), scm__rc.d1562[2]);
5968   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[32]), scm__rc.d1562[11]);
5969   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[33]), scm__rc.d1562[4]);
5970   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[34]), scm__rc.d1562[3]);
5971   scm__rc.d1562[15] = Scm_MakeExtendedPair(scm__rc.d1562[11], SCM_OBJ(&scm__rc.d1563[28]), SCM_OBJ(&scm__rc.d1563[36]));
5972   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("make-string")), SCM_OBJ(&libstrmake_string__STUB), 0);
5973   libstrmake_string__STUB.common.info = scm__rc.d1562[15];
5974   scm__rc.d1562[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[13])),TRUE); /* string */
5975   scm__rc.d1562[17] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14]))); /* :rest */
5976   scm__rc.d1562[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* chars */
5977   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[37]), scm__rc.d1562[18]);
5978   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[38]), scm__rc.d1562[17]);
5979   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[41]), scm__rc.d1562[2]);
5980   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[42]), scm__rc.d1562[16]);
5981   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[43]), scm__rc.d1562[4]);
5982   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[44]), scm__rc.d1562[3]);
5983   scm__rc.d1562[19] = Scm_MakeExtendedPair(scm__rc.d1562[16], SCM_OBJ(&scm__rc.d1563[38]), SCM_OBJ(&scm__rc.d1563[46]));
5984   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string")), SCM_OBJ(&libstrstring__STUB), 0);
5985   libstrstring__STUB.common.info = scm__rc.d1562[19];
5986   scm__rc.d1562[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* string-copy */
5987   scm__rc.d1562[21] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17])),TRUE); /* str */
5988   scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* start */
5989   scm__rc.d1562[23] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* end */
5990   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[47]), scm__rc.d1562[23]);
5991   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[48]), scm__rc.d1562[22]);
5992   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[49]), scm__rc.d1562[13]);
5993   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[50]), scm__rc.d1562[21]);
5994   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[53]), scm__rc.d1562[2]);
5995   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[54]), scm__rc.d1562[20]);
5996   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[55]), scm__rc.d1562[4]);
5997   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[56]), scm__rc.d1562[3]);
5998   scm__rc.d1562[24] = Scm_MakeExtendedPair(scm__rc.d1562[20], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[58]));
5999   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-copy")), SCM_OBJ(&libstrstring_copy__STUB), 0);
6000   libstrstring_copy__STUB.common.info = scm__rc.d1562[24];
6001   scm__rc.d1562[25] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* string-append */
6002   scm__rc.d1562[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* args */
6003   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[59]), scm__rc.d1562[26]);
6004   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[60]), scm__rc.d1562[17]);
6005   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[63]), scm__rc.d1562[2]);
6006   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[64]), scm__rc.d1562[25]);
6007   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[65]), scm__rc.d1562[4]);
6008   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[66]), scm__rc.d1562[3]);
6009   scm__rc.d1562[27] = Scm_MakeExtendedPair(scm__rc.d1562[25], SCM_OBJ(&scm__rc.d1563[60]), SCM_OBJ(&scm__rc.d1563[68]));
6010   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-append")), SCM_OBJ(&libstrstring_append__STUB), 0);
6011   libstrstring_append__STUB.common.info = scm__rc.d1562[27];
6012    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6013   scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* string-copy-immutable */
6014   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[71]), scm__rc.d1562[2]);
6015   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[72]), scm__rc.d1562[28]);
6016   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[73]), scm__rc.d1562[7]);
6017   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[74]), scm__rc.d1562[3]);
6018   scm__rc.d1562[29] = Scm_MakeExtendedPair(scm__rc.d1562[28], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[76]));
6019   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-copy-immutable")), SCM_OBJ(&libstrstring_copy_immutable__STUB), 0);
6020   libstrstring_copy_immutable__STUB.common.info = scm__rc.d1562[29];
6021   scm__rc.d1562[30] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),TRUE); /* infix */
6022   scm__rc.d1562[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* prefix */
6023   scm__rc.d1562[32] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* suffix */
6024   scm__rc.d1562[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28])),TRUE); /* strict-infix */
6025   scm__rc.d1562[34] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* string-join */
6026   scm__rc.d1562[35] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),TRUE); /* strs */
6027   scm__rc.d1562[36] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),TRUE); /* delim */
6028   scm__rc.d1562[37] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* grammar */
6029   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[77]), scm__rc.d1562[37]);
6030   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[78]), scm__rc.d1562[36]);
6031   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[79]), scm__rc.d1562[13]);
6032   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[80]), scm__rc.d1562[35]);
6033   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[83]), scm__rc.d1562[2]);
6034   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[84]), scm__rc.d1562[34]);
6035   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[85]), scm__rc.d1562[7]);
6036   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[86]), scm__rc.d1562[3]);
6037   scm__rc.d1562[38] = Scm_MakeExtendedPair(scm__rc.d1562[34], SCM_OBJ(&scm__rc.d1563[80]), SCM_OBJ(&scm__rc.d1563[88]));
6038   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-join")), SCM_OBJ(&libstrstring_join__STUB), 0);
6039   libstrstring_join__STUB.common.info = scm__rc.d1562[38];
6040   scm__rc.d1562[39] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32])),TRUE); /* string-interpolate */
6041   scm__rc.d1562[41] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[7]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
6042   scm__rc.d1562[40] = Scm_MakeIdentifier(scm__rc.d1562[39], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-interpolate */
6043   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[91]), scm__rc.d1562[2]);
6044   scm__rc.d1562[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* unused-args */
6045   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[92]), scm__rc.d1562[42]);
6046   scm__rc.d1562[43] = Scm_MakeExtendedPair(SCM_FALSE, scm__rc.d1562[26], SCM_OBJ(&scm__rc.d1563[94]));
6047   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[95]), scm__rc.d1562[43]);
6048   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[0]))[1] = SCM_WORD(scm__rc.d1562[40]);
6049   scm__rc.d1562[45] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* define-reader-ctor */
6050   scm__rc.d1562[44] = Scm_MakeIdentifier(scm__rc.d1562[45], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#define-reader-ctor */
6051   scm__rc.d1562[46] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* %toplevel */
6052   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[1]))->name = scm__rc.d1562[46];/* %toplevel */
6053   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[5]))[1] = SCM_WORD(scm__rc.d1562[39]);
6054   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[5]))[5] = SCM_WORD(scm__rc.d1562[44]);
6055    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
6056   scm__rc.d1562[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[36])),TRUE); /* string->list */
6057   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[98]), scm__rc.d1562[2]);
6058   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[99]), scm__rc.d1562[47]);
6059   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[100]), scm__rc.d1562[4]);
6060   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[101]), scm__rc.d1562[3]);
6061   scm__rc.d1562[48] = Scm_MakeExtendedPair(scm__rc.d1562[47], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[103]));
6062   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string->list")), SCM_OBJ(&libstrstring_TOlist__STUB), 0);
6063   libstrstring_TOlist__STUB.common.info = scm__rc.d1562[48];
6064   scm__rc.d1562[49] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[37])),TRUE); /* list->string */
6065   scm__rc.d1562[50] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[38])),TRUE); /* list */
6066   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[104]), scm__rc.d1562[50]);
6067   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[107]), scm__rc.d1562[2]);
6068   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[108]), scm__rc.d1562[49]);
6069   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[109]), scm__rc.d1562[4]);
6070   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[110]), scm__rc.d1562[3]);
6071   scm__rc.d1562[51] = Scm_MakeExtendedPair(scm__rc.d1562[49], SCM_OBJ(&scm__rc.d1563[104]), SCM_OBJ(&scm__rc.d1563[112]));
6072   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("list->string")), SCM_OBJ(&libstrlist_TOstring__STUB), 0);
6073   libstrlist_TOstring__STUB.common.info = scm__rc.d1562[51];
6074    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
6075   scm__rc.d1562[52] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[39])),TRUE); /* string-length */
6076   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[113]), scm__rc.d1562[21]);
6077   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[116]), scm__rc.d1562[2]);
6078   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[117]), scm__rc.d1562[52]);
6079   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[118]), scm__rc.d1562[4]);
6080   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[119]), scm__rc.d1562[3]);
6081   scm__rc.d1562[53] = Scm_MakeExtendedPair(scm__rc.d1562[52], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[121]));
6082   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-length")), SCM_OBJ(&libstrstring_length__STUB), SCM_BINDING_INLINABLE);
6083   libstrstring_length__STUB.common.info = scm__rc.d1562[53];
6084   scm__rc.d1562[54] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[40])),TRUE); /* string-ref */
6085   scm__rc.d1562[55] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[41])),TRUE); /* k */
6086   scm__rc.d1562[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[42])),TRUE); /* fallback */
6087   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[122]), scm__rc.d1562[56]);
6088   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[123]), scm__rc.d1562[13]);
6089   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[124]), scm__rc.d1562[55]);
6090   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[125]), scm__rc.d1562[21]);
6091   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[128]), scm__rc.d1562[2]);
6092   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[129]), scm__rc.d1562[54]);
6093   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[130]), scm__rc.d1562[4]);
6094   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[131]), scm__rc.d1562[3]);
6095   scm__rc.d1562[57] = Scm_MakeExtendedPair(scm__rc.d1562[54], SCM_OBJ(&scm__rc.d1563[125]), SCM_OBJ(&scm__rc.d1563[133]));
6096   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ref")), SCM_OBJ(&libstrstring_ref__STUB), SCM_BINDING_INLINABLE);
6097   libstrstring_ref__STUB.common.info = scm__rc.d1562[57];
6098   scm__rc.d1562[58] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[43])),TRUE); /* substring */
6099   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[134]), scm__rc.d1562[21]);
6100   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[137]), scm__rc.d1562[2]);
6101   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[138]), scm__rc.d1562[58]);
6102   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[139]), scm__rc.d1562[4]);
6103   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[140]), scm__rc.d1562[3]);
6104   scm__rc.d1562[59] = Scm_MakeExtendedPair(scm__rc.d1562[58], SCM_OBJ(&scm__rc.d1563[134]), SCM_OBJ(&scm__rc.d1563[142]));
6105   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("substring")), SCM_OBJ(&libstrsubstring__STUB), 0);
6106   libstrsubstring__STUB.common.info = scm__rc.d1562[59];
6107    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6108   scm__rc.d1562[60] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[44])),TRUE); /* string-size */
6109   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[145]), scm__rc.d1562[2]);
6110   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[146]), scm__rc.d1562[60]);
6111   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[147]), scm__rc.d1562[7]);
6112   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[148]), scm__rc.d1562[3]);
6113   scm__rc.d1562[61] = Scm_MakeExtendedPair(scm__rc.d1562[60], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[150]));
6114   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-size")), SCM_OBJ(&libstrstring_size__STUB), SCM_BINDING_INLINABLE);
6115   libstrstring_size__STUB.common.info = scm__rc.d1562[61];
6116   scm__rc.d1562[62] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[45])),TRUE); /* %maybe-substring */
6117   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[153]), scm__rc.d1562[2]);
6118   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[154]), scm__rc.d1562[62]);
6119   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[155]), scm__rc.d1562[7]);
6120   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[156]), scm__rc.d1562[3]);
6121   scm__rc.d1562[63] = Scm_MakeExtendedPair(scm__rc.d1562[62], SCM_OBJ(&scm__rc.d1563[50]), SCM_OBJ(&scm__rc.d1563[158]));
6122   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%maybe-substring")), SCM_OBJ(&libstr_25maybe_substring__STUB), 0);
6123   libstr_25maybe_substring__STUB.common.info = scm__rc.d1562[63];
6124   scm__rc.d1562[64] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[46])),TRUE); /* %hash-string */
6125   scm__rc.d1562[65] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[47])),TRUE); /* bound */
6126   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[159]), scm__rc.d1562[65]);
6127   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[160]), scm__rc.d1562[13]);
6128   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[161]), scm__rc.d1562[21]);
6129   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[164]), scm__rc.d1562[2]);
6130   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[165]), scm__rc.d1562[64]);
6131   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[166]), scm__rc.d1562[7]);
6132   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[167]), scm__rc.d1562[3]);
6133   scm__rc.d1562[66] = Scm_MakeExtendedPair(scm__rc.d1562[64], SCM_OBJ(&scm__rc.d1563[161]), SCM_OBJ(&scm__rc.d1563[169]));
6134   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("%hash-string")), SCM_OBJ(&libstr_25hash_string__STUB), 0);
6135   libstr_25hash_string__STUB.common.info = scm__rc.d1562[66];
6136    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6137   scm__rc.d1562[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[48])),TRUE); /* both */
6138   scm__rc.d1562[68] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[49])),TRUE); /* after* */
6139   scm__rc.d1562[69] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[50])),TRUE); /* before* */
6140   scm__rc.d1562[70] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[51])),TRUE); /* after */
6141   scm__rc.d1562[71] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[52])),TRUE); /* before */
6142   scm__rc.d1562[72] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[53])),TRUE); /* cursor */
6143   scm__rc.d1562[73] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[54])),TRUE); /* index */
6144   scm__rc.d1562[74] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[55])),TRUE); /* string-scan */
6145   scm__rc.d1562[75] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[56])),TRUE); /* s1 */
6146   scm__rc.d1562[76] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[57])),TRUE); /* s2 */
6147   scm__rc.d1562[77] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[58])),TRUE); /* mode */
6148   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[170]), scm__rc.d1562[77]);
6149   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[171]), scm__rc.d1562[13]);
6150   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[172]), scm__rc.d1562[76]);
6151   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[173]), scm__rc.d1562[75]);
6152   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[176]), scm__rc.d1562[2]);
6153   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[177]), scm__rc.d1562[74]);
6154   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[178]), scm__rc.d1562[7]);
6155   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[179]), scm__rc.d1562[3]);
6156   scm__rc.d1562[78] = Scm_MakeExtendedPair(scm__rc.d1562[74], SCM_OBJ(&scm__rc.d1563[173]), SCM_OBJ(&scm__rc.d1563[181]));
6157   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-scan")), SCM_OBJ(&libstrstring_scan__STUB), 0);
6158   libstrstring_scan__STUB.common.info = scm__rc.d1562[78];
6159   scm__rc.d1562[79] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[59])),TRUE); /* string-scan-right */
6160   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[184]), scm__rc.d1562[2]);
6161   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[185]), scm__rc.d1562[79]);
6162   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[186]), scm__rc.d1562[7]);
6163   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[187]), scm__rc.d1562[3]);
6164   scm__rc.d1562[80] = Scm_MakeExtendedPair(scm__rc.d1562[79], SCM_OBJ(&scm__rc.d1563[173]), SCM_OBJ(&scm__rc.d1563[189]));
6165   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-scan-right")), SCM_OBJ(&libstrstring_scan_right__STUB), 0);
6166   libstrstring_scan_right__STUB.common.info = scm__rc.d1562[80];
6167   scm__rc.d1562[81] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[60])),TRUE); /* string-split */
6168   scm__rc.d1562[82] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[62])),TRUE); /* lambda */
6169   scm__rc.d1562[83] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[63])),TRUE); /* splitter */
6170   scm__rc.d1562[84] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[64])),TRUE); /* quote */
6171   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[190]), scm__rc.d1562[30]);
6172   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[191]), scm__rc.d1562[84]);
6173   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[193]), scm__rc.d1562[37]);
6174   scm__rc.d1562[85] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[65])),TRUE); /* limit */
6175   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[195]), scm__rc.d1562[85]);
6176   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[198]), scm__rc.d1562[13]);
6177   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[199]), scm__rc.d1562[83]);
6178   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[200]), scm__rc.d1562[16]);
6179   scm__rc.d1562[86] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[66])),TRUE); /* if */
6180   scm__rc.d1562[87] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[67])),TRUE); /* or */
6181   scm__rc.d1562[88] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[68])),TRUE); /* not */
6182   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[201]), scm__rc.d1562[88]);
6183   scm__rc.d1562[89] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[69])),TRUE); /* integer? */
6184   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[202]), scm__rc.d1562[89]);
6185   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[205]), scm__rc.d1562[87]);
6186   scm__rc.d1562[90] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[70])),TRUE); /* with-module */
6187   scm__rc.d1562[91] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[71])),TRUE); /* gauche.internal */
6188   scm__rc.d1562[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[72])),TRUE); /* %string-split */
6189   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[206]), scm__rc.d1562[92]);
6190   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[207]), scm__rc.d1562[91]);
6191   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[208]), scm__rc.d1562[90]);
6192   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[209]), scm__rc.d1562[22]);
6193   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[210]), scm__rc.d1562[85]);
6194   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[211]), scm__rc.d1562[37]);
6195   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[213]), scm__rc.d1562[83]);
6196   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[214]), scm__rc.d1562[16]);
6197   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[216]), scm__rc.d1562[85]);
6198   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[217]), scm__rc.d1562[37]);
6199   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[218]), scm__rc.d1562[83]);
6200   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[219]), scm__rc.d1562[16]);
6201   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[224]), scm__rc.d1562[86]);
6202   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[227]), scm__rc.d1562[82]);
6203   scm__rc.d1562[94] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[73])),TRUE); /* error */
6204   scm__rc.d1562[93] = Scm_MakeIdentifier(scm__rc.d1562[94], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#error */
6205   scm__rc.d1562[95] = Scm_MakeIdentifier(scm__rc.d1562[89], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#integer? */
6206   scm__rc.d1562[96] = Scm_MakeIdentifier(scm__rc.d1562[92], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%string-split */
6207   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[230]), scm__rc.d1562[2]);
6208   scm__rc.d1562[97] = Scm_MakeExtendedPair(scm__rc.d1562[81], SCM_OBJ(&scm__rc.d1563[200]), SCM_OBJ(&scm__rc.d1563[231]));
6209   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[232]), scm__rc.d1562[97]);
6210   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[2]))->name = scm__rc.d1562[81];/* string-split */
6211   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[4] = SCM_WORD(scm__rc.d1562[30]);
6212   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[77] = SCM_WORD(scm__rc.d1562[93]);
6213   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[85] = SCM_WORD(scm__rc.d1562[95]);
6214   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[91] = SCM_WORD(scm__rc.d1562[30]);
6215   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[96] = SCM_WORD(scm__rc.d1562[96]);
6216   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[12]))[105] = SCM_WORD(scm__rc.d1562[96]);
6217   ScmObj G1572 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[2]), NULL);
6218 
6219   Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[81]) /* string-split */, G1572,0);
6220 
6221    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
6222   scm__rc.d1562[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[74])),TRUE); /* %string-split-by-char */
6223   scm__rc.d1562[99] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[75])),TRUE); /* s */
6224   scm__rc.d1562[100] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[76])),TRUE); /* ch */
6225   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[233]), scm__rc.d1562[85]);
6226   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[234]), scm__rc.d1562[13]);
6227   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[235]), scm__rc.d1562[100]);
6228   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[236]), scm__rc.d1562[99]);
6229   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[239]), scm__rc.d1562[2]);
6230   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[240]), scm__rc.d1562[98]);
6231   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[241]), scm__rc.d1562[91]);
6232   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[242]), scm__rc.d1562[3]);
6233   scm__rc.d1562[101] = Scm_MakeExtendedPair(scm__rc.d1562[98], SCM_OBJ(&scm__rc.d1563[236]), SCM_OBJ(&scm__rc.d1563[244]));
6234   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-split-by-char")), SCM_OBJ(&libstr_25string_split_by_char__STUB), 0);
6235   libstr_25string_split_by_char__STUB.common.info = scm__rc.d1562[101];
6236   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[245]), scm__rc.d1562[32]);
6237   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[246]), scm__rc.d1562[31]);
6238   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[247]), scm__rc.d1562[33]);
6239   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[248]), scm__rc.d1562[30]);
6240   scm__rc.d1562[103] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[91]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche.internal */
6241   scm__rc.d1562[102] = Scm_MakeIdentifier(scm__rc.d1562[94], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#error */
6242   scm__rc.d1562[104] = Scm_MakeIdentifier(scm__rc.d1562[89], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#integer? */
6243   scm__rc.d1562[105] = Scm_MakeIdentifier(scm__rc.d1562[62], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%maybe-substring */
6244   scm__rc.d1562[107] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[80])),TRUE); /* equal? */
6245   scm__rc.d1562[106] = Scm_MakeIdentifier(scm__rc.d1562[107], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#equal? */
6246   scm__rc.d1562[108] = Scm_MakeIdentifier(scm__rc.d1562[98], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-by-char */
6247   scm__rc.d1562[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[82])),TRUE); /* %string-split-scanner */
6248   scm__rc.d1562[109] = Scm_MakeIdentifier(scm__rc.d1562[110], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-scanner */
6249   scm__rc.d1562[112] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[83])),TRUE); /* %string-split-by-scanner */
6250   scm__rc.d1562[111] = Scm_MakeIdentifier(scm__rc.d1562[112], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-by-scanner */
6251   scm__rc.d1562[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[84])),TRUE); /* last-pair */
6252   scm__rc.d1562[113] = Scm_MakeIdentifier(scm__rc.d1562[114], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#last-pair */
6253   scm__rc.d1562[116] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[85])),TRUE); /* drop-right */
6254   scm__rc.d1562[115] = Scm_MakeIdentifier(scm__rc.d1562[116], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#drop-right */
6255   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[251]), scm__rc.d1562[2]);
6256   scm__rc.d1562[117] = Scm_MakeExtendedPair(scm__rc.d1562[92], SCM_OBJ(&scm__rc.d1563[219]), SCM_OBJ(&scm__rc.d1563[252]));
6257   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[253]), scm__rc.d1562[117]);
6258   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[3]))->name = scm__rc.d1562[92];/* %string-split */
6259   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[14] = SCM_WORD(scm__rc.d1562[102]);
6260   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[22] = SCM_WORD(scm__rc.d1562[104]);
6261   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[36] = SCM_WORD(scm__rc.d1562[102]);
6262   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[49] = SCM_WORD(scm__rc.d1562[105]);
6263   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[57] = SCM_WORD(scm__rc.d1562[106]);
6264   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[62] = SCM_WORD(scm__rc.d1562[33]);
6265   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[67] = SCM_WORD(scm__rc.d1562[102]);
6266   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[86] = SCM_WORD(scm__rc.d1562[108]);
6267   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[96] = SCM_WORD(scm__rc.d1562[109]);
6268   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[105] = SCM_WORD(scm__rc.d1562[111]);
6269   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[109] = SCM_WORD(scm__rc.d1562[31]);
6270   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[122] = SCM_WORD(scm__rc.d1562[106]);
6271   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[131] = SCM_WORD(scm__rc.d1562[32]);
6272   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[143] = SCM_WORD(scm__rc.d1562[113]);
6273   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[148] = SCM_WORD(scm__rc.d1562[106]);
6274   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[122]))[154] = SCM_WORD(scm__rc.d1562[115]);
6275   ScmObj G1573 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[3]), NULL);
6276 
6277   Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[92]) /* %string-split */, G1573,0);
6278 
6279   scm__rc.d1562[118] = Scm_MakeIdentifier(scm__rc.d1562[52], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-length */
6280   scm__rc.d1562[119] = Scm_MakeIdentifier(scm__rc.d1562[20], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-copy */
6281   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[254]), scm__rc.d1562[110]);
6282   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[255]), scm__rc.d1562[110]);
6283   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[256]), scm__rc.d1562[99]);
6284   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[259]), scm__rc.d1562[2]);
6285   scm__rc.d1562[120] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[255]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[260]));
6286   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[261]), scm__rc.d1562[120]);
6287   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]))[4] = SCM_WORD(scm__rc.d1562[118]);
6288   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]))[18] = SCM_WORD(scm__rc.d1562[119]);
6289   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[281]))[24] = SCM_WORD(scm__rc.d1562[119]);
6290   scm__rc.d1562[122] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[86])),TRUE); /* string=? */
6291   scm__rc.d1562[121] = Scm_MakeIdentifier(scm__rc.d1562[122], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string=? */
6292   scm__rc.d1562[123] = Scm_MakeIdentifier(scm__rc.d1562[74], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-scan */
6293   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[265]), scm__rc.d1562[2]);
6294   scm__rc.d1562[124] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[255]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[266]));
6295   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[267]), scm__rc.d1562[124]);
6296   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[5]))->name = scm__rc.d1562[110];/* (%string-split-scanner %string-split-scanner) */
6297   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]))[5] = SCM_WORD(scm__rc.d1562[67]);
6298   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[307]))[7] = SCM_WORD(scm__rc.d1562[123]);
6299   scm__rc.d1562[126] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[87])),TRUE); /* char-set? */
6300   scm__rc.d1562[125] = Scm_MakeIdentifier(scm__rc.d1562[126], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#char-set? */
6301   scm__rc.d1562[128] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[88])),TRUE); /* char-set-contains? */
6302   scm__rc.d1562[127] = Scm_MakeIdentifier(scm__rc.d1562[128], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#char-set-contains? */
6303   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[268]), scm__rc.d1562[110]);
6304   scm__rc.d1562[129] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[89])),FALSE); /* G1574 */
6305   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[269]), scm__rc.d1562[129]);
6306   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[272]), scm__rc.d1562[2]);
6307   scm__rc.d1562[130] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[268]), SCM_OBJ(&scm__rc.d1563[269]), SCM_OBJ(&scm__rc.d1563[273]));
6308   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[274]), scm__rc.d1562[130]);
6309   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[325]))[3] = SCM_WORD(scm__rc.d1562[127]);
6310   scm__rc.d1562[132] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[90])),TRUE); /* %string-split-scanner-each-char */
6311   scm__rc.d1562[131] = Scm_MakeIdentifier(scm__rc.d1562[132], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-split-scanner-each-char */
6312   scm__rc.d1562[134] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[91])),TRUE); /* regexp? */
6313   scm__rc.d1562[133] = Scm_MakeIdentifier(scm__rc.d1562[134], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#regexp? */
6314   scm__rc.d1562[136] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92])),TRUE); /* rxmatch */
6315   scm__rc.d1562[135] = Scm_MakeIdentifier(scm__rc.d1562[136], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#rxmatch */
6316   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[277]), scm__rc.d1562[2]);
6317   scm__rc.d1562[137] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[255]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[278]));
6318   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[279]), scm__rc.d1562[137]);
6319   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[7]))->name = scm__rc.d1562[110];/* (%string-split-scanner %string-split-scanner) */
6320   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[5] = SCM_WORD(scm__rc.d1562[135]);
6321   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[13] = SCM_WORD(scm__rc.d1562[71]);
6322   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[19] = SCM_WORD(scm__rc.d1562[70]);
6323   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[28] = SCM_WORD(scm__rc.d1562[121]);
6324   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[35] = SCM_WORD(scm__rc.d1562[118]);
6325   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[49] = SCM_WORD(scm__rc.d1562[119]);
6326   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[330]))[55] = SCM_WORD(scm__rc.d1562[119]);
6327   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[280]), scm__rc.d1562[83]);
6328   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[283]), scm__rc.d1562[2]);
6329   scm__rc.d1562[138] = Scm_MakeExtendedPair(scm__rc.d1562[110], SCM_OBJ(&scm__rc.d1563[280]), SCM_OBJ(&scm__rc.d1563[284]));
6330   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[285]), scm__rc.d1562[138]);
6331   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[8]))->name = scm__rc.d1562[110];/* %string-split-scanner */
6332   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[10] = SCM_WORD(scm__rc.d1562[121]);
6333   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[21] = SCM_WORD(scm__rc.d1562[125]);
6334   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[27] = SCM_WORD(scm__rc.d1562[131]);
6335   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[33] = SCM_WORD(scm__rc.d1562[133]);
6336   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[393]))[41] = SCM_WORD(scm__rc.d1562[131]);
6337   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[9]))->name = scm__rc.d1562[46];/* %toplevel */
6338   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[436]))[5] = SCM_WORD(scm__rc.d1562[109]);
6339   scm__rc.d1562[140] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[93])),TRUE); /* string-cursor-start */
6340   scm__rc.d1562[139] = Scm_MakeIdentifier(scm__rc.d1562[140], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor-start */
6341   scm__rc.d1562[142] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[94])),TRUE); /* string-cursor-end */
6342   scm__rc.d1562[141] = Scm_MakeIdentifier(scm__rc.d1562[142], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor-end */
6343   scm__rc.d1562[144] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[95])),TRUE); /* string-cursor=? */
6344   scm__rc.d1562[143] = Scm_MakeIdentifier(scm__rc.d1562[144], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor=? */
6345   scm__rc.d1562[145] = Scm_MakeIdentifier(scm__rc.d1562[58], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#substring */
6346   scm__rc.d1562[146] = Scm_MakeIdentifier(scm__rc.d1562[54], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-ref */
6347   scm__rc.d1562[148] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[96])),TRUE); /* string-cursor-next */
6348   scm__rc.d1562[147] = Scm_MakeIdentifier(scm__rc.d1562[148], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor-next */
6349   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[286]), scm__rc.d1562[132]);
6350   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[287]), scm__rc.d1562[132]);
6351   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[290]), scm__rc.d1562[2]);
6352   scm__rc.d1562[149] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[287]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[291]));
6353   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[292]), scm__rc.d1562[149]);
6354   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[10]))->name = scm__rc.d1562[132];/* (%string-split-scanner-each-char %string-split-scanner-each-char) */
6355   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[5] = SCM_WORD(scm__rc.d1562[139]);
6356   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[10] = SCM_WORD(scm__rc.d1562[141]);
6357   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[17] = SCM_WORD(scm__rc.d1562[143]);
6358   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[27] = SCM_WORD(scm__rc.d1562[139]);
6359   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[31] = SCM_WORD(scm__rc.d1562[145]);
6360   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[42] = SCM_WORD(scm__rc.d1562[146]);
6361   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[54] = SCM_WORD(scm__rc.d1562[147]);
6362   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[64] = SCM_WORD(scm__rc.d1562[139]);
6363   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[68] = SCM_WORD(scm__rc.d1562[145]);
6364   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[75] = SCM_WORD(scm__rc.d1562[143]);
6365   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[89] = SCM_WORD(scm__rc.d1562[146]);
6366   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[101] = SCM_WORD(scm__rc.d1562[147]);
6367   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[115] = SCM_WORD(scm__rc.d1562[145]);
6368   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[443]))[124] = SCM_WORD(scm__rc.d1562[147]);
6369   scm__rc.d1562[150] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[97])),TRUE); /* pred */
6370   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[293]), scm__rc.d1562[150]);
6371   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[296]), scm__rc.d1562[2]);
6372   scm__rc.d1562[151] = Scm_MakeExtendedPair(scm__rc.d1562[132], SCM_OBJ(&scm__rc.d1563[293]), SCM_OBJ(&scm__rc.d1563[297]));
6373   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[298]), scm__rc.d1562[151]);
6374   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[11]))->name = scm__rc.d1562[132];/* %string-split-scanner-each-char */
6375   ScmObj G1576 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[11]), NULL);
6376 
6377   Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[132]) /* %string-split-scanner-each-char */, G1576,0);
6378 
6379   scm__rc.d1562[153] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[98])),TRUE); /* reverse! */
6380   scm__rc.d1562[152] = Scm_MakeIdentifier(scm__rc.d1562[153], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#reverse! */
6381   scm__rc.d1562[154] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[99])),TRUE); /* scanner */
6382   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[299]), scm__rc.d1562[154]);
6383   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[300]), scm__rc.d1562[16]);
6384   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[303]), scm__rc.d1562[2]);
6385   scm__rc.d1562[155] = Scm_MakeExtendedPair(scm__rc.d1562[112], SCM_OBJ(&scm__rc.d1563[300]), SCM_OBJ(&scm__rc.d1563[304]));
6386   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[305]), scm__rc.d1562[155]);
6387   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[12]))->name = scm__rc.d1562[112];/* %string-split-by-scanner */
6388   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]))[11] = SCM_WORD(scm__rc.d1562[152]);
6389   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[577]))[34] = SCM_WORD(scm__rc.d1562[152]);
6390   ScmObj G1577 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[12]), NULL);
6391 
6392   Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[112]) /* %string-split-by-scanner */, G1577,0);
6393 
6394    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
6395   scm__rc.d1562[156] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[100])),TRUE); /* %string-replace-body! */
6396   scm__rc.d1562[157] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[101])),TRUE); /* target */
6397   scm__rc.d1562[158] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[102])),TRUE); /* source */
6398   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[306]), scm__rc.d1562[158]);
6399   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[307]), scm__rc.d1562[157]);
6400   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[310]), scm__rc.d1562[2]);
6401   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[311]), scm__rc.d1562[156]);
6402   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[312]), scm__rc.d1562[91]);
6403   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[313]), scm__rc.d1562[3]);
6404   scm__rc.d1562[159] = Scm_MakeExtendedPair(scm__rc.d1562[156], SCM_OBJ(&scm__rc.d1563[307]), SCM_OBJ(&scm__rc.d1563[315]));
6405   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-replace-body!")), SCM_OBJ(&libstr_25string_replace_bodyX__STUB), 0);
6406   libstr_25string_replace_bodyX__STUB.common.info = scm__rc.d1562[159];
6407   scm__rc.d1562[160] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[103])),TRUE); /* string-set! */
6408   scm__rc.d1562[161] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[105])),TRUE); /* arg */
6409   scm__rc.d1562[163] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[106])),TRUE); /* errorf */
6410   scm__rc.d1562[162] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(Scm_GaucheModule()), SCM_NIL); /* gauche#errorf */
6411   scm__rc.d1562[165] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[107])),TRUE); /* string-index->cursor */
6412   scm__rc.d1562[164] = Scm_MakeIdentifier(scm__rc.d1562[165], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-index->cursor */
6413   scm__rc.d1562[166] = Scm_MakeIdentifier(scm__rc.d1562[16], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string */
6414   scm__rc.d1562[167] = Scm_MakeIdentifier(scm__rc.d1562[25], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-append */
6415   scm__rc.d1562[168] = Scm_MakeIdentifier(scm__rc.d1562[156], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-replace-body! */
6416   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[316]), scm__rc.d1562[100]);
6417   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[317]), scm__rc.d1562[55]);
6418   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[318]), scm__rc.d1562[21]);
6419   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[321]), scm__rc.d1562[2]);
6420   scm__rc.d1562[169] = Scm_MakeExtendedPair(scm__rc.d1562[160], SCM_OBJ(&scm__rc.d1563[318]), SCM_OBJ(&scm__rc.d1563[322]));
6421   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[323]), scm__rc.d1562[169]);
6422   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[13]))->name = scm__rc.d1562[160];/* string-set! */
6423   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[11] = SCM_WORD(scm__rc.d1562[161]);
6424   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[14] = SCM_WORD(scm__rc.d1562[162]);
6425   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[26] = SCM_WORD(scm__rc.d1562[161]);
6426   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[29] = SCM_WORD(scm__rc.d1562[162]);
6427   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[35] = SCM_WORD(scm__rc.d1562[164]);
6428   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[46] = SCM_WORD(scm__rc.d1562[145]);
6429   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[51] = SCM_WORD(scm__rc.d1562[166]);
6430   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[60] = SCM_WORD(scm__rc.d1562[147]);
6431   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[62] = SCM_WORD(scm__rc.d1562[119]);
6432   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[64] = SCM_WORD(scm__rc.d1562[167]);
6433   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[614]))[66] = SCM_WORD(scm__rc.d1562[168]);
6434   ScmObj G1578 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[13]), NULL);
6435 
6436   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[160]) /* string-set! */, G1578,0);
6437 
6438   scm__rc.d1562[170] = Scm_MakeIdentifier(scm__rc.d1562[160], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-set! */
6439   scm__rc.d1562[172] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[108])),TRUE); /* setter */
6440   scm__rc.d1562[171] = Scm_MakeIdentifier(scm__rc.d1562[172], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#setter */
6441   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[14]))->name = scm__rc.d1562[46];/* %toplevel */
6442   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[682]))[1] = SCM_WORD(scm__rc.d1562[146]);
6443   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[682]))[3] = SCM_WORD(scm__rc.d1562[170]);
6444   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[682]))[5] = SCM_WORD(scm__rc.d1562[171]);
6445   scm__rc.d1562[173] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[109])),TRUE); /* string-byte-set! */
6446   scm__rc.d1562[175] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[110])),TRUE); /* exact? */
6447   scm__rc.d1562[174] = Scm_MakeIdentifier(scm__rc.d1562[175], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#exact? */
6448   scm__rc.d1562[176] = Scm_MakeIdentifier(scm__rc.d1562[60], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-size */
6449   scm__rc.d1562[177] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[111]))); /* :private? */
6450   scm__rc.d1562[179] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[112])),TRUE); /* open-output-string */
6451   scm__rc.d1562[178] = Scm_MakeIdentifier(scm__rc.d1562[179], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#open-output-string */
6452   scm__rc.d1562[181] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[114])),TRUE); /* byte-substring */
6453   scm__rc.d1562[180] = Scm_MakeIdentifier(scm__rc.d1562[181], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#byte-substring */
6454   scm__rc.d1562[183] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[115])),TRUE); /* display */
6455   scm__rc.d1562[182] = Scm_MakeIdentifier(scm__rc.d1562[183], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#display */
6456   scm__rc.d1562[185] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[116])),TRUE); /* write-byte */
6457   scm__rc.d1562[184] = Scm_MakeIdentifier(scm__rc.d1562[185], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#write-byte */
6458   scm__rc.d1562[187] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[117])),TRUE); /* get-output-byte-string */
6459   scm__rc.d1562[186] = Scm_MakeIdentifier(scm__rc.d1562[187], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#get-output-byte-string */
6460   scm__rc.d1562[188] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[118])),TRUE); /* b */
6461   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[324]), scm__rc.d1562[188]);
6462   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[325]), scm__rc.d1562[55]);
6463   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[326]), scm__rc.d1562[21]);
6464   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[329]), scm__rc.d1562[2]);
6465   scm__rc.d1562[189] = Scm_MakeExtendedPair(scm__rc.d1562[173], SCM_OBJ(&scm__rc.d1563[326]), SCM_OBJ(&scm__rc.d1563[330]));
6466   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[331]), scm__rc.d1562[189]);
6467   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[15]))->name = scm__rc.d1562[173];/* string-byte-set! */
6468   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[11] = SCM_WORD(scm__rc.d1562[161]);
6469   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[14] = SCM_WORD(scm__rc.d1562[162]);
6470   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[19] = SCM_WORD(scm__rc.d1562[104]);
6471   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[29] = SCM_WORD(scm__rc.d1562[161]);
6472   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[32] = SCM_WORD(scm__rc.d1562[162]);
6473   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[37] = SCM_WORD(scm__rc.d1562[174]);
6474   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[47] = SCM_WORD(scm__rc.d1562[161]);
6475   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[50] = SCM_WORD(scm__rc.d1562[162]);
6476   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[55] = SCM_WORD(scm__rc.d1562[104]);
6477   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[65] = SCM_WORD(scm__rc.d1562[161]);
6478   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[68] = SCM_WORD(scm__rc.d1562[162]);
6479   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[73] = SCM_WORD(scm__rc.d1562[176]);
6480   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[77] = SCM_WORD(scm__rc.d1562[177]);
6481   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[81] = SCM_WORD(scm__rc.d1562[178]);
6482   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[92] = SCM_WORD(scm__rc.d1562[102]);
6483   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[110] = SCM_WORD(scm__rc.d1562[180]);
6484   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[114] = SCM_WORD(scm__rc.d1562[182]);
6485   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[120] = SCM_WORD(scm__rc.d1562[184]);
6486   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[129] = SCM_WORD(scm__rc.d1562[180]);
6487   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[133] = SCM_WORD(scm__rc.d1562[182]);
6488   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[139] = SCM_WORD(scm__rc.d1562[186]);
6489   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[691]))[141] = SCM_WORD(scm__rc.d1562[168]);
6490   ScmObj G1579 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[15]), NULL);
6491 
6492   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[173]) /* string-byte-set! */, G1579,0);
6493 
6494   scm__rc.d1562[191] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[119])),TRUE); /* string-byte-ref */
6495   scm__rc.d1562[190] = Scm_MakeIdentifier(scm__rc.d1562[191], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-byte-ref */
6496   scm__rc.d1562[192] = Scm_MakeIdentifier(scm__rc.d1562[173], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-byte-set! */
6497   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[16]))->name = scm__rc.d1562[46];/* %toplevel */
6498   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[834]))[1] = SCM_WORD(scm__rc.d1562[190]);
6499   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[834]))[3] = SCM_WORD(scm__rc.d1562[192]);
6500   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[834]))[5] = SCM_WORD(scm__rc.d1562[171]);
6501   scm__rc.d1562[193] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120])),TRUE); /* string-fill! */
6502   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[333]), scm__rc.d1562[22]);
6503   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[334]), scm__rc.d1562[52]);
6504   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[336]), scm__rc.d1562[23]);
6505   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[339]), scm__rc.d1562[13]);
6506   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[340]), scm__rc.d1562[14]);
6507   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[341]), scm__rc.d1562[21]);
6508   scm__rc.d1562[194] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[121])),TRUE); /* let */
6509   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[342]), scm__rc.d1562[21]);
6510   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[343]), scm__rc.d1562[165]);
6511   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[345]), scm__rc.d1562[22]);
6512   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[346]), scm__rc.d1562[21]);
6513   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[347]), scm__rc.d1562[165]);
6514   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[349]), scm__rc.d1562[23]);
6515   scm__rc.d1562[195] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[122])),TRUE); /* istart */
6516   scm__rc.d1562[196] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[123])),TRUE); /* string-cursor->index */
6517   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[350]), scm__rc.d1562[196]);
6518   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[352]), scm__rc.d1562[195]);
6519   scm__rc.d1562[197] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[124])),TRUE); /* iend */
6520   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[353]), scm__rc.d1562[196]);
6521   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[355]), scm__rc.d1562[197]);
6522   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[356]), scm__rc.d1562[12]);
6523   scm__rc.d1562[198] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[125])),TRUE); /* when */
6524   scm__rc.d1562[199] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[126])),TRUE); /* < */
6525   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[362]), scm__rc.d1562[195]);
6526   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[363]), scm__rc.d1562[197]);
6527   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[364]), scm__rc.d1562[199]);
6528   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[366]), scm__rc.d1562[163]);
6529   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[369]), scm__rc.d1562[198]);
6530   scm__rc.d1562[200] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[128])),TRUE); /* and */
6531   scm__rc.d1562[201] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[129])),TRUE); /* = */
6532   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[370]), scm__rc.d1562[195]);
6533   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[371]), scm__rc.d1562[201]);
6534   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[372]), scm__rc.d1562[12]);
6535   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[373]), scm__rc.d1562[197]);
6536   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[374]), scm__rc.d1562[201]);
6537   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[377]), scm__rc.d1562[200]);
6538   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[378]), scm__rc.d1562[12]);
6539   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[379]), scm__rc.d1562[11]);
6540   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[381]), scm__rc.d1562[21]);
6541   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[382]), scm__rc.d1562[156]);
6542   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[384]), scm__rc.d1562[21]);
6543   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[385]), scm__rc.d1562[58]);
6544   scm__rc.d1562[202] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[130])),TRUE); /* - */
6545   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[386]), scm__rc.d1562[202]);
6546   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[388]), scm__rc.d1562[11]);
6547   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[389]), scm__rc.d1562[20]);
6548   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[393]), scm__rc.d1562[25]);
6549   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[395]), scm__rc.d1562[21]);
6550   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[396]), scm__rc.d1562[156]);
6551   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[400]), scm__rc.d1562[86]);
6552   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[404]), scm__rc.d1562[194]);
6553   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[407]), scm__rc.d1562[82]);
6554   scm__rc.d1562[203] = Scm_MakeIdentifier(scm__rc.d1562[196], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor->index */
6555   scm__rc.d1562[204] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#errorf */
6556   scm__rc.d1562[205] = Scm_MakeIdentifier(scm__rc.d1562[11], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#make-string */
6557   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[410]), scm__rc.d1562[2]);
6558   scm__rc.d1562[206] = Scm_MakeExtendedPair(scm__rc.d1562[193], SCM_OBJ(&scm__rc.d1563[341]), SCM_OBJ(&scm__rc.d1563[411]));
6559   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[412]), scm__rc.d1562[206]);
6560   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[17]))->name = scm__rc.d1562[193];/* string-fill! */
6561   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[23] = SCM_WORD(scm__rc.d1562[118]);
6562   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[48] = SCM_WORD(scm__rc.d1562[102]);
6563   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[54] = SCM_WORD(scm__rc.d1562[164]);
6564   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[60] = SCM_WORD(scm__rc.d1562[164]);
6565   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[66] = SCM_WORD(scm__rc.d1562[203]);
6566   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[72] = SCM_WORD(scm__rc.d1562[203]);
6567   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[77] = SCM_WORD(scm__rc.d1562[118]);
6568   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[89] = SCM_WORD(scm__rc.d1562[204]);
6569   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[104] = SCM_WORD(scm__rc.d1562[205]);
6570   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[106] = SCM_WORD(scm__rc.d1562[168]);
6571   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[117] = SCM_WORD(scm__rc.d1562[145]);
6572   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[126] = SCM_WORD(scm__rc.d1562[205]);
6573   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[132] = SCM_WORD(scm__rc.d1562[119]);
6574   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[134] = SCM_WORD(scm__rc.d1562[167]);
6575   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[843]))[136] = SCM_WORD(scm__rc.d1562[168]);
6576   ScmObj G1584 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[17]), NULL);
6577 
6578   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())) /* scheme */, SCM_SYMBOL(scm__rc.d1562[193]) /* string-fill! */, G1584,0);
6579 
6580    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6581   scm__rc.d1562[207] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[131])),TRUE); /* string-build-index! */
6582   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[415]), scm__rc.d1562[2]);
6583   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[416]), scm__rc.d1562[207]);
6584   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[417]), scm__rc.d1562[7]);
6585   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[418]), scm__rc.d1562[3]);
6586   scm__rc.d1562[208] = Scm_MakeExtendedPair(scm__rc.d1562[207], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[420]));
6587   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-build-index!")), SCM_OBJ(&libstrstring_build_indexX__STUB), 0);
6588   libstrstring_build_indexX__STUB.common.info = scm__rc.d1562[208];
6589   scm__rc.d1562[209] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[132])),TRUE); /* string-fast-indexable? */
6590   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[423]), scm__rc.d1562[2]);
6591   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[424]), scm__rc.d1562[209]);
6592   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[425]), scm__rc.d1562[7]);
6593   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[426]), scm__rc.d1562[3]);
6594   scm__rc.d1562[210] = Scm_MakeExtendedPair(scm__rc.d1562[209], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[428]));
6595   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-fast-indexable?")), SCM_OBJ(&libstrstring_fast_indexableP__STUB), 0);
6596   libstrstring_fast_indexableP__STUB.common.info = scm__rc.d1562[210];
6597    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
6598   scm__rc.d1562[211] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[133])),TRUE); /* %string-index-dump */
6599   scm__rc.d1562[212] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[134])),TRUE); /* p */
6600   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[429]), scm__rc.d1562[212]);
6601   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[430]), scm__rc.d1562[13]);
6602   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[431]), scm__rc.d1562[99]);
6603   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[434]), scm__rc.d1562[2]);
6604   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[435]), scm__rc.d1562[211]);
6605   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[436]), scm__rc.d1562[91]);
6606   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[437]), scm__rc.d1562[3]);
6607   scm__rc.d1562[213] = Scm_MakeExtendedPair(scm__rc.d1562[211], SCM_OBJ(&scm__rc.d1563[431]), SCM_OBJ(&scm__rc.d1563[439]));
6608   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-index-dump")), SCM_OBJ(&libstr_25string_index_dump__STUB), 0);
6609   libstr_25string_index_dump__STUB.common.info = scm__rc.d1562[213];
6610    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
6611   scm__rc.d1562[214] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[135])),TRUE); /* ss */
6612   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[440]), scm__rc.d1562[214]);
6613   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[441]), scm__rc.d1562[17]);
6614   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[442]), scm__rc.d1562[76]);
6615   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[443]), scm__rc.d1562[75]);
6616   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[446]), scm__rc.d1562[2]);
6617   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[447]), scm__rc.d1562[122]);
6618   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[448]), scm__rc.d1562[4]);
6619   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[449]), scm__rc.d1562[3]);
6620   scm__rc.d1562[215] = Scm_MakeExtendedPair(scm__rc.d1562[122], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[451]));
6621   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string=?")), SCM_OBJ(&libstrstring_3dP__STUB), SCM_BINDING_INLINABLE);
6622   libstrstring_3dP__STUB.common.info = scm__rc.d1562[215];
6623   scm__rc.d1562[216] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[136])),TRUE); /* string<? */
6624   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[454]), scm__rc.d1562[2]);
6625   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[455]), scm__rc.d1562[216]);
6626   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[456]), scm__rc.d1562[4]);
6627   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[457]), scm__rc.d1562[3]);
6628   scm__rc.d1562[217] = Scm_MakeExtendedPair(scm__rc.d1562[216], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[459]));
6629   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string<?")), SCM_OBJ(&libstrstring_LTP__STUB), SCM_BINDING_INLINABLE);
6630   libstrstring_LTP__STUB.common.info = scm__rc.d1562[217];
6631   scm__rc.d1562[218] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[137])),TRUE); /* string>? */
6632   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[462]), scm__rc.d1562[2]);
6633   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[463]), scm__rc.d1562[218]);
6634   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[464]), scm__rc.d1562[4]);
6635   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[465]), scm__rc.d1562[3]);
6636   scm__rc.d1562[219] = Scm_MakeExtendedPair(scm__rc.d1562[218], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[467]));
6637   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string>?")), SCM_OBJ(&libstrstring_GTP__STUB), SCM_BINDING_INLINABLE);
6638   libstrstring_GTP__STUB.common.info = scm__rc.d1562[219];
6639   scm__rc.d1562[220] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[138])),TRUE); /* string<=? */
6640   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[470]), scm__rc.d1562[2]);
6641   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[471]), scm__rc.d1562[220]);
6642   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[472]), scm__rc.d1562[4]);
6643   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[473]), scm__rc.d1562[3]);
6644   scm__rc.d1562[221] = Scm_MakeExtendedPair(scm__rc.d1562[220], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[475]));
6645   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string<=?")), SCM_OBJ(&libstrstring_LT_3dP__STUB), SCM_BINDING_INLINABLE);
6646   libstrstring_LT_3dP__STUB.common.info = scm__rc.d1562[221];
6647   scm__rc.d1562[222] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[139])),TRUE); /* string>=? */
6648   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[478]), scm__rc.d1562[2]);
6649   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[479]), scm__rc.d1562[222]);
6650   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[480]), scm__rc.d1562[4]);
6651   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[481]), scm__rc.d1562[3]);
6652   scm__rc.d1562[223] = Scm_MakeExtendedPair(scm__rc.d1562[222], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[483]));
6653   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string>=?")), SCM_OBJ(&libstrstring_GT_3dP__STUB), SCM_BINDING_INLINABLE);
6654   libstrstring_GT_3dP__STUB.common.info = scm__rc.d1562[223];
6655   scm__rc.d1562[224] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[140])),TRUE); /* string-ci=? */
6656   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[486]), scm__rc.d1562[2]);
6657   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[487]), scm__rc.d1562[224]);
6658   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[488]), scm__rc.d1562[4]);
6659   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[489]), scm__rc.d1562[3]);
6660   scm__rc.d1562[225] = Scm_MakeExtendedPair(scm__rc.d1562[224], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[491]));
6661   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci=?")), SCM_OBJ(&libstrstring_ci_3dP__STUB), SCM_BINDING_INLINABLE);
6662   libstrstring_ci_3dP__STUB.common.info = scm__rc.d1562[225];
6663   scm__rc.d1562[226] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[141])),TRUE); /* string-ci<? */
6664   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[494]), scm__rc.d1562[2]);
6665   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[495]), scm__rc.d1562[226]);
6666   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[496]), scm__rc.d1562[4]);
6667   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[497]), scm__rc.d1562[3]);
6668   scm__rc.d1562[227] = Scm_MakeExtendedPair(scm__rc.d1562[226], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[499]));
6669   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci<?")), SCM_OBJ(&libstrstring_ci_LTP__STUB), SCM_BINDING_INLINABLE);
6670   libstrstring_ci_LTP__STUB.common.info = scm__rc.d1562[227];
6671   scm__rc.d1562[228] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[142])),TRUE); /* string-ci>? */
6672   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[502]), scm__rc.d1562[2]);
6673   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[503]), scm__rc.d1562[228]);
6674   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[504]), scm__rc.d1562[4]);
6675   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[505]), scm__rc.d1562[3]);
6676   scm__rc.d1562[229] = Scm_MakeExtendedPair(scm__rc.d1562[228], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[507]));
6677   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci>?")), SCM_OBJ(&libstrstring_ci_GTP__STUB), SCM_BINDING_INLINABLE);
6678   libstrstring_ci_GTP__STUB.common.info = scm__rc.d1562[229];
6679   scm__rc.d1562[230] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[143])),TRUE); /* string-ci<=? */
6680   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[510]), scm__rc.d1562[2]);
6681   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[511]), scm__rc.d1562[230]);
6682   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[512]), scm__rc.d1562[4]);
6683   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[513]), scm__rc.d1562[3]);
6684   scm__rc.d1562[231] = Scm_MakeExtendedPair(scm__rc.d1562[230], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[515]));
6685   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci<=?")), SCM_OBJ(&libstrstring_ci_LT_3dP__STUB), SCM_BINDING_INLINABLE);
6686   libstrstring_ci_LT_3dP__STUB.common.info = scm__rc.d1562[231];
6687   scm__rc.d1562[232] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[144])),TRUE); /* string-ci>=? */
6688   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[518]), scm__rc.d1562[2]);
6689   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[519]), scm__rc.d1562[232]);
6690   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[520]), scm__rc.d1562[4]);
6691   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[521]), scm__rc.d1562[3]);
6692   scm__rc.d1562[233] = Scm_MakeExtendedPair(scm__rc.d1562[232], SCM_OBJ(&scm__rc.d1563[443]), SCM_OBJ(&scm__rc.d1563[523]));
6693   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("string-ci>=?")), SCM_OBJ(&libstrstring_ci_GT_3dP__STUB), SCM_BINDING_INLINABLE);
6694   libstrstring_ci_GT_3dP__STUB.common.info = scm__rc.d1562[233];
6695    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
6696   scm__rc.d1562[234] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[145])),TRUE); /* %string-map-dispatch */
6697   scm__rc.d1562[235] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[146])),FALSE); /* G1591 */
6698   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[524]), scm__rc.d1562[235]);
6699   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[525]), scm__rc.d1562[234]);
6700   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[528]), scm__rc.d1562[2]);
6701   scm__rc.d1562[236] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[525]), SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[529]));
6702   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[530]), scm__rc.d1562[236]);
6703   scm__rc.d1562[237] = Scm_MakeIdentifier(scm__rc.d1562[62], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%maybe-substring */
6704   scm__rc.d1562[239] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[148])),TRUE); /* string-cursor? */
6705   scm__rc.d1562[238] = Scm_MakeIdentifier(scm__rc.d1562[239], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#string-cursor? */
6706   scm__rc.d1562[241] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[150])),TRUE); /* find */
6707   scm__rc.d1562[240] = Scm_MakeIdentifier(scm__rc.d1562[241], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#find */
6708   scm__rc.d1562[242] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[152])),TRUE); /* name */
6709   scm__rc.d1562[243] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[153])),TRUE); /* proc */
6710   scm__rc.d1562[244] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* rest */
6711   scm__rc.d1562[245] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[154])),TRUE); /* proc-single */
6712   scm__rc.d1562[246] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[155])),TRUE); /* proc-multi */
6713   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[532]), scm__rc.d1562[246]);
6714   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[533]), scm__rc.d1562[245]);
6715   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[534]), scm__rc.d1562[244]);
6716   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[535]), scm__rc.d1562[21]);
6717   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[536]), scm__rc.d1562[243]);
6718   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[537]), scm__rc.d1562[242]);
6719   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[540]), scm__rc.d1562[2]);
6720   scm__rc.d1562[247] = Scm_MakeExtendedPair(scm__rc.d1562[234], SCM_OBJ(&scm__rc.d1563[537]), SCM_OBJ(&scm__rc.d1563[541]));
6721   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[542]), scm__rc.d1562[247]);
6722   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[19]))->name = scm__rc.d1562[234];/* %string-map-dispatch */
6723   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[12] = SCM_WORD(scm__rc.d1562[104]);
6724   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[26] = SCM_WORD(scm__rc.d1562[237]);
6725   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[36] = SCM_WORD(scm__rc.d1562[104]);
6726   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[52] = SCM_WORD(scm__rc.d1562[237]);
6727   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[61] = SCM_WORD(scm__rc.d1562[204]);
6728   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[68] = SCM_WORD(scm__rc.d1562[238]);
6729   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[76] = SCM_WORD(scm__rc.d1562[102]);
6730   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[82] = SCM_WORD(scm__rc.d1562[238]);
6731   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[94] = SCM_WORD(scm__rc.d1562[240]);
6732   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[103] = SCM_WORD(scm__rc.d1562[102]);
6733   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[988]))[115] = SCM_WORD(scm__rc.d1562[102]);
6734   scm__rc.d1562[248] = Scm_MakeIdentifier(scm__rc.d1562[234], SCM_MODULE(scm__rc.d1562[103]), SCM_NIL); /* gauche.internal#%string-map-dispatch */
6735   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[20]))->name = scm__rc.d1562[46];/* %toplevel */
6736   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1105]))[5] = SCM_WORD(scm__rc.d1562[248]);
6737    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6738   scm__rc.d1562[249] = Scm_MakeIdentifier(scm__rc.d1562[140], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-start */
6739   scm__rc.d1562[250] = Scm_MakeIdentifier(scm__rc.d1562[142], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-end */
6740   scm__rc.d1562[251] = Scm_MakeIdentifier(scm__rc.d1562[144], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor=? */
6741   scm__rc.d1562[252] = Scm_MakeIdentifier(scm__rc.d1562[49], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#list->string */
6742   scm__rc.d1562[254] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[156])),TRUE); /* string-cursor-prev */
6743   scm__rc.d1562[253] = Scm_MakeIdentifier(scm__rc.d1562[254], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-prev */
6744   scm__rc.d1562[255] = Scm_MakeIdentifier(scm__rc.d1562[54], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-ref */
6745   scm__rc.d1562[256] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[157])),TRUE); /* string-map */
6746   scm__rc.d1562[257] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[158])),TRUE); /* string-map-1 */
6747   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[543]), scm__rc.d1562[257]);
6748   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[544]), scm__rc.d1562[256]);
6749   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[545]), scm__rc.d1562[243]);
6750   scm__rc.d1562[258] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[544]), SCM_OBJ(&scm__rc.d1563[545]), SCM_OBJ(&scm__rc.d1563[93]));
6751   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[546]), scm__rc.d1562[258]);
6752   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[4] = SCM_WORD(scm__rc.d1562[249]);
6753   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[10] = SCM_WORD(scm__rc.d1562[250]);
6754   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[19] = SCM_WORD(scm__rc.d1562[251]);
6755   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[24] = SCM_WORD(scm__rc.d1562[252]);
6756   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[31] = SCM_WORD(scm__rc.d1562[253]);
6757   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1112]))[41] = SCM_WORD(scm__rc.d1562[255]);
6758   scm__rc.d1562[260] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[159])),TRUE); /* map */
6759   scm__rc.d1562[259] = Scm_MakeIdentifier(scm__rc.d1562[260], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#map */
6760   scm__rc.d1562[262] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[160])),TRUE); /* any */
6761   scm__rc.d1562[261] = Scm_MakeIdentifier(scm__rc.d1562[262], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#any */
6762   scm__rc.d1562[263] = Scm_MakeIdentifier(scm__rc.d1562[148], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-cursor-next */
6763   scm__rc.d1562[264] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[161])),TRUE); /* string-map-n */
6764   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[547]), scm__rc.d1562[264]);
6765   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[548]), scm__rc.d1562[256]);
6766   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[549]), scm__rc.d1562[243]);
6767   SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[549]), scm__rc.d1562[35]);
6768   scm__rc.d1562[265] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[548]), SCM_OBJ(&scm__rc.d1563[549]), SCM_OBJ(&scm__rc.d1563[93]));
6769   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[550]), scm__rc.d1562[265]);
6770   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[3] = SCM_WORD(scm__rc.d1562[250]);
6771   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[6] = SCM_WORD(scm__rc.d1562[259]);
6772   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[11] = SCM_WORD(scm__rc.d1562[249]);
6773   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[14] = SCM_WORD(scm__rc.d1562[259]);
6774   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[21] = SCM_WORD(scm__rc.d1562[251]);
6775   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[25] = SCM_WORD(scm__rc.d1562[261]);
6776   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[31] = SCM_WORD(scm__rc.d1562[252]);
6777   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[36] = SCM_WORD(scm__rc.d1562[263]);
6778   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[40] = SCM_WORD(scm__rc.d1562[259]);
6779   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[47] = SCM_WORD(scm__rc.d1562[255]);
6780   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1164]))[51] = SCM_WORD(scm__rc.d1562[259]);
6781   scm__rc.d1562[266] = Scm_MakeIdentifier(scm__rc.d1562[234], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%string-map-dispatch */
6782   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[553]), scm__rc.d1562[21]);
6783   SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[553]), scm__rc.d1562[244]);
6784   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[554]), scm__rc.d1562[243]);
6785   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[557]), scm__rc.d1562[2]);
6786   scm__rc.d1562[267] = Scm_MakeExtendedPair(scm__rc.d1562[256], SCM_OBJ(&scm__rc.d1563[554]), SCM_OBJ(&scm__rc.d1563[558]));
6787   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[559]), scm__rc.d1562[267]);
6788   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[23]))->name = scm__rc.d1562[256];/* string-map */
6789   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1224]))[1] = SCM_WORD(scm__rc.d1562[256]);
6790   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1224]))[8] = SCM_WORD(scm__rc.d1562[266]);
6791   scm__rc.d1562[268] = Scm_MakeIdentifier(scm__rc.d1562[256], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-map */
6792   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[24]))->name = scm__rc.d1562[46];/* %toplevel */
6793   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1234]))[5] = SCM_WORD(scm__rc.d1562[268]);
6794   scm__rc.d1562[269] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[162])),TRUE); /* string-for-each */
6795   scm__rc.d1562[270] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[163])),TRUE); /* string-for-each-1 */
6796   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[560]), scm__rc.d1562[270]);
6797   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[561]), scm__rc.d1562[269]);
6798   scm__rc.d1562[271] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[561]), SCM_OBJ(&scm__rc.d1563[545]), SCM_OBJ(&scm__rc.d1563[93]));
6799   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[562]), scm__rc.d1562[271]);
6800   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[4] = SCM_WORD(scm__rc.d1562[250]);
6801   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[10] = SCM_WORD(scm__rc.d1562[249]);
6802   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[17] = SCM_WORD(scm__rc.d1562[251]);
6803   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[28] = SCM_WORD(scm__rc.d1562[255]);
6804   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1241]))[37] = SCM_WORD(scm__rc.d1562[263]);
6805   scm__rc.d1562[272] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[164])),TRUE); /* string-for-each-n */
6806   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[563]), scm__rc.d1562[272]);
6807   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[564]), scm__rc.d1562[269]);
6808   scm__rc.d1562[273] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[564]), SCM_OBJ(&scm__rc.d1563[549]), SCM_OBJ(&scm__rc.d1563[93]));
6809   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[565]), scm__rc.d1562[273]);
6810   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[3] = SCM_WORD(scm__rc.d1562[250]);
6811   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[6] = SCM_WORD(scm__rc.d1562[259]);
6812   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[11] = SCM_WORD(scm__rc.d1562[249]);
6813   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[14] = SCM_WORD(scm__rc.d1562[259]);
6814   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[19] = SCM_WORD(scm__rc.d1562[251]);
6815   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[23] = SCM_WORD(scm__rc.d1562[261]);
6816   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[33] = SCM_WORD(scm__rc.d1562[255]);
6817   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[37] = SCM_WORD(scm__rc.d1562[259]);
6818   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[42] = SCM_WORD(scm__rc.d1562[263]);
6819   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1284]))[46] = SCM_WORD(scm__rc.d1562[259]);
6820   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[570]), scm__rc.d1562[2]);
6821   scm__rc.d1562[274] = Scm_MakeExtendedPair(scm__rc.d1562[269], SCM_OBJ(&scm__rc.d1563[554]), SCM_OBJ(&scm__rc.d1563[571]));
6822   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[572]), scm__rc.d1562[274]);
6823   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[27]))->name = scm__rc.d1562[269];/* string-for-each */
6824   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1336]))[1] = SCM_WORD(scm__rc.d1562[269]);
6825   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1336]))[8] = SCM_WORD(scm__rc.d1562[266]);
6826   scm__rc.d1562[275] = Scm_MakeIdentifier(scm__rc.d1562[269], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-for-each */
6827   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[28]))->name = scm__rc.d1562[46];/* %toplevel */
6828   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1346]))[5] = SCM_WORD(scm__rc.d1562[275]);
6829    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6830   scm__rc.d1562[276] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[165])),TRUE); /* string-incomplete->complete! */
6831   scm__rc.d1562[278] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[166])),TRUE); /* string-incomplete->complete */
6832   scm__rc.d1562[277] = Scm_MakeIdentifier(scm__rc.d1562[278], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#string-incomplete->complete */
6833   scm__rc.d1562[279] = Scm_MakeIdentifier(scm__rc.d1562[156], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%string-replace-body! */
6834   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[575]), scm__rc.d1562[2]);
6835   scm__rc.d1562[280] = Scm_MakeExtendedPair(scm__rc.d1562[276], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[576]));
6836   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[577]), scm__rc.d1562[280]);
6837   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[29]))->name = scm__rc.d1562[276];/* string-incomplete->complete! */
6838   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]))[4] = SCM_WORD(scm__rc.d1562[277]);
6839   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1353]))[13] = SCM_WORD(scm__rc.d1562[279]);
6840   ScmObj G1596 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[29]), NULL);
6841 
6842   Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /*  */, SCM_SYMBOL(scm__rc.d1562[276]) /* string-incomplete->complete! */, G1596,0);
6843 
6844   scm__rc.d1562[281] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[167])),TRUE); /* string-complete->incomplete */
6845   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[580]), scm__rc.d1562[2]);
6846   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[581]), scm__rc.d1562[281]);
6847   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[582]), scm__rc.d1562[7]);
6848   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[583]), scm__rc.d1562[3]);
6849   scm__rc.d1562[282] = Scm_MakeExtendedPair(scm__rc.d1562[281], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[585]));
6850   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-complete->incomplete")), SCM_OBJ(&libstrstring_complete_TOincomplete__STUB), 0);
6851   libstrstring_complete_TOincomplete__STUB.common.info = scm__rc.d1562[282];
6852   scm__rc.d1562[283] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[168]))); /* :replace */
6853   scm__rc.d1562[284] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[169]))); /* :omit */
6854   scm__rc.d1562[285] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[170]))); /* :escape */
6855   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[586]), scm__rc.d1562[285]);
6856   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[587]), scm__rc.d1562[283]);
6857   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[588]), scm__rc.d1562[284]);
6858   scm__rc.d1562[286] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[171])),TRUE); /* handling */
6859   scm__rc.d1562[287] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[172])),TRUE); /* filler */
6860   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[589]), scm__rc.d1562[287]);
6861   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[590]), scm__rc.d1562[286]);
6862   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[591]), scm__rc.d1562[13]);
6863   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[592]), scm__rc.d1562[21]);
6864   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[595]), scm__rc.d1562[2]);
6865   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[596]), scm__rc.d1562[278]);
6866   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[597]), scm__rc.d1562[7]);
6867   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[598]), scm__rc.d1562[3]);
6868   scm__rc.d1562[288] = Scm_MakeExtendedPair(scm__rc.d1562[278], SCM_OBJ(&scm__rc.d1563[592]), SCM_OBJ(&scm__rc.d1563[600]));
6869   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-incomplete->complete")), SCM_OBJ(&libstrstring_incomplete_TOcomplete__STUB), 0);
6870   libstrstring_incomplete_TOcomplete__STUB.common.info = scm__rc.d1562[288];
6871   scm__rc.d1562[289] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[173])),TRUE); /* make-byte-string */
6872   scm__rc.d1562[290] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[174])),TRUE); /* size */
6873   scm__rc.d1562[291] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[175])),TRUE); /* byte */
6874   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[601]), scm__rc.d1562[291]);
6875   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[602]), scm__rc.d1562[13]);
6876   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[603]), scm__rc.d1562[290]);
6877   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[606]), scm__rc.d1562[2]);
6878   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[607]), scm__rc.d1562[289]);
6879   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[608]), scm__rc.d1562[7]);
6880   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[609]), scm__rc.d1562[3]);
6881   scm__rc.d1562[292] = Scm_MakeExtendedPair(scm__rc.d1562[289], SCM_OBJ(&scm__rc.d1563[603]), SCM_OBJ(&scm__rc.d1563[611]));
6882   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("make-byte-string")), SCM_OBJ(&libstrmake_byte_string__STUB), 0);
6883   libstrmake_byte_string__STUB.common.info = scm__rc.d1562[292];
6884   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[614]), scm__rc.d1562[2]);
6885   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[615]), scm__rc.d1562[191]);
6886   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[616]), scm__rc.d1562[7]);
6887   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[617]), scm__rc.d1562[3]);
6888   scm__rc.d1562[293] = Scm_MakeExtendedPair(scm__rc.d1562[191], SCM_OBJ(&scm__rc.d1563[125]), SCM_OBJ(&scm__rc.d1563[619]));
6889   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-byte-ref")), SCM_OBJ(&libstrstring_byte_ref__STUB), 0);
6890   libstrstring_byte_ref__STUB.common.info = scm__rc.d1562[293];
6891   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[622]), scm__rc.d1562[2]);
6892   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[623]), scm__rc.d1562[181]);
6893   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[624]), scm__rc.d1562[7]);
6894   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[625]), scm__rc.d1562[3]);
6895   scm__rc.d1562[294] = Scm_MakeExtendedPair(scm__rc.d1562[181], SCM_OBJ(&scm__rc.d1563[134]), SCM_OBJ(&scm__rc.d1563[627]));
6896   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("byte-substring")), SCM_OBJ(&libstrbyte_substring__STUB), 0);
6897   libstrbyte_substring__STUB.common.info = scm__rc.d1562[294];
6898    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6899   scm__rc.d1562[295] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[176])),TRUE); /* complete-sexp? */
6900   scm__rc.d1562[296] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[177])),TRUE); /* rec-escaped */
6901   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[628]), scm__rc.d1562[296]);
6902   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[629]), scm__rc.d1562[295]);
6903   scm__rc.d1562[297] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[178])),TRUE); /* closer */
6904   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[630]), scm__rc.d1562[297]);
6905   scm__rc.d1562[298] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[629]), SCM_OBJ(&scm__rc.d1563[630]), SCM_OBJ(&scm__rc.d1563[93]));
6906   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[631]), scm__rc.d1562[298]);
6907   {
6908      ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
6909      Scm_CharSetAddRange(cs, SCM_CHAR(0), SCM_CHAR(32));
6910      Scm_CharSetAddRange(cs, SCM_CHAR(34), SCM_CHAR(34));
6911      Scm_CharSetAddRange(cs, SCM_CHAR(39), SCM_CHAR(41));
6912      Scm_CharSetAddRange(cs, SCM_CHAR(44), SCM_CHAR(44));
6913      Scm_CharSetAddRange(cs, SCM_CHAR(59), SCM_CHAR(59));
6914      Scm_CharSetAddRange(cs, SCM_CHAR(91), SCM_CHAR(93));
6915      Scm_CharSetAddRange(cs, SCM_CHAR(96), SCM_CHAR(96));
6916      Scm_CharSetAddRange(cs, SCM_CHAR(123), SCM_CHAR(125));
6917      Scm_CharSetAddRange(cs, SCM_CHAR(127), SCM_CHAR(127));
6918      scm__rc.d1562[299] = SCM_OBJ(cs);
6919   }
6920   scm__rc.d1562[300] = Scm_MakeIdentifier(scm__rc.d1562[128], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#char-set-contains? */
6921   scm__rc.d1562[301] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[179])),TRUE); /* skip-token */
6922   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[632]), scm__rc.d1562[301]);
6923   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[633]), scm__rc.d1562[295]);
6924   scm__rc.d1562[302] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[633]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[93]));
6925   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[634]), scm__rc.d1562[302]);
6926   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]))[10] = SCM_WORD(scm__rc.d1562[299]);
6927   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1394]))[13] = SCM_WORD(scm__rc.d1562[300]);
6928   {
6929      ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
6930      Scm_CharSetAddRange(cs, SCM_CHAR(0), SCM_CHAR(8));
6931      Scm_CharSetAddRange(cs, SCM_CHAR(14), SCM_CHAR(31));
6932      Scm_CharSetAddRange(cs, SCM_CHAR(33), SCM_CHAR(127));
6933      Scm_CharSetAddRange(cs, SCM_CHAR(128), SCM_CHAR(16777215));
6934      scm__rc.d1562[303] = SCM_OBJ(cs);
6935   }
6936   scm__rc.d1562[305] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[181])),TRUE); /* read-block */
6937   scm__rc.d1562[304] = Scm_MakeIdentifier(scm__rc.d1562[305], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#read-block */
6938   scm__rc.d1562[306] = Scm_MakeIdentifier(scm__rc.d1562[163], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#errorf */
6939   scm__rc.d1562[307] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[182])),TRUE); /* rec */
6940   scm__rc.d1562[308] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[183])),FALSE); /* G1597 */
6941   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[635]), scm__rc.d1562[308]);
6942   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[636]), scm__rc.d1562[295]);
6943   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[637]), scm__rc.d1562[307]);
6944   scm__rc.d1562[309] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[638]), SCM_OBJ(&scm__rc.d1563[630]), SCM_OBJ(&scm__rc.d1563[93]));
6945   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[639]), scm__rc.d1562[309]);
6946   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[32]))->name = scm__rc.d1562[307];/* ((complete-sexp? G1597) rec) */
6947   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[193] = SCM_WORD(scm__rc.d1562[303]);
6948   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[196] = SCM_WORD(scm__rc.d1562[300]);
6949   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[289] = SCM_WORD(scm__rc.d1562[304]);
6950   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1418]))[291] = SCM_WORD(scm__rc.d1562[306]);
6951   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[645]), scm__rc.d1562[2]);
6952   scm__rc.d1562[310] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[636]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[646]));
6953   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[647]), scm__rc.d1562[310]);
6954   scm__rc.d1562[312] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[184])),TRUE); /* with-input-from-string */
6955   scm__rc.d1562[311] = Scm_MakeIdentifier(scm__rc.d1562[312], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#with-input-from-string */
6956   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[653]), scm__rc.d1562[2]);
6957   scm__rc.d1562[313] = Scm_MakeExtendedPair(scm__rc.d1562[295], SCM_OBJ(&scm__rc.d1563[113]), SCM_OBJ(&scm__rc.d1563[654]));
6958   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[655]), scm__rc.d1562[313]);
6959   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[34]))->name = scm__rc.d1562[295];/* complete-sexp? */
6960   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1735]))[3] = SCM_WORD(scm__rc.d1562[311]);
6961   scm__rc.d1562[314] = Scm_MakeIdentifier(scm__rc.d1562[295], SCM_MODULE(scm__rc.d1562[41]), SCM_NIL); /* gauche#complete-sexp? */
6962   SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[35]))->name = scm__rc.d1562[46];/* %toplevel */
6963   ((ScmWord*)SCM_OBJ(&scm__rc.d1564[1740]))[5] = SCM_WORD(scm__rc.d1562[314]);
6964    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
6965 #if GAUCHE_STRING_POINTER
6966   scm__rc.d1601[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[0])),TRUE); /* make-string-pointer */
6967 #endif /* GAUCHE_STRING_POINTER */
6968 #if GAUCHE_STRING_POINTER
6969   scm__rc.d1601[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[1])),TRUE); /* str */
6970 #endif /* GAUCHE_STRING_POINTER */
6971 #if GAUCHE_STRING_POINTER
6972   scm__rc.d1601[2] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1600[2]))); /* :optional */
6973 #endif /* GAUCHE_STRING_POINTER */
6974 #if GAUCHE_STRING_POINTER
6975   scm__rc.d1601[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[3])),TRUE); /* index */
6976 #endif /* GAUCHE_STRING_POINTER */
6977 #if GAUCHE_STRING_POINTER
6978   scm__rc.d1601[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[4])),TRUE); /* start */
6979 #endif /* GAUCHE_STRING_POINTER */
6980 #if GAUCHE_STRING_POINTER
6981   scm__rc.d1601[5] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[5])),TRUE); /* end */
6982 #endif /* GAUCHE_STRING_POINTER */
6983 #if GAUCHE_STRING_POINTER
6984   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[1]), scm__rc.d1601[5]);
6985 #endif /* GAUCHE_STRING_POINTER */
6986 #if GAUCHE_STRING_POINTER
6987   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[2]), scm__rc.d1601[4]);
6988 #endif /* GAUCHE_STRING_POINTER */
6989 #if GAUCHE_STRING_POINTER
6990   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[3]), scm__rc.d1601[3]);
6991 #endif /* GAUCHE_STRING_POINTER */
6992 #if GAUCHE_STRING_POINTER
6993   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[4]), scm__rc.d1601[2]);
6994 #endif /* GAUCHE_STRING_POINTER */
6995 #if GAUCHE_STRING_POINTER
6996   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[5]), scm__rc.d1601[1]);
6997 #endif /* GAUCHE_STRING_POINTER */
6998 #if GAUCHE_STRING_POINTER
6999   scm__rc.d1601[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[6])),TRUE); /* source-info */
7000 #endif /* GAUCHE_STRING_POINTER */
7001 #if GAUCHE_STRING_POINTER
7002 #endif /* GAUCHE_STRING_POINTER */
7003 #if GAUCHE_STRING_POINTER
7004 #endif /* GAUCHE_STRING_POINTER */
7005 #if GAUCHE_STRING_POINTER
7006 #endif /* GAUCHE_STRING_POINTER */
7007 #if GAUCHE_STRING_POINTER
7008   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[8]), scm__rc.d1601[6]);
7009 #endif /* GAUCHE_STRING_POINTER */
7010 #if GAUCHE_STRING_POINTER
7011   scm__rc.d1601[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[8])),TRUE); /* bind-info */
7012 #endif /* GAUCHE_STRING_POINTER */
7013 #if GAUCHE_STRING_POINTER
7014   scm__rc.d1601[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[9])),TRUE); /* gauche */
7015 #endif /* GAUCHE_STRING_POINTER */
7016 #if GAUCHE_STRING_POINTER
7017   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[9]), scm__rc.d1601[0]);
7018 #endif /* GAUCHE_STRING_POINTER */
7019 #if GAUCHE_STRING_POINTER
7020   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[10]), scm__rc.d1601[8]);
7021 #endif /* GAUCHE_STRING_POINTER */
7022 #if GAUCHE_STRING_POINTER
7023   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[11]), scm__rc.d1601[7]);
7024 #endif /* GAUCHE_STRING_POINTER */
7025 #if GAUCHE_STRING_POINTER
7026 #endif /* GAUCHE_STRING_POINTER */
7027 #if GAUCHE_STRING_POINTER
7028 #endif /* GAUCHE_STRING_POINTER */
7029 #if GAUCHE_STRING_POINTER
7030   scm__rc.d1601[9] = Scm_MakeExtendedPair(scm__rc.d1601[0], SCM_OBJ(&scm__rc.d1602[5]), SCM_OBJ(&scm__rc.d1602[13]));
7031 #endif /* GAUCHE_STRING_POINTER */
7032 #if GAUCHE_STRING_POINTER
7033   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("make-string-pointer")), SCM_OBJ(&libstrmake_string_pointer__STUB), 0);
7034   libstrmake_string_pointer__STUB.common.info = scm__rc.d1601[9];
7035 #endif /* GAUCHE_STRING_POINTER */
7036 #if GAUCHE_STRING_POINTER
7037   scm__rc.d1601[10] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[10])),TRUE); /* string-pointer? */
7038 #endif /* GAUCHE_STRING_POINTER */
7039 #if GAUCHE_STRING_POINTER
7040   scm__rc.d1601[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[11])),TRUE); /* obj */
7041 #endif /* GAUCHE_STRING_POINTER */
7042 #if GAUCHE_STRING_POINTER
7043   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[14]), scm__rc.d1601[11]);
7044 #endif /* GAUCHE_STRING_POINTER */
7045 #if GAUCHE_STRING_POINTER
7046 #endif /* GAUCHE_STRING_POINTER */
7047 #if GAUCHE_STRING_POINTER
7048 #endif /* GAUCHE_STRING_POINTER */
7049 #if GAUCHE_STRING_POINTER
7050 #endif /* GAUCHE_STRING_POINTER */
7051 #if GAUCHE_STRING_POINTER
7052   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[17]), scm__rc.d1601[6]);
7053 #endif /* GAUCHE_STRING_POINTER */
7054 #if GAUCHE_STRING_POINTER
7055   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[18]), scm__rc.d1601[10]);
7056 #endif /* GAUCHE_STRING_POINTER */
7057 #if GAUCHE_STRING_POINTER
7058   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[19]), scm__rc.d1601[8]);
7059 #endif /* GAUCHE_STRING_POINTER */
7060 #if GAUCHE_STRING_POINTER
7061   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[20]), scm__rc.d1601[7]);
7062 #endif /* GAUCHE_STRING_POINTER */
7063 #if GAUCHE_STRING_POINTER
7064 #endif /* GAUCHE_STRING_POINTER */
7065 #if GAUCHE_STRING_POINTER
7066 #endif /* GAUCHE_STRING_POINTER */
7067 #if GAUCHE_STRING_POINTER
7068   scm__rc.d1601[12] = Scm_MakeExtendedPair(scm__rc.d1601[10], SCM_OBJ(&scm__rc.d1602[14]), SCM_OBJ(&scm__rc.d1602[22]));
7069 #endif /* GAUCHE_STRING_POINTER */
7070 #if GAUCHE_STRING_POINTER
7071   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer?")), SCM_OBJ(&libstrstring_pointerP__STUB), 0);
7072   libstrstring_pointerP__STUB.common.info = scm__rc.d1601[12];
7073 #endif /* GAUCHE_STRING_POINTER */
7074 #if GAUCHE_STRING_POINTER
7075   scm__rc.d1601[13] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[12])),TRUE); /* string-pointer-ref */
7076 #endif /* GAUCHE_STRING_POINTER */
7077 #if GAUCHE_STRING_POINTER
7078   scm__rc.d1601[14] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[13])),TRUE); /* sp */
7079 #endif /* GAUCHE_STRING_POINTER */
7080 #if GAUCHE_STRING_POINTER
7081   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[23]), scm__rc.d1601[14]);
7082 #endif /* GAUCHE_STRING_POINTER */
7083 #if GAUCHE_STRING_POINTER
7084 #endif /* GAUCHE_STRING_POINTER */
7085 #if GAUCHE_STRING_POINTER
7086 #endif /* GAUCHE_STRING_POINTER */
7087 #if GAUCHE_STRING_POINTER
7088 #endif /* GAUCHE_STRING_POINTER */
7089 #if GAUCHE_STRING_POINTER
7090   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[26]), scm__rc.d1601[6]);
7091 #endif /* GAUCHE_STRING_POINTER */
7092 #if GAUCHE_STRING_POINTER
7093   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[27]), scm__rc.d1601[13]);
7094 #endif /* GAUCHE_STRING_POINTER */
7095 #if GAUCHE_STRING_POINTER
7096   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[28]), scm__rc.d1601[8]);
7097 #endif /* GAUCHE_STRING_POINTER */
7098 #if GAUCHE_STRING_POINTER
7099   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[29]), scm__rc.d1601[7]);
7100 #endif /* GAUCHE_STRING_POINTER */
7101 #if GAUCHE_STRING_POINTER
7102 #endif /* GAUCHE_STRING_POINTER */
7103 #if GAUCHE_STRING_POINTER
7104 #endif /* GAUCHE_STRING_POINTER */
7105 #if GAUCHE_STRING_POINTER
7106   scm__rc.d1601[15] = Scm_MakeExtendedPair(scm__rc.d1601[13], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[31]));
7107 #endif /* GAUCHE_STRING_POINTER */
7108 #if GAUCHE_STRING_POINTER
7109   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-ref")), SCM_OBJ(&libstrstring_pointer_ref__STUB), 0);
7110   libstrstring_pointer_ref__STUB.common.info = scm__rc.d1601[15];
7111 #endif /* GAUCHE_STRING_POINTER */
7112 #if GAUCHE_STRING_POINTER
7113   scm__rc.d1601[16] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[14])),TRUE); /* string-pointer-next! */
7114 #endif /* GAUCHE_STRING_POINTER */
7115 #if GAUCHE_STRING_POINTER
7116 #endif /* GAUCHE_STRING_POINTER */
7117 #if GAUCHE_STRING_POINTER
7118 #endif /* GAUCHE_STRING_POINTER */
7119 #if GAUCHE_STRING_POINTER
7120 #endif /* GAUCHE_STRING_POINTER */
7121 #if GAUCHE_STRING_POINTER
7122   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[34]), scm__rc.d1601[6]);
7123 #endif /* GAUCHE_STRING_POINTER */
7124 #if GAUCHE_STRING_POINTER
7125   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[35]), scm__rc.d1601[16]);
7126 #endif /* GAUCHE_STRING_POINTER */
7127 #if GAUCHE_STRING_POINTER
7128   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[36]), scm__rc.d1601[8]);
7129 #endif /* GAUCHE_STRING_POINTER */
7130 #if GAUCHE_STRING_POINTER
7131   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[37]), scm__rc.d1601[7]);
7132 #endif /* GAUCHE_STRING_POINTER */
7133 #if GAUCHE_STRING_POINTER
7134 #endif /* GAUCHE_STRING_POINTER */
7135 #if GAUCHE_STRING_POINTER
7136 #endif /* GAUCHE_STRING_POINTER */
7137 #if GAUCHE_STRING_POINTER
7138   scm__rc.d1601[17] = Scm_MakeExtendedPair(scm__rc.d1601[16], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[39]));
7139 #endif /* GAUCHE_STRING_POINTER */
7140 #if GAUCHE_STRING_POINTER
7141   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-next!")), SCM_OBJ(&libstrstring_pointer_nextX__STUB), 0);
7142   libstrstring_pointer_nextX__STUB.common.info = scm__rc.d1601[17];
7143 #endif /* GAUCHE_STRING_POINTER */
7144 #if GAUCHE_STRING_POINTER
7145   scm__rc.d1601[18] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[15])),TRUE); /* string-pointer-prev! */
7146 #endif /* GAUCHE_STRING_POINTER */
7147 #if GAUCHE_STRING_POINTER
7148 #endif /* GAUCHE_STRING_POINTER */
7149 #if GAUCHE_STRING_POINTER
7150 #endif /* GAUCHE_STRING_POINTER */
7151 #if GAUCHE_STRING_POINTER
7152 #endif /* GAUCHE_STRING_POINTER */
7153 #if GAUCHE_STRING_POINTER
7154   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[42]), scm__rc.d1601[6]);
7155 #endif /* GAUCHE_STRING_POINTER */
7156 #if GAUCHE_STRING_POINTER
7157   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[43]), scm__rc.d1601[18]);
7158 #endif /* GAUCHE_STRING_POINTER */
7159 #if GAUCHE_STRING_POINTER
7160   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[44]), scm__rc.d1601[8]);
7161 #endif /* GAUCHE_STRING_POINTER */
7162 #if GAUCHE_STRING_POINTER
7163   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[45]), scm__rc.d1601[7]);
7164 #endif /* GAUCHE_STRING_POINTER */
7165 #if GAUCHE_STRING_POINTER
7166 #endif /* GAUCHE_STRING_POINTER */
7167 #if GAUCHE_STRING_POINTER
7168 #endif /* GAUCHE_STRING_POINTER */
7169 #if GAUCHE_STRING_POINTER
7170   scm__rc.d1601[19] = Scm_MakeExtendedPair(scm__rc.d1601[18], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[47]));
7171 #endif /* GAUCHE_STRING_POINTER */
7172 #if GAUCHE_STRING_POINTER
7173   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-prev!")), SCM_OBJ(&libstrstring_pointer_prevX__STUB), 0);
7174   libstrstring_pointer_prevX__STUB.common.info = scm__rc.d1601[19];
7175 #endif /* GAUCHE_STRING_POINTER */
7176 #if GAUCHE_STRING_POINTER
7177   scm__rc.d1601[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[16])),TRUE); /* string-pointer-set! */
7178 #endif /* GAUCHE_STRING_POINTER */
7179 #if GAUCHE_STRING_POINTER
7180   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[48]), scm__rc.d1601[3]);
7181 #endif /* GAUCHE_STRING_POINTER */
7182 #if GAUCHE_STRING_POINTER
7183   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[49]), scm__rc.d1601[14]);
7184 #endif /* GAUCHE_STRING_POINTER */
7185 #if GAUCHE_STRING_POINTER
7186 #endif /* GAUCHE_STRING_POINTER */
7187 #if GAUCHE_STRING_POINTER
7188 #endif /* GAUCHE_STRING_POINTER */
7189 #if GAUCHE_STRING_POINTER
7190 #endif /* GAUCHE_STRING_POINTER */
7191 #if GAUCHE_STRING_POINTER
7192   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[52]), scm__rc.d1601[6]);
7193 #endif /* GAUCHE_STRING_POINTER */
7194 #if GAUCHE_STRING_POINTER
7195   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[53]), scm__rc.d1601[20]);
7196 #endif /* GAUCHE_STRING_POINTER */
7197 #if GAUCHE_STRING_POINTER
7198   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[54]), scm__rc.d1601[8]);
7199 #endif /* GAUCHE_STRING_POINTER */
7200 #if GAUCHE_STRING_POINTER
7201   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[55]), scm__rc.d1601[7]);
7202 #endif /* GAUCHE_STRING_POINTER */
7203 #if GAUCHE_STRING_POINTER
7204 #endif /* GAUCHE_STRING_POINTER */
7205 #if GAUCHE_STRING_POINTER
7206 #endif /* GAUCHE_STRING_POINTER */
7207 #if GAUCHE_STRING_POINTER
7208   scm__rc.d1601[21] = Scm_MakeExtendedPair(scm__rc.d1601[20], SCM_OBJ(&scm__rc.d1602[49]), SCM_OBJ(&scm__rc.d1602[57]));
7209 #endif /* GAUCHE_STRING_POINTER */
7210 #if GAUCHE_STRING_POINTER
7211   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-set!")), SCM_OBJ(&libstrstring_pointer_setX__STUB), 0);
7212   libstrstring_pointer_setX__STUB.common.info = scm__rc.d1601[21];
7213 #endif /* GAUCHE_STRING_POINTER */
7214 #if GAUCHE_STRING_POINTER
7215   scm__rc.d1601[22] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1600[17]))); /* :after */
7216 #endif /* GAUCHE_STRING_POINTER */
7217 #if GAUCHE_STRING_POINTER
7218   scm__rc.d1601[23] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[18])),TRUE); /* string-pointer-substring */
7219 #endif /* GAUCHE_STRING_POINTER */
7220 #if GAUCHE_STRING_POINTER
7221 #endif /* GAUCHE_STRING_POINTER */
7222 #if GAUCHE_STRING_POINTER
7223 #endif /* GAUCHE_STRING_POINTER */
7224 #if GAUCHE_STRING_POINTER
7225 #endif /* GAUCHE_STRING_POINTER */
7226 #if GAUCHE_STRING_POINTER
7227   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[60]), scm__rc.d1601[6]);
7228 #endif /* GAUCHE_STRING_POINTER */
7229 #if GAUCHE_STRING_POINTER
7230   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[61]), scm__rc.d1601[23]);
7231 #endif /* GAUCHE_STRING_POINTER */
7232 #if GAUCHE_STRING_POINTER
7233   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[62]), scm__rc.d1601[8]);
7234 #endif /* GAUCHE_STRING_POINTER */
7235 #if GAUCHE_STRING_POINTER
7236   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[63]), scm__rc.d1601[7]);
7237 #endif /* GAUCHE_STRING_POINTER */
7238 #if GAUCHE_STRING_POINTER
7239 #endif /* GAUCHE_STRING_POINTER */
7240 #if GAUCHE_STRING_POINTER
7241 #endif /* GAUCHE_STRING_POINTER */
7242 #if GAUCHE_STRING_POINTER
7243   scm__rc.d1601[24] = Scm_MakeExtendedPair(scm__rc.d1601[23], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[65]));
7244 #endif /* GAUCHE_STRING_POINTER */
7245 #if GAUCHE_STRING_POINTER
7246   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-substring")), SCM_OBJ(&libstrstring_pointer_substring__STUB), 0);
7247   libstrstring_pointer_substring__STUB.common.info = scm__rc.d1601[24];
7248 #endif /* GAUCHE_STRING_POINTER */
7249 #if GAUCHE_STRING_POINTER
7250   scm__rc.d1601[25] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[19])),TRUE); /* string-pointer-index */
7251 #endif /* GAUCHE_STRING_POINTER */
7252 #if GAUCHE_STRING_POINTER
7253 #endif /* GAUCHE_STRING_POINTER */
7254 #if GAUCHE_STRING_POINTER
7255 #endif /* GAUCHE_STRING_POINTER */
7256 #if GAUCHE_STRING_POINTER
7257 #endif /* GAUCHE_STRING_POINTER */
7258 #if GAUCHE_STRING_POINTER
7259   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[68]), scm__rc.d1601[6]);
7260 #endif /* GAUCHE_STRING_POINTER */
7261 #if GAUCHE_STRING_POINTER
7262   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[69]), scm__rc.d1601[25]);
7263 #endif /* GAUCHE_STRING_POINTER */
7264 #if GAUCHE_STRING_POINTER
7265   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[70]), scm__rc.d1601[8]);
7266 #endif /* GAUCHE_STRING_POINTER */
7267 #if GAUCHE_STRING_POINTER
7268   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[71]), scm__rc.d1601[7]);
7269 #endif /* GAUCHE_STRING_POINTER */
7270 #if GAUCHE_STRING_POINTER
7271 #endif /* GAUCHE_STRING_POINTER */
7272 #if GAUCHE_STRING_POINTER
7273 #endif /* GAUCHE_STRING_POINTER */
7274 #if GAUCHE_STRING_POINTER
7275   scm__rc.d1601[26] = Scm_MakeExtendedPair(scm__rc.d1601[25], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[73]));
7276 #endif /* GAUCHE_STRING_POINTER */
7277 #if GAUCHE_STRING_POINTER
7278   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-index")), SCM_OBJ(&libstrstring_pointer_index__STUB), 0);
7279   libstrstring_pointer_index__STUB.common.info = scm__rc.d1601[26];
7280 #endif /* GAUCHE_STRING_POINTER */
7281 #if GAUCHE_STRING_POINTER
7282   scm__rc.d1601[27] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[20])),TRUE); /* string-pointer-copy */
7283 #endif /* GAUCHE_STRING_POINTER */
7284 #if GAUCHE_STRING_POINTER
7285 #endif /* GAUCHE_STRING_POINTER */
7286 #if GAUCHE_STRING_POINTER
7287 #endif /* GAUCHE_STRING_POINTER */
7288 #if GAUCHE_STRING_POINTER
7289 #endif /* GAUCHE_STRING_POINTER */
7290 #if GAUCHE_STRING_POINTER
7291   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[76]), scm__rc.d1601[6]);
7292 #endif /* GAUCHE_STRING_POINTER */
7293 #if GAUCHE_STRING_POINTER
7294   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[77]), scm__rc.d1601[27]);
7295 #endif /* GAUCHE_STRING_POINTER */
7296 #if GAUCHE_STRING_POINTER
7297   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[78]), scm__rc.d1601[8]);
7298 #endif /* GAUCHE_STRING_POINTER */
7299 #if GAUCHE_STRING_POINTER
7300   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[79]), scm__rc.d1601[7]);
7301 #endif /* GAUCHE_STRING_POINTER */
7302 #if GAUCHE_STRING_POINTER
7303 #endif /* GAUCHE_STRING_POINTER */
7304 #if GAUCHE_STRING_POINTER
7305 #endif /* GAUCHE_STRING_POINTER */
7306 #if GAUCHE_STRING_POINTER
7307   scm__rc.d1601[28] = Scm_MakeExtendedPair(scm__rc.d1601[27], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[81]));
7308 #endif /* GAUCHE_STRING_POINTER */
7309 #if GAUCHE_STRING_POINTER
7310   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-copy")), SCM_OBJ(&libstrstring_pointer_copy__STUB), 0);
7311   libstrstring_pointer_copy__STUB.common.info = scm__rc.d1601[28];
7312 #endif /* GAUCHE_STRING_POINTER */
7313 #if GAUCHE_STRING_POINTER
7314   scm__rc.d1601[29] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[21])),TRUE); /* string-pointer-byte-index */
7315 #endif /* GAUCHE_STRING_POINTER */
7316 #if GAUCHE_STRING_POINTER
7317 #endif /* GAUCHE_STRING_POINTER */
7318 #if GAUCHE_STRING_POINTER
7319 #endif /* GAUCHE_STRING_POINTER */
7320 #if GAUCHE_STRING_POINTER
7321 #endif /* GAUCHE_STRING_POINTER */
7322 #if GAUCHE_STRING_POINTER
7323   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[84]), scm__rc.d1601[6]);
7324 #endif /* GAUCHE_STRING_POINTER */
7325 #if GAUCHE_STRING_POINTER
7326   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[85]), scm__rc.d1601[29]);
7327 #endif /* GAUCHE_STRING_POINTER */
7328 #if GAUCHE_STRING_POINTER
7329   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[86]), scm__rc.d1601[8]);
7330 #endif /* GAUCHE_STRING_POINTER */
7331 #if GAUCHE_STRING_POINTER
7332   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[87]), scm__rc.d1601[7]);
7333 #endif /* GAUCHE_STRING_POINTER */
7334 #if GAUCHE_STRING_POINTER
7335 #endif /* GAUCHE_STRING_POINTER */
7336 #if GAUCHE_STRING_POINTER
7337 #endif /* GAUCHE_STRING_POINTER */
7338 #if GAUCHE_STRING_POINTER
7339   scm__rc.d1601[30] = Scm_MakeExtendedPair(scm__rc.d1601[29], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[89]));
7340 #endif /* GAUCHE_STRING_POINTER */
7341 #if GAUCHE_STRING_POINTER
7342   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-pointer-byte-index")), SCM_OBJ(&libstrstring_pointer_byte_index__STUB), 0);
7343   libstrstring_pointer_byte_index__STUB.common.info = scm__rc.d1601[30];
7344 #endif /* GAUCHE_STRING_POINTER */
7345    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
7346 #if GAUCHE_STRING_POINTER
7347   scm__rc.d1601[31] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[22])),TRUE); /* %string-pointer-dump */
7348 #endif /* GAUCHE_STRING_POINTER */
7349 #if GAUCHE_STRING_POINTER
7350 #endif /* GAUCHE_STRING_POINTER */
7351 #if GAUCHE_STRING_POINTER
7352 #endif /* GAUCHE_STRING_POINTER */
7353 #if GAUCHE_STRING_POINTER
7354 #endif /* GAUCHE_STRING_POINTER */
7355 #if GAUCHE_STRING_POINTER
7356   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[92]), scm__rc.d1601[6]);
7357 #endif /* GAUCHE_STRING_POINTER */
7358 #if GAUCHE_STRING_POINTER
7359   scm__rc.d1601[32] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1600[23])),TRUE); /* gauche.internal */
7360 #endif /* GAUCHE_STRING_POINTER */
7361 #if GAUCHE_STRING_POINTER
7362   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[93]), scm__rc.d1601[31]);
7363 #endif /* GAUCHE_STRING_POINTER */
7364 #if GAUCHE_STRING_POINTER
7365   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[94]), scm__rc.d1601[32]);
7366 #endif /* GAUCHE_STRING_POINTER */
7367 #if GAUCHE_STRING_POINTER
7368   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1602[95]), scm__rc.d1601[7]);
7369 #endif /* GAUCHE_STRING_POINTER */
7370 #if GAUCHE_STRING_POINTER
7371 #endif /* GAUCHE_STRING_POINTER */
7372 #if GAUCHE_STRING_POINTER
7373 #endif /* GAUCHE_STRING_POINTER */
7374 #if GAUCHE_STRING_POINTER
7375   scm__rc.d1601[33] = Scm_MakeExtendedPair(scm__rc.d1601[31], SCM_OBJ(&scm__rc.d1602[23]), SCM_OBJ(&scm__rc.d1602[97]));
7376 #endif /* GAUCHE_STRING_POINTER */
7377 #if GAUCHE_STRING_POINTER
7378   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%string-pointer-dump")), SCM_OBJ(&libstr_25string_pointer_dump__STUB), 0);
7379   libstr_25string_pointer_dump__STUB.common.info = scm__rc.d1601[33];
7380 #endif /* GAUCHE_STRING_POINTER */
7381    Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
7382   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[658]), scm__rc.d1562[2]);
7383   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[659]), scm__rc.d1562[239]);
7384   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[660]), scm__rc.d1562[7]);
7385   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[661]), scm__rc.d1562[3]);
7386   scm__rc.d1562[315] = Scm_MakeExtendedPair(scm__rc.d1562[239], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[663]));
7387   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor?")), SCM_OBJ(&libstrstring_cursorP__STUB), 0);
7388   libstrstring_cursorP__STUB.common.info = scm__rc.d1562[315];
7389   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[666]), scm__rc.d1562[2]);
7390   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[667]), scm__rc.d1562[140]);
7391   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[668]), scm__rc.d1562[7]);
7392   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[669]), scm__rc.d1562[3]);
7393   scm__rc.d1562[316] = Scm_MakeExtendedPair(scm__rc.d1562[140], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[671]));
7394   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-start")), SCM_OBJ(&libstrstring_cursor_start__STUB), 0);
7395   libstrstring_cursor_start__STUB.common.info = scm__rc.d1562[316];
7396   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[674]), scm__rc.d1562[2]);
7397   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[675]), scm__rc.d1562[142]);
7398   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[676]), scm__rc.d1562[7]);
7399   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[677]), scm__rc.d1562[3]);
7400   scm__rc.d1562[317] = Scm_MakeExtendedPair(scm__rc.d1562[142], SCM_OBJ(&scm__rc.d1563[256]), SCM_OBJ(&scm__rc.d1563[679]));
7401   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-end")), SCM_OBJ(&libstrstring_cursor_end__STUB), 0);
7402   libstrstring_cursor_end__STUB.common.info = scm__rc.d1562[317];
7403   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[680]), scm__rc.d1562[72]);
7404   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[681]), scm__rc.d1562[99]);
7405   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[684]), scm__rc.d1562[2]);
7406   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[685]), scm__rc.d1562[148]);
7407   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[686]), scm__rc.d1562[7]);
7408   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[687]), scm__rc.d1562[3]);
7409   scm__rc.d1562[318] = Scm_MakeExtendedPair(scm__rc.d1562[148], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[689]));
7410   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-next")), SCM_OBJ(&libstrstring_cursor_next__STUB), 0);
7411   libstrstring_cursor_next__STUB.common.info = scm__rc.d1562[318];
7412   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[692]), scm__rc.d1562[2]);
7413   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[693]), scm__rc.d1562[254]);
7414   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[694]), scm__rc.d1562[7]);
7415   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[695]), scm__rc.d1562[3]);
7416   scm__rc.d1562[319] = Scm_MakeExtendedPair(scm__rc.d1562[254], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[697]));
7417   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-prev")), SCM_OBJ(&libstrstring_cursor_prev__STUB), 0);
7418   libstrstring_cursor_prev__STUB.common.info = scm__rc.d1562[319];
7419   scm__rc.d1562[320] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[185])),TRUE); /* string-cursor-forward */
7420   scm__rc.d1562[321] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[186])),TRUE); /* nchars */
7421   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[698]), scm__rc.d1562[321]);
7422   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[699]), scm__rc.d1562[72]);
7423   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[700]), scm__rc.d1562[99]);
7424   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[703]), scm__rc.d1562[2]);
7425   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[704]), scm__rc.d1562[320]);
7426   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[705]), scm__rc.d1562[7]);
7427   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[706]), scm__rc.d1562[3]);
7428   scm__rc.d1562[322] = Scm_MakeExtendedPair(scm__rc.d1562[320], SCM_OBJ(&scm__rc.d1563[700]), SCM_OBJ(&scm__rc.d1563[708]));
7429   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-forward")), SCM_OBJ(&libstrstring_cursor_forward__STUB), 0);
7430   libstrstring_cursor_forward__STUB.common.info = scm__rc.d1562[322];
7431   scm__rc.d1562[323] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[187])),TRUE); /* string-cursor-back */
7432   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[711]), scm__rc.d1562[2]);
7433   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[712]), scm__rc.d1562[323]);
7434   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[713]), scm__rc.d1562[7]);
7435   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[714]), scm__rc.d1562[3]);
7436   scm__rc.d1562[324] = Scm_MakeExtendedPair(scm__rc.d1562[323], SCM_OBJ(&scm__rc.d1563[700]), SCM_OBJ(&scm__rc.d1563[716]));
7437   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-back")), SCM_OBJ(&libstrstring_cursor_back__STUB), 0);
7438   libstrstring_cursor_back__STUB.common.info = scm__rc.d1562[324];
7439   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[717]), scm__rc.d1562[73]);
7440   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[718]), scm__rc.d1562[99]);
7441   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[721]), scm__rc.d1562[2]);
7442   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[722]), scm__rc.d1562[165]);
7443   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[723]), scm__rc.d1562[7]);
7444   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[724]), scm__rc.d1562[3]);
7445   scm__rc.d1562[325] = Scm_MakeExtendedPair(scm__rc.d1562[165], SCM_OBJ(&scm__rc.d1563[718]), SCM_OBJ(&scm__rc.d1563[726]));
7446   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-index->cursor")), SCM_OBJ(&libstrstring_index_TOcursor__STUB), 0);
7447   libstrstring_index_TOcursor__STUB.common.info = scm__rc.d1562[325];
7448   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[729]), scm__rc.d1562[2]);
7449   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[730]), scm__rc.d1562[196]);
7450   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[731]), scm__rc.d1562[7]);
7451   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[732]), scm__rc.d1562[3]);
7452   scm__rc.d1562[326] = Scm_MakeExtendedPair(scm__rc.d1562[196], SCM_OBJ(&scm__rc.d1563[681]), SCM_OBJ(&scm__rc.d1563[734]));
7453   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor->index")), SCM_OBJ(&libstrstring_cursor_TOindex__STUB), 0);
7454   libstrstring_cursor_TOindex__STUB.common.info = scm__rc.d1562[326];
7455   scm__rc.d1562[327] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[188])),TRUE); /* cursor1 */
7456   scm__rc.d1562[328] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[189])),TRUE); /* cursor2 */
7457   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[735]), scm__rc.d1562[328]);
7458   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[736]), scm__rc.d1562[327]);
7459   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[739]), scm__rc.d1562[2]);
7460   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[740]), scm__rc.d1562[144]);
7461   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[741]), scm__rc.d1562[7]);
7462   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[742]), scm__rc.d1562[3]);
7463   scm__rc.d1562[329] = Scm_MakeExtendedPair(scm__rc.d1562[144], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[744]));
7464   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor=?")), SCM_OBJ(&libstrstring_cursor_3dP__STUB), 0);
7465   libstrstring_cursor_3dP__STUB.common.info = scm__rc.d1562[329];
7466   scm__rc.d1562[330] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[190])),TRUE); /* string-cursor<? */
7467   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[747]), scm__rc.d1562[2]);
7468   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[748]), scm__rc.d1562[330]);
7469   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[749]), scm__rc.d1562[7]);
7470   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[750]), scm__rc.d1562[3]);
7471   scm__rc.d1562[331] = Scm_MakeExtendedPair(scm__rc.d1562[330], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[752]));
7472   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor<?")), SCM_OBJ(&libstrstring_cursor_LTP__STUB), 0);
7473   libstrstring_cursor_LTP__STUB.common.info = scm__rc.d1562[331];
7474   scm__rc.d1562[332] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[191])),TRUE); /* string-cursor>? */
7475   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[755]), scm__rc.d1562[2]);
7476   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[756]), scm__rc.d1562[332]);
7477   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[757]), scm__rc.d1562[7]);
7478   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[758]), scm__rc.d1562[3]);
7479   scm__rc.d1562[333] = Scm_MakeExtendedPair(scm__rc.d1562[332], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[760]));
7480   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor>?")), SCM_OBJ(&libstrstring_cursor_GTP__STUB), 0);
7481   libstrstring_cursor_GTP__STUB.common.info = scm__rc.d1562[333];
7482   scm__rc.d1562[334] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[192])),TRUE); /* string-cursor<=? */
7483   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[763]), scm__rc.d1562[2]);
7484   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[764]), scm__rc.d1562[334]);
7485   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[765]), scm__rc.d1562[7]);
7486   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[766]), scm__rc.d1562[3]);
7487   scm__rc.d1562[335] = Scm_MakeExtendedPair(scm__rc.d1562[334], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[768]));
7488   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor<=?")), SCM_OBJ(&libstrstring_cursor_LT_3dP__STUB), 0);
7489   libstrstring_cursor_LT_3dP__STUB.common.info = scm__rc.d1562[335];
7490   scm__rc.d1562[336] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[193])),TRUE); /* string-cursor>=? */
7491   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[771]), scm__rc.d1562[2]);
7492   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[772]), scm__rc.d1562[336]);
7493   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[773]), scm__rc.d1562[7]);
7494   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[774]), scm__rc.d1562[3]);
7495   scm__rc.d1562[337] = Scm_MakeExtendedPair(scm__rc.d1562[336], SCM_OBJ(&scm__rc.d1563[736]), SCM_OBJ(&scm__rc.d1563[776]));
7496   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor>=?")), SCM_OBJ(&libstrstring_cursor_GT_3dP__STUB), 0);
7497   libstrstring_cursor_GT_3dP__STUB.common.info = scm__rc.d1562[337];
7498   scm__rc.d1562[338] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[194])),TRUE); /* string-cursor-diff */
7499   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[777]), scm__rc.d1562[99]);
7500   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[780]), scm__rc.d1562[2]);
7501   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[781]), scm__rc.d1562[338]);
7502   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[782]), scm__rc.d1562[7]);
7503   SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[783]), scm__rc.d1562[3]);
7504   scm__rc.d1562[339] = Scm_MakeExtendedPair(scm__rc.d1562[338], SCM_OBJ(&scm__rc.d1563[777]), SCM_OBJ(&scm__rc.d1563[785]));
7505   Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("string-cursor-diff")), SCM_OBJ(&libstrstring_cursor_diff__STUB), 0);
7506   libstrstring_cursor_diff__STUB.common.info = scm__rc.d1562[339];
7507   Scm_VMExecuteToplevels(toplevels);
7508 }
7509