1 /* Generated automatically from libalpha.scm. DO NOT EDIT */
2 #define LIBGAUCHE_BODY
3 #include <gauche.h>
4 #include <gauche/code.h>
5
6 #line 40 "libalpha.scm"
7 #include <gauche/vminsn.h>
8 #include <gauche/priv/macroP.h>
9
10
11 static ScmObj libalphamake_vector(ScmObj*, int, void*);
12 static SCM_DEFINE_SUBR(libalphamake_vector__STUB, 1, 2,SCM_FALSE,libalphamake_vector, NULL, NULL);
13
14
15 static ScmObj libalphagetter_with_setter(ScmObj*, int, void*);
16 static SCM_DEFINE_SUBRX(libalphagetter_with_setter__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libalphagetter_with_setter, NULL, NULL);
17
18
19 static ScmObj libalphasetter_SETTER(ScmObj*, int, void*);
20 static SCM_DEFINE_SUBR(libalphasetter_SETTER__STUB, 2, 0,SCM_FALSE,libalphasetter_SETTER, NULL, NULL);
21
22
23 static ScmObj libalphasetter(ScmObj*, int, void*);
24 static SCM_DEFINE_SUBR(libalphasetter__STUB, 1, 0,SCM_FALSE,libalphasetter, SCM_MAKE_INT(SCM_VM_SETTER), NULL);
25
26
27 static ScmObj libalphabox(ScmObj*, int, void*);
28 static SCM_DEFINE_SUBR(libalphabox__STUB, 0, 2,SCM_FALSE,libalphabox, NULL, NULL);
29
30
31 static ScmObj libalphaboxP(ScmObj*, int, void*);
32 static SCM_DEFINE_SUBR(libalphaboxP__STUB, 1, 0,SCM_FALSE,libalphaboxP, NULL, NULL);
33
34
35 static ScmObj libalphaunbox(ScmObj*, int, void*);
36 static SCM_DEFINE_SUBR(libalphaunbox__STUB, 1, 0,SCM_FALSE,libalphaunbox, NULL, NULL);
37
38
39 static ScmObj libalphaset_boxX(ScmObj*, int, void*);
40 static SCM_DEFINE_SUBR(libalphaset_boxX__STUB, 1, 1,SCM_FALSE,libalphaset_boxX, NULL, NULL);
41
42
43 static ScmObj libalphabox_arity(ScmObj*, int, void*);
44 static SCM_DEFINE_SUBR(libalphabox_arity__STUB, 1, 0,SCM_FALSE,libalphabox_arity, NULL, NULL);
45
46
47 static ScmObj libalphaunbox_value(ScmObj*, int, void*);
48 static SCM_DEFINE_SUBR(libalphaunbox_value__STUB, 2, 0,SCM_FALSE,libalphaunbox_value, NULL, NULL);
49
50
51 static ScmObj libalphaset_box_valueX(ScmObj*, int, void*);
52 static SCM_DEFINE_SUBR(libalphaset_box_valueX__STUB, 3, 0,SCM_FALSE,libalphaset_box_valueX, NULL, NULL);
53
54 static ScmObj case_lambda_dispatch(ScmObj* args,int nargs,void* data);
55
56 static ScmObj libalphamake_case_lambda_dispatcher(ScmObj*, int, void*);
57 static SCM_DEFINE_SUBR(libalphamake_case_lambda_dispatcher__STUB, 3, 0,SCM_FALSE,libalphamake_case_lambda_dispatcher, NULL, NULL);
58
59
60 static ScmObj libalpha_25make_macro_transformer(ScmObj*, int, void*);
61 static SCM_DEFINE_SUBR(libalpha_25make_macro_transformer__STUB, 2, 3,SCM_FALSE,libalpha_25make_macro_transformer, NULL, NULL);
62
63 #if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
64 #define SCM_CGEN_CONST /*empty*/
65 #else
66 #define SCM_CGEN_CONST const
67 #endif
68 static SCM_CGEN_CONST struct scm__scRec {
69 ScmString d1562[100];
70 } scm__sc SCM_UNUSED = {
71 { /* ScmString d1562 */
72 SCM_STRING_CONST_INITIALIZER("%error-scan-keys", 16, 16),
73 SCM_STRING_CONST_INITIALIZER("reverse!", 8, 8),
74 SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
75 SCM_STRING_CONST_INITIALIZER("keyword\077", 8, 8),
76 SCM_STRING_CONST_INITIALIZER("args", 4, 4),
77 SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
78 SCM_STRING_CONST_INITIALIZER("libalpha.scm", 12, 12),
79 SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
80 SCM_STRING_CONST_INITIALIZER("%make-error-message", 19, 19),
81 SCM_STRING_CONST_INITIALIZER("open-output-string", 18, 18),
82 SCM_STRING_CONST_INITIALIZER("display", 7, 7),
83 SCM_STRING_CONST_INITIALIZER(" ", 1, 1),
84 SCM_STRING_CONST_INITIALIZER("write/ss", 8, 8),
85 SCM_STRING_CONST_INITIALIZER("get-output-string", 17, 17),
86 SCM_STRING_CONST_INITIALIZER("msg", 3, 3),
87 SCM_STRING_CONST_INITIALIZER("make-error", 10, 10),
88 SCM_STRING_CONST_INITIALIZER("<error>", 7, 7),
89 SCM_STRING_CONST_INITIALIZER("message", 7, 7),
90 SCM_STRING_CONST_INITIALIZER("message-prefix", 14, 14),
91 SCM_STRING_CONST_INITIALIZER("message-args", 12, 12),
92 SCM_STRING_CONST_INITIALIZER("make", 4, 4),
93 SCM_STRING_CONST_INITIALIZER("error", 5, 5),
94 SCM_STRING_CONST_INITIALIZER("<condition-meta>", 16, 16),
95 SCM_STRING_CONST_INITIALIZER("is-a\077", 5, 5),
96 SCM_STRING_CONST_INITIALIZER("raise", 5, 5),
97 SCM_STRING_CONST_INITIALIZER("errorf", 6, 6),
98 SCM_STRING_CONST_INITIALIZER("format/ss", 9, 9),
99 SCM_STRING_CONST_INITIALIZER("fmt", 3, 3),
100 SCM_STRING_CONST_INITIALIZER("make-vector", 11, 11),
101 SCM_STRING_CONST_INITIALIZER("k", 1, 1),
102 SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
103 SCM_STRING_CONST_INITIALIZER("fill", 4, 4),
104 SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
105 SCM_STRING_CONST_INITIALIZER("scheme", 6, 6),
106 SCM_STRING_CONST_INITIALIZER("getter-with-setter", 18, 18),
107 SCM_STRING_CONST_INITIALIZER("proc", 4, 4),
108 SCM_STRING_CONST_INITIALIZER("set", 3, 3),
109 SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
110 SCM_STRING_CONST_INITIALIZER("setter", 6, 6),
111 SCM_STRING_CONST_INITIALIZER("(setter setter)", 15, 15),
112 SCM_STRING_CONST_INITIALIZER("box", 3, 3),
113 SCM_STRING_CONST_INITIALIZER("rest", 4, 4),
114 SCM_STRING_CONST_INITIALIZER("optarray", 8, 8),
115 SCM_STRING_CONST_INITIALIZER("argv", 4, 4),
116 SCM_STRING_CONST_INITIALIZER("box\077", 4, 4),
117 SCM_STRING_CONST_INITIALIZER("v", 1, 1),
118 SCM_STRING_CONST_INITIALIZER("unbox", 5, 5),
119 SCM_STRING_CONST_INITIALIZER("b", 1, 1),
120 SCM_STRING_CONST_INITIALIZER("set-box!", 8, 8),
121 SCM_STRING_CONST_INITIALIZER("vs", 2, 2),
122 SCM_STRING_CONST_INITIALIZER("box-arity", 9, 9),
123 SCM_STRING_CONST_INITIALIZER("unbox-value", 11, 11),
124 SCM_STRING_CONST_INITIALIZER("i", 1, 1),
125 SCM_STRING_CONST_INITIALIZER("set-box-value!", 14, 14),
126 SCM_STRING_CONST_INITIALIZER("val", 3, 3),
127 SCM_STRING_CONST_INITIALIZER("make-case-lambda-dispatcher", 27, 27),
128 SCM_STRING_CONST_INITIALIZER("case-lambda-dispatcher", 22, 22),
129 SCM_STRING_CONST_INITIALIZER("dispatch-vector", 15, 15),
130 SCM_STRING_CONST_INITIALIZER("min-reqargs", 11, 11),
131 SCM_STRING_CONST_INITIALIZER("name", 4, 4),
132 SCM_STRING_CONST_INITIALIZER("make-case-lambda", 16, 16),
133 SCM_STRING_CONST_INITIALIZER("too many arguments for", 22, 22),
134 SCM_STRING_CONST_INITIALIZER("lambda", 6, 6),
135 SCM_STRING_CONST_INITIALIZER("minarg", 6, 6),
136 SCM_STRING_CONST_INITIALIZER("maxarg", 6, 6),
137 SCM_STRING_CONST_INITIALIZER("formals", 7, 7),
138 SCM_STRING_CONST_INITIALIZER("closures", 8, 8),
139 SCM_STRING_CONST_INITIALIZER("define", 6, 6),
140 SCM_STRING_CONST_INITIALIZER("fill-dispatch-vector!", 21, 21),
141 SCM_STRING_CONST_INITIALIZER("closure", 7, 7),
142 SCM_STRING_CONST_INITIALIZER("%set", 4, 4),
143 SCM_STRING_CONST_INITIALIZER("n", 1, 1),
144 SCM_STRING_CONST_INITIALIZER("let1", 4, 4),
145 SCM_STRING_CONST_INITIALIZER("-", 1, 1),
146 SCM_STRING_CONST_INITIALIZER("unless", 6, 6),
147 SCM_STRING_CONST_INITIALIZER("vector-ref", 10, 10),
148 SCM_STRING_CONST_INITIALIZER("vector-set!", 11, 11),
149 SCM_STRING_CONST_INITIALIZER("let", 3, 3),
150 SCM_STRING_CONST_INITIALIZER("loop", 4, 4),
151 SCM_STRING_CONST_INITIALIZER("cond", 4, 4),
152 SCM_STRING_CONST_INITIALIZER(">", 1, 1),
153 SCM_STRING_CONST_INITIALIZER("+", 1, 1),
154 SCM_STRING_CONST_INITIALIZER("null\077", 5, 5),
155 SCM_STRING_CONST_INITIALIZER("pair\077", 5, 5),
156 SCM_STRING_CONST_INITIALIZER("cdr", 3, 3),
157 SCM_STRING_CONST_INITIALIZER("else", 4, 4),
158 SCM_STRING_CONST_INITIALIZER("fs", 2, 2),
159 SCM_STRING_CONST_INITIALIZER("cs", 2, 2),
160 SCM_STRING_CONST_INITIALIZER("car", 3, 3),
161 SCM_STRING_CONST_INITIALIZER("with-module", 11, 11),
162 SCM_STRING_CONST_INITIALIZER("case-lambda-info", 16, 16),
163 SCM_STRING_CONST_INITIALIZER("subr\077", 5, 5),
164 SCM_STRING_CONST_INITIALIZER("procedure-info", 14, 14),
165 SCM_STRING_CONST_INITIALIZER("integer\077", 8, 8),
166 SCM_STRING_CONST_INITIALIZER("reverse", 7, 7),
167 SCM_STRING_CONST_INITIALIZER("%toplevel", 9, 9),
168 SCM_STRING_CONST_INITIALIZER("%make-macro-transformer", 23, 23),
169 SCM_STRING_CONST_INITIALIZER("transformer", 11, 11),
170 SCM_STRING_CONST_INITIALIZER("src", 3, 3),
171 SCM_STRING_CONST_INITIALIZER("describer", 9, 9),
172 },
173 };
174 static struct scm__rcRec {
175 ScmCompiledCode d1565[9];
176 ScmPair d1564[292] SCM_ALIGN_PAIR;
177 ScmWord d1563[454];
178 ScmObj d1561[140];
179 } scm__rc SCM_UNUSED = {
180 { /* ScmCompiledCode d1565 */
181 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %error-scan-keys */
182 (ScmWord*)(SCM_OBJ(&scm__rc.d1563[0])), 43,
183 21, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1564[8]),
184 SCM_FALSE, SCM_FALSE),
185 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %make-error-message */
186 (ScmWord*)(SCM_OBJ(&scm__rc.d1563[43])), 44,
187 29, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1564[14]),
188 SCM_FALSE, SCM_FALSE),
189 SCM_COMPILED_CODE_CONST_INITIALIZER( /* make-error */
190 (ScmWord*)(SCM_OBJ(&scm__rc.d1563[87])), 20,
191 14, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1564[20]),
192 SCM_FALSE, SCM_FALSE),
193 SCM_COMPILED_CODE_CONST_INITIALIZER( /* error */
194 (ScmWord*)(SCM_OBJ(&scm__rc.d1563[107])), 57,
195 26, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1564[25]),
196 SCM_FALSE, SCM_FALSE),
197 SCM_COMPILED_CODE_CONST_INITIALIZER( /* errorf */
198 (ScmWord*)(SCM_OBJ(&scm__rc.d1563[164])), 66,
199 24, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1564[31]),
200 SCM_FALSE, SCM_FALSE),
201 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %set */
202 (ScmWord*)(SCM_OBJ(&scm__rc.d1563[230])), 15,
203 6, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1564[267]),
204 SCM_OBJ(&scm__rc.d1565[6]), SCM_FALSE),
205 SCM_COMPILED_CODE_CONST_INITIALIZER( /* make-case-lambda */
206 (ScmWord*)(SCM_OBJ(&scm__rc.d1563[245])), 107,
207 50, 4, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1564[273]),
208 SCM_FALSE, SCM_FALSE),
209 SCM_COMPILED_CODE_CONST_INITIALIZER( /* case-lambda-info */
210 (ScmWord*)(SCM_OBJ(&scm__rc.d1563[352])), 101,
211 36, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1564[278]),
212 SCM_FALSE, SCM_FALSE),
213 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
214 (ScmWord*)(SCM_OBJ(&scm__rc.d1563[453])), 1,
215 0, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
216 SCM_FALSE, SCM_FALSE),
217 },
218 { /* ScmPair d1564 */
219 { SCM_NIL, SCM_NIL },
220 { SCM_UNDEFINED, SCM_NIL},
221 { SCM_MAKE_INT(48U), SCM_NIL},
222 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[2])},
223 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[3])},
224 { SCM_UNDEFINED, SCM_NIL},
225 { SCM_OBJ(&scm__rc.d1564[5]), SCM_NIL},
226 { SCM_OBJ(&scm__rc.d1564[4]), SCM_OBJ(&scm__rc.d1564[6])},
227 { SCM_UNDEFINED, SCM_NIL},
228 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[1])},
229 { SCM_MAKE_INT(56U), SCM_NIL},
230 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[10])},
231 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[11])},
232 { SCM_OBJ(&scm__rc.d1564[12]), SCM_OBJ(&scm__rc.d1564[6])},
233 { SCM_UNDEFINED, SCM_NIL},
234 { SCM_UNDEFINED, SCM_UNDEFINED},
235 { SCM_MAKE_INT(63U), SCM_NIL},
236 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[16])},
237 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[17])},
238 { SCM_OBJ(&scm__rc.d1564[18]), SCM_OBJ(&scm__rc.d1564[6])},
239 { SCM_UNDEFINED, SCM_NIL},
240 { SCM_MAKE_INT(69U), SCM_NIL},
241 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[21])},
242 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[22])},
243 { SCM_OBJ(&scm__rc.d1564[23]), SCM_OBJ(&scm__rc.d1564[6])},
244 { SCM_UNDEFINED, SCM_NIL},
245 { SCM_UNDEFINED, SCM_UNDEFINED},
246 { SCM_MAKE_INT(80U), SCM_NIL},
247 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[27])},
248 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[28])},
249 { SCM_OBJ(&scm__rc.d1564[29]), SCM_OBJ(&scm__rc.d1564[6])},
250 { SCM_UNDEFINED, SCM_NIL},
251 { SCM_UNDEFINED, SCM_NIL},
252 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[32])},
253 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[33])},
254 { SCM_MAKE_INT(97U), SCM_NIL},
255 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[35])},
256 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[36])},
257 { SCM_UNDEFINED, SCM_NIL},
258 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[38])},
259 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[39])},
260 { SCM_OBJ(&scm__rc.d1564[40]), SCM_NIL},
261 { SCM_OBJ(&scm__rc.d1564[37]), SCM_OBJ(&scm__rc.d1564[41])},
262 { SCM_UNDEFINED, SCM_NIL},
263 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[43])},
264 { SCM_MAKE_INT(107U), SCM_NIL},
265 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[45])},
266 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[46])},
267 { SCM_UNDEFINED, SCM_NIL},
268 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[48])},
269 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[49])},
270 { SCM_OBJ(&scm__rc.d1564[50]), SCM_NIL},
271 { SCM_OBJ(&scm__rc.d1564[47]), SCM_OBJ(&scm__rc.d1564[51])},
272 { SCM_UNDEFINED, SCM_NIL},
273 { SCM_MAKE_INT(121U), SCM_NIL},
274 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[54])},
275 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[55])},
276 { SCM_UNDEFINED, SCM_NIL},
277 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[57])},
278 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[58])},
279 { SCM_OBJ(&scm__rc.d1564[59]), SCM_NIL},
280 { SCM_OBJ(&scm__rc.d1564[56]), SCM_OBJ(&scm__rc.d1564[60])},
281 { SCM_UNDEFINED, SCM_NIL},
282 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[62])},
283 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[63])},
284 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[64])},
285 { SCM_MAKE_INT(132U), SCM_NIL},
286 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[66])},
287 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[67])},
288 { SCM_UNDEFINED, SCM_NIL},
289 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[69])},
290 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[70])},
291 { SCM_OBJ(&scm__rc.d1564[71]), SCM_NIL},
292 { SCM_OBJ(&scm__rc.d1564[68]), SCM_OBJ(&scm__rc.d1564[72])},
293 { SCM_UNDEFINED, SCM_NIL},
294 { SCM_MAKE_INT(138U), SCM_NIL},
295 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[75])},
296 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[76])},
297 { SCM_UNDEFINED, SCM_NIL},
298 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[78])},
299 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[79])},
300 { SCM_OBJ(&scm__rc.d1564[80]), SCM_NIL},
301 { SCM_OBJ(&scm__rc.d1564[77]), SCM_OBJ(&scm__rc.d1564[81])},
302 { SCM_UNDEFINED, SCM_NIL},
303 { SCM_MAKE_INT(140U), SCM_NIL},
304 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[84])},
305 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[85])},
306 { SCM_UNDEFINED, SCM_NIL},
307 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[87])},
308 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[88])},
309 { SCM_OBJ(&scm__rc.d1564[89]), SCM_NIL},
310 { SCM_OBJ(&scm__rc.d1564[86]), SCM_OBJ(&scm__rc.d1564[90])},
311 { SCM_UNDEFINED, SCM_NIL},
312 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[92])},
313 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[93])},
314 { SCM_MAKE_INT(147U), SCM_NIL},
315 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[95])},
316 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[96])},
317 { SCM_UNDEFINED, SCM_NIL},
318 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[98])},
319 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[99])},
320 { SCM_OBJ(&scm__rc.d1564[100]), SCM_NIL},
321 { SCM_OBJ(&scm__rc.d1564[97]), SCM_OBJ(&scm__rc.d1564[101])},
322 { SCM_MAKE_INT(164U), SCM_NIL},
323 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[103])},
324 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[104])},
325 { SCM_UNDEFINED, SCM_NIL},
326 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[106])},
327 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[107])},
328 { SCM_OBJ(&scm__rc.d1564[108]), SCM_NIL},
329 { SCM_OBJ(&scm__rc.d1564[105]), SCM_OBJ(&scm__rc.d1564[109])},
330 { SCM_UNDEFINED, SCM_NIL},
331 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[111])},
332 { SCM_MAKE_INT(170U), SCM_NIL},
333 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[113])},
334 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[114])},
335 { SCM_UNDEFINED, SCM_NIL},
336 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[116])},
337 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[117])},
338 { SCM_OBJ(&scm__rc.d1564[118]), SCM_NIL},
339 { SCM_OBJ(&scm__rc.d1564[115]), SCM_OBJ(&scm__rc.d1564[119])},
340 { SCM_UNDEFINED, SCM_NIL},
341 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[121])},
342 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[122])},
343 { SCM_MAKE_INT(182U), SCM_NIL},
344 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[124])},
345 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[125])},
346 { SCM_UNDEFINED, SCM_NIL},
347 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[127])},
348 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[128])},
349 { SCM_OBJ(&scm__rc.d1564[129]), SCM_NIL},
350 { SCM_OBJ(&scm__rc.d1564[126]), SCM_OBJ(&scm__rc.d1564[130])},
351 { SCM_UNDEFINED, SCM_NIL},
352 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[132])},
353 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[133])},
354 { SCM_MAKE_INT(272U), SCM_NIL},
355 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[135])},
356 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[136])},
357 { SCM_UNDEFINED, SCM_NIL},
358 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[138])},
359 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[139])},
360 { SCM_OBJ(&scm__rc.d1564[140]), SCM_NIL},
361 { SCM_OBJ(&scm__rc.d1564[137]), SCM_OBJ(&scm__rc.d1564[141])},
362 { SCM_FALSE, SCM_NIL},
363 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[143])},
364 { SCM_OBJ(&scm__rc.d1564[144]), SCM_NIL},
365 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[145])},
366 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[146])},
367 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[147])},
368 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[148])},
369 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[149])},
370 { SCM_UNDEFINED, SCM_NIL},
371 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[151])},
372 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[152])},
373 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[153])},
374 { SCM_UNDEFINED, SCM_NIL},
375 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[155])},
376 { SCM_UNDEFINED, SCM_NIL},
377 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[157])},
378 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[158])},
379 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[111])},
380 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[160])},
381 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[151])},
382 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[162])},
383 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[163])},
384 { SCM_OBJ(&scm__rc.d1564[164]), SCM_NIL},
385 { SCM_OBJ(&scm__rc.d1564[161]), SCM_OBJ(&scm__rc.d1564[165])},
386 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[166])},
387 { SCM_OBJ(&scm__rc.d1564[167]), SCM_NIL},
388 { SCM_OBJ(&scm__rc.d1564[159]), SCM_OBJ(&scm__rc.d1564[168])},
389 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[169])},
390 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[170])},
391 { SCM_OBJ(&scm__rc.d1564[171]), SCM_NIL},
392 { SCM_OBJ(&scm__rc.d1564[156]), SCM_OBJ(&scm__rc.d1564[172])},
393 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[173])},
394 { SCM_UNDEFINED, SCM_NIL},
395 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[175])},
396 { SCM_MAKE_INT(0), SCM_NIL},
397 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[177])},
398 { SCM_OBJ(&scm__rc.d1564[178]), SCM_NIL},
399 { SCM_OBJ(&scm__rc.d1564[176]), SCM_OBJ(&scm__rc.d1564[179])},
400 { SCM_MAKE_INT(1U), SCM_NIL},
401 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[181])},
402 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[182])},
403 { SCM_OBJ(&scm__rc.d1564[183]), SCM_NIL},
404 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[184])},
405 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[185])},
406 { SCM_OBJ(&scm__rc.d1564[186]), SCM_NIL},
407 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[175])},
408 { SCM_OBJ(&scm__rc.d1564[156]), SCM_NIL},
409 { SCM_OBJ(&scm__rc.d1564[188]), SCM_OBJ(&scm__rc.d1564[189])},
410 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[175])},
411 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[175])},
412 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[181])},
413 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[193])},
414 { SCM_OBJ(&scm__rc.d1564[194]), SCM_NIL},
415 { SCM_OBJ(&scm__rc.d1564[192]), SCM_OBJ(&scm__rc.d1564[195])},
416 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[196])},
417 { SCM_OBJ(&scm__rc.d1564[197]), SCM_NIL},
418 { SCM_OBJ(&scm__rc.d1564[191]), SCM_OBJ(&scm__rc.d1564[198])},
419 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[195])},
420 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[200])},
421 { SCM_OBJ(&scm__rc.d1564[201]), SCM_NIL},
422 { SCM_OBJ(&scm__rc.d1564[156]), SCM_OBJ(&scm__rc.d1564[202])},
423 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[203])},
424 { SCM_OBJ(&scm__rc.d1564[204]), SCM_NIL},
425 { SCM_OBJ(&scm__rc.d1564[199]), SCM_OBJ(&scm__rc.d1564[205])},
426 { SCM_OBJ(&scm__rc.d1564[190]), SCM_OBJ(&scm__rc.d1564[206])},
427 { SCM_OBJ(&scm__rc.d1564[187]), SCM_OBJ(&scm__rc.d1564[207])},
428 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[208])},
429 { SCM_OBJ(&scm__rc.d1564[209]), SCM_NIL},
430 { SCM_OBJ(&scm__rc.d1564[180]), SCM_OBJ(&scm__rc.d1564[210])},
431 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[211])},
432 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[212])},
433 { SCM_OBJ(&scm__rc.d1564[213]), SCM_NIL},
434 { SCM_OBJ(&scm__rc.d1564[174]), SCM_OBJ(&scm__rc.d1564[214])},
435 { SCM_OBJ(&scm__rc.d1564[154]), SCM_OBJ(&scm__rc.d1564[215])},
436 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[216])},
437 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[157])},
438 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[218])},
439 { SCM_MAKE_INT(2U), SCM_NIL},
440 { SCM_OBJ(&scm__rc.d1564[219]), SCM_OBJ(&scm__rc.d1564[220])},
441 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[221])},
442 { SCM_OBJ(&scm__rc.d1564[222]), SCM_OBJ(&scm__rc.d1564[143])},
443 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[223])},
444 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[175])},
445 { SCM_UNDEFINED, SCM_NIL},
446 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[226])},
447 { SCM_OBJ(&scm__rc.d1564[227]), SCM_NIL},
448 { SCM_OBJ(&scm__rc.d1564[225]), SCM_OBJ(&scm__rc.d1564[228])},
449 { SCM_UNDEFINED, SCM_NIL},
450 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[230])},
451 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[230])},
452 { SCM_UNDEFINED, SCM_NIL},
453 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[233])},
454 { SCM_OBJ(&scm__rc.d1564[234]), SCM_NIL},
455 { SCM_OBJ(&scm__rc.d1564[232]), SCM_OBJ(&scm__rc.d1564[235])},
456 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[236])},
457 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[237])},
458 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[230])},
459 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[233])},
460 { SCM_OBJ(&scm__rc.d1564[240]), SCM_NIL},
461 { SCM_OBJ(&scm__rc.d1564[239]), SCM_OBJ(&scm__rc.d1564[241])},
462 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[242])},
463 { SCM_OBJ(&scm__rc.d1564[243]), SCM_NIL},
464 { SCM_OBJ(&scm__rc.d1564[238]), SCM_OBJ(&scm__rc.d1564[244])},
465 { SCM_OBJ(&scm__rc.d1564[231]), SCM_OBJ(&scm__rc.d1564[245])},
466 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[246])},
467 { SCM_OBJ(&scm__rc.d1564[247]), SCM_NIL},
468 { SCM_OBJ(&scm__rc.d1564[229]), SCM_OBJ(&scm__rc.d1564[248])},
469 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[249])},
470 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[250])},
471 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[139])},
472 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[132])},
473 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[253])},
474 { SCM_OBJ(&scm__rc.d1564[252]), SCM_OBJ(&scm__rc.d1564[254])},
475 { SCM_OBJ(&scm__rc.d1564[255]), SCM_NIL},
476 { SCM_OBJ(&scm__rc.d1564[251]), SCM_OBJ(&scm__rc.d1564[256])},
477 { SCM_OBJ(&scm__rc.d1564[224]), SCM_OBJ(&scm__rc.d1564[257])},
478 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[258])},
479 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[259])},
480 { SCM_OBJ(&scm__rc.d1564[260]), SCM_NIL},
481 { SCM_OBJ(&scm__rc.d1564[217]), SCM_OBJ(&scm__rc.d1564[261])},
482 { SCM_OBJ(&scm__rc.d1564[150]), SCM_OBJ(&scm__rc.d1564[262])},
483 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[263])},
484 { SCM_UNDEFINED, SCM_NIL},
485 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[265])},
486 { SCM_UNDEFINED, SCM_NIL},
487 { SCM_OBJ(&scm__rc.d1565[5]), SCM_NIL},
488 { SCM_MAKE_INT(291U), SCM_NIL},
489 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[269])},
490 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[270])},
491 { SCM_OBJ(&scm__rc.d1564[271]), SCM_OBJ(&scm__rc.d1564[6])},
492 { SCM_UNDEFINED, SCM_NIL},
493 { SCM_MAKE_INT(317U), SCM_NIL},
494 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[274])},
495 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[275])},
496 { SCM_OBJ(&scm__rc.d1564[276]), SCM_OBJ(&scm__rc.d1564[6])},
497 { SCM_UNDEFINED, SCM_NIL},
498 { SCM_UNDEFINED, SCM_NIL},
499 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[279])},
500 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[280])},
501 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[281])},
502 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[282])},
503 { SCM_MAKE_INT(343U), SCM_NIL},
504 { SCM_OBJ(&scm__sc.d1562[6]), SCM_OBJ(&scm__rc.d1564[284])},
505 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[285])},
506 { SCM_UNDEFINED, SCM_NIL},
507 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[287])},
508 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1564[288])},
509 { SCM_OBJ(&scm__rc.d1564[289]), SCM_NIL},
510 { SCM_OBJ(&scm__rc.d1564[286]), SCM_OBJ(&scm__rc.d1564[290])},
511 },
512 { /* ScmWord d1563 */
513 /* %error-scan-keys */
514 0x00000048 /* 0 (LREF0-PUSH) */,
515 0x00000008 /* 1 (CONSTN-PUSH) */,
516 0x00002017 /* 2 (LOCAL-ENV 2) */,
517 0x0000003e /* 3 (LREF1) */,
518 0x00000022 /* 4 (BNNULL) */,
519 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]) + 14),
520 0x0000100e /* 6 (PRE-CALL 1) */,
521 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]) + 11),
522 0x00000048 /* 8 (LREF0-PUSH) */,
523 0x0000105f /* 9 (GREF-CALL 1) */,
524 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#reverse!.dafb3300> */,
525 0x0000000d /* 11 (PUSH) */,
526 0x0000003e /* 12 (LREF1) */,
527 0x000020a3 /* 13 (VALUES-RET 2) */,
528 0x0000100e /* 14 (PRE-CALL 1) */,
529 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]) + 19),
530 0x0000006b /* 16 (LREF1-CAR) */,
531 0x00001062 /* 17 (PUSH-GREF-CALL 1) */,
532 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#keyword?.dafb3540> */,
533 0x0000001e /* 19 (BF) */,
534 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]) + 6),
535 0x00000077 /* 21 (LREF1-CDR) */,
536 0x00000022 /* 22 (BNNULL) */,
537 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]) + 27),
538 0x00000013 /* 24 (JUMP) */,
539 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]) + 6),
540 0x00000014 /* 26 (RET) */,
541 0x0000003e /* 27 (LREF1) */,
542 0x00000087 /* 28 (CDDR-PUSH) */,
543 0x0000003e /* 29 (LREF1) */,
544 0x00000083 /* 30 (CADR-PUSH) */,
545 0x0000006b /* 31 (LREF1-CAR) */,
546 0x0000000d /* 32 (PUSH) */,
547 0x0000003d /* 33 (LREF0) */,
548 0x00003089 /* 34 (LIST-STAR 3) */,
549 0x0000000d /* 35 (PUSH) */,
550 0x0000101b /* 36 (LOCAL-ENV-JUMP 1) */,
551 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]) + 3),
552 0x00000014 /* 38 (RET) */,
553 0x00000013 /* 39 (JUMP) */,
554 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]) + 6),
555 0x00000014 /* 41 (RET) */,
556 0x00000014 /* 42 (RET) */,
557 /* %make-error-message */
558 0x0000000e /* 0 (PRE-CALL 0) */,
559 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]) + 4),
560 0x0000005f /* 2 (GREF-CALL 0) */,
561 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#open-output-string.da8c5440> */,
562 0x00001018 /* 4 (PUSH-LOCAL-ENV 1) */,
563 0x0000200e /* 5 (PRE-CALL 2) */,
564 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]) + 11),
565 0x0000004d /* 7 (LREF11-PUSH) */,
566 0x00000048 /* 8 (LREF0-PUSH) */,
567 0x0000205f /* 9 (GREF-CALL 2) */,
568 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.da8c53e0> */,
569 0x0000100e /* 11 (PRE-CALL 1) */,
570 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]) + 40),
571 0x0000004c /* 13 (LREF10-PUSH) */,
572 0x00001017 /* 14 (LOCAL-ENV 1) */,
573 0x0000003d /* 15 (LREF0) */,
574 0x00000022 /* 16 (BNNULL) */,
575 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]) + 19),
576 0x0000000c /* 18 (CONSTU-RET) */,
577 0x0000006a /* 19 (LREF0-CAR) */,
578 0x00001018 /* 20 (PUSH-LOCAL-ENV 1) */,
579 0x0000200e /* 21 (PRE-CALL 2) */,
580 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]) + 28),
581 0x00000006 /* 23 (CONST-PUSH) */,
582 SCM_WORD(SCM_OBJ(&scm__sc.d1562[11])) /* " " */,
583 0x0000004f /* 25 (LREF20-PUSH) */,
584 0x0000205f /* 26 (GREF-CALL 2) */,
585 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#display.da8c9fa0> */,
586 0x0000200e /* 28 (PRE-CALL 2) */,
587 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]) + 34),
588 0x00000048 /* 30 (LREF0-PUSH) */,
589 0x0000004f /* 31 (LREF20-PUSH) */,
590 0x0000205f /* 32 (GREF-CALL 2) */,
591 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#write/ss.da8c9f20> */,
592 0x0000001a /* 34 (POP-LOCAL-ENV) */,
593 0x00000076 /* 35 (LREF0-CDR) */,
594 0x0000000d /* 36 (PUSH) */,
595 0x0000101b /* 37 (LOCAL-ENV-JUMP 1) */,
596 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]) + 15),
597 0x00000014 /* 39 (RET) */,
598 0x00000048 /* 40 (LREF0-PUSH) */,
599 0x00001060 /* 41 (GREF-TAIL-CALL 1) */,
600 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#get-output-string.da8c9d60> */,
601 0x00000014 /* 43 (RET) */,
602 /* make-error */
603 0x0000005e /* 0 (GREF-PUSH) */,
604 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<error>.da9b77e0> */,
605 0x00000006 /* 2 (CONST-PUSH) */,
606 SCM_WORD(SCM_UNDEFINED) /* :message */,
607 0x0000200e /* 4 (PRE-CALL 2) */,
608 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[87]) + 10),
609 0x00000049 /* 6 (LREF1-PUSH) */,
610 0x00000048 /* 7 (LREF0-PUSH) */,
611 0x0000205f /* 8 (GREF-CALL 2) */,
612 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%make-error-message.da9b7760> */,
613 0x0000000d /* 10 (PUSH) */,
614 0x00000006 /* 11 (CONST-PUSH) */,
615 SCM_WORD(SCM_UNDEFINED) /* :message-prefix */,
616 0x00000049 /* 13 (LREF1-PUSH) */,
617 0x00000006 /* 14 (CONST-PUSH) */,
618 SCM_WORD(SCM_UNDEFINED) /* :message-args */,
619 0x00000048 /* 16 (LREF0-PUSH) */,
620 0x00007060 /* 17 (GREF-TAIL-CALL 7) */,
621 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.da9b7820> */,
622 0x00000014 /* 19 (RET) */,
623 /* error */
624 0x0000200e /* 0 (PRE-CALL 2) */,
625 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 7),
626 0x00000049 /* 2 (LREF1-PUSH) */,
627 0x0000005e /* 3 (GREF-PUSH) */,
628 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<condition-meta>.daa52600> */,
629 0x0000205f /* 5 (GREF-CALL 2) */,
630 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#is-a?.daa52660> */,
631 0x0000001e /* 7 (BF) */,
632 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 47),
633 0x0000100e /* 9 (PRE-CALL 1) */,
634 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 14),
635 0x00000048 /* 11 (LREF0-PUSH) */,
636 0x0000105f /* 12 (GREF-CALL 1) */,
637 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%error-scan-keys.daa52560> */,
638 0x00002036 /* 14 (TAIL-RECEIVE 2 0) */,
639 0x0000003d /* 15 (LREF0) */,
640 0x00000022 /* 16 (BNNULL) */,
641 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 27),
642 0x0000000e /* 18 (PRE-CALL 0) */,
643 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 44),
644 0x0000005e /* 20 (GREF-PUSH) */,
645 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.daa52460> */,
646 0x0000004d /* 22 (LREF11-PUSH) */,
647 0x0000003e /* 23 (LREF1) */,
648 0x00003095 /* 24 (TAIL-APPLY 3) */,
649 0x00000013 /* 25 (JUMP) */,
650 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 44),
651 0x0000000e /* 27 (PRE-CALL 0) */,
652 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 44),
653 0x0000005e /* 29 (GREF-PUSH) */,
654 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.daa523c0> */,
655 0x0000004d /* 31 (LREF11-PUSH) */,
656 0x00000006 /* 32 (CONST-PUSH) */,
657 SCM_WORD(SCM_UNDEFINED) /* :message */,
658 0x0000200e /* 34 (PRE-CALL 2) */,
659 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 41),
660 0x0000006a /* 36 (LREF0-CAR) */,
661 0x0000000d /* 37 (PUSH) */,
662 0x00000076 /* 38 (LREF0-CDR) */,
663 0x00002062 /* 39 (PUSH-GREF-CALL 2) */,
664 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%make-error-message.daa52320> */,
665 0x0000000d /* 41 (PUSH) */,
666 0x0000003e /* 42 (LREF1) */,
667 0x00005095 /* 43 (TAIL-APPLY 5) */,
668 0x0000001a /* 44 (POP-LOCAL-ENV) */,
669 0x00000013 /* 45 (JUMP) */,
670 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 54),
671 0x0000000e /* 47 (PRE-CALL 0) */,
672 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]) + 54),
673 0x0000005e /* 49 (GREF-PUSH) */,
674 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-error.daa521e0> */,
675 0x00000049 /* 51 (LREF1-PUSH) */,
676 0x0000003d /* 52 (LREF0) */,
677 0x00003095 /* 53 (TAIL-APPLY 3) */,
678 0x00001063 /* 54 (PUSH-GREF-TAIL-CALL 1) */,
679 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#raise.daa52700> */,
680 0x00000014 /* 56 (RET) */,
681 /* errorf */
682 0x0000200e /* 0 (PRE-CALL 2) */,
683 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 7),
684 0x00000049 /* 2 (LREF1-PUSH) */,
685 0x0000005e /* 3 (GREF-PUSH) */,
686 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<condition-meta>.dab7b680> */,
687 0x0000205f /* 5 (GREF-CALL 2) */,
688 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#is-a?.dab7b6e0> */,
689 0x0000001e /* 7 (BF) */,
690 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 47),
691 0x0000100e /* 9 (PRE-CALL 1) */,
692 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 14),
693 0x00000048 /* 11 (LREF0-PUSH) */,
694 0x0000105f /* 12 (GREF-CALL 1) */,
695 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%error-scan-keys.dab7b5e0> */,
696 0x00002036 /* 14 (TAIL-RECEIVE 2 0) */,
697 0x0000003d /* 15 (LREF0) */,
698 0x00000022 /* 16 (BNNULL) */,
699 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 27),
700 0x0000000e /* 18 (PRE-CALL 0) */,
701 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 44),
702 0x0000005e /* 20 (GREF-PUSH) */,
703 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.dab7b4e0> */,
704 0x0000004d /* 22 (LREF11-PUSH) */,
705 0x0000003e /* 23 (LREF1) */,
706 0x00003095 /* 24 (TAIL-APPLY 3) */,
707 0x00000013 /* 25 (JUMP) */,
708 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 44),
709 0x0000000e /* 27 (PRE-CALL 0) */,
710 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 44),
711 0x0000005e /* 29 (GREF-PUSH) */,
712 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.dab7b440> */,
713 0x0000004d /* 31 (LREF11-PUSH) */,
714 0x00000006 /* 32 (CONST-PUSH) */,
715 SCM_WORD(SCM_UNDEFINED) /* :message */,
716 0x0000000e /* 34 (PRE-CALL 0) */,
717 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 41),
718 0x0000005e /* 36 (GREF-PUSH) */,
719 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#format/ss.dab7b380> */,
720 0x00000009 /* 38 (CONSTF-PUSH) */,
721 0x0000003d /* 39 (LREF0) */,
722 0x00003095 /* 40 (TAIL-APPLY 3) */,
723 0x0000000d /* 41 (PUSH) */,
724 0x0000003e /* 42 (LREF1) */,
725 0x00005095 /* 43 (TAIL-APPLY 5) */,
726 0x0000001a /* 44 (POP-LOCAL-ENV) */,
727 0x00000013 /* 45 (JUMP) */,
728 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 63),
729 0x0000300e /* 47 (PRE-CALL 3) */,
730 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 63),
731 0x0000005e /* 49 (GREF-PUSH) */,
732 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#<error>.dab7b260> */,
733 0x00000006 /* 51 (CONST-PUSH) */,
734 SCM_WORD(SCM_UNDEFINED) /* :message */,
735 0x0000000e /* 53 (PRE-CALL 0) */,
736 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]) + 61),
737 0x0000005e /* 55 (GREF-PUSH) */,
738 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#format/ss.dab7b1c0> */,
739 0x00000009 /* 57 (CONSTF-PUSH) */,
740 0x00000049 /* 58 (LREF1-PUSH) */,
741 0x0000003d /* 59 (LREF0) */,
742 0x00004095 /* 60 (TAIL-APPLY 4) */,
743 0x00003062 /* 61 (PUSH-GREF-CALL 3) */,
744 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make.dab7b2a0> */,
745 0x00001063 /* 63 (PUSH-GREF-TAIL-CALL 1) */,
746 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#raise.dab7b780> */,
747 0x00000014 /* 65 (RET) */,
748 /* (make-case-lambda %set) */
749 0x00000048 /* 0 (LREF0-PUSH) */,
750 0x0100603c /* 1 (LREF 6 4) */,
751 0x000000b3 /* 2 (NUMSUB2) */,
752 0x00001018 /* 3 (PUSH-LOCAL-ENV 1) */,
753 0x00005047 /* 4 (LREF-PUSH 5 0) */,
754 0x0000003d /* 5 (LREF0) */,
755 0x000000a8 /* 6 (VEC-REF) */,
756 0x0000001e /* 7 (BF) */,
757 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[230]) + 10),
758 0x0000000c /* 9 (CONSTU-RET) */,
759 0x00005047 /* 10 (LREF-PUSH 5 0) */,
760 0x00000048 /* 11 (LREF0-PUSH) */,
761 0x00000046 /* 12 (LREF30) */,
762 0x000000a9 /* 13 (VEC-SET) */,
763 0x00000014 /* 14 (RET) */,
764 /* make-case-lambda */
765 0x0000003d /* 0 (LREF0) */,
766 0x00000022 /* 1 (BNNULL) */,
767 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 6),
768 0x00000004 /* 3 (CONSTF) */,
769 0x00000013 /* 4 (JUMP) */,
770 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 7),
771 0x0000006a /* 6 (LREF0-CAR) */,
772 0x0000000d /* 7 (PUSH) */,
773 0x0000003d /* 8 (LREF0) */,
774 0x00000022 /* 9 (BNNULL) */,
775 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 14),
776 0x00000003 /* 11 (CONSTN) */,
777 0x00000013 /* 12 (JUMP) */,
778 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 15),
779 0x00000076 /* 14 (LREF0-CDR) */,
780 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */,
781 0x0000003d /* 16 (LREF0) */,
782 0x00000022 /* 17 (BNNULL) */,
783 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 21),
784 0x00000013 /* 19 (JUMP) */,
785 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 29),
786 0x0000200e /* 21 (PRE-CALL 2) */,
787 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 29),
788 0x00000006 /* 23 (CONST-PUSH) */,
789 SCM_WORD(SCM_OBJ(&scm__sc.d1562[61])) /* "too many arguments for" */,
790 0x00000006 /* 25 (CONST-PUSH) */,
791 SCM_WORD(SCM_OBJ(&scm__rc.d1564[264])) /* (lambda (minarg maxarg formals closures :optional (name #f)) (define (fill-dispatch-vector! v formals closure) (define (%set n) (let1 i (- n minarg) (unless (vector-ref v i) (vector-set! v i closure)))) (let loop ((formals formals) (n 0)) (cond ((> n (+ maxarg 1))) ((null? formals) (%set n)) ((pair? formals) (loop (cdr formals) (+ n 1))) (else (%set n) (loop formals (+ n 1)))))) (let1 v (make-vector (+ (- maxarg minarg) 2) #f) (let loop ((fs formals) (cs closures)) (unless (null? fs) (fill-dispatch-vector! v (car fs) (car cs)) (loop (cdr fs) (cdr cs)))) ((with-module gauche.internal make-case-lambda-dispatcher) v minarg name))) */,
792 0x0000205f /* 27 (GREF-CALL 2) */,
793 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.db574200> */,
794 0x0000200e /* 29 (PRE-CALL 2) */,
795 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 39),
796 0x00c01047 /* 31 (LREF-PUSH 1 3) */,
797 0x0100103c /* 32 (LREF 1 4) */,
798 0x000000b3 /* 33 (NUMSUB2) */,
799 0x000020bc /* 34 (NUMADDI 2) */,
800 0x0000000d /* 35 (PUSH) */,
801 0x00000009 /* 36 (CONSTF-PUSH) */,
802 0x0000205f /* 37 (GREF-CALL 2) */,
803 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#make-vector.db5a8040> */,
804 0x00001018 /* 39 (PUSH-LOCAL-ENV 1) */,
805 0x0000200e /* 40 (PRE-CALL 2) */,
806 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 101),
807 0x00802047 /* 42 (LREF-PUSH 2 2) */,
808 0x00000050 /* 43 (LREF21-PUSH) */,
809 0x00002017 /* 44 (LOCAL-ENV 2) */,
810 0x0000003e /* 45 (LREF1) */,
811 0x00000022 /* 46 (BNNULL) */,
812 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 49),
813 0x0000000c /* 48 (CONSTU-RET) */,
814 0x0000006b /* 49 (LREF1-CAR) */,
815 0x0000000d /* 50 (PUSH) */,
816 0x0000006a /* 51 (LREF0-CAR) */,
817 0x00002018 /* 52 (PUSH-LOCAL-ENV 2) */,
818 0x00001019 /* 53 (LOCAL-ENV-CLOSURES 1) */,
819 SCM_WORD(SCM_OBJ(&scm__rc.d1564[268])) /* (#<compiled-code (make-case-lambda %set)@0x7fd3db834d80>) */,
820 0x0000200e /* 55 (PRE-CALL 2) */,
821 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 92),
822 0x0000004d /* 57 (LREF11-PUSH) */,
823 0x00000007 /* 58 (CONSTI-PUSH 0) */,
824 0x00002017 /* 59 (LOCAL-ENV 2) */,
825 0x00c0603c /* 60 (LREF 6 3) */,
826 0x000010bc /* 61 (NUMADDI 1) */,
827 0x0000002b /* 62 (LREF-VAL0-BNGT 0 0) */,
828 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 65),
829 0x00000014 /* 64 (RET) */,
830 0x0000003e /* 65 (LREF1) */,
831 0x00000022 /* 66 (BNNULL) */,
832 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 72),
833 0x00000048 /* 68 (LREF0-PUSH) */,
834 0x00000041 /* 69 (LREF10) */,
835 0x0000101d /* 70 (LOCAL-ENV-TAIL-CALL 1) */,
836 0x00000014 /* 71 (RET) */,
837 0x0000003e /* 72 (LREF1) */,
838 0x00000098 /* 73 (PAIRP) */,
839 0x0000001e /* 74 (BF) */,
840 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 82),
841 0x00000077 /* 76 (LREF1-CDR) */,
842 0x0000000d /* 77 (PUSH) */,
843 0x000010c7 /* 78 (LREF0-NUMADDI-PUSH 1) */,
844 0x0000101b /* 79 (LOCAL-ENV-JUMP 1) */,
845 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 60),
846 0x00000014 /* 81 (RET) */,
847 0x0000100e /* 82 (PRE-CALL 1) */,
848 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 87),
849 0x00000048 /* 84 (LREF0-PUSH) */,
850 0x00000041 /* 85 (LREF10) */,
851 0x0000101c /* 86 (LOCAL-ENV-CALL 1) */,
852 0x00000049 /* 87 (LREF1-PUSH) */,
853 0x000010c7 /* 88 (LREF0-NUMADDI-PUSH 1) */,
854 0x0000101b /* 89 (LOCAL-ENV-JUMP 1) */,
855 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 60),
856 0x00000014 /* 91 (RET) */,
857 0x0000001a /* 92 (POP-LOCAL-ENV) */,
858 0x0000001a /* 93 (POP-LOCAL-ENV) */,
859 0x00000077 /* 94 (LREF1-CDR) */,
860 0x0000000d /* 95 (PUSH) */,
861 0x00000076 /* 96 (LREF0-CDR) */,
862 0x0000000d /* 97 (PUSH) */,
863 0x0000101b /* 98 (LOCAL-ENV-JUMP 1) */,
864 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]) + 45),
865 0x00000014 /* 100 (RET) */,
866 0x00000048 /* 101 (LREF0-PUSH) */,
867 0x01002047 /* 102 (LREF-PUSH 2 4) */,
868 0x0000004d /* 103 (LREF11-PUSH) */,
869 0x00003060 /* 104 (GREF-TAIL-CALL 3) */,
870 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#make-case-lambda-dispatcher.db5aec80> */,
871 0x00000014 /* 106 (RET) */,
872 /* case-lambda-info */
873 0x0000100e /* 0 (PRE-CALL 1) */,
874 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]) + 5),
875 0x00000048 /* 2 (LREF0-PUSH) */,
876 0x0000105f /* 3 (GREF-CALL 1) */,
877 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#subr?.db36f0c0> */,
878 0x00000030 /* 5 (RF) */,
879 0x0000100e /* 6 (PRE-CALL 1) */,
880 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]) + 11),
881 0x00000048 /* 8 (LREF0-PUSH) */,
882 0x0000105f /* 9 (GREF-CALL 1) */,
883 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#procedure-info.db3f35a0> */,
884 0x00001018 /* 11 (PUSH-LOCAL-ENV 1) */,
885 0x0000003d /* 12 (LREF0) */,
886 0x00000098 /* 13 (PAIRP) */,
887 0x00000030 /* 14 (RF) */,
888 0x00000076 /* 15 (LREF0-CDR) */,
889 0x00000098 /* 16 (PAIRP) */,
890 0x00000030 /* 17 (RF) */,
891 0x0000100e /* 18 (PRE-CALL 1) */,
892 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]) + 24),
893 0x0000003d /* 20 (LREF0) */,
894 0x00000083 /* 21 (CADR-PUSH) */,
895 0x0000105f /* 22 (GREF-CALL 1) */,
896 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#integer?.db3f3320> */,
897 0x00000030 /* 24 (RF) */,
898 0x0000003d /* 25 (LREF0) */,
899 0x00000086 /* 26 (CDDR) */,
900 0x00000098 /* 27 (PAIRP) */,
901 0x00000030 /* 28 (RF) */,
902 0x0000003d /* 29 (LREF0) */,
903 0x00000086 /* 30 (CDDR) */,
904 0x00000068 /* 31 (CAR) */,
905 0x0000009d /* 32 (VECTORP) */,
906 0x00000030 /* 33 (RF) */,
907 0x0000003d /* 34 (LREF0) */,
908 0x00000083 /* 35 (CADR-PUSH) */,
909 0x00001017 /* 36 (LOCAL-ENV 1) */,
910 0x00000041 /* 37 (LREF10) */,
911 0x00000086 /* 38 (CDDR) */,
912 0x00000069 /* 39 (CAR-PUSH) */,
913 0x00001017 /* 40 (LOCAL-ENV 1) */,
914 0x0000003d /* 41 (LREF0) */,
915 0x000000a7 /* 42 (VEC-LEN) */,
916 0x00001018 /* 43 (PUSH-LOCAL-ENV 1) */,
917 0x00000008 /* 44 (CONSTN-PUSH) */,
918 0x00000007 /* 45 (CONSTI-PUSH 0) */,
919 0x00002017 /* 46 (LOCAL-ENV 2) */,
920 -0x00000f3f /* 47 (LREF10-NUMADDI -1) */,
921 0x00000028 /* 48 (LREF-VAL0-BNUMNE 0 0) */,
922 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]) + 75),
923 0x0000004f /* 50 (LREF20-PUSH) */,
924 0x0000003d /* 51 (LREF0) */,
925 0x000000a8 /* 52 (VEC-REF) */,
926 0x00001018 /* 53 (PUSH-LOCAL-ENV 1) */,
927 0x0000003d /* 54 (LREF0) */,
928 0x0000001e /* 55 (BF) */,
929 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]) + 72),
930 0x0000004d /* 57 (LREF11-PUSH) */,
931 0x0000403c /* 58 (LREF 4 0) */,
932 0x000010b6 /* 59 (LREF-VAL0-NUMADD2 1 0) */,
933 -0x00000f44 /* 60 (NUMADDI -1) */,
934 0x0000000d /* 61 (PUSH) */,
935 0x00000006 /* 62 (CONST-PUSH) */,
936 SCM_WORD(SCM_TRUE) /* #t */,
937 0x0000003d /* 64 (LREF0) */,
938 0x00002088 /* 65 (LIST 2) */,
939 0x00000067 /* 66 (CONS-PUSH) */,
940 0x00000003 /* 67 (CONSTN) */,
941 0x00000067 /* 68 (CONS-PUSH) */,
942 0x00002060 /* 69 (GREF-TAIL-CALL 2) */,
943 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#reverse.db3f8100> */,
944 0x00000014 /* 71 (RET) */,
945 0x00000042 /* 72 (LREF11) */,
946 0x00000093 /* 73 (REVERSE) */,
947 0x00000014 /* 74 (RET) */,
948 0x0000004f /* 75 (LREF20-PUSH) */,
949 0x0000003d /* 76 (LREF0) */,
950 0x000000a8 /* 77 (VEC-REF) */,
951 0x00001018 /* 78 (PUSH-LOCAL-ENV 1) */,
952 0x0000003d /* 79 (LREF0) */,
953 0x0000001e /* 80 (BF) */,
954 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]) + 95),
955 0x0000403c /* 82 (LREF 4 0) */,
956 0x000010b6 /* 83 (LREF-VAL0-NUMADD2 1 0) */,
957 0x0000000d /* 84 (PUSH) */,
958 0x00000009 /* 85 (CONSTF-PUSH) */,
959 0x0000003d /* 86 (LREF0) */,
960 0x00002088 /* 87 (LIST 2) */,
961 0x00000067 /* 88 (CONS-PUSH) */,
962 0x00000042 /* 89 (LREF11) */,
963 0x00000067 /* 90 (CONS-PUSH) */,
964 0x000010cb /* 91 (LREF10-NUMADDI-PUSH 1) */,
965 0x0000201b /* 92 (LOCAL-ENV-JUMP 2) */,
966 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]) + 47),
967 0x00000014 /* 94 (RET) */,
968 0x0000004d /* 95 (LREF11-PUSH) */,
969 0x000010cb /* 96 (LREF10-NUMADDI-PUSH 1) */,
970 0x0000201b /* 97 (LOCAL-ENV-JUMP 2) */,
971 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]) + 47),
972 0x00000014 /* 99 (RET) */,
973 0x00000014 /* 100 (RET) */,
974 /* %toplevel */
975 0x00000014 /* 0 (RET) */,
976 },
977 { /* ScmObj d1561 */
978 SCM_UNBOUND,
979 SCM_UNBOUND,
980 SCM_UNBOUND,
981 SCM_UNBOUND,
982 SCM_UNBOUND,
983 SCM_UNBOUND,
984 SCM_UNBOUND,
985 SCM_UNBOUND,
986 SCM_UNBOUND,
987 SCM_UNBOUND,
988 SCM_UNBOUND,
989 SCM_UNBOUND,
990 SCM_UNBOUND,
991 SCM_UNBOUND,
992 SCM_UNBOUND,
993 SCM_UNBOUND,
994 SCM_UNBOUND,
995 SCM_UNBOUND,
996 SCM_UNBOUND,
997 SCM_UNBOUND,
998 SCM_UNBOUND,
999 SCM_UNBOUND,
1000 SCM_UNBOUND,
1001 SCM_UNBOUND,
1002 SCM_UNBOUND,
1003 SCM_UNBOUND,
1004 SCM_UNBOUND,
1005 SCM_UNBOUND,
1006 SCM_UNBOUND,
1007 SCM_UNBOUND,
1008 SCM_UNBOUND,
1009 SCM_UNBOUND,
1010 SCM_UNBOUND,
1011 SCM_UNBOUND,
1012 SCM_UNBOUND,
1013 SCM_UNBOUND,
1014 SCM_UNBOUND,
1015 SCM_UNBOUND,
1016 SCM_UNBOUND,
1017 SCM_UNBOUND,
1018 SCM_UNBOUND,
1019 SCM_UNBOUND,
1020 SCM_UNBOUND,
1021 SCM_UNBOUND,
1022 SCM_UNBOUND,
1023 SCM_UNBOUND,
1024 SCM_UNBOUND,
1025 SCM_UNBOUND,
1026 SCM_UNBOUND,
1027 SCM_UNBOUND,
1028 SCM_UNBOUND,
1029 SCM_UNBOUND,
1030 SCM_UNBOUND,
1031 SCM_UNBOUND,
1032 SCM_UNBOUND,
1033 SCM_UNBOUND,
1034 SCM_UNBOUND,
1035 SCM_UNBOUND,
1036 SCM_UNBOUND,
1037 SCM_UNBOUND,
1038 SCM_UNBOUND,
1039 SCM_UNBOUND,
1040 SCM_UNBOUND,
1041 SCM_UNBOUND,
1042 SCM_UNBOUND,
1043 SCM_UNBOUND,
1044 SCM_UNBOUND,
1045 SCM_UNBOUND,
1046 SCM_UNBOUND,
1047 SCM_UNBOUND,
1048 SCM_UNBOUND,
1049 SCM_UNBOUND,
1050 SCM_UNBOUND,
1051 SCM_UNBOUND,
1052 SCM_UNBOUND,
1053 SCM_UNBOUND,
1054 SCM_UNBOUND,
1055 SCM_UNBOUND,
1056 SCM_UNBOUND,
1057 SCM_UNBOUND,
1058 SCM_UNBOUND,
1059 SCM_UNBOUND,
1060 SCM_UNBOUND,
1061 SCM_UNBOUND,
1062 SCM_UNBOUND,
1063 SCM_UNBOUND,
1064 SCM_UNBOUND,
1065 SCM_UNBOUND,
1066 SCM_UNBOUND,
1067 SCM_UNBOUND,
1068 SCM_UNBOUND,
1069 SCM_UNBOUND,
1070 SCM_UNBOUND,
1071 SCM_UNBOUND,
1072 SCM_UNBOUND,
1073 SCM_UNBOUND,
1074 SCM_UNBOUND,
1075 SCM_UNBOUND,
1076 SCM_UNBOUND,
1077 SCM_UNBOUND,
1078 SCM_UNBOUND,
1079 SCM_UNBOUND,
1080 SCM_UNBOUND,
1081 SCM_UNBOUND,
1082 SCM_UNBOUND,
1083 SCM_UNBOUND,
1084 SCM_UNBOUND,
1085 SCM_UNBOUND,
1086 SCM_UNBOUND,
1087 SCM_UNBOUND,
1088 SCM_UNBOUND,
1089 SCM_UNBOUND,
1090 SCM_UNBOUND,
1091 SCM_UNBOUND,
1092 SCM_UNBOUND,
1093 SCM_UNBOUND,
1094 SCM_UNBOUND,
1095 SCM_UNBOUND,
1096 SCM_UNBOUND,
1097 SCM_UNBOUND,
1098 SCM_UNBOUND,
1099 SCM_UNBOUND,
1100 SCM_UNBOUND,
1101 SCM_UNBOUND,
1102 SCM_UNBOUND,
1103 SCM_UNBOUND,
1104 SCM_UNBOUND,
1105 SCM_UNBOUND,
1106 SCM_UNBOUND,
1107 SCM_UNBOUND,
1108 SCM_UNBOUND,
1109 SCM_UNBOUND,
1110 SCM_UNBOUND,
1111 SCM_UNBOUND,
1112 SCM_UNBOUND,
1113 SCM_UNBOUND,
1114 SCM_UNBOUND,
1115 SCM_UNBOUND,
1116 SCM_UNBOUND,
1117 SCM_UNBOUND,
1118 },
1119 };
libalphamake_vector(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1120 static ScmObj libalphamake_vector(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1121 {
1122 ScmObj k_scm;
1123 ScmSmallInt k;
1124 ScmObj fill_scm;
1125 ScmObj fill;
1126 ScmObj SCM_SUBRARGS[3];
1127 SCM_ENTER_SUBR("make-vector");
1128 if (SCM_ARGCNT >= 3
1129 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1130 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1131 for (int SCM_i=0; SCM_i<3; SCM_i++) {
1132 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1133 }
1134 k_scm = SCM_SUBRARGS[0];
1135 if (!SCM_INTP(k_scm)) Scm_Error("small integer required, but got %S", k_scm);
1136 k = SCM_INT_VALUE(k_scm);
1137 if (SCM_ARGCNT > 1+1) {
1138 fill_scm = SCM_SUBRARGS[1];
1139 } else {
1140 fill_scm = SCM_UNBOUND;
1141 }
1142 fill = (fill_scm);
1143 {
1144 {
1145 ScmObj SCM_RESULT;
1146 {SCM_RESULT=(Scm_MakeVector(k,fill));goto SCM_STUB_RETURN;}
1147 goto SCM_STUB_RETURN;
1148 SCM_STUB_RETURN:
1149 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1150 }
1151 }
1152 }
1153
libalphagetter_with_setter(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1154 static ScmObj libalphagetter_with_setter(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1155 {
1156 ScmObj proc_scm;
1157 ScmProcedure* proc;
1158 ScmObj set_scm;
1159 ScmProcedure* set;
1160 ScmObj SCM_SUBRARGS[2];
1161 SCM_ENTER_SUBR("getter-with-setter");
1162 for (int SCM_i=0; SCM_i<2; SCM_i++) {
1163 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1164 }
1165 proc_scm = SCM_SUBRARGS[0];
1166 if (!SCM_PROCEDUREP(proc_scm)) Scm_Error("procedure required, but got %S", proc_scm);
1167 proc = SCM_PROCEDURE(proc_scm);
1168 set_scm = SCM_SUBRARGS[1];
1169 if (!SCM_PROCEDUREP(set_scm)) Scm_Error("procedure required, but got %S", set_scm);
1170 set = SCM_PROCEDURE(set_scm);
1171 {
1172 {
1173 ScmObj SCM_RESULT;
1174
1175 #line 108 "libalpha.scm"
1176 switch (SCM_PROCEDURE_TYPE(proc)) {
1177 case SCM_PROC_SUBR : case SCM_PROC_CLOSURE : {break;}
1178 case SCM_PROC_GENERIC : case SCM_PROC_METHOD : {
1179 Scm_Error("You can't attach a setter to a generic function or a method using getter-with-setter. Instead, you can define a setter method using the name (setter %S).",
1180 #line 114 "libalpha.scm"
1181 SCM_PROCEDURE_INFO(proc));break;}default: {
1182 Scm_Error("You can't attach a setter to %S.",SCM_OBJ(proc));break;}}
1183
1184 #line 116 "libalpha.scm"
1185 {ScmObj p=Scm_CopyProcedure(proc);
1186 #line 118 "libalpha.scm"
1187 SCM_PROCEDURE_SETTER_LOCKED(p)=(FALSE);
1188 {SCM_RESULT=(Scm_SetterSet(SCM_PROCEDURE(p),set,TRUE));goto SCM_STUB_RETURN;}}
1189 goto SCM_STUB_RETURN;
1190 SCM_STUB_RETURN:
1191 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1192 }
1193 }
1194 }
1195
libalphasetter_SETTER(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1196 static ScmObj libalphasetter_SETTER(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1197 {
1198 ScmObj proc_scm;
1199 ScmProcedure* proc;
1200 ScmObj setter_scm;
1201 ScmProcedure* setter;
1202 ScmObj SCM_SUBRARGS[2];
1203 SCM_ENTER_SUBR("(setter setter)");
1204 for (int SCM_i=0; SCM_i<2; SCM_i++) {
1205 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1206 }
1207 proc_scm = SCM_SUBRARGS[0];
1208 if (!SCM_PROCEDUREP(proc_scm)) Scm_Error("procedure required, but got %S", proc_scm);
1209 proc = SCM_PROCEDURE(proc_scm);
1210 setter_scm = SCM_SUBRARGS[1];
1211 if (!SCM_PROCEDUREP(setter_scm)) Scm_Error("procedure required, but got %S", setter_scm);
1212 setter = SCM_PROCEDURE(setter_scm);
1213 {
1214
1215 #line 124 "libalpha.scm"
1216 Scm_SetterSet(proc,setter,FALSE);
1217 goto SCM_STUB_RETURN;
1218 SCM_STUB_RETURN:
1219 SCM_RETURN(SCM_UNDEFINED);
1220 }
1221 }
1222
libalphasetter(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1223 static ScmObj libalphasetter(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1224 {
1225 ScmObj proc_scm;
1226 ScmObj proc;
1227 ScmObj SCM_SUBRARGS[1];
1228 SCM_ENTER_SUBR("setter");
1229 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1230 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1231 }
1232 proc_scm = SCM_SUBRARGS[0];
1233 proc = (proc_scm);
1234 {
1235 {
1236 ScmObj SCM_RESULT;
1237 {SCM_RESULT=(Scm_Setter(proc));goto SCM_STUB_RETURN;}
1238 goto SCM_STUB_RETURN;
1239 SCM_STUB_RETURN:
1240 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1241 }
1242 }
1243 }
1244
libalphabox(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1245 static ScmObj libalphabox(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1246 {
1247 ScmObj* argv;
1248 int argc;
1249 ScmObj rest_scm;
1250 ScmObj rest;
1251 ScmObj SCM_SUBRARGS[4];
1252 SCM_ENTER_SUBR("box");
1253 for (int SCM_i=0; SCM_i<4; SCM_i++) {
1254 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1255 }
1256 argv = &SCM_SUBRARGS[0];
1257 argc = SCM_ARGCNT-1-0;
1258 rest_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
1259 rest = (rest_scm);
1260 {
1261 {
1262 ScmObj SCM_RESULT;
1263
1264 #line 133 "libalpha.scm"
1265 if (
1266 (argc)==(0)){{SCM_RESULT=(SCM_OBJ(Scm_MakeMVBox(0,SCM_FALSE)));goto SCM_STUB_RETURN;}}else if(
1267 SCM_NULLP(rest)){{SCM_RESULT=(SCM_OBJ(Scm_MakeBox((argv)[0])));goto SCM_STUB_RETURN;}} else {
1268 {SCM_RESULT=(SCM_OBJ(Scm_ListToMVBox(Scm_Cons((argv)[0],rest))));goto SCM_STUB_RETURN;}}
1269 goto SCM_STUB_RETURN;
1270 SCM_STUB_RETURN:
1271 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1272 }
1273 }
1274 }
1275
libalphaboxP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1276 static ScmObj libalphaboxP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1277 {
1278 ScmObj v_scm;
1279 ScmObj v;
1280 ScmObj SCM_SUBRARGS[1];
1281 SCM_ENTER_SUBR("box?");
1282 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1283 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1284 }
1285 v_scm = SCM_SUBRARGS[0];
1286 v = (v_scm);
1287 {
1288 {
1289 int SCM_RESULT;
1290
1291 #line 138 "libalpha.scm"
1292 {SCM_RESULT=((SCM_BOXP(v))||(SCM_MVBOXP(v)));goto SCM_STUB_RETURN;}
1293 goto SCM_STUB_RETURN;
1294 SCM_STUB_RETURN:
1295 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
1296 }
1297 }
1298 }
1299
libalphaunbox(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1300 static ScmObj libalphaunbox(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1301 {
1302 ScmObj b_scm;
1303 ScmObj b;
1304 ScmObj SCM_SUBRARGS[1];
1305 SCM_ENTER_SUBR("unbox");
1306 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1307 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1308 }
1309 b_scm = SCM_SUBRARGS[0];
1310 b = (b_scm);
1311 {
1312 {
1313 ScmObj SCM_RESULT;
1314
1315 #line 141 "libalpha.scm"
1316 if (
1317 SCM_BOXP(b)){{SCM_RESULT=(SCM_BOX_VALUE(b));goto SCM_STUB_RETURN;}}else if(
1318 SCM_MVBOXP(b)){{SCM_RESULT=(Scm_ValuesFromArray(SCM_MVBOX_VALUES(b),
1319 SCM_MVBOX_SIZE(b)));goto SCM_STUB_RETURN;}} else {
1320 SCM_TYPE_ERROR(b,"<box> or <mv-box>");{SCM_RESULT=(SCM_UNDEFINED);goto SCM_STUB_RETURN;}}
1321 goto SCM_STUB_RETURN;
1322 SCM_STUB_RETURN:
1323 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1324 }
1325 }
1326 }
1327
libalphaset_boxX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1328 static ScmObj libalphaset_boxX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1329 {
1330 ScmObj b_scm;
1331 ScmObj b;
1332 ScmObj vs_scm;
1333 ScmObj vs;
1334 ScmObj SCM_SUBRARGS[3];
1335 SCM_ENTER_SUBR("set-box!");
1336 for (int SCM_i=0; SCM_i<3; SCM_i++) {
1337 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1338 }
1339 b_scm = SCM_SUBRARGS[0];
1340 b = (b_scm);
1341 vs_scm = SCM_SUBRARGS[SCM_ARGCNT-1];
1342 vs = (vs_scm);
1343 {
1344
1345 #line 148 "libalpha.scm"
1346 if (
1347 SCM_BOXP(b)){
1348 if (!((SCM_PAIRP(vs))&&(SCM_NULLP(SCM_CDR(vs))))){{
1349 Scm_Error("Wrong number of values to set to a single-value box %S: %S",b,vs);}}
1350 #line 153 "libalpha.scm"
1351 SCM_BOX_SET(b,SCM_CAR(vs));}else if(
1352 SCM_MVBOXP(b)){
1353 {ScmSmallInt argc=Scm_Length(vs);ScmSmallInt i=0;
1354 #line 157 "libalpha.scm"
1355 if (!((argc)==(SCM_MVBOX_SIZE(b)))){{
1356 Scm_Error("Wrong number of values to set to a multi-value box %S: %S",b,vs);}}
1357 #line 160 "libalpha.scm"
1358 for (; (i)<(argc); (i)++,vs=(SCM_CDR(vs))){
1359 (SCM_MVBOX_VALUES(b))[i]=(SCM_CAR(vs));}}} else {
1360 SCM_TYPE_ERROR(b,"<box> or <mv-box>");}
1361 goto SCM_STUB_RETURN;
1362 SCM_STUB_RETURN:
1363 SCM_RETURN(SCM_UNDEFINED);
1364 }
1365 }
1366
libalphabox_arity(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1367 static ScmObj libalphabox_arity(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1368 {
1369 ScmObj b_scm;
1370 ScmObj b;
1371 ScmObj SCM_SUBRARGS[1];
1372 SCM_ENTER_SUBR("box-arity");
1373 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1374 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1375 }
1376 b_scm = SCM_SUBRARGS[0];
1377 b = (b_scm);
1378 {
1379 {
1380 int SCM_RESULT;
1381
1382 #line 165 "libalpha.scm"
1383 if (
1384 SCM_BOXP(b)){{SCM_RESULT=(1);goto SCM_STUB_RETURN;}}else if(
1385 SCM_MVBOXP(b)){{SCM_RESULT=(SCM_MVBOX_SIZE(b));goto SCM_STUB_RETURN;}} else {
1386 SCM_TYPE_ERROR(b,"<box> or <mv-box>");}
1387 goto SCM_STUB_RETURN;
1388 SCM_STUB_RETURN:
1389 SCM_RETURN(Scm_MakeInteger(SCM_RESULT));
1390 }
1391 }
1392 }
1393
libalphaunbox_value(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1394 static ScmObj libalphaunbox_value(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1395 {
1396 ScmObj b_scm;
1397 ScmObj b;
1398 ScmObj i_scm;
1399 ScmSmallInt i;
1400 ScmObj SCM_SUBRARGS[2];
1401 SCM_ENTER_SUBR("unbox-value");
1402 for (int SCM_i=0; SCM_i<2; SCM_i++) {
1403 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1404 }
1405 b_scm = SCM_SUBRARGS[0];
1406 b = (b_scm);
1407 i_scm = SCM_SUBRARGS[1];
1408 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
1409 i = SCM_INT_VALUE(i_scm);
1410 {
1411 {
1412 ScmObj SCM_RESULT;
1413
1414 #line 171 "libalpha.scm"
1415 if (
1416 SCM_BOXP(b)){
1417 if (!((i)==(0))){{Scm_Error("index out of range for %S: %d",b,i);}}
1418 {SCM_RESULT=(SCM_BOX_VALUE(b));goto SCM_STUB_RETURN;}}else if(
1419 SCM_MVBOXP(b)){
1420 if (!(((0)<=(i))&&(
1421 (i)<(SCM_MVBOX_SIZE(b))))){{
1422 Scm_Error("index out of range for %S: %d",b,i);}}
1423 {SCM_RESULT=((SCM_MVBOX_VALUES(b))[i]);goto SCM_STUB_RETURN;}} else {
1424 SCM_TYPE_ERROR(b,"<box> or <mv-box>");}
1425 goto SCM_STUB_RETURN;
1426 SCM_STUB_RETURN:
1427 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1428 }
1429 }
1430 }
1431
libalphaset_box_valueX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1432 static ScmObj libalphaset_box_valueX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1433 {
1434 ScmObj b_scm;
1435 ScmObj b;
1436 ScmObj i_scm;
1437 ScmSmallInt i;
1438 ScmObj val_scm;
1439 ScmObj val;
1440 ScmObj SCM_SUBRARGS[3];
1441 SCM_ENTER_SUBR("set-box-value!");
1442 for (int SCM_i=0; SCM_i<3; SCM_i++) {
1443 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1444 }
1445 b_scm = SCM_SUBRARGS[0];
1446 b = (b_scm);
1447 i_scm = SCM_SUBRARGS[1];
1448 if (!SCM_INTP(i_scm)) Scm_Error("small integer required, but got %S", i_scm);
1449 i = SCM_INT_VALUE(i_scm);
1450 val_scm = SCM_SUBRARGS[2];
1451 val = (val_scm);
1452 {
1453
1454 #line 183 "libalpha.scm"
1455 if (
1456 SCM_BOXP(b)){
1457 if (!((i)==(0))){{Scm_Error("index out of range for %S: %d",b,i);}}
1458 SCM_BOX_SET(b,val);}else if(
1459 SCM_MVBOXP(b)){
1460 if (!(((0)<=(i))&&(
1461 (i)<(SCM_MVBOX_SIZE(b))))){{
1462 Scm_Error("index out of range for %S: %d",b,i);}}
1463 (SCM_MVBOX_VALUES(b))[i]=(val);} else {
1464 SCM_TYPE_ERROR(b,"<box> or <mv-box>");}
1465 goto SCM_STUB_RETURN;
1466 SCM_STUB_RETURN:
1467 SCM_RETURN(SCM_UNDEFINED);
1468 }
1469 }
1470
1471 typedef struct case_lambda_packet_rec {
1472 ScmVector *dispatch_vector;
1473 int max_optargs;
1474 int min_reqargs;
1475 } case_lambda_packet;
case_lambda_dispatch(ScmObj * args,int nargs,void * data)1476 static ScmObj case_lambda_dispatch(ScmObj* args,int nargs,void* data){{
1477 #line 241 "libalpha.scm"
1478 {case_lambda_packet* d=((case_lambda_packet* )(data));ScmObj rarg=
1479 (args)[(nargs)-(1)];
1480 SCM_ASSERT((nargs)>((d)->min_reqargs));
1481 SCM_ASSERT((nargs)<=((((d)->min_reqargs)+((d)->max_optargs))+(1)));
1482 #line 248 "libalpha.scm"
1483 {ScmObj p=SCM_VECTOR_ELEMENT((d)->dispatch_vector,
1484 ((nargs)-((d)->min_reqargs))-(1));
1485 if (SCM_FALSEP(p)){{
1486 Scm_Error("wrong number of arguments to case lambda: %S",
1487 Scm_ArrayToListWithTail(args,(nargs)-(1),
1488 (args)[(nargs)-(1)]));}}
1489 if (SCM_NULLP(rarg)){
1490 switch ((nargs)-(1)) {
1491 case 0 : {return (Scm_VMApply0(p));break;}
1492 case 1 : {return (Scm_VMApply1(p,(args)[0]));break;}
1493 case 2 : {return (Scm_VMApply2(p,(args)[0],(args)[1]));break;}
1494 case 3 : {return (Scm_VMApply3(p,(args)[0],(args)[1],
1495 (args)[2]));break;}
1496 case 4 : {return (Scm_VMApply4(p,(args)[0],(args)[1],
1497 (args)[2],(args)[3]));break;}default: {
1498 return (Scm_VMApply(p,Scm_ArrayToList(args,(nargs)-(1))));break;}}} else {
1499 return (
1500 Scm_VMApply(p,Scm_ArrayToListWithTail(args,(nargs)-(1),rarg)));}}}}}
libalphamake_case_lambda_dispatcher(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1501 static ScmObj libalphamake_case_lambda_dispatcher(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1502 {
1503 ScmObj dispatch_vector_scm;
1504 ScmVector* dispatch_vector;
1505 ScmObj min_reqargs_scm;
1506 int min_reqargs;
1507 ScmObj name_scm;
1508 ScmObj name;
1509 ScmObj SCM_SUBRARGS[3];
1510 SCM_ENTER_SUBR("make-case-lambda-dispatcher");
1511 for (int SCM_i=0; SCM_i<3; SCM_i++) {
1512 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1513 }
1514 dispatch_vector_scm = SCM_SUBRARGS[0];
1515 if (!SCM_VECTORP(dispatch_vector_scm)) Scm_Error("vector required, but got %S", dispatch_vector_scm);
1516 dispatch_vector = SCM_VECTOR(dispatch_vector_scm);
1517 min_reqargs_scm = SCM_SUBRARGS[1];
1518 if (!SCM_INTEGERP(min_reqargs_scm)) Scm_Error("C integer required, but got %S", min_reqargs_scm);
1519 min_reqargs = Scm_GetInteger(min_reqargs_scm);
1520 name_scm = SCM_SUBRARGS[2];
1521 name = (name_scm);
1522 {
1523 {
1524 ScmObj SCM_RESULT;
1525
1526 #line 275 "libalpha.scm"
1527 {int max_optargs=SCM_VECTOR_SIZE(dispatch_vector);case_lambda_packet* packet=
1528 SCM_NEW(case_lambda_packet);
1529 (packet)->min_reqargs=(min_reqargs),
1530 (packet)->max_optargs=(max_optargs),
1531 (packet)->dispatch_vector=(dispatch_vector);
1532 {SCM_RESULT=(Scm_MakeSubr(case_lambda_dispatch,packet,min_reqargs,max_optargs,
1533 #line 282 "libalpha.scm"
1534 SCM_LIST3(((SCM_FALSEP(name))?(
1535 scm__rc.d1561[84]):(name)),
1536 #line 285 "libalpha.scm"
1537 SCM_MAKE_INT(min_reqargs),
1538 SCM_OBJ(dispatch_vector))));goto SCM_STUB_RETURN;}}
1539 goto SCM_STUB_RETURN;
1540 SCM_STUB_RETURN:
1541 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1542 }
1543 }
1544 }
1545
libalpha_25make_macro_transformer(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1546 static ScmObj libalpha_25make_macro_transformer(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1547 {
1548 ScmObj name_scm;
1549 ScmObj name;
1550 ScmObj transformer_scm;
1551 ScmObj transformer;
1552 ScmObj src_scm;
1553 ScmObj src;
1554 ScmObj describer_scm;
1555 ScmObj describer;
1556 ScmObj SCM_SUBRARGS[6];
1557 SCM_ENTER_SUBR("%make-macro-transformer");
1558 if (SCM_ARGCNT >= 5
1559 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1560 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1561 for (int SCM_i=0; SCM_i<6; SCM_i++) {
1562 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1563 }
1564 name_scm = SCM_SUBRARGS[0];
1565 name = (name_scm);
1566 transformer_scm = SCM_SUBRARGS[1];
1567 transformer = (transformer_scm);
1568 if (SCM_ARGCNT > 2+1) {
1569 src_scm = SCM_SUBRARGS[2];
1570 } else {
1571 src_scm = SCM_FALSE;
1572 }
1573 src = (src_scm);
1574 if (SCM_ARGCNT > 3+1) {
1575 describer_scm = SCM_SUBRARGS[3];
1576 } else {
1577 describer_scm = SCM_FALSE;
1578 }
1579 describer = (describer_scm);
1580 {
1581 {
1582 ScmObj SCM_RESULT;
1583 {SCM_RESULT=(Scm_MakeMacro(name,transformer,src,describer));goto SCM_STUB_RETURN;}
1584 goto SCM_STUB_RETURN;
1585 SCM_STUB_RETURN:
1586 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1587 }
1588 }
1589 }
1590
1591 static ScmCompiledCode *toplevels[] = {
1592 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[8])),
1593 NULL /*termination*/
1594 };
Scm_Init_libalpha()1595 void Scm_Init_libalpha() {
1596 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
1597 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
1598 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
1599 scm__rc.d1561[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[0])),TRUE); /* %error-scan-keys */
1600 scm__rc.d1561[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[1])),TRUE); /* reverse! */
1601 scm__rc.d1561[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[2])),TRUE); /* gauche.internal */
1602 scm__rc.d1561[3] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1561[4]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche.internal */
1603 scm__rc.d1561[1] = Scm_MakeIdentifier(scm__rc.d1561[2], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#reverse! */
1604 scm__rc.d1561[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[3])),TRUE); /* keyword? */
1605 scm__rc.d1561[5] = Scm_MakeIdentifier(scm__rc.d1561[6], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#keyword? */
1606 scm__rc.d1561[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[4])),TRUE); /* args */
1607 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[1]), scm__rc.d1561[7]);
1608 scm__rc.d1561[8] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[5])),TRUE); /* source-info */
1609 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[4]), scm__rc.d1561[8]);
1610 scm__rc.d1561[9] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[7])),TRUE); /* unused-args */
1611 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[5]), scm__rc.d1561[9]);
1612 scm__rc.d1561[10] = Scm_MakeExtendedPair(scm__rc.d1561[0], SCM_OBJ(&scm__rc.d1564[1]), SCM_OBJ(&scm__rc.d1564[7]));
1613 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[8]), scm__rc.d1561[10]);
1614 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[0]))->name = scm__rc.d1561[0];/* %error-scan-keys */
1615 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]))[10] = SCM_WORD(scm__rc.d1561[1]);
1616 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[0]))[18] = SCM_WORD(scm__rc.d1561[5]);
1617 ScmObj G1566 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[0]), NULL);
1618
1619 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1561[0]) /* %error-scan-keys */, G1566,0);
1620
1621 scm__rc.d1561[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[8])),TRUE); /* %make-error-message */
1622 scm__rc.d1561[13] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[9])),TRUE); /* open-output-string */
1623 scm__rc.d1561[12] = Scm_MakeIdentifier(scm__rc.d1561[13], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#open-output-string */
1624 scm__rc.d1561[15] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[10])),TRUE); /* display */
1625 scm__rc.d1561[14] = Scm_MakeIdentifier(scm__rc.d1561[15], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#display */
1626 scm__rc.d1561[17] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[12])),TRUE); /* write/ss */
1627 scm__rc.d1561[16] = Scm_MakeIdentifier(scm__rc.d1561[17], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#write/ss */
1628 scm__rc.d1561[19] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[13])),TRUE); /* get-output-string */
1629 scm__rc.d1561[18] = Scm_MakeIdentifier(scm__rc.d1561[19], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#get-output-string */
1630 scm__rc.d1561[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[14])),TRUE); /* msg */
1631 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[9]), scm__rc.d1561[20]);
1632 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[12]), scm__rc.d1561[8]);
1633 scm__rc.d1561[21] = Scm_MakeExtendedPair(scm__rc.d1561[11], SCM_OBJ(&scm__rc.d1564[9]), SCM_OBJ(&scm__rc.d1564[13]));
1634 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[14]), scm__rc.d1561[21]);
1635 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[1]))->name = scm__rc.d1561[11];/* %make-error-message */
1636 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]))[3] = SCM_WORD(scm__rc.d1561[12]);
1637 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]))[10] = SCM_WORD(scm__rc.d1561[14]);
1638 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]))[27] = SCM_WORD(scm__rc.d1561[14]);
1639 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]))[33] = SCM_WORD(scm__rc.d1561[16]);
1640 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[43]))[42] = SCM_WORD(scm__rc.d1561[18]);
1641 ScmObj G1568 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[1]), NULL);
1642
1643 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1561[11]) /* %make-error-message */, G1568,0);
1644
1645 scm__rc.d1561[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[15])),TRUE); /* make-error */
1646 scm__rc.d1561[24] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[16])),TRUE); /* <error> */
1647 scm__rc.d1561[23] = Scm_MakeIdentifier(scm__rc.d1561[24], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#<error> */
1648 scm__rc.d1561[25] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1562[17]))); /* :message */
1649 scm__rc.d1561[26] = Scm_MakeIdentifier(scm__rc.d1561[11], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#%make-error-message */
1650 scm__rc.d1561[27] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1562[18]))); /* :message-prefix */
1651 scm__rc.d1561[28] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1562[19]))); /* :message-args */
1652 scm__rc.d1561[30] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[20])),TRUE); /* make */
1653 scm__rc.d1561[29] = Scm_MakeIdentifier(scm__rc.d1561[30], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#make */
1654 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[15]), scm__rc.d1561[20]);
1655 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1564[15]), scm__rc.d1561[7]);
1656 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[18]), scm__rc.d1561[8]);
1657 scm__rc.d1561[31] = Scm_MakeExtendedPair(scm__rc.d1561[22], SCM_OBJ(&scm__rc.d1564[15]), SCM_OBJ(&scm__rc.d1564[19]));
1658 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[20]), scm__rc.d1561[31]);
1659 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[2]))->name = scm__rc.d1561[22];/* make-error */
1660 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[87]))[1] = SCM_WORD(scm__rc.d1561[23]);
1661 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[87]))[3] = SCM_WORD(scm__rc.d1561[25]);
1662 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[87]))[9] = SCM_WORD(scm__rc.d1561[26]);
1663 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[87]))[12] = SCM_WORD(scm__rc.d1561[27]);
1664 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[87]))[15] = SCM_WORD(scm__rc.d1561[28]);
1665 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[87]))[18] = SCM_WORD(scm__rc.d1561[29]);
1666 ScmObj G1569 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[2]), NULL);
1667
1668 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1561[22]) /* make-error */, G1569,0);
1669
1670 scm__rc.d1561[32] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[21])),TRUE); /* error */
1671 scm__rc.d1561[34] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[22])),TRUE); /* <condition-meta> */
1672 scm__rc.d1561[33] = Scm_MakeIdentifier(scm__rc.d1561[34], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#<condition-meta> */
1673 scm__rc.d1561[36] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[23])),TRUE); /* is-a? */
1674 scm__rc.d1561[35] = Scm_MakeIdentifier(scm__rc.d1561[36], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#is-a? */
1675 scm__rc.d1561[37] = Scm_MakeIdentifier(scm__rc.d1561[0], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#%error-scan-keys */
1676 scm__rc.d1561[38] = Scm_MakeIdentifier(scm__rc.d1561[22], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#make-error */
1677 scm__rc.d1561[40] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[24])),TRUE); /* raise */
1678 scm__rc.d1561[39] = Scm_MakeIdentifier(scm__rc.d1561[40], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#raise */
1679 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[23]), scm__rc.d1561[8]);
1680 scm__rc.d1561[41] = Scm_MakeExtendedPair(scm__rc.d1561[32], SCM_OBJ(&scm__rc.d1564[15]), SCM_OBJ(&scm__rc.d1564[24]));
1681 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[25]), scm__rc.d1561[41]);
1682 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[3]))->name = scm__rc.d1561[32];/* error */
1683 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]))[4] = SCM_WORD(scm__rc.d1561[33]);
1684 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]))[6] = SCM_WORD(scm__rc.d1561[35]);
1685 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]))[13] = SCM_WORD(scm__rc.d1561[37]);
1686 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]))[21] = SCM_WORD(scm__rc.d1561[29]);
1687 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]))[30] = SCM_WORD(scm__rc.d1561[29]);
1688 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]))[33] = SCM_WORD(scm__rc.d1561[25]);
1689 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]))[40] = SCM_WORD(scm__rc.d1561[26]);
1690 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]))[50] = SCM_WORD(scm__rc.d1561[38]);
1691 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[107]))[55] = SCM_WORD(scm__rc.d1561[39]);
1692 ScmObj G1570 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[3]), NULL);
1693
1694 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1561[32]) /* error */, G1570,0);
1695
1696 scm__rc.d1561[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[25])),TRUE); /* errorf */
1697 scm__rc.d1561[44] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[26])),TRUE); /* format/ss */
1698 scm__rc.d1561[43] = Scm_MakeIdentifier(scm__rc.d1561[44], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#format/ss */
1699 scm__rc.d1561[45] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[27])),TRUE); /* fmt */
1700 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[26]), scm__rc.d1561[45]);
1701 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1564[26]), scm__rc.d1561[7]);
1702 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[29]), scm__rc.d1561[8]);
1703 scm__rc.d1561[46] = Scm_MakeExtendedPair(scm__rc.d1561[42], SCM_OBJ(&scm__rc.d1564[26]), SCM_OBJ(&scm__rc.d1564[30]));
1704 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[31]), scm__rc.d1561[46]);
1705 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[4]))->name = scm__rc.d1561[42];/* errorf */
1706 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[4] = SCM_WORD(scm__rc.d1561[33]);
1707 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[6] = SCM_WORD(scm__rc.d1561[35]);
1708 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[13] = SCM_WORD(scm__rc.d1561[37]);
1709 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[21] = SCM_WORD(scm__rc.d1561[29]);
1710 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[30] = SCM_WORD(scm__rc.d1561[29]);
1711 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[33] = SCM_WORD(scm__rc.d1561[25]);
1712 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[37] = SCM_WORD(scm__rc.d1561[43]);
1713 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[50] = SCM_WORD(scm__rc.d1561[23]);
1714 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[52] = SCM_WORD(scm__rc.d1561[25]);
1715 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[56] = SCM_WORD(scm__rc.d1561[43]);
1716 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[62] = SCM_WORD(scm__rc.d1561[29]);
1717 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[164]))[64] = SCM_WORD(scm__rc.d1561[39]);
1718 ScmObj G1571 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[4]), NULL);
1719
1720 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1561[42]) /* errorf */, G1571,0);
1721
1722 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())));
1723 scm__rc.d1561[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[28])),TRUE); /* make-vector */
1724 scm__rc.d1561[48] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[29])),TRUE); /* k */
1725 scm__rc.d1561[49] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1562[30]))); /* :optional */
1726 scm__rc.d1561[50] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[31])),TRUE); /* fill */
1727 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[32]), scm__rc.d1561[50]);
1728 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[33]), scm__rc.d1561[49]);
1729 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[34]), scm__rc.d1561[48]);
1730 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[37]), scm__rc.d1561[8]);
1731 scm__rc.d1561[51] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[32])),TRUE); /* bind-info */
1732 scm__rc.d1561[52] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[33])),TRUE); /* scheme */
1733 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[38]), scm__rc.d1561[47]);
1734 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[39]), scm__rc.d1561[52]);
1735 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[40]), scm__rc.d1561[51]);
1736 scm__rc.d1561[53] = Scm_MakeExtendedPair(scm__rc.d1561[47], SCM_OBJ(&scm__rc.d1564[34]), SCM_OBJ(&scm__rc.d1564[42]));
1737 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_SchemeModule())), SCM_SYMBOL(SCM_INTERN("make-vector")), SCM_OBJ(&libalphamake_vector__STUB), 0);
1738 libalphamake_vector__STUB.common.info = scm__rc.d1561[53];
1739 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
1740 scm__rc.d1561[54] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[34])),TRUE); /* getter-with-setter */
1741 scm__rc.d1561[55] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[35])),TRUE); /* proc */
1742 scm__rc.d1561[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[36])),TRUE); /* set */
1743 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[43]), scm__rc.d1561[56]);
1744 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[44]), scm__rc.d1561[55]);
1745 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[47]), scm__rc.d1561[8]);
1746 scm__rc.d1561[57] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[37])),TRUE); /* gauche */
1747 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[48]), scm__rc.d1561[54]);
1748 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[49]), scm__rc.d1561[57]);
1749 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[50]), scm__rc.d1561[51]);
1750 scm__rc.d1561[58] = Scm_MakeExtendedPair(scm__rc.d1561[54], SCM_OBJ(&scm__rc.d1564[44]), SCM_OBJ(&scm__rc.d1564[52]));
1751 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("getter-with-setter")), SCM_OBJ(&libalphagetter_with_setter__STUB), 0);
1752 libalphagetter_with_setter__STUB.common.info = scm__rc.d1561[58];
1753 scm__rc.d1561[59] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[38])),TRUE); /* setter */
1754 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[53]), scm__rc.d1561[55]);
1755 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[56]), scm__rc.d1561[8]);
1756 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[57]), scm__rc.d1561[59]);
1757 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[58]), scm__rc.d1561[57]);
1758 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[59]), scm__rc.d1561[51]);
1759 scm__rc.d1561[60] = Scm_MakeExtendedPair(scm__rc.d1561[59], SCM_OBJ(&scm__rc.d1564[53]), SCM_OBJ(&scm__rc.d1564[61]));
1760 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("setter")), SCM_OBJ(&libalphasetter__STUB), SCM_BINDING_INLINABLE);
1761 libalphasetter__STUB.common.info = scm__rc.d1561[60];
1762 Scm_SetterSet(SCM_PROCEDURE(&libalphasetter__STUB), SCM_PROCEDURE(&libalphasetter_SETTER__STUB), TRUE);
1763 scm__rc.d1561[61] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[40])),TRUE); /* box */
1764 scm__rc.d1561[62] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1562[41]))); /* :rest */
1765 scm__rc.d1561[63] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[41])),TRUE); /* rest */
1766 scm__rc.d1561[64] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1562[42]))); /* :optarray */
1767 scm__rc.d1561[65] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[43])),TRUE); /* argv */
1768 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[62]), scm__rc.d1561[65]);
1769 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[63]), scm__rc.d1561[64]);
1770 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[64]), scm__rc.d1561[63]);
1771 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[65]), scm__rc.d1561[62]);
1772 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[68]), scm__rc.d1561[8]);
1773 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[69]), scm__rc.d1561[61]);
1774 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[70]), scm__rc.d1561[57]);
1775 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[71]), scm__rc.d1561[51]);
1776 scm__rc.d1561[66] = Scm_MakeExtendedPair(scm__rc.d1561[61], SCM_OBJ(&scm__rc.d1564[65]), SCM_OBJ(&scm__rc.d1564[73]));
1777 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("box")), SCM_OBJ(&libalphabox__STUB), 0);
1778 libalphabox__STUB.common.info = scm__rc.d1561[66];
1779 scm__rc.d1561[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[44])),TRUE); /* box? */
1780 scm__rc.d1561[68] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[45])),TRUE); /* v */
1781 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[74]), scm__rc.d1561[68]);
1782 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[77]), scm__rc.d1561[8]);
1783 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[78]), scm__rc.d1561[67]);
1784 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[79]), scm__rc.d1561[57]);
1785 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[80]), scm__rc.d1561[51]);
1786 scm__rc.d1561[69] = Scm_MakeExtendedPair(scm__rc.d1561[67], SCM_OBJ(&scm__rc.d1564[74]), SCM_OBJ(&scm__rc.d1564[82]));
1787 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("box?")), SCM_OBJ(&libalphaboxP__STUB), 0);
1788 libalphaboxP__STUB.common.info = scm__rc.d1561[69];
1789 scm__rc.d1561[70] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[46])),TRUE); /* unbox */
1790 scm__rc.d1561[71] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[47])),TRUE); /* b */
1791 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[83]), scm__rc.d1561[71]);
1792 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[86]), scm__rc.d1561[8]);
1793 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[87]), scm__rc.d1561[70]);
1794 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[88]), scm__rc.d1561[57]);
1795 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[89]), scm__rc.d1561[51]);
1796 scm__rc.d1561[72] = Scm_MakeExtendedPair(scm__rc.d1561[70], SCM_OBJ(&scm__rc.d1564[83]), SCM_OBJ(&scm__rc.d1564[91]));
1797 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("unbox")), SCM_OBJ(&libalphaunbox__STUB), 0);
1798 libalphaunbox__STUB.common.info = scm__rc.d1561[72];
1799 scm__rc.d1561[73] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[48])),TRUE); /* set-box! */
1800 scm__rc.d1561[74] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[49])),TRUE); /* vs */
1801 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[92]), scm__rc.d1561[74]);
1802 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[93]), scm__rc.d1561[62]);
1803 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[94]), scm__rc.d1561[71]);
1804 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[97]), scm__rc.d1561[8]);
1805 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[98]), scm__rc.d1561[73]);
1806 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[99]), scm__rc.d1561[57]);
1807 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[100]), scm__rc.d1561[51]);
1808 scm__rc.d1561[75] = Scm_MakeExtendedPair(scm__rc.d1561[73], SCM_OBJ(&scm__rc.d1564[94]), SCM_OBJ(&scm__rc.d1564[102]));
1809 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("set-box!")), SCM_OBJ(&libalphaset_boxX__STUB), 0);
1810 libalphaset_boxX__STUB.common.info = scm__rc.d1561[75];
1811 scm__rc.d1561[76] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[50])),TRUE); /* box-arity */
1812 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[105]), scm__rc.d1561[8]);
1813 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[106]), scm__rc.d1561[76]);
1814 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[107]), scm__rc.d1561[57]);
1815 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[108]), scm__rc.d1561[51]);
1816 scm__rc.d1561[77] = Scm_MakeExtendedPair(scm__rc.d1561[76], SCM_OBJ(&scm__rc.d1564[83]), SCM_OBJ(&scm__rc.d1564[110]));
1817 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("box-arity")), SCM_OBJ(&libalphabox_arity__STUB), 0);
1818 libalphabox_arity__STUB.common.info = scm__rc.d1561[77];
1819 scm__rc.d1561[78] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[51])),TRUE); /* unbox-value */
1820 scm__rc.d1561[79] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[52])),TRUE); /* i */
1821 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[111]), scm__rc.d1561[79]);
1822 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[112]), scm__rc.d1561[71]);
1823 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[115]), scm__rc.d1561[8]);
1824 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[116]), scm__rc.d1561[78]);
1825 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[117]), scm__rc.d1561[57]);
1826 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[118]), scm__rc.d1561[51]);
1827 scm__rc.d1561[80] = Scm_MakeExtendedPair(scm__rc.d1561[78], SCM_OBJ(&scm__rc.d1564[112]), SCM_OBJ(&scm__rc.d1564[120]));
1828 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("unbox-value")), SCM_OBJ(&libalphaunbox_value__STUB), 0);
1829 libalphaunbox_value__STUB.common.info = scm__rc.d1561[80];
1830 scm__rc.d1561[81] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[53])),TRUE); /* set-box-value! */
1831 scm__rc.d1561[82] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[54])),TRUE); /* val */
1832 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[121]), scm__rc.d1561[82]);
1833 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[122]), scm__rc.d1561[79]);
1834 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[123]), scm__rc.d1561[71]);
1835 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[126]), scm__rc.d1561[8]);
1836 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[127]), scm__rc.d1561[81]);
1837 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[128]), scm__rc.d1561[57]);
1838 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[129]), scm__rc.d1561[51]);
1839 scm__rc.d1561[83] = Scm_MakeExtendedPair(scm__rc.d1561[81], SCM_OBJ(&scm__rc.d1564[123]), SCM_OBJ(&scm__rc.d1564[131]));
1840 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("set-box-value!")), SCM_OBJ(&libalphaset_box_valueX__STUB), 0);
1841 libalphaset_box_valueX__STUB.common.info = scm__rc.d1561[83];
1842 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
1843 scm__rc.d1561[84] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[56])),TRUE); /* case-lambda-dispatcher */
1844 scm__rc.d1561[85] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[55])),TRUE); /* make-case-lambda-dispatcher */
1845 scm__rc.d1561[86] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[57])),TRUE); /* dispatch-vector */
1846 scm__rc.d1561[87] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[58])),TRUE); /* min-reqargs */
1847 scm__rc.d1561[88] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[59])),TRUE); /* name */
1848 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[132]), scm__rc.d1561[88]);
1849 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[133]), scm__rc.d1561[87]);
1850 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[134]), scm__rc.d1561[86]);
1851 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[137]), scm__rc.d1561[8]);
1852 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[138]), scm__rc.d1561[85]);
1853 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[139]), scm__rc.d1561[4]);
1854 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[140]), scm__rc.d1561[51]);
1855 scm__rc.d1561[89] = Scm_MakeExtendedPair(scm__rc.d1561[85], SCM_OBJ(&scm__rc.d1564[134]), SCM_OBJ(&scm__rc.d1564[142]));
1856 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("make-case-lambda-dispatcher")), SCM_OBJ(&libalphamake_case_lambda_dispatcher__STUB), 0);
1857 libalphamake_case_lambda_dispatcher__STUB.common.info = scm__rc.d1561[89];
1858 scm__rc.d1561[90] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[60])),TRUE); /* make-case-lambda */
1859 scm__rc.d1561[91] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[62])),TRUE); /* lambda */
1860 scm__rc.d1561[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[63])),TRUE); /* minarg */
1861 scm__rc.d1561[93] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[64])),TRUE); /* maxarg */
1862 scm__rc.d1561[94] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[65])),TRUE); /* formals */
1863 scm__rc.d1561[95] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[66])),TRUE); /* closures */
1864 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[144]), scm__rc.d1561[88]);
1865 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[146]), scm__rc.d1561[49]);
1866 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[147]), scm__rc.d1561[95]);
1867 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[148]), scm__rc.d1561[94]);
1868 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[149]), scm__rc.d1561[93]);
1869 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[150]), scm__rc.d1561[92]);
1870 scm__rc.d1561[96] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[67])),TRUE); /* define */
1871 scm__rc.d1561[97] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[68])),TRUE); /* fill-dispatch-vector! */
1872 scm__rc.d1561[98] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[69])),TRUE); /* closure */
1873 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[151]), scm__rc.d1561[98]);
1874 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[152]), scm__rc.d1561[94]);
1875 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[153]), scm__rc.d1561[68]);
1876 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[154]), scm__rc.d1561[97]);
1877 scm__rc.d1561[99] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[70])),TRUE); /* %set */
1878 scm__rc.d1561[100] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[71])),TRUE); /* n */
1879 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[155]), scm__rc.d1561[100]);
1880 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[156]), scm__rc.d1561[99]);
1881 scm__rc.d1561[101] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[72])),TRUE); /* let1 */
1882 scm__rc.d1561[102] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[73])),TRUE); /* - */
1883 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[157]), scm__rc.d1561[92]);
1884 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[158]), scm__rc.d1561[100]);
1885 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[159]), scm__rc.d1561[102]);
1886 scm__rc.d1561[103] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[74])),TRUE); /* unless */
1887 scm__rc.d1561[104] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[75])),TRUE); /* vector-ref */
1888 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[160]), scm__rc.d1561[68]);
1889 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[161]), scm__rc.d1561[104]);
1890 scm__rc.d1561[105] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[76])),TRUE); /* vector-set! */
1891 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[162]), scm__rc.d1561[79]);
1892 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[163]), scm__rc.d1561[68]);
1893 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[164]), scm__rc.d1561[105]);
1894 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[167]), scm__rc.d1561[103]);
1895 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[170]), scm__rc.d1561[79]);
1896 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[171]), scm__rc.d1561[101]);
1897 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[174]), scm__rc.d1561[96]);
1898 scm__rc.d1561[106] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[77])),TRUE); /* let */
1899 scm__rc.d1561[107] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[78])),TRUE); /* loop */
1900 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[175]), scm__rc.d1561[94]);
1901 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[176]), scm__rc.d1561[94]);
1902 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[178]), scm__rc.d1561[100]);
1903 scm__rc.d1561[108] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[79])),TRUE); /* cond */
1904 scm__rc.d1561[109] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[80])),TRUE); /* > */
1905 scm__rc.d1561[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[81])),TRUE); /* + */
1906 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[182]), scm__rc.d1561[93]);
1907 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[183]), scm__rc.d1561[110]);
1908 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[185]), scm__rc.d1561[100]);
1909 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[186]), scm__rc.d1561[109]);
1910 scm__rc.d1561[111] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[82])),TRUE); /* null? */
1911 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[188]), scm__rc.d1561[111]);
1912 scm__rc.d1561[112] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[83])),TRUE); /* pair? */
1913 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[191]), scm__rc.d1561[112]);
1914 scm__rc.d1561[113] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[84])),TRUE); /* cdr */
1915 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[192]), scm__rc.d1561[113]);
1916 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[193]), scm__rc.d1561[100]);
1917 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[194]), scm__rc.d1561[110]);
1918 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[197]), scm__rc.d1561[107]);
1919 scm__rc.d1561[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[85])),TRUE); /* else */
1920 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[200]), scm__rc.d1561[94]);
1921 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[201]), scm__rc.d1561[107]);
1922 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[204]), scm__rc.d1561[114]);
1923 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[209]), scm__rc.d1561[108]);
1924 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[212]), scm__rc.d1561[107]);
1925 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[213]), scm__rc.d1561[106]);
1926 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[217]), scm__rc.d1561[96]);
1927 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[218]), scm__rc.d1561[93]);
1928 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[219]), scm__rc.d1561[102]);
1929 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[222]), scm__rc.d1561[110]);
1930 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[224]), scm__rc.d1561[47]);
1931 scm__rc.d1561[115] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[86])),TRUE); /* fs */
1932 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[225]), scm__rc.d1561[115]);
1933 scm__rc.d1561[116] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[87])),TRUE); /* cs */
1934 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[226]), scm__rc.d1561[95]);
1935 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[227]), scm__rc.d1561[116]);
1936 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[230]), scm__rc.d1561[115]);
1937 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[231]), scm__rc.d1561[111]);
1938 scm__rc.d1561[117] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[88])),TRUE); /* car */
1939 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[232]), scm__rc.d1561[117]);
1940 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[233]), scm__rc.d1561[116]);
1941 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[234]), scm__rc.d1561[117]);
1942 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[237]), scm__rc.d1561[68]);
1943 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[238]), scm__rc.d1561[97]);
1944 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[239]), scm__rc.d1561[113]);
1945 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[240]), scm__rc.d1561[113]);
1946 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[243]), scm__rc.d1561[107]);
1947 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[247]), scm__rc.d1561[103]);
1948 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[250]), scm__rc.d1561[107]);
1949 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[251]), scm__rc.d1561[106]);
1950 scm__rc.d1561[118] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[89])),TRUE); /* with-module */
1951 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[252]), scm__rc.d1561[118]);
1952 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[253]), scm__rc.d1561[92]);
1953 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[254]), scm__rc.d1561[68]);
1954 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[259]), scm__rc.d1561[68]);
1955 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[260]), scm__rc.d1561[101]);
1956 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[264]), scm__rc.d1561[91]);
1957 scm__rc.d1561[119] = Scm_MakeIdentifier(scm__rc.d1561[32], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#error */
1958 scm__rc.d1561[120] = Scm_MakeIdentifier(scm__rc.d1561[47], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#make-vector */
1959 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[265]), scm__rc.d1561[99]);
1960 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[266]), scm__rc.d1561[90]);
1961 scm__rc.d1561[121] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1564[266]), SCM_OBJ(&scm__rc.d1564[155]), SCM_OBJ(&scm__rc.d1564[6]));
1962 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[267]), scm__rc.d1561[121]);
1963 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[5]))->name = scm__rc.d1561[99];/* (make-case-lambda %set) */
1964 scm__rc.d1561[122] = Scm_MakeIdentifier(scm__rc.d1561[85], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#make-case-lambda-dispatcher */
1965 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[271]), scm__rc.d1561[8]);
1966 scm__rc.d1561[123] = Scm_MakeExtendedPair(scm__rc.d1561[90], SCM_OBJ(&scm__rc.d1564[150]), SCM_OBJ(&scm__rc.d1564[272]));
1967 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[273]), scm__rc.d1561[123]);
1968 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[6]))->name = scm__rc.d1561[90];/* make-case-lambda */
1969 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]))[28] = SCM_WORD(scm__rc.d1561[119]);
1970 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]))[38] = SCM_WORD(scm__rc.d1561[120]);
1971 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[245]))[105] = SCM_WORD(scm__rc.d1561[122]);
1972 ScmObj G1575 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[6]), NULL);
1973
1974 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())) /* gauche.internal */, SCM_SYMBOL(scm__rc.d1561[90]) /* make-case-lambda */, G1575,0);
1975
1976 scm__rc.d1561[124] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[90])),TRUE); /* case-lambda-info */
1977 scm__rc.d1561[126] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[91])),TRUE); /* subr? */
1978 scm__rc.d1561[125] = Scm_MakeIdentifier(scm__rc.d1561[126], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#subr? */
1979 scm__rc.d1561[128] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[92])),TRUE); /* procedure-info */
1980 scm__rc.d1561[127] = Scm_MakeIdentifier(scm__rc.d1561[128], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#procedure-info */
1981 scm__rc.d1561[130] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[93])),TRUE); /* integer? */
1982 scm__rc.d1561[129] = Scm_MakeIdentifier(scm__rc.d1561[130], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#integer? */
1983 scm__rc.d1561[132] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[94])),TRUE); /* reverse */
1984 scm__rc.d1561[131] = Scm_MakeIdentifier(scm__rc.d1561[132], SCM_MODULE(scm__rc.d1561[3]), SCM_NIL); /* gauche.internal#reverse */
1985 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[276]), scm__rc.d1561[8]);
1986 scm__rc.d1561[133] = Scm_MakeExtendedPair(scm__rc.d1561[124], SCM_OBJ(&scm__rc.d1564[53]), SCM_OBJ(&scm__rc.d1564[277]));
1987 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[278]), scm__rc.d1561[133]);
1988 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[7]))->name = scm__rc.d1561[124];/* case-lambda-info */
1989 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]))[4] = SCM_WORD(scm__rc.d1561[125]);
1990 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]))[10] = SCM_WORD(scm__rc.d1561[127]);
1991 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]))[23] = SCM_WORD(scm__rc.d1561[129]);
1992 ((ScmWord*)SCM_OBJ(&scm__rc.d1563[352]))[70] = SCM_WORD(scm__rc.d1561[131]);
1993 ScmObj G1576 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1565[7]), NULL);
1994
1995 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1561[124]) /* case-lambda-info */, G1576,0);
1996
1997 scm__rc.d1561[134] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[95])),TRUE); /* %toplevel */
1998 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1565[8]))->name = scm__rc.d1561[134];/* %toplevel */
1999 scm__rc.d1561[135] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[96])),TRUE); /* %make-macro-transformer */
2000 scm__rc.d1561[136] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[97])),TRUE); /* transformer */
2001 scm__rc.d1561[137] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[98])),TRUE); /* src */
2002 scm__rc.d1561[138] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1562[99])),TRUE); /* describer */
2003 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[279]), scm__rc.d1561[138]);
2004 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[280]), scm__rc.d1561[137]);
2005 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[281]), scm__rc.d1561[49]);
2006 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[282]), scm__rc.d1561[136]);
2007 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[283]), scm__rc.d1561[88]);
2008 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[286]), scm__rc.d1561[8]);
2009 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[287]), scm__rc.d1561[135]);
2010 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[288]), scm__rc.d1561[4]);
2011 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1564[289]), scm__rc.d1561[51]);
2012 scm__rc.d1561[139] = Scm_MakeExtendedPair(scm__rc.d1561[135], SCM_OBJ(&scm__rc.d1564[283]), SCM_OBJ(&scm__rc.d1564[291]));
2013 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%make-macro-transformer")), SCM_OBJ(&libalpha_25make_macro_transformer__STUB), 0);
2014 libalpha_25make_macro_transformer__STUB.common.info = scm__rc.d1561[139];
2015 Scm_VMExecuteToplevels(toplevels);
2016 }
2017