1 /*Generated by genstub. Do not edit.*/
2 
3 #line 6 "./lib_core.stub"
4 
5 #define LIBSAGITTARIUS_BODY
6 
7 
8 #line 7 "./lib_core.stub"
9 
10 #include <sagittarius/private.h>
11 
12 #include <sagittarius/private/instruction.h>
13 
14 #include <sagittarius/private/builtin-symbols.h>
15 
16 #include "shortnames.incl"
17 
18 #include "gc-incl.inc"
19 
20 
21 #line 1826 "./lib_core.stub"
22 
23 #include <string.h>
24 
25 static struct sg__rc_cgen9166Rec {
26   SgObject d9486[583];
27 } sg__rc_cgen9166 = {
28   {  /* SgObject d9486 */
29     SG_UNBOUND,
30     SG_UNBOUND,
31     SG_UNBOUND,
32     SG_UNBOUND,
33     SG_UNBOUND,
34     SG_UNBOUND,
35     SG_UNBOUND,
36     SG_UNBOUND,
37     SG_UNBOUND,
38     SG_UNBOUND,
39     SG_UNBOUND,
40     SG_UNBOUND,
41     SG_UNBOUND,
42     SG_UNBOUND,
43     SG_UNBOUND,
44     SG_UNBOUND,
45     SG_UNBOUND,
46     SG_UNBOUND,
47     SG_UNBOUND,
48     SG_UNBOUND,
49     SG_UNBOUND,
50     SG_UNBOUND,
51     SG_UNBOUND,
52     SG_UNBOUND,
53     SG_UNBOUND,
54     SG_UNBOUND,
55     SG_UNBOUND,
56     SG_UNBOUND,
57     SG_UNBOUND,
58     SG_UNBOUND,
59     SG_UNBOUND,
60     SG_UNBOUND,
61     SG_UNBOUND,
62     SG_UNBOUND,
63     SG_UNBOUND,
64     SG_UNBOUND,
65     SG_UNBOUND,
66     SG_UNBOUND,
67     SG_UNBOUND,
68     SG_UNBOUND,
69     SG_UNBOUND,
70     SG_UNBOUND,
71     SG_UNBOUND,
72     SG_UNBOUND,
73     SG_UNBOUND,
74     SG_UNBOUND,
75     SG_UNBOUND,
76     SG_UNBOUND,
77     SG_UNBOUND,
78     SG_UNBOUND,
79     SG_UNBOUND,
80     SG_UNBOUND,
81     SG_UNBOUND,
82     SG_UNBOUND,
83     SG_UNBOUND,
84     SG_UNBOUND,
85     SG_UNBOUND,
86     SG_UNBOUND,
87     SG_UNBOUND,
88     SG_UNBOUND,
89     SG_UNBOUND,
90     SG_UNBOUND,
91     SG_UNBOUND,
92     SG_UNBOUND,
93     SG_UNBOUND,
94     SG_UNBOUND,
95     SG_UNBOUND,
96     SG_UNBOUND,
97     SG_UNBOUND,
98     SG_UNBOUND,
99     SG_UNBOUND,
100     SG_UNBOUND,
101     SG_UNBOUND,
102     SG_UNBOUND,
103     SG_UNBOUND,
104     SG_UNBOUND,
105     SG_UNBOUND,
106     SG_UNBOUND,
107     SG_UNBOUND,
108     SG_UNBOUND,
109     SG_UNBOUND,
110     SG_UNBOUND,
111     SG_UNBOUND,
112     SG_UNBOUND,
113     SG_UNBOUND,
114     SG_UNBOUND,
115     SG_UNBOUND,
116     SG_UNBOUND,
117     SG_UNBOUND,
118     SG_UNBOUND,
119     SG_UNBOUND,
120     SG_UNBOUND,
121     SG_UNBOUND,
122     SG_UNBOUND,
123     SG_UNBOUND,
124     SG_UNBOUND,
125     SG_UNBOUND,
126     SG_UNBOUND,
127     SG_UNBOUND,
128     SG_UNBOUND,
129     SG_UNBOUND,
130     SG_UNBOUND,
131     SG_UNBOUND,
132     SG_UNBOUND,
133     SG_UNBOUND,
134     SG_UNBOUND,
135     SG_UNBOUND,
136     SG_UNBOUND,
137     SG_UNBOUND,
138     SG_UNBOUND,
139     SG_UNBOUND,
140     SG_UNBOUND,
141     SG_UNBOUND,
142     SG_UNBOUND,
143     SG_UNBOUND,
144     SG_UNBOUND,
145     SG_UNBOUND,
146     SG_UNBOUND,
147     SG_UNBOUND,
148     SG_UNBOUND,
149     SG_UNBOUND,
150     SG_UNBOUND,
151     SG_UNBOUND,
152     SG_UNBOUND,
153     SG_UNBOUND,
154     SG_UNBOUND,
155     SG_UNBOUND,
156     SG_UNBOUND,
157     SG_UNBOUND,
158     SG_UNBOUND,
159     SG_UNBOUND,
160     SG_UNBOUND,
161     SG_UNBOUND,
162     SG_UNBOUND,
163     SG_UNBOUND,
164     SG_UNBOUND,
165     SG_UNBOUND,
166     SG_UNBOUND,
167     SG_UNBOUND,
168     SG_UNBOUND,
169     SG_UNBOUND,
170     SG_UNBOUND,
171     SG_UNBOUND,
172     SG_UNBOUND,
173     SG_UNBOUND,
174     SG_UNBOUND,
175     SG_UNBOUND,
176     SG_UNBOUND,
177     SG_UNBOUND,
178     SG_UNBOUND,
179     SG_UNBOUND,
180     SG_UNBOUND,
181     SG_UNBOUND,
182     SG_UNBOUND,
183     SG_UNBOUND,
184     SG_UNBOUND,
185     SG_UNBOUND,
186     SG_UNBOUND,
187     SG_UNBOUND,
188     SG_UNBOUND,
189     SG_UNBOUND,
190     SG_UNBOUND,
191     SG_UNBOUND,
192     SG_UNBOUND,
193     SG_UNBOUND,
194     SG_UNBOUND,
195     SG_UNBOUND,
196     SG_UNBOUND,
197     SG_UNBOUND,
198     SG_UNBOUND,
199     SG_UNBOUND,
200     SG_UNBOUND,
201     SG_UNBOUND,
202     SG_UNBOUND,
203     SG_UNBOUND,
204     SG_UNBOUND,
205     SG_UNBOUND,
206     SG_UNBOUND,
207     SG_UNBOUND,
208     SG_UNBOUND,
209     SG_UNBOUND,
210     SG_UNBOUND,
211     SG_UNBOUND,
212     SG_UNBOUND,
213     SG_UNBOUND,
214     SG_UNBOUND,
215     SG_UNBOUND,
216     SG_UNBOUND,
217     SG_UNBOUND,
218     SG_UNBOUND,
219     SG_UNBOUND,
220     SG_UNBOUND,
221     SG_UNBOUND,
222     SG_UNBOUND,
223     SG_UNBOUND,
224     SG_UNBOUND,
225     SG_UNBOUND,
226     SG_UNBOUND,
227     SG_UNBOUND,
228     SG_UNBOUND,
229     SG_UNBOUND,
230     SG_UNBOUND,
231     SG_UNBOUND,
232     SG_UNBOUND,
233     SG_UNBOUND,
234     SG_UNBOUND,
235     SG_UNBOUND,
236     SG_UNBOUND,
237     SG_UNBOUND,
238     SG_UNBOUND,
239     SG_UNBOUND,
240     SG_UNBOUND,
241     SG_UNBOUND,
242     SG_UNBOUND,
243     SG_UNBOUND,
244     SG_UNBOUND,
245     SG_UNBOUND,
246     SG_UNBOUND,
247     SG_UNBOUND,
248     SG_UNBOUND,
249     SG_UNBOUND,
250     SG_UNBOUND,
251     SG_UNBOUND,
252     SG_UNBOUND,
253     SG_UNBOUND,
254     SG_UNBOUND,
255     SG_UNBOUND,
256     SG_UNBOUND,
257     SG_UNBOUND,
258     SG_UNBOUND,
259     SG_UNBOUND,
260     SG_UNBOUND,
261     SG_UNBOUND,
262     SG_UNBOUND,
263     SG_UNBOUND,
264     SG_UNBOUND,
265     SG_UNBOUND,
266     SG_UNBOUND,
267     SG_UNBOUND,
268     SG_UNBOUND,
269     SG_UNBOUND,
270     SG_UNBOUND,
271     SG_UNBOUND,
272     SG_UNBOUND,
273     SG_UNBOUND,
274     SG_UNBOUND,
275     SG_UNBOUND,
276     SG_UNBOUND,
277     SG_UNBOUND,
278     SG_UNBOUND,
279     SG_UNBOUND,
280     SG_UNBOUND,
281     SG_UNBOUND,
282     SG_UNBOUND,
283     SG_UNBOUND,
284     SG_UNBOUND,
285     SG_UNBOUND,
286     SG_UNBOUND,
287     SG_UNBOUND,
288     SG_UNBOUND,
289     SG_UNBOUND,
290     SG_UNBOUND,
291     SG_UNBOUND,
292     SG_UNBOUND,
293     SG_UNBOUND,
294     SG_UNBOUND,
295     SG_UNBOUND,
296     SG_UNBOUND,
297     SG_UNBOUND,
298     SG_UNBOUND,
299     SG_UNBOUND,
300     SG_UNBOUND,
301     SG_UNBOUND,
302     SG_UNBOUND,
303     SG_UNBOUND,
304     SG_UNBOUND,
305     SG_UNBOUND,
306     SG_UNBOUND,
307     SG_UNBOUND,
308     SG_UNBOUND,
309     SG_UNBOUND,
310     SG_UNBOUND,
311     SG_UNBOUND,
312     SG_UNBOUND,
313     SG_UNBOUND,
314     SG_UNBOUND,
315     SG_UNBOUND,
316     SG_UNBOUND,
317     SG_UNBOUND,
318     SG_UNBOUND,
319     SG_UNBOUND,
320     SG_UNBOUND,
321     SG_UNBOUND,
322     SG_UNBOUND,
323     SG_UNBOUND,
324     SG_UNBOUND,
325     SG_UNBOUND,
326     SG_UNBOUND,
327     SG_UNBOUND,
328     SG_UNBOUND,
329     SG_UNBOUND,
330     SG_UNBOUND,
331     SG_UNBOUND,
332     SG_UNBOUND,
333     SG_UNBOUND,
334     SG_UNBOUND,
335     SG_UNBOUND,
336     SG_UNBOUND,
337     SG_UNBOUND,
338     SG_UNBOUND,
339     SG_UNBOUND,
340     SG_UNBOUND,
341     SG_UNBOUND,
342     SG_UNBOUND,
343     SG_UNBOUND,
344     SG_UNBOUND,
345     SG_UNBOUND,
346     SG_UNBOUND,
347     SG_UNBOUND,
348     SG_UNBOUND,
349     SG_UNBOUND,
350     SG_UNBOUND,
351     SG_UNBOUND,
352     SG_UNBOUND,
353     SG_UNBOUND,
354     SG_UNBOUND,
355     SG_UNBOUND,
356     SG_UNBOUND,
357     SG_UNBOUND,
358     SG_UNBOUND,
359     SG_UNBOUND,
360     SG_UNBOUND,
361     SG_UNBOUND,
362     SG_UNBOUND,
363     SG_UNBOUND,
364     SG_UNBOUND,
365     SG_UNBOUND,
366     SG_UNBOUND,
367     SG_UNBOUND,
368     SG_UNBOUND,
369     SG_UNBOUND,
370     SG_UNBOUND,
371     SG_UNBOUND,
372     SG_UNBOUND,
373     SG_UNBOUND,
374     SG_UNBOUND,
375     SG_UNBOUND,
376     SG_UNBOUND,
377     SG_UNBOUND,
378     SG_UNBOUND,
379     SG_UNBOUND,
380     SG_UNBOUND,
381     SG_UNBOUND,
382     SG_UNBOUND,
383     SG_UNBOUND,
384     SG_UNBOUND,
385     SG_UNBOUND,
386     SG_UNBOUND,
387     SG_UNBOUND,
388     SG_UNBOUND,
389     SG_UNBOUND,
390     SG_UNBOUND,
391     SG_UNBOUND,
392     SG_UNBOUND,
393     SG_UNBOUND,
394     SG_UNBOUND,
395     SG_UNBOUND,
396     SG_UNBOUND,
397     SG_UNBOUND,
398     SG_UNBOUND,
399     SG_UNBOUND,
400     SG_UNBOUND,
401     SG_UNBOUND,
402     SG_UNBOUND,
403     SG_UNBOUND,
404     SG_UNBOUND,
405     SG_UNBOUND,
406     SG_UNBOUND,
407     SG_UNBOUND,
408     SG_UNBOUND,
409     SG_UNBOUND,
410     SG_UNBOUND,
411     SG_UNBOUND,
412     SG_UNBOUND,
413     SG_UNBOUND,
414     SG_UNBOUND,
415     SG_UNBOUND,
416     SG_UNBOUND,
417     SG_UNBOUND,
418     SG_UNBOUND,
419     SG_UNBOUND,
420     SG_UNBOUND,
421     SG_UNBOUND,
422     SG_UNBOUND,
423     SG_UNBOUND,
424     SG_UNBOUND,
425     SG_UNBOUND,
426     SG_UNBOUND,
427     SG_UNBOUND,
428     SG_UNBOUND,
429     SG_UNBOUND,
430     SG_UNBOUND,
431     SG_UNBOUND,
432     SG_UNBOUND,
433     SG_UNBOUND,
434     SG_UNBOUND,
435     SG_UNBOUND,
436     SG_UNBOUND,
437     SG_UNBOUND,
438     SG_UNBOUND,
439     SG_UNBOUND,
440     SG_UNBOUND,
441     SG_UNBOUND,
442     SG_UNBOUND,
443     SG_UNBOUND,
444     SG_UNBOUND,
445     SG_UNBOUND,
446     SG_UNBOUND,
447     SG_UNBOUND,
448     SG_UNBOUND,
449     SG_UNBOUND,
450     SG_UNBOUND,
451     SG_UNBOUND,
452     SG_UNBOUND,
453     SG_UNBOUND,
454     SG_UNBOUND,
455     SG_UNBOUND,
456     SG_UNBOUND,
457     SG_UNBOUND,
458     SG_UNBOUND,
459     SG_UNBOUND,
460     SG_UNBOUND,
461     SG_UNBOUND,
462     SG_UNBOUND,
463     SG_UNBOUND,
464     SG_UNBOUND,
465     SG_UNBOUND,
466     SG_UNBOUND,
467     SG_UNBOUND,
468     SG_UNBOUND,
469     SG_UNBOUND,
470     SG_UNBOUND,
471     SG_UNBOUND,
472     SG_UNBOUND,
473     SG_UNBOUND,
474     SG_UNBOUND,
475     SG_UNBOUND,
476     SG_UNBOUND,
477     SG_UNBOUND,
478     SG_UNBOUND,
479     SG_UNBOUND,
480     SG_UNBOUND,
481     SG_UNBOUND,
482     SG_UNBOUND,
483     SG_UNBOUND,
484     SG_UNBOUND,
485     SG_UNBOUND,
486     SG_UNBOUND,
487     SG_UNBOUND,
488     SG_UNBOUND,
489     SG_UNBOUND,
490     SG_UNBOUND,
491     SG_UNBOUND,
492     SG_UNBOUND,
493     SG_UNBOUND,
494     SG_UNBOUND,
495     SG_UNBOUND,
496     SG_UNBOUND,
497     SG_UNBOUND,
498     SG_UNBOUND,
499     SG_UNBOUND,
500     SG_UNBOUND,
501     SG_UNBOUND,
502     SG_UNBOUND,
503     SG_UNBOUND,
504     SG_UNBOUND,
505     SG_UNBOUND,
506     SG_UNBOUND,
507     SG_UNBOUND,
508     SG_UNBOUND,
509     SG_UNBOUND,
510     SG_UNBOUND,
511     SG_UNBOUND,
512     SG_UNBOUND,
513     SG_UNBOUND,
514     SG_UNBOUND,
515     SG_UNBOUND,
516     SG_UNBOUND,
517     SG_UNBOUND,
518     SG_UNBOUND,
519     SG_UNBOUND,
520     SG_UNBOUND,
521     SG_UNBOUND,
522     SG_UNBOUND,
523     SG_UNBOUND,
524     SG_UNBOUND,
525     SG_UNBOUND,
526     SG_UNBOUND,
527     SG_UNBOUND,
528     SG_UNBOUND,
529     SG_UNBOUND,
530     SG_UNBOUND,
531     SG_UNBOUND,
532     SG_UNBOUND,
533     SG_UNBOUND,
534     SG_UNBOUND,
535     SG_UNBOUND,
536     SG_UNBOUND,
537     SG_UNBOUND,
538     SG_UNBOUND,
539     SG_UNBOUND,
540     SG_UNBOUND,
541     SG_UNBOUND,
542     SG_UNBOUND,
543     SG_UNBOUND,
544     SG_UNBOUND,
545     SG_UNBOUND,
546     SG_UNBOUND,
547     SG_UNBOUND,
548     SG_UNBOUND,
549     SG_UNBOUND,
550     SG_UNBOUND,
551     SG_UNBOUND,
552     SG_UNBOUND,
553     SG_UNBOUND,
554     SG_UNBOUND,
555     SG_UNBOUND,
556     SG_UNBOUND,
557     SG_UNBOUND,
558     SG_UNBOUND,
559     SG_UNBOUND,
560     SG_UNBOUND,
561     SG_UNBOUND,
562     SG_UNBOUND,
563     SG_UNBOUND,
564     SG_UNBOUND,
565     SG_UNBOUND,
566     SG_UNBOUND,
567     SG_UNBOUND,
568     SG_UNBOUND,
569     SG_UNBOUND,
570     SG_UNBOUND,
571     SG_UNBOUND,
572     SG_UNBOUND,
573     SG_UNBOUND,
574     SG_UNBOUND,
575     SG_UNBOUND,
576     SG_UNBOUND,
577     SG_UNBOUND,
578     SG_UNBOUND,
579     SG_UNBOUND,
580     SG_UNBOUND,
581     SG_UNBOUND,
582     SG_UNBOUND,
583     SG_UNBOUND,
584     SG_UNBOUND,
585     SG_UNBOUND,
586     SG_UNBOUND,
587     SG_UNBOUND,
588     SG_UNBOUND,
589     SG_UNBOUND,
590     SG_UNBOUND,
591     SG_UNBOUND,
592     SG_UNBOUND,
593     SG_UNBOUND,
594     SG_UNBOUND,
595     SG_UNBOUND,
596     SG_UNBOUND,
597     SG_UNBOUND,
598     SG_UNBOUND,
599     SG_UNBOUND,
600     SG_UNBOUND,
601     SG_UNBOUND,
602     SG_UNBOUND,
603     SG_UNBOUND,
604     SG_UNBOUND,
605     SG_UNBOUND,
606     SG_UNBOUND,
607     SG_UNBOUND,
608     SG_UNBOUND,
609     SG_UNBOUND,
610     SG_UNBOUND,
611     SG_UNBOUND,
612   },
613 };
core_booleanP(SgObject * SG_FP,int SG_ARGC,void * data_)614 static SgObject core_booleanP(SgObject *SG_FP, int SG_ARGC, void *data_)
615 {
616   SgObject o_scm;
617   SgObject o;
618   SG_ENTER_SUBR("boolean?");
619   if (SG_ARGC != 1)
620     Sg_WrongNumberOfArgumentsViolation(
621      SG_INTERN("boolean?"), 1, SG_ARGC, SG_NIL);
622   o_scm = SG_ARGREF(0);
623   o = (o_scm);
624   {
625 {
626 int SG_RESULT = (int)FALSE;
627 SG_RESULT=(SG_BOOLP(o));
628 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
629 }
630   }
631 }
632 static SG_DEFINE_SUBR(core_booleanP__STUB, 1, 0,core_booleanP, SG_FALSE, NULL);
633 
core_pairP(SgObject * SG_FP,int SG_ARGC,void * data_)634 static SgObject core_pairP(SgObject *SG_FP, int SG_ARGC, void *data_)
635 {
636   SgObject o_scm;
637   SgObject o;
638   SG_ENTER_SUBR("pair?");
639   if (SG_ARGC != 1)
640     Sg_WrongNumberOfArgumentsViolation(
641      SG_INTERN("pair?"), 1, SG_ARGC, SG_NIL);
642   o_scm = SG_ARGREF(0);
643   o = (o_scm);
644   {
645 {
646 int SG_RESULT = (int)FALSE;
647 SG_RESULT=(SG_PAIRP(o));
648 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
649 }
650   }
651 }
652 static SG_DEFINE_SUBR(core_pairP__STUB, 1, 0,core_pairP, SG_MAKE_INT(PAIRP), NULL);
653 
core_symbolP(SgObject * SG_FP,int SG_ARGC,void * data_)654 static SgObject core_symbolP(SgObject *SG_FP, int SG_ARGC, void *data_)
655 {
656   SgObject o_scm;
657   SgObject o;
658   SG_ENTER_SUBR("symbol?");
659   if (SG_ARGC != 1)
660     Sg_WrongNumberOfArgumentsViolation(
661      SG_INTERN("symbol?"), 1, SG_ARGC, SG_NIL);
662   o_scm = SG_ARGREF(0);
663   o = (o_scm);
664   {
665 {
666 int SG_RESULT = (int)FALSE;
667 SG_RESULT=(SG_SYMBOLP(o));
668 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
669 }
670   }
671 }
672 static SG_DEFINE_SUBR(core_symbolP__STUB, 1, 0,core_symbolP, SG_MAKE_INT(SYMBOLP), NULL);
673 
core_numberP(SgObject * SG_FP,int SG_ARGC,void * data_)674 static SgObject core_numberP(SgObject *SG_FP, int SG_ARGC, void *data_)
675 {
676   SgObject o_scm;
677   SgObject o;
678   SG_ENTER_SUBR("number?");
679   if (SG_ARGC != 1)
680     Sg_WrongNumberOfArgumentsViolation(
681      SG_INTERN("number?"), 1, SG_ARGC, SG_NIL);
682   o_scm = SG_ARGREF(0);
683   o = (o_scm);
684   {
685 {
686 int SG_RESULT = (int)FALSE;
687 SG_RESULT=(SG_NUMBERP(o));
688 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
689 }
690   }
691 }
692 static SG_DEFINE_SUBR(core_numberP__STUB, 1, 0,core_numberP, SG_FALSE, NULL);
693 
core_charP(SgObject * SG_FP,int SG_ARGC,void * data_)694 static SgObject core_charP(SgObject *SG_FP, int SG_ARGC, void *data_)
695 {
696   SgObject o_scm;
697   SgObject o;
698   SG_ENTER_SUBR("char?");
699   if (SG_ARGC != 1)
700     Sg_WrongNumberOfArgumentsViolation(
701      SG_INTERN("char?"), 1, SG_ARGC, SG_NIL);
702   o_scm = SG_ARGREF(0);
703   o = (o_scm);
704   {
705 {
706 int SG_RESULT = (int)FALSE;
707 SG_RESULT=(SG_CHARP(o));
708 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
709 }
710   }
711 }
712 static SG_DEFINE_SUBR(core_charP__STUB, 1, 0,core_charP, SG_FALSE, NULL);
713 
core_stringP(SgObject * SG_FP,int SG_ARGC,void * data_)714 static SgObject core_stringP(SgObject *SG_FP, int SG_ARGC, void *data_)
715 {
716   SgObject o_scm;
717   SgObject o;
718   SG_ENTER_SUBR("string?");
719   if (SG_ARGC != 1)
720     Sg_WrongNumberOfArgumentsViolation(
721      SG_INTERN("string?"), 1, SG_ARGC, SG_NIL);
722   o_scm = SG_ARGREF(0);
723   o = (o_scm);
724   {
725 {
726 int SG_RESULT = (int)FALSE;
727 SG_RESULT=(SG_STRINGP(o));
728 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
729 }
730   }
731 }
732 static SG_DEFINE_SUBR(core_stringP__STUB, 1, 0,core_stringP, SG_FALSE, NULL);
733 
core_vectorP(SgObject * SG_FP,int SG_ARGC,void * data_)734 static SgObject core_vectorP(SgObject *SG_FP, int SG_ARGC, void *data_)
735 {
736   SgObject o_scm;
737   SgObject o;
738   SG_ENTER_SUBR("vector?");
739   if (SG_ARGC != 1)
740     Sg_WrongNumberOfArgumentsViolation(
741      SG_INTERN("vector?"), 1, SG_ARGC, SG_NIL);
742   o_scm = SG_ARGREF(0);
743   o = (o_scm);
744   {
745 {
746 int SG_RESULT = (int)FALSE;
747 SG_RESULT=(SG_VECTORP(o));
748 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
749 }
750   }
751 }
752 static SG_DEFINE_SUBR(core_vectorP__STUB, 1, 0,core_vectorP, SG_MAKE_INT(VECTORP), NULL);
753 
core_procedureP(SgObject * SG_FP,int SG_ARGC,void * data_)754 static SgObject core_procedureP(SgObject *SG_FP, int SG_ARGC, void *data_)
755 {
756   SgObject o_scm;
757   SgObject o;
758   SG_ENTER_SUBR("procedure?");
759   if (SG_ARGC != 1)
760     Sg_WrongNumberOfArgumentsViolation(
761      SG_INTERN("procedure?"), 1, SG_ARGC, SG_NIL);
762   o_scm = SG_ARGREF(0);
763   o = (o_scm);
764   {
765 {
766 int SG_RESULT = (int)FALSE;
767 SG_RESULT=(SG_PROCEDUREP(o));
768 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
769 }
770   }
771 }
772 static SG_DEFINE_SUBR(core_procedureP__STUB, 1, 0,core_procedureP, SG_FALSE, NULL);
773 
core_nullP(SgObject * SG_FP,int SG_ARGC,void * data_)774 static SgObject core_nullP(SgObject *SG_FP, int SG_ARGC, void *data_)
775 {
776   SgObject o_scm;
777   SgObject o;
778   SG_ENTER_SUBR("null?");
779   if (SG_ARGC != 1)
780     Sg_WrongNumberOfArgumentsViolation(
781      SG_INTERN("null?"), 1, SG_ARGC, SG_NIL);
782   o_scm = SG_ARGREF(0);
783   o = (o_scm);
784   {
785 {
786 int SG_RESULT = (int)FALSE;
787 SG_RESULT=(SG_NULLP(o));
788 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
789 }
790   }
791 }
792 static SG_DEFINE_SUBR(core_nullP__STUB, 1, 0,core_nullP, SG_MAKE_INT(NULLP), NULL);
793 
core_complexP(SgObject * SG_FP,int SG_ARGC,void * data_)794 static SgObject core_complexP(SgObject *SG_FP, int SG_ARGC, void *data_)
795 {
796   SgObject o_scm;
797   SgObject o;
798   SG_ENTER_SUBR("complex?");
799   if (SG_ARGC != 1)
800     Sg_WrongNumberOfArgumentsViolation(
801      SG_INTERN("complex?"), 1, SG_ARGC, SG_NIL);
802   o_scm = SG_ARGREF(0);
803   o = (o_scm);
804   {
805 {
806 int SG_RESULT = (int)FALSE;
807 SG_RESULT=(SG_NUMBERP(o));
808 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
809 }
810   }
811 }
812 static SG_DEFINE_SUBR(core_complexP__STUB, 1, 0,core_complexP, SG_FALSE, NULL);
813 
core_realP(SgObject * SG_FP,int SG_ARGC,void * data_)814 static SgObject core_realP(SgObject *SG_FP, int SG_ARGC, void *data_)
815 {
816   SgObject o_scm;
817   SgObject o;
818   SG_ENTER_SUBR("real?");
819   if (SG_ARGC != 1)
820     Sg_WrongNumberOfArgumentsViolation(
821      SG_INTERN("real?"), 1, SG_ARGC, SG_NIL);
822   o_scm = SG_ARGREF(0);
823   o = (o_scm);
824   {
825 {
826 int SG_RESULT = (int)FALSE;
827 SG_RESULT=(SG_REALP(o));
828 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
829 }
830   }
831 }
832 static SG_DEFINE_SUBR(core_realP__STUB, 1, 0,core_realP, SG_FALSE, NULL);
833 
core_rationalP(SgObject * SG_FP,int SG_ARGC,void * data_)834 static SgObject core_rationalP(SgObject *SG_FP, int SG_ARGC, void *data_)
835 {
836   SgObject o_scm;
837   SgObject o;
838   SG_ENTER_SUBR("rational?");
839   if (SG_ARGC != 1)
840     Sg_WrongNumberOfArgumentsViolation(
841      SG_INTERN("rational?"), 1, SG_ARGC, SG_NIL);
842   o_scm = SG_ARGREF(0);
843   o = (o_scm);
844   {
845 {
846 int SG_RESULT = (int)FALSE;
847 SG_RESULT=(Sg_RationalP(o));
848 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
849 }
850   }
851 }
852 static SG_DEFINE_SUBR(core_rationalP__STUB, 1, 0,core_rationalP, SG_FALSE, NULL);
853 
core_integerP(SgObject * SG_FP,int SG_ARGC,void * data_)854 static SgObject core_integerP(SgObject *SG_FP, int SG_ARGC, void *data_)
855 {
856   SgObject o_scm;
857   SgObject o;
858   SG_ENTER_SUBR("integer?");
859   if (SG_ARGC != 1)
860     Sg_WrongNumberOfArgumentsViolation(
861      SG_INTERN("integer?"), 1, SG_ARGC, SG_NIL);
862   o_scm = SG_ARGREF(0);
863   o = (o_scm);
864   {
865 {
866 int SG_RESULT = (int)FALSE;
867 SG_RESULT=(Sg_IntegerP(o));
868 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
869 }
870   }
871 }
872 static SG_DEFINE_SUBR(core_integerP__STUB, 1, 0,core_integerP, SG_FALSE, NULL);
873 
core_real_valuedP(SgObject * SG_FP,int SG_ARGC,void * data_)874 static SgObject core_real_valuedP(SgObject *SG_FP, int SG_ARGC, void *data_)
875 {
876   SgObject o_scm;
877   SgObject o;
878   SG_ENTER_SUBR("real-valued?");
879   if (SG_ARGC != 1)
880     Sg_WrongNumberOfArgumentsViolation(
881      SG_INTERN("real-valued?"), 1, SG_ARGC, SG_NIL);
882   o_scm = SG_ARGREF(0);
883   o = (o_scm);
884   {
885 {
886 int SG_RESULT = (int)FALSE;
887 SG_RESULT=(Sg_RealValuedP(o));
888 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
889 }
890   }
891 }
892 static SG_DEFINE_SUBR(core_real_valuedP__STUB, 1, 0,core_real_valuedP, SG_FALSE, NULL);
893 
core_rational_valuedP(SgObject * SG_FP,int SG_ARGC,void * data_)894 static SgObject core_rational_valuedP(SgObject *SG_FP, int SG_ARGC, void *data_)
895 {
896   SgObject o_scm;
897   SgObject o;
898   SG_ENTER_SUBR("rational-valued?");
899   if (SG_ARGC != 1)
900     Sg_WrongNumberOfArgumentsViolation(
901      SG_INTERN("rational-valued?"), 1, SG_ARGC, SG_NIL);
902   o_scm = SG_ARGREF(0);
903   o = (o_scm);
904   {
905 {
906 int SG_RESULT = (int)FALSE;
907 SG_RESULT=(Sg_RationalValuedP(o));
908 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
909 }
910   }
911 }
912 static SG_DEFINE_SUBR(core_rational_valuedP__STUB, 1, 0,core_rational_valuedP, SG_FALSE, NULL);
913 
core_integer_valuedP(SgObject * SG_FP,int SG_ARGC,void * data_)914 static SgObject core_integer_valuedP(SgObject *SG_FP, int SG_ARGC, void *data_)
915 {
916   SgObject o_scm;
917   SgObject o;
918   SG_ENTER_SUBR("integer-valued?");
919   if (SG_ARGC != 1)
920     Sg_WrongNumberOfArgumentsViolation(
921      SG_INTERN("integer-valued?"), 1, SG_ARGC, SG_NIL);
922   o_scm = SG_ARGREF(0);
923   o = (o_scm);
924   {
925 {
926 int SG_RESULT = (int)FALSE;
927 SG_RESULT=(Sg_IntegerValuedP(o));
928 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
929 }
930   }
931 }
932 static SG_DEFINE_SUBR(core_integer_valuedP__STUB, 1, 0,core_integer_valuedP, SG_FALSE, NULL);
933 
core_exactP(SgObject * SG_FP,int SG_ARGC,void * data_)934 static SgObject core_exactP(SgObject *SG_FP, int SG_ARGC, void *data_)
935 {
936   SgObject o_scm;
937   SgObject o;
938   SG_ENTER_SUBR("exact?");
939   if (SG_ARGC != 1)
940     Sg_WrongNumberOfArgumentsViolation(
941      SG_INTERN("exact?"), 1, SG_ARGC, SG_NIL);
942   o_scm = SG_ARGREF(0);
943   o = (o_scm);
944   {
945 {
946 int SG_RESULT = (int)FALSE;
947 SG_RESULT=(Sg_ExactP(o));
948 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
949 }
950   }
951 }
952 static SG_DEFINE_SUBR(core_exactP__STUB, 1, 0,core_exactP, SG_FALSE, NULL);
953 
core_inexactP(SgObject * SG_FP,int SG_ARGC,void * data_)954 static SgObject core_inexactP(SgObject *SG_FP, int SG_ARGC, void *data_)
955 {
956   SgObject o_scm;
957   SgObject o;
958   SG_ENTER_SUBR("inexact?");
959   if (SG_ARGC != 1)
960     Sg_WrongNumberOfArgumentsViolation(
961      SG_INTERN("inexact?"), 1, SG_ARGC, SG_NIL);
962   o_scm = SG_ARGREF(0);
963   o = (o_scm);
964   {
965 {
966 int SG_RESULT = (int)FALSE;
967 SG_RESULT=(Sg_InexactP(o));
968 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
969 }
970   }
971 }
972 static SG_DEFINE_SUBR(core_inexactP__STUB, 1, 0,core_inexactP, SG_FALSE, NULL);
973 
core_inexact(SgObject * SG_FP,int SG_ARGC,void * data_)974 static SgObject core_inexact(SgObject *SG_FP, int SG_ARGC, void *data_)
975 {
976   SgObject z_scm;
977   SgObject z;
978   SG_ENTER_SUBR("inexact");
979   if (SG_ARGC != 1)
980     Sg_WrongNumberOfArgumentsViolation(
981      SG_INTERN("inexact"), 1, SG_ARGC, SG_NIL);
982   z_scm = SG_ARGREF(0);
983   if (!SG_NUMBERP(z_scm))
984     Sg_WrongTypeOfArgumentViolation(
985        sg__rc_cgen9166.d9486[18], SG_MAKE_STRING("number"), z_scm, SG_NIL);
986   z = (z_scm);
987   {
988 {
989 SgObject SG_RESULT = (SgObject)NULL;
990 SG_RESULT=(Sg_Inexact(z));
991 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
992 }
993   }
994 }
995 static SG_DEFINE_SUBR(core_inexact__STUB, 1, 0,core_inexact, SG_FALSE, NULL);
996 
core_exact(SgObject * SG_FP,int SG_ARGC,void * data_)997 static SgObject core_exact(SgObject *SG_FP, int SG_ARGC, void *data_)
998 {
999   SgObject z_scm;
1000   SgObject z;
1001   SG_ENTER_SUBR("exact");
1002   if (SG_ARGC != 1)
1003     Sg_WrongNumberOfArgumentsViolation(
1004      SG_INTERN("exact"), 1, SG_ARGC, SG_NIL);
1005   z_scm = SG_ARGREF(0);
1006   if (!SG_NUMBERP(z_scm))
1007     Sg_WrongTypeOfArgumentViolation(
1008        sg__rc_cgen9166.d9486[19], SG_MAKE_STRING("number"), z_scm, SG_NIL);
1009   z = (z_scm);
1010   {
1011 {
1012 SgObject SG_RESULT = (SgObject)NULL;
1013 SG_RESULT=(Sg_Exact(z));
1014 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1015 }
1016   }
1017 }
1018 static SG_DEFINE_SUBR(core_exact__STUB, 1, 0,core_exact, SG_FALSE, NULL);
1019 
core__3d(SgObject * SG_FP,int SG_ARGC,void * data_)1020 static SgObject core__3d(SgObject *SG_FP, int SG_ARGC, void *data_)
1021 {
1022   SgObject arg0_scm;
1023   SgObject arg0;
1024   SgObject arg1_scm;
1025   SgObject arg1;
1026   SgObject rest_scm;
1027   SgObject rest;
1028   SG_ENTER_SUBR("=");
1029   if (SG_ARGC < 2)
1030     Sg_WrongNumberOfArgumentsAtLeastViolation(
1031      SG_INTERN("="), 2, SG_ARGC, SG_NIL);
1032   arg0_scm = SG_ARGREF(0);
1033   arg0 = (arg0_scm);
1034   arg1_scm = SG_ARGREF(1);
1035   arg1 = (arg1_scm);
1036   rest_scm = SG_ARGREF(SG_ARGC-1);
1037   rest = (rest_scm);
1038   {
1039 {
1040 int SG_RESULT = (int)FALSE;
1041 
1042 #line 105 "./lib_core.stub"
1043 SG_RESULT=(FALSE);
1044 
1045 #line 106 "./lib_core.stub"
1046 for (;;) {if ((!(Sg_NumEq(arg0,arg1)))){break;}else if(
1047 SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {
1048 arg0=(arg1);
1049 arg1=(SG_CAR(rest));
1050 rest=(SG_CDR(rest));}}
1051 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1052 }
1053   }
1054 }
1055 static SG_DEFINE_SUBR(core__3d__STUB, 2, 1,core__3d, SG_FALSE, NULL);
1056 
core__LT(SgObject * SG_FP,int SG_ARGC,void * data_)1057 static SgObject core__LT(SgObject *SG_FP, int SG_ARGC, void *data_)
1058 {
1059   SgObject arg0_scm;
1060   SgObject arg0;
1061   SgObject arg1_scm;
1062   SgObject arg1;
1063   SgObject rest_scm;
1064   SgObject rest;
1065   SG_ENTER_SUBR("<");
1066   if (SG_ARGC < 2)
1067     Sg_WrongNumberOfArgumentsAtLeastViolation(
1068      SG_INTERN("<"), 2, SG_ARGC, SG_NIL);
1069   arg0_scm = SG_ARGREF(0);
1070   arg0 = (arg0_scm);
1071   arg1_scm = SG_ARGREF(1);
1072   arg1 = (arg1_scm);
1073   rest_scm = SG_ARGREF(SG_ARGC-1);
1074   rest = (rest_scm);
1075   {
1076 {
1077 int SG_RESULT = (int)FALSE;
1078 
1079 #line 112 "./lib_core.stub"
1080 SG_RESULT=(FALSE);
1081 
1082 #line 113 "./lib_core.stub"
1083 for (;;) {if ((!((Sg_NumCmp(arg0,arg1))<(0)))){break;}else if(SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {arg0=(arg1);arg1=(SG_CAR(rest));rest=(SG_CDR(rest));}}
1084 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1085 }
1086   }
1087 }
1088 static SG_DEFINE_SUBR(core__LT__STUB, 2, 1,core__LT, SG_FALSE, NULL);
1089 
core__LT_3d(SgObject * SG_FP,int SG_ARGC,void * data_)1090 static SgObject core__LT_3d(SgObject *SG_FP, int SG_ARGC, void *data_)
1091 {
1092   SgObject arg0_scm;
1093   SgObject arg0;
1094   SgObject arg1_scm;
1095   SgObject arg1;
1096   SgObject rest_scm;
1097   SgObject rest;
1098   SG_ENTER_SUBR("<=");
1099   if (SG_ARGC < 2)
1100     Sg_WrongNumberOfArgumentsAtLeastViolation(
1101      SG_INTERN("<="), 2, SG_ARGC, SG_NIL);
1102   arg0_scm = SG_ARGREF(0);
1103   arg0 = (arg0_scm);
1104   arg1_scm = SG_ARGREF(1);
1105   arg1 = (arg1_scm);
1106   rest_scm = SG_ARGREF(SG_ARGC-1);
1107   rest = (rest_scm);
1108   {
1109 {
1110 int SG_RESULT = (int)FALSE;
1111 
1112 #line 115 "./lib_core.stub"
1113 SG_RESULT=(FALSE);
1114 
1115 #line 116 "./lib_core.stub"
1116 for (;;) {if ((!((Sg_NumCmp(arg0,arg1))<=(0)))){break;}else if(SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {arg0=(arg1);arg1=(SG_CAR(rest));rest=(SG_CDR(rest));}}
1117 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1118 }
1119   }
1120 }
1121 static SG_DEFINE_SUBR(core__LT_3d__STUB, 2, 1,core__LT_3d, SG_FALSE, NULL);
1122 
core__GT(SgObject * SG_FP,int SG_ARGC,void * data_)1123 static SgObject core__GT(SgObject *SG_FP, int SG_ARGC, void *data_)
1124 {
1125   SgObject arg0_scm;
1126   SgObject arg0;
1127   SgObject arg1_scm;
1128   SgObject arg1;
1129   SgObject rest_scm;
1130   SgObject rest;
1131   SG_ENTER_SUBR(">");
1132   if (SG_ARGC < 2)
1133     Sg_WrongNumberOfArgumentsAtLeastViolation(
1134      SG_INTERN(">"), 2, SG_ARGC, SG_NIL);
1135   arg0_scm = SG_ARGREF(0);
1136   arg0 = (arg0_scm);
1137   arg1_scm = SG_ARGREF(1);
1138   arg1 = (arg1_scm);
1139   rest_scm = SG_ARGREF(SG_ARGC-1);
1140   rest = (rest_scm);
1141   {
1142 {
1143 int SG_RESULT = (int)FALSE;
1144 
1145 #line 118 "./lib_core.stub"
1146 SG_RESULT=(FALSE);
1147 
1148 #line 119 "./lib_core.stub"
1149 for (;;) {if ((!((Sg_NumCmp(arg0,arg1))>(0)))){break;}else if(SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {arg0=(arg1);arg1=(SG_CAR(rest));rest=(SG_CDR(rest));}}
1150 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1151 }
1152   }
1153 }
1154 static SG_DEFINE_SUBR(core__GT__STUB, 2, 1,core__GT, SG_FALSE, NULL);
1155 
core__GT_3d(SgObject * SG_FP,int SG_ARGC,void * data_)1156 static SgObject core__GT_3d(SgObject *SG_FP, int SG_ARGC, void *data_)
1157 {
1158   SgObject arg0_scm;
1159   SgObject arg0;
1160   SgObject arg1_scm;
1161   SgObject arg1;
1162   SgObject rest_scm;
1163   SgObject rest;
1164   SG_ENTER_SUBR(">=");
1165   if (SG_ARGC < 2)
1166     Sg_WrongNumberOfArgumentsAtLeastViolation(
1167      SG_INTERN(">="), 2, SG_ARGC, SG_NIL);
1168   arg0_scm = SG_ARGREF(0);
1169   arg0 = (arg0_scm);
1170   arg1_scm = SG_ARGREF(1);
1171   arg1 = (arg1_scm);
1172   rest_scm = SG_ARGREF(SG_ARGC-1);
1173   rest = (rest_scm);
1174   {
1175 {
1176 int SG_RESULT = (int)FALSE;
1177 
1178 #line 121 "./lib_core.stub"
1179 SG_RESULT=(FALSE);
1180 
1181 #line 122 "./lib_core.stub"
1182 for (;;) {if ((!((Sg_NumCmp(arg0,arg1))>=(0)))){break;}else if(SG_NULLP(rest)){SG_RESULT=(TRUE);break;} else {arg0=(arg1);arg1=(SG_CAR(rest));rest=(SG_CDR(rest));}}
1183 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1184 }
1185   }
1186 }
1187 static SG_DEFINE_SUBR(core__GT_3d__STUB, 2, 1,core__GT_3d, SG_FALSE, NULL);
1188 
core_zeroP(SgObject * SG_FP,int SG_ARGC,void * data_)1189 static SgObject core_zeroP(SgObject *SG_FP, int SG_ARGC, void *data_)
1190 {
1191   SgObject n_scm;
1192   SgObject n;
1193   SG_ENTER_SUBR("zero?");
1194   if (SG_ARGC != 1)
1195     Sg_WrongNumberOfArgumentsViolation(
1196      SG_INTERN("zero?"), 1, SG_ARGC, SG_NIL);
1197   n_scm = SG_ARGREF(0);
1198   if (!SG_NUMBERP(n_scm))
1199     Sg_WrongTypeOfArgumentViolation(
1200        sg__rc_cgen9166.d9486[25], SG_MAKE_STRING("number"), n_scm, SG_NIL);
1201   n = (n_scm);
1202   {
1203 {
1204 int SG_RESULT = (int)FALSE;
1205 SG_RESULT=(Sg_ZeroP(n));
1206 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1207 }
1208   }
1209 }
1210 static SG_DEFINE_SUBR(core_zeroP__STUB, 1, 0,core_zeroP, SG_FALSE, NULL);
1211 
core_positiveP(SgObject * SG_FP,int SG_ARGC,void * data_)1212 static SgObject core_positiveP(SgObject *SG_FP, int SG_ARGC, void *data_)
1213 {
1214   SgObject x_scm;
1215   SgObject x;
1216   SG_ENTER_SUBR("positive?");
1217   if (SG_ARGC != 1)
1218     Sg_WrongNumberOfArgumentsViolation(
1219      SG_INTERN("positive?"), 1, SG_ARGC, SG_NIL);
1220   x_scm = SG_ARGREF(0);
1221   if (!SG_NUMBERP(x_scm))
1222     Sg_WrongTypeOfArgumentViolation(
1223        sg__rc_cgen9166.d9486[26], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1224   x = (x_scm);
1225   {
1226 {
1227 int SG_RESULT = (int)FALSE;
1228 SG_RESULT=(Sg_PositiveP(x));
1229 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1230 }
1231   }
1232 }
1233 static SG_DEFINE_SUBR(core_positiveP__STUB, 1, 0,core_positiveP, SG_FALSE, NULL);
1234 
core_negativeP(SgObject * SG_FP,int SG_ARGC,void * data_)1235 static SgObject core_negativeP(SgObject *SG_FP, int SG_ARGC, void *data_)
1236 {
1237   SgObject x_scm;
1238   SgObject x;
1239   SG_ENTER_SUBR("negative?");
1240   if (SG_ARGC != 1)
1241     Sg_WrongNumberOfArgumentsViolation(
1242      SG_INTERN("negative?"), 1, SG_ARGC, SG_NIL);
1243   x_scm = SG_ARGREF(0);
1244   if (!SG_NUMBERP(x_scm))
1245     Sg_WrongTypeOfArgumentViolation(
1246        sg__rc_cgen9166.d9486[27], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1247   x = (x_scm);
1248   {
1249 {
1250 int SG_RESULT = (int)FALSE;
1251 SG_RESULT=(Sg_NegativeP(x));
1252 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1253 }
1254   }
1255 }
1256 static SG_DEFINE_SUBR(core_negativeP__STUB, 1, 0,core_negativeP, SG_FALSE, NULL);
1257 
core_oddP(SgObject * SG_FP,int SG_ARGC,void * data_)1258 static SgObject core_oddP(SgObject *SG_FP, int SG_ARGC, void *data_)
1259 {
1260   SgObject x_scm;
1261   SgObject x;
1262   SG_ENTER_SUBR("odd?");
1263   if (SG_ARGC != 1)
1264     Sg_WrongNumberOfArgumentsViolation(
1265      SG_INTERN("odd?"), 1, SG_ARGC, SG_NIL);
1266   x_scm = SG_ARGREF(0);
1267   if (!SG_NUMBERP(x_scm))
1268     Sg_WrongTypeOfArgumentViolation(
1269        sg__rc_cgen9166.d9486[28], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1270   x = (x_scm);
1271   {
1272 {
1273 int SG_RESULT = (int)FALSE;
1274 SG_RESULT=(Sg_OddP(x));
1275 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1276 }
1277   }
1278 }
1279 static SG_DEFINE_SUBR(core_oddP__STUB, 1, 0,core_oddP, SG_FALSE, NULL);
1280 
core_evenP(SgObject * SG_FP,int SG_ARGC,void * data_)1281 static SgObject core_evenP(SgObject *SG_FP, int SG_ARGC, void *data_)
1282 {
1283   SgObject x_scm;
1284   SgObject x;
1285   SG_ENTER_SUBR("even?");
1286   if (SG_ARGC != 1)
1287     Sg_WrongNumberOfArgumentsViolation(
1288      SG_INTERN("even?"), 1, SG_ARGC, SG_NIL);
1289   x_scm = SG_ARGREF(0);
1290   if (!SG_NUMBERP(x_scm))
1291     Sg_WrongTypeOfArgumentViolation(
1292        sg__rc_cgen9166.d9486[29], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1293   x = (x_scm);
1294   {
1295 {
1296 int SG_RESULT = (int)FALSE;
1297 
1298 #line 129 "./lib_core.stub"
1299 SG_RESULT=((!(Sg_OddP(x))));
1300 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1301 }
1302   }
1303 }
1304 static SG_DEFINE_SUBR(core_evenP__STUB, 1, 0,core_evenP, SG_FALSE, NULL);
1305 
core_finiteP(SgObject * SG_FP,int SG_ARGC,void * data_)1306 static SgObject core_finiteP(SgObject *SG_FP, int SG_ARGC, void *data_)
1307 {
1308   SgObject x_scm;
1309   SgObject x;
1310   SG_ENTER_SUBR("finite?");
1311   if (SG_ARGC != 1)
1312     Sg_WrongNumberOfArgumentsViolation(
1313      SG_INTERN("finite?"), 1, SG_ARGC, SG_NIL);
1314   x_scm = SG_ARGREF(0);
1315   if (!SG_NUMBERP(x_scm))
1316     Sg_WrongTypeOfArgumentViolation(
1317        sg__rc_cgen9166.d9486[30], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1318   x = (x_scm);
1319   {
1320 {
1321 int SG_RESULT = (int)FALSE;
1322 SG_RESULT=(Sg_FiniteP(x));
1323 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1324 }
1325   }
1326 }
1327 static SG_DEFINE_SUBR(core_finiteP__STUB, 1, 0,core_finiteP, SG_FALSE, NULL);
1328 
core_infiniteP(SgObject * SG_FP,int SG_ARGC,void * data_)1329 static SgObject core_infiniteP(SgObject *SG_FP, int SG_ARGC, void *data_)
1330 {
1331   SgObject x_scm;
1332   SgObject x;
1333   SG_ENTER_SUBR("infinite?");
1334   if (SG_ARGC != 1)
1335     Sg_WrongNumberOfArgumentsViolation(
1336      SG_INTERN("infinite?"), 1, SG_ARGC, SG_NIL);
1337   x_scm = SG_ARGREF(0);
1338   if (!SG_NUMBERP(x_scm))
1339     Sg_WrongTypeOfArgumentViolation(
1340        sg__rc_cgen9166.d9486[31], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1341   x = (x_scm);
1342   {
1343 {
1344 int SG_RESULT = (int)FALSE;
1345 SG_RESULT=(Sg_InfiniteP(x));
1346 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1347 }
1348   }
1349 }
1350 static SG_DEFINE_SUBR(core_infiniteP__STUB, 1, 0,core_infiniteP, SG_FALSE, NULL);
1351 
core_nanP(SgObject * SG_FP,int SG_ARGC,void * data_)1352 static SgObject core_nanP(SgObject *SG_FP, int SG_ARGC, void *data_)
1353 {
1354   SgObject x_scm;
1355   SgObject x;
1356   SG_ENTER_SUBR("nan?");
1357   if (SG_ARGC != 1)
1358     Sg_WrongNumberOfArgumentsViolation(
1359      SG_INTERN("nan?"), 1, SG_ARGC, SG_NIL);
1360   x_scm = SG_ARGREF(0);
1361   if (!SG_NUMBERP(x_scm))
1362     Sg_WrongTypeOfArgumentViolation(
1363        sg__rc_cgen9166.d9486[32], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1364   x = (x_scm);
1365   {
1366 {
1367 int SG_RESULT = (int)FALSE;
1368 SG_RESULT=(Sg_NanP(x));
1369 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
1370 }
1371   }
1372 }
1373 static SG_DEFINE_SUBR(core_nanP__STUB, 1, 0,core_nanP, SG_FALSE, NULL);
1374 
core_max(SgObject * SG_FP,int SG_ARGC,void * data_)1375 static SgObject core_max(SgObject *SG_FP, int SG_ARGC, void *data_)
1376 {
1377   SgObject arg0_scm;
1378   SgObject arg0;
1379   SgObject rest_scm;
1380   SgObject rest;
1381   SG_ENTER_SUBR("max");
1382   if (SG_ARGC < 1)
1383     Sg_WrongNumberOfArgumentsAtLeastViolation(
1384      SG_INTERN("max"), 1, SG_ARGC, SG_NIL);
1385   arg0_scm = SG_ARGREF(0);
1386   arg0 = (arg0_scm);
1387   rest_scm = SG_ARGREF(SG_ARGC-1);
1388   rest = (rest_scm);
1389   {
1390 {
1391 SgObject SG_RESULT = (SgObject)NULL;
1392 
1393 #line 135 "./lib_core.stub"
1394 Sg_MinMax(arg0,rest,NULL,(&(SG_RESULT)));
1395 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1396 }
1397   }
1398 }
1399 static SG_DEFINE_SUBR(core_max__STUB, 1, 1,core_max, SG_FALSE, NULL);
1400 
core_min(SgObject * SG_FP,int SG_ARGC,void * data_)1401 static SgObject core_min(SgObject *SG_FP, int SG_ARGC, void *data_)
1402 {
1403   SgObject arg0_scm;
1404   SgObject arg0;
1405   SgObject rest_scm;
1406   SgObject rest;
1407   SG_ENTER_SUBR("min");
1408   if (SG_ARGC < 1)
1409     Sg_WrongNumberOfArgumentsAtLeastViolation(
1410      SG_INTERN("min"), 1, SG_ARGC, SG_NIL);
1411   arg0_scm = SG_ARGREF(0);
1412   arg0 = (arg0_scm);
1413   rest_scm = SG_ARGREF(SG_ARGC-1);
1414   rest = (rest_scm);
1415   {
1416 {
1417 SgObject SG_RESULT = (SgObject)NULL;
1418 
1419 #line 137 "./lib_core.stub"
1420 Sg_MinMax(arg0,rest,(&(SG_RESULT)),NULL);
1421 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1422 }
1423   }
1424 }
1425 static SG_DEFINE_SUBR(core_min__STUB, 1, 1,core_min, SG_FALSE, NULL);
1426 
core__2b(SgObject * SG_FP,int SG_ARGC,void * data_)1427 static SgObject core__2b(SgObject *SG_FP, int SG_ARGC, void *data_)
1428 {
1429   SgObject rest_scm;
1430   SgObject rest;
1431   SG_ENTER_SUBR("+");
1432   if (SG_ARGC < 0)
1433     Sg_WrongNumberOfArgumentsAtLeastViolation(
1434      SG_INTERN("+"), 0, SG_ARGC, SG_NIL);
1435   rest_scm = SG_ARGREF(SG_ARGC-1);
1436   rest = (rest_scm);
1437   {
1438 {
1439 SgObject SG_RESULT = (SgObject)NULL;
1440 SgObject cise__9580;
1441 #line 147 "./lib_core.stub"
1442 if ((!(SG_PAIRP(rest)))){SG_RESULT=(SG_MAKE_INT(0));}else if(
1443 (!(SG_NUMBERP(SG_CAR(rest))))){
1444 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[36],SG_MAKE_STRING("number"),SG_CAR(rest),rest);}
1445 SG_RESULT=(SG_UNDEF);} else {
1446 #line 152 "./lib_core.stub"
1447 {SgObject r=SG_CAR(rest);
1448 SG_FOR_EACH(cise__9580,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__9580);
1449 if ((!(SG_NUMBERP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[36],SG_MAKE_STRING("number"),v,SG_NIL);}}}
1450 r=(Sg_Add(r,v));}}
1451 SG_RESULT=(r);}}
1452 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1453 }
1454   }
1455 }
1456 static SG_DEFINE_SUBR(core__2b__STUB, 0, 1,core__2b, SG_FALSE, NULL);
1457 
core__2a(SgObject * SG_FP,int SG_ARGC,void * data_)1458 static SgObject core__2a(SgObject *SG_FP, int SG_ARGC, void *data_)
1459 {
1460   SgObject rest_scm;
1461   SgObject rest;
1462   SG_ENTER_SUBR("*");
1463   if (SG_ARGC < 0)
1464     Sg_WrongNumberOfArgumentsAtLeastViolation(
1465      SG_INTERN("*"), 0, SG_ARGC, SG_NIL);
1466   rest_scm = SG_ARGREF(SG_ARGC-1);
1467   rest = (rest_scm);
1468   {
1469 {
1470 SgObject SG_RESULT = (SgObject)NULL;
1471 SgObject cise__9581;
1472 #line 159 "./lib_core.stub"
1473 if ((!(SG_PAIRP(rest)))){SG_RESULT=(SG_MAKE_INT(1));}else if(
1474 (!(SG_NUMBERP(SG_CAR(rest))))){
1475 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[36],SG_MAKE_STRING("number"),SG_CAR(rest),rest);}
1476 SG_RESULT=(SG_UNDEF);} else {
1477 #line 164 "./lib_core.stub"
1478 {SgObject r=SG_CAR(rest);
1479 SG_FOR_EACH(cise__9581,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__9581);
1480 if ((!(SG_NUMBERP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[38],SG_MAKE_STRING("number"),v,SG_NIL);}}}
1481 r=(Sg_Mul(r,v));}}
1482 SG_RESULT=(r);}}
1483 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1484 }
1485   }
1486 }
1487 static SG_DEFINE_SUBR(core__2a__STUB, 0, 1,core__2a, SG_FALSE, NULL);
1488 
core__(SgObject * SG_FP,int SG_ARGC,void * data_)1489 static SgObject core__(SgObject *SG_FP, int SG_ARGC, void *data_)
1490 {
1491   SgObject arg1_scm;
1492   SgObject arg1;
1493   SgObject rest_scm;
1494   SgObject rest;
1495   SG_ENTER_SUBR("-");
1496   if (SG_ARGC < 1)
1497     Sg_WrongNumberOfArgumentsAtLeastViolation(
1498      SG_INTERN("-"), 1, SG_ARGC, SG_NIL);
1499   arg1_scm = SG_ARGREF(0);
1500   if (!SG_NUMBERP(arg1_scm))
1501     Sg_WrongTypeOfArgumentViolation(
1502        sg__rc_cgen9166.d9486[39], SG_MAKE_STRING("number"), arg1_scm, SG_NIL);
1503   arg1 = (arg1_scm);
1504   rest_scm = SG_ARGREF(SG_ARGC-1);
1505   rest = (rest_scm);
1506   {
1507 {
1508 SgObject SG_RESULT = (SgObject)NULL;
1509 SgObject cise__9582;
1510 #line 171 "./lib_core.stub"
1511 if (SG_NULLP(rest)){
1512 SG_RESULT=(Sg_Negate(arg1));} else {
1513 {
1514 SG_FOR_EACH(cise__9582,rest) {{SgObject v=SG_CAR(cise__9582);
1515 if ((!(SG_NUMBERP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[40],SG_MAKE_STRING("number"),v,SG_NIL);}}}
1516 arg1=(Sg_Sub(arg1,v));}}
1517 SG_RESULT=(arg1);}}
1518 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1519 }
1520   }
1521 }
1522 static SG_DEFINE_SUBR(core____STUB, 1, 1,core__, SG_FALSE, NULL);
1523 
core__2f(SgObject * SG_FP,int SG_ARGC,void * data_)1524 static SgObject core__2f(SgObject *SG_FP, int SG_ARGC, void *data_)
1525 {
1526   SgObject arg1_scm;
1527   SgObject arg1;
1528   SgObject rest_scm;
1529   SgObject rest;
1530   SG_ENTER_SUBR("/");
1531   if (SG_ARGC < 1)
1532     Sg_WrongNumberOfArgumentsAtLeastViolation(
1533      SG_INTERN("/"), 1, SG_ARGC, SG_NIL);
1534   arg1_scm = SG_ARGREF(0);
1535   if (!SG_NUMBERP(arg1_scm))
1536     Sg_WrongTypeOfArgumentViolation(
1537        sg__rc_cgen9166.d9486[41], SG_MAKE_STRING("number"), arg1_scm, SG_NIL);
1538   arg1 = (arg1_scm);
1539   rest_scm = SG_ARGREF(SG_ARGC-1);
1540   rest = (rest_scm);
1541   {
1542 {
1543 SgObject SG_RESULT = (SgObject)NULL;
1544 SgObject cise__9583;
1545 #line 180 "./lib_core.stub"
1546 if (SG_NULLP(rest)){
1547 SG_RESULT=(Sg_Inverse(arg1));} else {
1548 {int exact=Sg_ExactP(arg1);
1549 SG_FOR_EACH(cise__9583,rest) {{SgObject v=SG_CAR(cise__9583);
1550 if ((!(SG_NUMBERP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[42],SG_MAKE_STRING("number"),v,SG_NIL);}}}
1551 #line 187 "./lib_core.stub"
1552 if (exact){{exact=(Sg_ExactP(v));}}
1553 if ((exact)&&(Sg_ZeroP(v))){{
1554 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[42],SG_MAKE_STRING("undefined for 0"),Sg_Cons(arg1,rest));}}}
1555 arg1=(Sg_Div(arg1,v));}}
1556 SG_RESULT=(arg1);}}
1557 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1558 }
1559   }
1560 }
1561 static SG_DEFINE_SUBR(core__2f__STUB, 1, 1,core__2f, SG_FALSE, NULL);
1562 
core_abs(SgObject * SG_FP,int SG_ARGC,void * data_)1563 static SgObject core_abs(SgObject *SG_FP, int SG_ARGC, void *data_)
1564 {
1565   SgObject x_scm;
1566   SgObject x;
1567   SG_ENTER_SUBR("abs");
1568   if (SG_ARGC != 1)
1569     Sg_WrongNumberOfArgumentsViolation(
1570      SG_INTERN("abs"), 1, SG_ARGC, SG_NIL);
1571   x_scm = SG_ARGREF(0);
1572   if (!SG_NUMBERP(x_scm))
1573     Sg_WrongTypeOfArgumentViolation(
1574        sg__rc_cgen9166.d9486[43], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1575   x = (x_scm);
1576   {
1577 {
1578 SgObject SG_RESULT = (SgObject)NULL;
1579 SG_RESULT=(Sg_Abs(x));
1580 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1581 }
1582   }
1583 }
1584 static SG_DEFINE_SUBR(core_abs__STUB, 1, 0,core_abs, SG_FALSE, NULL);
1585 
core_numerator(SgObject * SG_FP,int SG_ARGC,void * data_)1586 static SgObject core_numerator(SgObject *SG_FP, int SG_ARGC, void *data_)
1587 {
1588   SgObject x_scm;
1589   SgObject x;
1590   SG_ENTER_SUBR("numerator");
1591   if (SG_ARGC != 1)
1592     Sg_WrongNumberOfArgumentsViolation(
1593      SG_INTERN("numerator"), 1, SG_ARGC, SG_NIL);
1594   x_scm = SG_ARGREF(0);
1595   if (!SG_NUMBERP(x_scm))
1596     Sg_WrongTypeOfArgumentViolation(
1597        sg__rc_cgen9166.d9486[44], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1598   x = (x_scm);
1599   {
1600 {
1601 SgObject SG_RESULT = (SgObject)NULL;
1602 SG_RESULT=(Sg_Numerator(x));
1603 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1604 }
1605   }
1606 }
1607 static SG_DEFINE_SUBR(core_numerator__STUB, 1, 0,core_numerator, SG_FALSE, NULL);
1608 
core_denominator(SgObject * SG_FP,int SG_ARGC,void * data_)1609 static SgObject core_denominator(SgObject *SG_FP, int SG_ARGC, void *data_)
1610 {
1611   SgObject x_scm;
1612   SgObject x;
1613   SG_ENTER_SUBR("denominator");
1614   if (SG_ARGC != 1)
1615     Sg_WrongNumberOfArgumentsViolation(
1616      SG_INTERN("denominator"), 1, SG_ARGC, SG_NIL);
1617   x_scm = SG_ARGREF(0);
1618   if (!SG_NUMBERP(x_scm))
1619     Sg_WrongTypeOfArgumentViolation(
1620        sg__rc_cgen9166.d9486[45], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1621   x = (x_scm);
1622   {
1623 {
1624 SgObject SG_RESULT = (SgObject)NULL;
1625 SG_RESULT=(Sg_Denominator(x));
1626 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1627 }
1628   }
1629 }
1630 static SG_DEFINE_SUBR(core_denominator__STUB, 1, 0,core_denominator, SG_FALSE, NULL);
1631 
core_floor(SgObject * SG_FP,int SG_ARGC,void * data_)1632 static SgObject core_floor(SgObject *SG_FP, int SG_ARGC, void *data_)
1633 {
1634   SgObject x_scm;
1635   SgObject x;
1636   SG_ENTER_SUBR("floor");
1637   if (SG_ARGC != 1)
1638     Sg_WrongNumberOfArgumentsViolation(
1639      SG_INTERN("floor"), 1, SG_ARGC, SG_NIL);
1640   x_scm = SG_ARGREF(0);
1641   if (!SG_NUMBERP(x_scm))
1642     Sg_WrongTypeOfArgumentViolation(
1643        sg__rc_cgen9166.d9486[46], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1644   x = (x_scm);
1645   {
1646 {
1647 SgObject SG_RESULT = (SgObject)NULL;
1648 
1649 #line 204 "./lib_core.stub"
1650 if ((!(Sg_RealValuedP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[47],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
1651 
1652 #line 205 "./lib_core.stub"
1653 SG_RESULT=(Sg_Round(x,SG_ROUND_FLOOR));
1654 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1655 }
1656   }
1657 }
1658 static SG_DEFINE_SUBR(core_floor__STUB, 1, 0,core_floor, SG_FALSE, NULL);
1659 
core_ceiling(SgObject * SG_FP,int SG_ARGC,void * data_)1660 static SgObject core_ceiling(SgObject *SG_FP, int SG_ARGC, void *data_)
1661 {
1662   SgObject x_scm;
1663   SgObject x;
1664   SG_ENTER_SUBR("ceiling");
1665   if (SG_ARGC != 1)
1666     Sg_WrongNumberOfArgumentsViolation(
1667      SG_INTERN("ceiling"), 1, SG_ARGC, SG_NIL);
1668   x_scm = SG_ARGREF(0);
1669   if (!SG_NUMBERP(x_scm))
1670     Sg_WrongTypeOfArgumentViolation(
1671        sg__rc_cgen9166.d9486[48], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1672   x = (x_scm);
1673   {
1674 {
1675 SgObject SG_RESULT = (SgObject)NULL;
1676 
1677 #line 208 "./lib_core.stub"
1678 if ((!(Sg_RealValuedP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[49],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
1679 
1680 #line 209 "./lib_core.stub"
1681 SG_RESULT=(Sg_Round(x,SG_ROUND_CEIL));
1682 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1683 }
1684   }
1685 }
1686 static SG_DEFINE_SUBR(core_ceiling__STUB, 1, 0,core_ceiling, SG_FALSE, NULL);
1687 
core_truncate(SgObject * SG_FP,int SG_ARGC,void * data_)1688 static SgObject core_truncate(SgObject *SG_FP, int SG_ARGC, void *data_)
1689 {
1690   SgObject x_scm;
1691   SgObject x;
1692   SG_ENTER_SUBR("truncate");
1693   if (SG_ARGC != 1)
1694     Sg_WrongNumberOfArgumentsViolation(
1695      SG_INTERN("truncate"), 1, SG_ARGC, SG_NIL);
1696   x_scm = SG_ARGREF(0);
1697   if (!SG_NUMBERP(x_scm))
1698     Sg_WrongTypeOfArgumentViolation(
1699        sg__rc_cgen9166.d9486[50], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1700   x = (x_scm);
1701   {
1702 {
1703 SgObject SG_RESULT = (SgObject)NULL;
1704 
1705 #line 212 "./lib_core.stub"
1706 if ((!(Sg_RealValuedP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[51],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
1707 
1708 #line 213 "./lib_core.stub"
1709 SG_RESULT=(Sg_Round(x,SG_ROUND_TRUNC));
1710 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1711 }
1712   }
1713 }
1714 static SG_DEFINE_SUBR(core_truncate__STUB, 1, 0,core_truncate, SG_FALSE, NULL);
1715 
core_round(SgObject * SG_FP,int SG_ARGC,void * data_)1716 static SgObject core_round(SgObject *SG_FP, int SG_ARGC, void *data_)
1717 {
1718   SgObject x_scm;
1719   SgObject x;
1720   SG_ENTER_SUBR("round");
1721   if (SG_ARGC != 1)
1722     Sg_WrongNumberOfArgumentsViolation(
1723      SG_INTERN("round"), 1, SG_ARGC, SG_NIL);
1724   x_scm = SG_ARGREF(0);
1725   if (!SG_NUMBERP(x_scm))
1726     Sg_WrongTypeOfArgumentViolation(
1727        sg__rc_cgen9166.d9486[52], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1728   x = (x_scm);
1729   {
1730 {
1731 SgObject SG_RESULT = (SgObject)NULL;
1732 
1733 #line 216 "./lib_core.stub"
1734 if ((!(Sg_RealValuedP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[53],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
1735 
1736 #line 217 "./lib_core.stub"
1737 SG_RESULT=(Sg_Round(x,SG_ROUND_ROUND));
1738 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1739 }
1740   }
1741 }
1742 static SG_DEFINE_SUBR(core_round__STUB, 1, 0,core_round, SG_FALSE, NULL);
1743 
core_div(SgObject * SG_FP,int SG_ARGC,void * data_)1744 static SgObject core_div(SgObject *SG_FP, int SG_ARGC, void *data_)
1745 {
1746   SgObject x_scm;
1747   SgObject x;
1748   SgObject y_scm;
1749   SgObject y;
1750   SG_ENTER_SUBR("div");
1751   if (SG_ARGC != 2)
1752     Sg_WrongNumberOfArgumentsViolation(
1753      SG_INTERN("div"), 2, SG_ARGC, SG_NIL);
1754   x_scm = SG_ARGREF(0);
1755   if (!SG_NUMBERP(x_scm))
1756     Sg_WrongTypeOfArgumentViolation(
1757        sg__rc_cgen9166.d9486[54], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1758   x = (x_scm);
1759   y_scm = SG_ARGREF(1);
1760   if (!SG_NUMBERP(y_scm))
1761     Sg_WrongTypeOfArgumentViolation(
1762        sg__rc_cgen9166.d9486[54], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1763   y = (y_scm);
1764   {
1765 {
1766 SgObject SG_RESULT = (SgObject)NULL;
1767 
1768 #line 242 "./lib_core.stub"
1769 {if ((!(Sg_FiniteP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[55],SG_MAKE_STRING("finite"),x,SG_NIL);}}}if (Sg_NanP(x)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[55],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[55],SG_MAKE_STRING("not zero"),y,SG_NIL);}}}}
1770 
1771 #line 243 "./lib_core.stub"
1772 SG_RESULT=(Sg_IntegerDiv(x,y));
1773 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1774 }
1775   }
1776 }
1777 static SG_DEFINE_SUBR(core_div__STUB, 2, 0,core_div, SG_FALSE, NULL);
1778 
core_mod(SgObject * SG_FP,int SG_ARGC,void * data_)1779 static SgObject core_mod(SgObject *SG_FP, int SG_ARGC, void *data_)
1780 {
1781   SgObject x_scm;
1782   SgObject x;
1783   SgObject y_scm;
1784   SgObject y;
1785   SG_ENTER_SUBR("mod");
1786   if (SG_ARGC != 2)
1787     Sg_WrongNumberOfArgumentsViolation(
1788      SG_INTERN("mod"), 2, SG_ARGC, SG_NIL);
1789   x_scm = SG_ARGREF(0);
1790   if (!SG_NUMBERP(x_scm))
1791     Sg_WrongTypeOfArgumentViolation(
1792        sg__rc_cgen9166.d9486[56], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1793   x = (x_scm);
1794   y_scm = SG_ARGREF(1);
1795   if (!SG_NUMBERP(y_scm))
1796     Sg_WrongTypeOfArgumentViolation(
1797        sg__rc_cgen9166.d9486[56], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1798   y = (y_scm);
1799   {
1800 {
1801 SgObject SG_RESULT = (SgObject)NULL;
1802 
1803 #line 246 "./lib_core.stub"
1804 {if ((!(Sg_FiniteP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[57],SG_MAKE_STRING("finite"),x,SG_NIL);}}}if (Sg_NanP(x)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[57],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[57],SG_MAKE_STRING("not zero"),y,SG_NIL);}}}}
1805 
1806 #line 247 "./lib_core.stub"
1807 SG_RESULT=(Sg_IntegerMod(x,y));
1808 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1809 }
1810   }
1811 }
1812 static SG_DEFINE_SUBR(core_mod__STUB, 2, 0,core_mod, SG_FALSE, NULL);
1813 
core_div0(SgObject * SG_FP,int SG_ARGC,void * data_)1814 static SgObject core_div0(SgObject *SG_FP, int SG_ARGC, void *data_)
1815 {
1816   SgObject x_scm;
1817   SgObject x;
1818   SgObject y_scm;
1819   SgObject y;
1820   SG_ENTER_SUBR("div0");
1821   if (SG_ARGC != 2)
1822     Sg_WrongNumberOfArgumentsViolation(
1823      SG_INTERN("div0"), 2, SG_ARGC, SG_NIL);
1824   x_scm = SG_ARGREF(0);
1825   if (!SG_NUMBERP(x_scm))
1826     Sg_WrongTypeOfArgumentViolation(
1827        sg__rc_cgen9166.d9486[58], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1828   x = (x_scm);
1829   y_scm = SG_ARGREF(1);
1830   if (!SG_NUMBERP(y_scm))
1831     Sg_WrongTypeOfArgumentViolation(
1832        sg__rc_cgen9166.d9486[58], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1833   y = (y_scm);
1834   {
1835 {
1836 SgObject SG_RESULT = (SgObject)NULL;
1837 
1838 #line 250 "./lib_core.stub"
1839 {if ((!(Sg_FiniteP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[59],SG_MAKE_STRING("finite"),x,SG_NIL);}}}if (Sg_NanP(x)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[59],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[59],SG_MAKE_STRING("not zero"),y,SG_NIL);}}}}
1840 
1841 #line 251 "./lib_core.stub"
1842 SG_RESULT=(Sg_IntegerDiv0(x,y));
1843 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1844 }
1845   }
1846 }
1847 static SG_DEFINE_SUBR(core_div0__STUB, 2, 0,core_div0, SG_FALSE, NULL);
1848 
core_mod0(SgObject * SG_FP,int SG_ARGC,void * data_)1849 static SgObject core_mod0(SgObject *SG_FP, int SG_ARGC, void *data_)
1850 {
1851   SgObject x_scm;
1852   SgObject x;
1853   SgObject y_scm;
1854   SgObject y;
1855   SG_ENTER_SUBR("mod0");
1856   if (SG_ARGC != 2)
1857     Sg_WrongNumberOfArgumentsViolation(
1858      SG_INTERN("mod0"), 2, SG_ARGC, SG_NIL);
1859   x_scm = SG_ARGREF(0);
1860   if (!SG_NUMBERP(x_scm))
1861     Sg_WrongTypeOfArgumentViolation(
1862        sg__rc_cgen9166.d9486[60], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1863   x = (x_scm);
1864   y_scm = SG_ARGREF(1);
1865   if (!SG_NUMBERP(y_scm))
1866     Sg_WrongTypeOfArgumentViolation(
1867        sg__rc_cgen9166.d9486[60], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1868   y = (y_scm);
1869   {
1870 {
1871 SgObject SG_RESULT = (SgObject)NULL;
1872 
1873 #line 254 "./lib_core.stub"
1874 {if ((!(Sg_FiniteP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[61],SG_MAKE_STRING("finite"),x,SG_NIL);}}}if (Sg_NanP(x)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[61],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[61],SG_MAKE_STRING("not zero"),y,SG_NIL);}}}}
1875 
1876 #line 255 "./lib_core.stub"
1877 SG_RESULT=(Sg_IntegerMod0(x,y));
1878 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1879 }
1880   }
1881 }
1882 static SG_DEFINE_SUBR(core_mod0__STUB, 2, 0,core_mod0, SG_FALSE, NULL);
1883 
core__25gcd(SgObject * SG_FP,int SG_ARGC,void * data_)1884 static SgObject core__25gcd(SgObject *SG_FP, int SG_ARGC, void *data_)
1885 {
1886   SgObject x_scm;
1887   SgObject x;
1888   SgObject y_scm;
1889   SgObject y;
1890   SG_ENTER_SUBR("%gcd");
1891   if (SG_ARGC != 2)
1892     Sg_WrongNumberOfArgumentsViolation(
1893      SG_INTERN("%gcd"), 2, SG_ARGC, SG_NIL);
1894   x_scm = SG_ARGREF(0);
1895   if (!SG_NUMBERP(x_scm))
1896     Sg_WrongTypeOfArgumentViolation(
1897        sg__rc_cgen9166.d9486[62], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1898   x = (x_scm);
1899   y_scm = SG_ARGREF(1);
1900   if (!SG_NUMBERP(y_scm))
1901     Sg_WrongTypeOfArgumentViolation(
1902        sg__rc_cgen9166.d9486[62], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1903   y = (y_scm);
1904   {
1905 {
1906 SgObject SG_RESULT = (SgObject)NULL;
1907 SG_RESULT=(Sg_Gcd(x,y));
1908 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1909 }
1910   }
1911 }
1912 static SG_DEFINE_SUBR(core__25gcd__STUB, 2, 0,core__25gcd, SG_FALSE, NULL);
1913 
core_exp(SgObject * SG_FP,int SG_ARGC,void * data_)1914 static SgObject core_exp(SgObject *SG_FP, int SG_ARGC, void *data_)
1915 {
1916   SgObject x_scm;
1917   SgObject x;
1918   SG_ENTER_SUBR("exp");
1919   if (SG_ARGC != 1)
1920     Sg_WrongNumberOfArgumentsViolation(
1921      SG_INTERN("exp"), 1, SG_ARGC, SG_NIL);
1922   x_scm = SG_ARGREF(0);
1923   if (!SG_NUMBERP(x_scm))
1924     Sg_WrongTypeOfArgumentViolation(
1925        sg__rc_cgen9166.d9486[63], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1926   x = (x_scm);
1927   {
1928 {
1929 SgObject SG_RESULT = (SgObject)NULL;
1930 SG_RESULT=(Sg_Exp(x));
1931 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1932 }
1933   }
1934 }
1935 static SG_DEFINE_SUBR(core_exp__STUB, 1, 0,core_exp, SG_FALSE, NULL);
1936 
core_expt(SgObject * SG_FP,int SG_ARGC,void * data_)1937 static SgObject core_expt(SgObject *SG_FP, int SG_ARGC, void *data_)
1938 {
1939   SgObject x_scm;
1940   SgObject x;
1941   SgObject y_scm;
1942   SgObject y;
1943   SG_ENTER_SUBR("expt");
1944   if (SG_ARGC != 2)
1945     Sg_WrongNumberOfArgumentsViolation(
1946      SG_INTERN("expt"), 2, SG_ARGC, SG_NIL);
1947   x_scm = SG_ARGREF(0);
1948   if (!SG_NUMBERP(x_scm))
1949     Sg_WrongTypeOfArgumentViolation(
1950        sg__rc_cgen9166.d9486[64], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1951   x = (x_scm);
1952   y_scm = SG_ARGREF(1);
1953   if (!SG_NUMBERP(y_scm))
1954     Sg_WrongTypeOfArgumentViolation(
1955        sg__rc_cgen9166.d9486[64], SG_MAKE_STRING("number"), y_scm, SG_NIL);
1956   y = (y_scm);
1957   {
1958 {
1959 SgObject SG_RESULT = (SgObject)NULL;
1960 SG_RESULT=(Sg_Expt(x,y));
1961 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
1962 }
1963   }
1964 }
1965 static SG_DEFINE_SUBR(core_expt__STUB, 2, 0,core_expt, SG_FALSE, NULL);
1966 
core_log(SgObject * SG_FP,int SG_ARGC,void * data_)1967 static SgObject core_log(SgObject *SG_FP, int SG_ARGC, void *data_)
1968 {
1969   SgObject x_scm;
1970   SgObject x;
1971   SgObject base_scm;
1972   SgObject base;
1973   SG_ENTER_SUBR("log");
1974   if ((SG_ARGC > 2 &&
1975       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
1976       SG_ARGC < 1)
1977     Sg_WrongNumberOfArgumentsBetweenViolation(
1978      SG_INTERN("log"), 1, 2, SG_ARGC, SG_NIL);
1979   x_scm = SG_ARGREF(0);
1980   if (!SG_NUMBERP(x_scm))
1981     Sg_WrongTypeOfArgumentViolation(
1982        sg__rc_cgen9166.d9486[65], SG_MAKE_STRING("number"), x_scm, SG_NIL);
1983   x = (x_scm);
1984   if (SG_ARGC > 1+1) {
1985     base_scm = SG_ARGREF(1);
1986   } else {
1987     base_scm = SG_UNBOUND;
1988   }
1989   if (!SG_UNBOUNDP(base_scm) && !SG_NUMBERP(base_scm))
1990     Sg_WrongTypeOfArgumentViolation(
1991        sg__rc_cgen9166.d9486[65], SG_MAKE_STRING("number"), base_scm, SG_NIL);
1992   base = (base_scm);
1993   {
1994 {
1995 SgObject SG_RESULT = (SgObject)NULL;
1996 
1997 #line 264 "./lib_core.stub"
1998 if (SG_UNBOUNDP(base)){
1999 if ((x)==(SG_MAKE_INT(0))){
2000 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[66],SG_MAKE_STRING("undefined for 0"),x);}} else {
2001 SG_RESULT=(Sg_Log(x));}} else {
2002 SG_RESULT=(Sg_Div(Sg_Log(x),Sg_Log(base)));}
2003 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2004 }
2005   }
2006 }
2007 static SG_DEFINE_SUBR(core_log__STUB, 1, 2,core_log, SG_FALSE, NULL);
2008 
core_make_rectangular(SgObject * SG_FP,int SG_ARGC,void * data_)2009 static SgObject core_make_rectangular(SgObject *SG_FP, int SG_ARGC, void *data_)
2010 {
2011   SgObject a_scm;
2012   SgObject a;
2013   SgObject b_scm;
2014   SgObject b;
2015   SG_ENTER_SUBR("make-rectangular");
2016   if (SG_ARGC != 2)
2017     Sg_WrongNumberOfArgumentsViolation(
2018      SG_INTERN("make-rectangular"), 2, SG_ARGC, SG_NIL);
2019   a_scm = SG_ARGREF(0);
2020   if (!SG_NUMBERP(a_scm))
2021     Sg_WrongTypeOfArgumentViolation(
2022        sg__rc_cgen9166.d9486[67], SG_MAKE_STRING("number"), a_scm, SG_NIL);
2023   a = (a_scm);
2024   b_scm = SG_ARGREF(1);
2025   if (!SG_NUMBERP(b_scm))
2026     Sg_WrongTypeOfArgumentViolation(
2027        sg__rc_cgen9166.d9486[67], SG_MAKE_STRING("number"), b_scm, SG_NIL);
2028   b = (b_scm);
2029   {
2030 {
2031 SgObject SG_RESULT = (SgObject)NULL;
2032 
2033 #line 271 "./lib_core.stub"
2034 if ((!(SG_REALP(a)))){{
2035 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[68],SG_MAKE_STRING("real number required"),a,
2036 SG_LIST2(a,b));}}}
2037 
2038 #line 274 "./lib_core.stub"
2039 if ((!(SG_REALP(b)))){{
2040 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[68],SG_MAKE_STRING("real number required"),b,
2041 SG_LIST2(a,b));}}}
2042 
2043 #line 277 "./lib_core.stub"
2044 SG_RESULT=(Sg_MakeComplex(a,b));
2045 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2046 }
2047   }
2048 }
2049 static SG_DEFINE_SUBR(core_make_rectangular__STUB, 2, 0,core_make_rectangular, SG_FALSE, NULL);
2050 
core_make_polar(SgObject * SG_FP,int SG_ARGC,void * data_)2051 static SgObject core_make_polar(SgObject *SG_FP, int SG_ARGC, void *data_)
2052 {
2053   SgObject r_scm;
2054   SgObject r;
2055   SgObject t_scm;
2056   SgObject t;
2057   SG_ENTER_SUBR("make-polar");
2058   if (SG_ARGC != 2)
2059     Sg_WrongNumberOfArgumentsViolation(
2060      SG_INTERN("make-polar"), 2, SG_ARGC, SG_NIL);
2061   r_scm = SG_ARGREF(0);
2062   if (!SG_NUMBERP(r_scm))
2063     Sg_WrongTypeOfArgumentViolation(
2064        sg__rc_cgen9166.d9486[69], SG_MAKE_STRING("number"), r_scm, SG_NIL);
2065   r = (r_scm);
2066   t_scm = SG_ARGREF(1);
2067   if (!SG_NUMBERP(t_scm))
2068     Sg_WrongTypeOfArgumentViolation(
2069        sg__rc_cgen9166.d9486[69], SG_MAKE_STRING("number"), t_scm, SG_NIL);
2070   t = (t_scm);
2071   {
2072 {
2073 SgObject SG_RESULT = (SgObject)NULL;
2074 
2075 #line 280 "./lib_core.stub"
2076 if ((!(SG_REALP(r)))){{
2077 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[70],SG_MAKE_STRING("real number required"),r,
2078 SG_LIST2(r,t));}}}
2079 
2080 #line 283 "./lib_core.stub"
2081 if ((!(SG_REALP(t)))){{
2082 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[70],SG_MAKE_STRING("real number required"),t,
2083 SG_LIST2(r,t));}}}
2084 
2085 #line 286 "./lib_core.stub"
2086 SG_RESULT=(Sg_MakeComplexPolar(r,t));
2087 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2088 }
2089   }
2090 }
2091 static SG_DEFINE_SUBR(core_make_polar__STUB, 2, 0,core_make_polar, SG_FALSE, NULL);
2092 
core_real_part(SgObject * SG_FP,int SG_ARGC,void * data_)2093 static SgObject core_real_part(SgObject *SG_FP, int SG_ARGC, void *data_)
2094 {
2095   SgObject r_scm;
2096   SgObject r;
2097   SG_ENTER_SUBR("real-part");
2098   if (SG_ARGC != 1)
2099     Sg_WrongNumberOfArgumentsViolation(
2100      SG_INTERN("real-part"), 1, SG_ARGC, SG_NIL);
2101   r_scm = SG_ARGREF(0);
2102   if (!SG_NUMBERP(r_scm))
2103     Sg_WrongTypeOfArgumentViolation(
2104        sg__rc_cgen9166.d9486[71], SG_MAKE_STRING("number"), r_scm, SG_NIL);
2105   r = (r_scm);
2106   {
2107 {
2108 SgObject SG_RESULT = (SgObject)NULL;
2109 
2110 #line 289 "./lib_core.stub"
2111 if (SG_COMPLEXP(r)){
2112 SG_RESULT=((SG_COMPLEX(r))->real);}else if(
2113 SG_REALP(r)){SG_RESULT=(r);} else {
2114 #line 294 "./lib_core.stub"
2115 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[72],SG_MAKE_STRING("number required"),r,SG_NIL);}}
2116 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2117 }
2118   }
2119 }
2120 static SG_DEFINE_SUBR(core_real_part__STUB, 1, 0,core_real_part, SG_FALSE, NULL);
2121 
core_imag_part(SgObject * SG_FP,int SG_ARGC,void * data_)2122 static SgObject core_imag_part(SgObject *SG_FP, int SG_ARGC, void *data_)
2123 {
2124   SgObject r_scm;
2125   SgObject r;
2126   SG_ENTER_SUBR("imag-part");
2127   if (SG_ARGC != 1)
2128     Sg_WrongNumberOfArgumentsViolation(
2129      SG_INTERN("imag-part"), 1, SG_ARGC, SG_NIL);
2130   r_scm = SG_ARGREF(0);
2131   if (!SG_NUMBERP(r_scm))
2132     Sg_WrongTypeOfArgumentViolation(
2133        sg__rc_cgen9166.d9486[73], SG_MAKE_STRING("number"), r_scm, SG_NIL);
2134   r = (r_scm);
2135   {
2136 {
2137 SgObject SG_RESULT = (SgObject)NULL;
2138 
2139 #line 297 "./lib_core.stub"
2140 if (SG_COMPLEXP(r)){
2141 SG_RESULT=((SG_COMPLEX(r))->imag);}else if(
2142 SG_REALP(r)){
2143 SG_RESULT=(SG_MAKE_INT(0));} else {
2144 #line 302 "./lib_core.stub"
2145 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[74],SG_MAKE_STRING("number required"),r,SG_NIL);}}
2146 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2147 }
2148   }
2149 }
2150 static SG_DEFINE_SUBR(core_imag_part__STUB, 1, 0,core_imag_part, SG_FALSE, NULL);
2151 
core_magnitude(SgObject * SG_FP,int SG_ARGC,void * data_)2152 static SgObject core_magnitude(SgObject *SG_FP, int SG_ARGC, void *data_)
2153 {
2154   SgObject n_scm;
2155   SgObject n;
2156   SG_ENTER_SUBR("magnitude");
2157   if (SG_ARGC != 1)
2158     Sg_WrongNumberOfArgumentsViolation(
2159      SG_INTERN("magnitude"), 1, SG_ARGC, SG_NIL);
2160   n_scm = SG_ARGREF(0);
2161   if (!SG_NUMBERP(n_scm))
2162     Sg_WrongTypeOfArgumentViolation(
2163        sg__rc_cgen9166.d9486[75], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2164   n = (n_scm);
2165   {
2166 {
2167 SgObject SG_RESULT = (SgObject)NULL;
2168 SG_RESULT=(Sg_Magnitude(n));
2169 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2170 }
2171   }
2172 }
2173 static SG_DEFINE_SUBR(core_magnitude__STUB, 1, 0,core_magnitude, SG_FALSE, NULL);
2174 
core_angle(SgObject * SG_FP,int SG_ARGC,void * data_)2175 static SgObject core_angle(SgObject *SG_FP, int SG_ARGC, void *data_)
2176 {
2177   SgObject n_scm;
2178   SgObject n;
2179   SG_ENTER_SUBR("angle");
2180   if (SG_ARGC != 1)
2181     Sg_WrongNumberOfArgumentsViolation(
2182      SG_INTERN("angle"), 1, SG_ARGC, SG_NIL);
2183   n_scm = SG_ARGREF(0);
2184   if (!SG_NUMBERP(n_scm))
2185     Sg_WrongTypeOfArgumentViolation(
2186        sg__rc_cgen9166.d9486[76], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2187   n = (n_scm);
2188   {
2189 {
2190 SgObject SG_RESULT = (SgObject)NULL;
2191 SG_RESULT=(Sg_Angle(n));
2192 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2193 }
2194   }
2195 }
2196 static SG_DEFINE_SUBR(core_angle__STUB, 1, 0,core_angle, SG_FALSE, NULL);
2197 
core_sin(SgObject * SG_FP,int SG_ARGC,void * data_)2198 static SgObject core_sin(SgObject *SG_FP, int SG_ARGC, void *data_)
2199 {
2200   SgObject n_scm;
2201   SgObject n;
2202   SG_ENTER_SUBR("sin");
2203   if (SG_ARGC != 1)
2204     Sg_WrongNumberOfArgumentsViolation(
2205      SG_INTERN("sin"), 1, SG_ARGC, SG_NIL);
2206   n_scm = SG_ARGREF(0);
2207   if (!SG_NUMBERP(n_scm))
2208     Sg_WrongTypeOfArgumentViolation(
2209        sg__rc_cgen9166.d9486[77], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2210   n = (n_scm);
2211   {
2212 {
2213 SgObject SG_RESULT = (SgObject)NULL;
2214 SG_RESULT=(Sg_Sin(n));
2215 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2216 }
2217   }
2218 }
2219 static SG_DEFINE_SUBR(core_sin__STUB, 1, 0,core_sin, SG_FALSE, NULL);
2220 
core_cos(SgObject * SG_FP,int SG_ARGC,void * data_)2221 static SgObject core_cos(SgObject *SG_FP, int SG_ARGC, void *data_)
2222 {
2223   SgObject n_scm;
2224   SgObject n;
2225   SG_ENTER_SUBR("cos");
2226   if (SG_ARGC != 1)
2227     Sg_WrongNumberOfArgumentsViolation(
2228      SG_INTERN("cos"), 1, SG_ARGC, SG_NIL);
2229   n_scm = SG_ARGREF(0);
2230   if (!SG_NUMBERP(n_scm))
2231     Sg_WrongTypeOfArgumentViolation(
2232        sg__rc_cgen9166.d9486[78], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2233   n = (n_scm);
2234   {
2235 {
2236 SgObject SG_RESULT = (SgObject)NULL;
2237 SG_RESULT=(Sg_Cos(n));
2238 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2239 }
2240   }
2241 }
2242 static SG_DEFINE_SUBR(core_cos__STUB, 1, 0,core_cos, SG_FALSE, NULL);
2243 
core_tan(SgObject * SG_FP,int SG_ARGC,void * data_)2244 static SgObject core_tan(SgObject *SG_FP, int SG_ARGC, void *data_)
2245 {
2246   SgObject n_scm;
2247   SgObject n;
2248   SG_ENTER_SUBR("tan");
2249   if (SG_ARGC != 1)
2250     Sg_WrongNumberOfArgumentsViolation(
2251      SG_INTERN("tan"), 1, SG_ARGC, SG_NIL);
2252   n_scm = SG_ARGREF(0);
2253   if (!SG_NUMBERP(n_scm))
2254     Sg_WrongTypeOfArgumentViolation(
2255        sg__rc_cgen9166.d9486[79], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2256   n = (n_scm);
2257   {
2258 {
2259 SgObject SG_RESULT = (SgObject)NULL;
2260 SG_RESULT=(Sg_Tan(n));
2261 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2262 }
2263   }
2264 }
2265 static SG_DEFINE_SUBR(core_tan__STUB, 1, 0,core_tan, SG_FALSE, NULL);
2266 
core_asin(SgObject * SG_FP,int SG_ARGC,void * data_)2267 static SgObject core_asin(SgObject *SG_FP, int SG_ARGC, void *data_)
2268 {
2269   SgObject n_scm;
2270   SgObject n;
2271   SG_ENTER_SUBR("asin");
2272   if (SG_ARGC != 1)
2273     Sg_WrongNumberOfArgumentsViolation(
2274      SG_INTERN("asin"), 1, SG_ARGC, SG_NIL);
2275   n_scm = SG_ARGREF(0);
2276   if (!SG_NUMBERP(n_scm))
2277     Sg_WrongTypeOfArgumentViolation(
2278        sg__rc_cgen9166.d9486[80], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2279   n = (n_scm);
2280   {
2281 {
2282 SgObject SG_RESULT = (SgObject)NULL;
2283 SG_RESULT=(Sg_Asin(n));
2284 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2285 }
2286   }
2287 }
2288 static SG_DEFINE_SUBR(core_asin__STUB, 1, 0,core_asin, SG_FALSE, NULL);
2289 
core_acos(SgObject * SG_FP,int SG_ARGC,void * data_)2290 static SgObject core_acos(SgObject *SG_FP, int SG_ARGC, void *data_)
2291 {
2292   SgObject n_scm;
2293   SgObject n;
2294   SG_ENTER_SUBR("acos");
2295   if (SG_ARGC != 1)
2296     Sg_WrongNumberOfArgumentsViolation(
2297      SG_INTERN("acos"), 1, SG_ARGC, SG_NIL);
2298   n_scm = SG_ARGREF(0);
2299   if (!SG_NUMBERP(n_scm))
2300     Sg_WrongTypeOfArgumentViolation(
2301        sg__rc_cgen9166.d9486[81], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2302   n = (n_scm);
2303   {
2304 {
2305 SgObject SG_RESULT = (SgObject)NULL;
2306 SG_RESULT=(Sg_Acos(n));
2307 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2308 }
2309   }
2310 }
2311 static SG_DEFINE_SUBR(core_acos__STUB, 1, 0,core_acos, SG_FALSE, NULL);
2312 
core_atan(SgObject * SG_FP,int SG_ARGC,void * data_)2313 static SgObject core_atan(SgObject *SG_FP, int SG_ARGC, void *data_)
2314 {
2315   SgObject n_scm;
2316   SgObject n;
2317   SgObject n2_scm;
2318   SgObject n2;
2319   SG_ENTER_SUBR("atan");
2320   if ((SG_ARGC > 2 &&
2321       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
2322       SG_ARGC < 1)
2323     Sg_WrongNumberOfArgumentsBetweenViolation(
2324      SG_INTERN("atan"), 1, 2, SG_ARGC, SG_NIL);
2325   n_scm = SG_ARGREF(0);
2326   if (!SG_NUMBERP(n_scm))
2327     Sg_WrongTypeOfArgumentViolation(
2328        sg__rc_cgen9166.d9486[82], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2329   n = (n_scm);
2330   if (SG_ARGC > 1+1) {
2331     n2_scm = SG_ARGREF(1);
2332   } else {
2333     n2_scm = SG_UNBOUND;
2334   }
2335   if (!SG_UNBOUNDP(n2_scm) && !SG_NUMBERP(n2_scm))
2336     Sg_WrongTypeOfArgumentViolation(
2337        sg__rc_cgen9166.d9486[82], SG_MAKE_STRING("number"), n2_scm, SG_NIL);
2338   n2 = (n2_scm);
2339   {
2340 {
2341 SgObject SG_RESULT = (SgObject)NULL;
2342 
2343 #line 314 "./lib_core.stub"
2344 if (SG_UNBOUNDP(n2)){SG_RESULT=(Sg_Atan(n));} else {
2345 #line 316 "./lib_core.stub"
2346 if ((!(Sg_RealValuedP(n)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[83],SG_MAKE_STRING("real number"),n,SG_NIL);}}}
2347 if ((!(Sg_RealValuedP(n2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[83],SG_MAKE_STRING("real number"),n2,SG_NIL);}}}
2348 SG_RESULT=(Sg_Atan2(n,n2));}
2349 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2350 }
2351   }
2352 }
2353 static SG_DEFINE_SUBR(core_atan__STUB, 1, 2,core_atan, SG_FALSE, NULL);
2354 
core_sqrt(SgObject * SG_FP,int SG_ARGC,void * data_)2355 static SgObject core_sqrt(SgObject *SG_FP, int SG_ARGC, void *data_)
2356 {
2357   SgObject n_scm;
2358   SgObject n;
2359   SG_ENTER_SUBR("sqrt");
2360   if (SG_ARGC != 1)
2361     Sg_WrongNumberOfArgumentsViolation(
2362      SG_INTERN("sqrt"), 1, SG_ARGC, SG_NIL);
2363   n_scm = SG_ARGREF(0);
2364   if (!SG_NUMBERP(n_scm))
2365     Sg_WrongTypeOfArgumentViolation(
2366        sg__rc_cgen9166.d9486[84], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2367   n = (n_scm);
2368   {
2369 {
2370 SgObject SG_RESULT = (SgObject)NULL;
2371 SG_RESULT=(Sg_Sqrt(n));
2372 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2373 }
2374   }
2375 }
2376 static SG_DEFINE_SUBR(core_sqrt__STUB, 1, 0,core_sqrt, SG_FALSE, NULL);
2377 
core_exact_integer_sqrt(SgObject * SG_FP,int SG_ARGC,void * data_)2378 static SgObject core_exact_integer_sqrt(SgObject *SG_FP, int SG_ARGC, void *data_)
2379 {
2380   SgObject n_scm;
2381   SgObject n;
2382   SG_ENTER_SUBR("exact-integer-sqrt");
2383   if (SG_ARGC != 1)
2384     Sg_WrongNumberOfArgumentsViolation(
2385      SG_INTERN("exact-integer-sqrt"), 1, SG_ARGC, SG_NIL);
2386   n_scm = SG_ARGREF(0);
2387   if (!SG_NUMBERP(n_scm))
2388     Sg_WrongTypeOfArgumentViolation(
2389        sg__rc_cgen9166.d9486[85], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2390   n = (n_scm);
2391   {
2392 {
2393 SgObject SG_RESULT = (SgObject)NULL;
2394 
2395 #line 322 "./lib_core.stub"
2396 if ((Sg_NegativeP(n))||((!(SG_EXACT_INTP(n))))){{
2397 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[86],SG_MAKE_STRING("non-negative exact integer required"),n,SG_NIL);}}}
2398 
2399 #line 326 "./lib_core.stub"
2400 SG_RESULT=(Sg_ExactIntegerSqrt(n));
2401 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2402 }
2403   }
2404 }
2405 static SG_DEFINE_SUBR(core_exact_integer_sqrt__STUB, 1, 0,core_exact_integer_sqrt, SG_FALSE, NULL);
2406 
core_rationalize(SgObject * SG_FP,int SG_ARGC,void * data_)2407 static SgObject core_rationalize(SgObject *SG_FP, int SG_ARGC, void *data_)
2408 {
2409   SgObject x_scm;
2410   SgObject x;
2411   SgObject e_scm;
2412   SgObject e;
2413   SG_ENTER_SUBR("rationalize");
2414   if (SG_ARGC != 2)
2415     Sg_WrongNumberOfArgumentsViolation(
2416      SG_INTERN("rationalize"), 2, SG_ARGC, SG_NIL);
2417   x_scm = SG_ARGREF(0);
2418   if (!SG_NUMBERP(x_scm))
2419     Sg_WrongTypeOfArgumentViolation(
2420        sg__rc_cgen9166.d9486[87], SG_MAKE_STRING("number"), x_scm, SG_NIL);
2421   x = (x_scm);
2422   e_scm = SG_ARGREF(1);
2423   if (!SG_NUMBERP(e_scm))
2424     Sg_WrongTypeOfArgumentViolation(
2425        sg__rc_cgen9166.d9486[87], SG_MAKE_STRING("number"), e_scm, SG_NIL);
2426   e = (e_scm);
2427   {
2428 {
2429 SgObject SG_RESULT = (SgObject)NULL;
2430 
2431 #line 329 "./lib_core.stub"
2432 if ((!(SG_REALP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[88],SG_MAKE_STRING("real number"),x,SG_NIL);}}}
2433 
2434 #line 330 "./lib_core.stub"
2435 if ((!(SG_REALP(e)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[88],SG_MAKE_STRING("real number"),e,SG_NIL);}}}
2436 
2437 #line 331 "./lib_core.stub"
2438 SG_RESULT=(Sg_Rationalize(x,e));
2439 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2440 }
2441   }
2442 }
2443 static SG_DEFINE_SUBR(core_rationalize__STUB, 2, 0,core_rationalize, SG_FALSE, NULL);
2444 
core_quotient(SgObject * SG_FP,int SG_ARGC,void * data_)2445 static SgObject core_quotient(SgObject *SG_FP, int SG_ARGC, void *data_)
2446 {
2447   SgObject n1_scm;
2448   SgObject n1;
2449   SgObject n2_scm;
2450   SgObject n2;
2451   SG_ENTER_SUBR("quotient");
2452   if (SG_ARGC != 2)
2453     Sg_WrongNumberOfArgumentsViolation(
2454      SG_INTERN("quotient"), 2, SG_ARGC, SG_NIL);
2455   n1_scm = SG_ARGREF(0);
2456   if (!SG_NUMBERP(n1_scm))
2457     Sg_WrongTypeOfArgumentViolation(
2458        sg__rc_cgen9166.d9486[89], SG_MAKE_STRING("number"), n1_scm, SG_NIL);
2459   n1 = (n1_scm);
2460   n2_scm = SG_ARGREF(1);
2461   if (!SG_NUMBERP(n2_scm))
2462     Sg_WrongTypeOfArgumentViolation(
2463        sg__rc_cgen9166.d9486[89], SG_MAKE_STRING("number"), n2_scm, SG_NIL);
2464   n2 = (n2_scm);
2465   {
2466 {
2467 SgObject SG_RESULT = (SgObject)NULL;
2468 
2469 #line 335 "./lib_core.stub"
2470 if (SG_EQ(n2,SG_MAKE_INT(0))){{
2471 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[90],SG_MAKE_STRING("attempt to calculate a quotient by zero"),
2472 SG_LIST2(n1,n2));}}}
2473 
2474 #line 338 "./lib_core.stub"
2475 SG_RESULT=(Sg_Quotient(n1,n2,NULL));
2476 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2477 }
2478   }
2479 }
2480 static SG_DEFINE_SUBR(core_quotient__STUB, 2, 0,core_quotient, SG_FALSE, NULL);
2481 
core_remainder(SgObject * SG_FP,int SG_ARGC,void * data_)2482 static SgObject core_remainder(SgObject *SG_FP, int SG_ARGC, void *data_)
2483 {
2484   SgObject n1_scm;
2485   SgObject n1;
2486   SgObject n2_scm;
2487   SgObject n2;
2488   SG_ENTER_SUBR("remainder");
2489   if (SG_ARGC != 2)
2490     Sg_WrongNumberOfArgumentsViolation(
2491      SG_INTERN("remainder"), 2, SG_ARGC, SG_NIL);
2492   n1_scm = SG_ARGREF(0);
2493   if (!SG_NUMBERP(n1_scm))
2494     Sg_WrongTypeOfArgumentViolation(
2495        sg__rc_cgen9166.d9486[91], SG_MAKE_STRING("number"), n1_scm, SG_NIL);
2496   n1 = (n1_scm);
2497   n2_scm = SG_ARGREF(1);
2498   if (!SG_NUMBERP(n2_scm))
2499     Sg_WrongTypeOfArgumentViolation(
2500        sg__rc_cgen9166.d9486[91], SG_MAKE_STRING("number"), n2_scm, SG_NIL);
2501   n2 = (n2_scm);
2502   {
2503 {
2504 SgObject SG_RESULT = (SgObject)NULL;
2505 
2506 #line 341 "./lib_core.stub"
2507 SG_RESULT=(Sg_Modulo(n1,n2,TRUE));
2508 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2509 }
2510   }
2511 }
2512 static SG_DEFINE_SUBR(core_remainder__STUB, 2, 0,core_remainder, SG_FALSE, NULL);
2513 
core_modulo(SgObject * SG_FP,int SG_ARGC,void * data_)2514 static SgObject core_modulo(SgObject *SG_FP, int SG_ARGC, void *data_)
2515 {
2516   SgObject n1_scm;
2517   SgObject n1;
2518   SgObject n2_scm;
2519   SgObject n2;
2520   SG_ENTER_SUBR("modulo");
2521   if (SG_ARGC != 2)
2522     Sg_WrongNumberOfArgumentsViolation(
2523      SG_INTERN("modulo"), 2, SG_ARGC, SG_NIL);
2524   n1_scm = SG_ARGREF(0);
2525   if (!SG_NUMBERP(n1_scm))
2526     Sg_WrongTypeOfArgumentViolation(
2527        sg__rc_cgen9166.d9486[92], SG_MAKE_STRING("number"), n1_scm, SG_NIL);
2528   n1 = (n1_scm);
2529   n2_scm = SG_ARGREF(1);
2530   if (!SG_NUMBERP(n2_scm))
2531     Sg_WrongTypeOfArgumentViolation(
2532        sg__rc_cgen9166.d9486[92], SG_MAKE_STRING("number"), n2_scm, SG_NIL);
2533   n2 = (n2_scm);
2534   {
2535 {
2536 SgObject SG_RESULT = (SgObject)NULL;
2537 
2538 #line 344 "./lib_core.stub"
2539 SG_RESULT=(Sg_Modulo(n1,n2,FALSE));
2540 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2541 }
2542   }
2543 }
2544 static SG_DEFINE_SUBR(core_modulo__STUB, 2, 0,core_modulo, SG_FALSE, NULL);
2545 
core_integer_length(SgObject * SG_FP,int SG_ARGC,void * data_)2546 static SgObject core_integer_length(SgObject *SG_FP, int SG_ARGC, void *data_)
2547 {
2548   SgObject n_scm;
2549   SgObject n;
2550   SG_ENTER_SUBR("integer-length");
2551   if (SG_ARGC != 1)
2552     Sg_WrongNumberOfArgumentsViolation(
2553      SG_INTERN("integer-length"), 1, SG_ARGC, SG_NIL);
2554   n_scm = SG_ARGREF(0);
2555   if (!SG_NUMBERP(n_scm))
2556     Sg_WrongTypeOfArgumentViolation(
2557        sg__rc_cgen9166.d9486[93], SG_MAKE_STRING("number"), n_scm, SG_NIL);
2558   n = (n_scm);
2559   {
2560 {
2561 long SG_RESULT = (long)0;
2562 SG_RESULT=(Sg_IntegerLength(n));
2563 SG_RETURN(SG_MAKE_INT(SG_RESULT));
2564 }
2565   }
2566 }
2567 static SG_DEFINE_SUBR(core_integer_length__STUB, 1, 0,core_integer_length, SG_FALSE, NULL);
2568 
core_number_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)2569 static SgObject core_number_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
2570 {
2571   SgObject z_scm;
2572   SgObject z;
2573   SgObject radix_scm;
2574   long radix;
2575   SgObject precision_scm;
2576   SgObject precision;
2577   SG_ENTER_SUBR("number->string");
2578   if ((SG_ARGC > 3 &&
2579       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
2580       SG_ARGC < 1)
2581     Sg_WrongNumberOfArgumentsBetweenViolation(
2582      SG_INTERN("number->string"), 1, 3, SG_ARGC, SG_NIL);
2583   z_scm = SG_ARGREF(0);
2584   if (!SG_NUMBERP(z_scm))
2585     Sg_WrongTypeOfArgumentViolation(
2586        sg__rc_cgen9166.d9486[94], SG_MAKE_STRING("number"), z_scm, SG_NIL);
2587   z = (z_scm);
2588   if (SG_ARGC > 1+1) {
2589     radix_scm = SG_ARGREF(1);
2590   } else {
2591     radix_scm = SG_MAKE_INT(10U);
2592   }
2593   if (!SG_INTP(radix_scm) && !SG_INTP(radix_scm))
2594     Sg_WrongTypeOfArgumentViolation(
2595        sg__rc_cgen9166.d9486[94], SG_MAKE_STRING("fixnum"), radix_scm, SG_NIL);
2596   radix = SG_INT_VALUE(radix_scm);
2597   if (SG_ARGC > 2+1) {
2598     precision_scm = SG_ARGREF(2);
2599   } else {
2600     precision_scm = SG_UNBOUND;
2601   }
2602   precision = (precision_scm);
2603   {
2604 {
2605 SgObject SG_RESULT = (SgObject)NULL;
2606 
2607 #line 354 "./lib_core.stub"
2608 SG_RESULT=(Sg_NumberToString(z,((int )(radix)),FALSE));
2609 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2610 }
2611   }
2612 }
2613 static SG_DEFINE_SUBR(core_number_TOstring__STUB, 1, 3,core_number_TOstring, SG_FALSE, NULL);
2614 
core_string_TOnumber(SgObject * SG_FP,int SG_ARGC,void * data_)2615 static SgObject core_string_TOnumber(SgObject *SG_FP, int SG_ARGC, void *data_)
2616 {
2617   SgObject s_scm;
2618   SgString* s;
2619   SgObject radix_scm;
2620   long radix;
2621   SG_ENTER_SUBR("string->number");
2622   if ((SG_ARGC > 2 &&
2623       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
2624       SG_ARGC < 1)
2625     Sg_WrongNumberOfArgumentsBetweenViolation(
2626      SG_INTERN("string->number"), 1, 2, SG_ARGC, SG_NIL);
2627   s_scm = SG_ARGREF(0);
2628   if (!SG_STRINGP(s_scm))
2629     Sg_WrongTypeOfArgumentViolation(
2630        sg__rc_cgen9166.d9486[95], SG_MAKE_STRING("string"), s_scm, SG_NIL);
2631   s = SG_STRING(s_scm);
2632   if (SG_ARGC > 1+1) {
2633     radix_scm = SG_ARGREF(1);
2634   } else {
2635     radix_scm = SG_MAKE_INT(10U);
2636   }
2637   if (!SG_INTP(radix_scm) && !SG_INTP(radix_scm))
2638     Sg_WrongTypeOfArgumentViolation(
2639        sg__rc_cgen9166.d9486[95], SG_MAKE_STRING("fixnum"), radix_scm, SG_NIL);
2640   radix = SG_INT_VALUE(radix_scm);
2641   {
2642 {
2643 SgObject SG_RESULT = (SgObject)NULL;
2644 
2645 #line 358 "./lib_core.stub"
2646 SG_RESULT=(Sg_StringToNumber(s,((int )(radix)),FALSE));
2647 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2648 }
2649   }
2650 }
2651 static SG_DEFINE_SUBR(core_string_TOnumber__STUB, 1, 2,core_string_TOnumber, SG_FALSE, NULL);
2652 
core_not(SgObject * SG_FP,int SG_ARGC,void * data_)2653 static SgObject core_not(SgObject *SG_FP, int SG_ARGC, void *data_)
2654 {
2655   SgObject arg0_scm;
2656   SgObject arg0;
2657   SG_ENTER_SUBR("not");
2658   if (SG_ARGC != 1)
2659     Sg_WrongNumberOfArgumentsViolation(
2660      SG_INTERN("not"), 1, SG_ARGC, SG_NIL);
2661   arg0_scm = SG_ARGREF(0);
2662   arg0 = (arg0_scm);
2663   {
2664 {
2665 int SG_RESULT = (int)FALSE;
2666 SG_RESULT=(SG_FALSEP(arg0));
2667 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
2668 }
2669   }
2670 }
2671 static SG_DEFINE_SUBR(core_not__STUB, 1, 0,core_not, SG_MAKE_INT(NOT), NULL);
2672 
core_boolean_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)2673 static SgObject core_boolean_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
2674 {
2675   SgObject b1_scm;
2676   SgObject b1;
2677   SgObject b2_scm;
2678   SgObject b2;
2679   SgObject rest_scm;
2680   SgObject rest;
2681   SG_ENTER_SUBR("boolean=?");
2682   if (SG_ARGC < 2)
2683     Sg_WrongNumberOfArgumentsAtLeastViolation(
2684      SG_INTERN("boolean=?"), 2, SG_ARGC, SG_NIL);
2685   b1_scm = SG_ARGREF(0);
2686   b1 = (b1_scm);
2687   b2_scm = SG_ARGREF(1);
2688   b2 = (b2_scm);
2689   rest_scm = SG_ARGREF(SG_ARGC-1);
2690   rest = (rest_scm);
2691   {
2692 {
2693 int SG_RESULT = (int)FALSE;
2694 SgObject cise__9779;
2695 #line 369 "./lib_core.stub"
2696 {if ((!(SG_BOOLP(b1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[98],SG_MAKE_STRING("boolean"),b1,SG_NIL);}}}if ((!(SG_BOOLP(b2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[98],SG_MAKE_STRING("boolean"),b2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=(SG_EQ(b1,b2));}else if((!(SG_EQ(b1,b2)))){SG_RESULT=(FALSE);} else {{SgObject prev=b2;SG_FOR_EACH(cise__9779,rest) {{SgObject p=SG_CAR(cise__9779);if ((!(SG_BOOLP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[98],SG_MAKE_STRING("boolean"),p,SG_NIL);}}}if ((!(SG_EQ(prev,p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
2697 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
2698 }
2699   }
2700 }
2701 static SG_DEFINE_SUBR(core_boolean_3dP__STUB, 2, 1,core_boolean_3dP, SG_FALSE, NULL);
2702 
core_cons(SgObject * SG_FP,int SG_ARGC,void * data_)2703 static SgObject core_cons(SgObject *SG_FP, int SG_ARGC, void *data_)
2704 {
2705   SgObject o1_scm;
2706   SgObject o1;
2707   SgObject o2_scm;
2708   SgObject o2;
2709   SG_ENTER_SUBR("cons");
2710   if (SG_ARGC != 2)
2711     Sg_WrongNumberOfArgumentsViolation(
2712      SG_INTERN("cons"), 2, SG_ARGC, SG_NIL);
2713   o1_scm = SG_ARGREF(0);
2714   o1 = (o1_scm);
2715   o2_scm = SG_ARGREF(1);
2716   o2 = (o2_scm);
2717   {
2718 {
2719 SgObject SG_RESULT = (SgObject)NULL;
2720 SG_RESULT=(Sg_Cons(o1,o2));
2721 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2722 }
2723   }
2724 }
2725 static SG_DEFINE_SUBR(core_cons__STUB, 2, 0,core_cons, SG_MAKE_INT(CONS), NULL);
2726 
core_car(SgObject * SG_FP,int SG_ARGC,void * data_)2727 static SgObject core_car(SgObject *SG_FP, int SG_ARGC, void *data_)
2728 {
2729   SgObject o_scm;
2730   SgPair* o;
2731   SG_ENTER_SUBR("car");
2732   if (SG_ARGC != 1)
2733     Sg_WrongNumberOfArgumentsViolation(
2734      SG_INTERN("car"), 1, SG_ARGC, SG_NIL);
2735   o_scm = SG_ARGREF(0);
2736   if (!SG_PAIRP(o_scm))
2737     Sg_WrongTypeOfArgumentViolation(
2738        sg__rc_cgen9166.d9486[100], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2739   o = SG_PAIR(o_scm);
2740   {
2741 {
2742 SgObject SG_RESULT = (SgObject)NULL;
2743 SG_RESULT=(SG_CAR(o));
2744 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2745 }
2746   }
2747 }
2748 static SG_DEFINE_SUBR(core_car__STUB, 1, 0,core_car, SG_MAKE_INT(CAR), NULL);
2749 
core_cdr(SgObject * SG_FP,int SG_ARGC,void * data_)2750 static SgObject core_cdr(SgObject *SG_FP, int SG_ARGC, void *data_)
2751 {
2752   SgObject o_scm;
2753   SgPair* o;
2754   SG_ENTER_SUBR("cdr");
2755   if (SG_ARGC != 1)
2756     Sg_WrongNumberOfArgumentsViolation(
2757      SG_INTERN("cdr"), 1, SG_ARGC, SG_NIL);
2758   o_scm = SG_ARGREF(0);
2759   if (!SG_PAIRP(o_scm))
2760     Sg_WrongTypeOfArgumentViolation(
2761        sg__rc_cgen9166.d9486[101], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2762   o = SG_PAIR(o_scm);
2763   {
2764 {
2765 SgObject SG_RESULT = (SgObject)NULL;
2766 SG_RESULT=(SG_CDR(o));
2767 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2768 }
2769   }
2770 }
2771 static SG_DEFINE_SUBR(core_cdr__STUB, 1, 0,core_cdr, SG_MAKE_INT(CDR), NULL);
2772 
2773 #define CXR_SETTER(PRE, pre, tail)   SgObject cell = Sg_C##tail##r(obj); if (!SG_PAIRP(cell)) Sg_Error(UC("can't set c" #pre #tail "r of %S"), obj); SG_SET_C##PRE##R(cell, value);
core_caar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2774 static SgObject core_caar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2775 {
2776   SgObject obj_scm;
2777   SgObject obj;
2778   SgObject value_scm;
2779   SgObject value;
2780   SG_ENTER_SUBR("(setter caar)");
2781   if (SG_ARGC != 2)
2782     Sg_WrongNumberOfArgumentsViolation(
2783      SG_INTERN("(setter caar)"), 2, SG_ARGC, SG_NIL);
2784   obj_scm = SG_ARGREF(0);
2785   obj = (obj_scm);
2786   value_scm = SG_ARGREF(1);
2787   value = (value_scm);
2788   {
2789 
2790 #line 386 "./lib_core.stub"
2791 CXR_SETTER(A,a,a);
2792 SG_RETURN(SG_UNDEF);
2793   }
2794 }
2795 static SG_DEFINE_SUBR(core_caar_SETTER__STUB, 2, 0,core_caar_SETTER, SG_FALSE, NULL);
2796 
core_caar(SgObject * SG_FP,int SG_ARGC,void * data_)2797 static SgObject core_caar(SgObject *SG_FP, int SG_ARGC, void *data_)
2798 {
2799   SgObject o_scm;
2800   SgPair* o;
2801   SG_ENTER_SUBR("caar");
2802   if (SG_ARGC != 1)
2803     Sg_WrongNumberOfArgumentsViolation(
2804      SG_INTERN("caar"), 1, SG_ARGC, SG_NIL);
2805   o_scm = SG_ARGREF(0);
2806   if (!SG_PAIRP(o_scm))
2807     Sg_WrongTypeOfArgumentViolation(
2808        sg__rc_cgen9166.d9486[102], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2809   o = SG_PAIR(o_scm);
2810   {
2811 {
2812 SgObject SG_RESULT = (SgObject)NULL;
2813 SG_RESULT=(Sg_Caar(o));
2814 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2815 }
2816   }
2817 }
2818 static SG_DEFINE_SUBR(core_caar__STUB, 1, 0,core_caar, SG_MAKE_INT(CAAR), NULL);
2819 
core_cadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2820 static SgObject core_cadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2821 {
2822   SgObject obj_scm;
2823   SgObject obj;
2824   SgObject value_scm;
2825   SgObject value;
2826   SG_ENTER_SUBR("(setter cadr)");
2827   if (SG_ARGC != 2)
2828     Sg_WrongNumberOfArgumentsViolation(
2829      SG_INTERN("(setter cadr)"), 2, SG_ARGC, SG_NIL);
2830   obj_scm = SG_ARGREF(0);
2831   obj = (obj_scm);
2832   value_scm = SG_ARGREF(1);
2833   value = (value_scm);
2834   {
2835 
2836 #line 388 "./lib_core.stub"
2837 CXR_SETTER(A,a,d);
2838 SG_RETURN(SG_UNDEF);
2839   }
2840 }
2841 static SG_DEFINE_SUBR(core_cadr_SETTER__STUB, 2, 0,core_cadr_SETTER, SG_FALSE, NULL);
2842 
core_cadr(SgObject * SG_FP,int SG_ARGC,void * data_)2843 static SgObject core_cadr(SgObject *SG_FP, int SG_ARGC, void *data_)
2844 {
2845   SgObject o_scm;
2846   SgPair* o;
2847   SG_ENTER_SUBR("cadr");
2848   if (SG_ARGC != 1)
2849     Sg_WrongNumberOfArgumentsViolation(
2850      SG_INTERN("cadr"), 1, SG_ARGC, SG_NIL);
2851   o_scm = SG_ARGREF(0);
2852   if (!SG_PAIRP(o_scm))
2853     Sg_WrongTypeOfArgumentViolation(
2854        sg__rc_cgen9166.d9486[104], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2855   o = SG_PAIR(o_scm);
2856   {
2857 {
2858 SgObject SG_RESULT = (SgObject)NULL;
2859 SG_RESULT=(Sg_Cadr(o));
2860 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2861 }
2862   }
2863 }
2864 static SG_DEFINE_SUBR(core_cadr__STUB, 1, 0,core_cadr, SG_MAKE_INT(CADR), NULL);
2865 
core_cdar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2866 static SgObject core_cdar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2867 {
2868   SgObject obj_scm;
2869   SgObject obj;
2870   SgObject value_scm;
2871   SgObject value;
2872   SG_ENTER_SUBR("(setter cdar)");
2873   if (SG_ARGC != 2)
2874     Sg_WrongNumberOfArgumentsViolation(
2875      SG_INTERN("(setter cdar)"), 2, SG_ARGC, SG_NIL);
2876   obj_scm = SG_ARGREF(0);
2877   obj = (obj_scm);
2878   value_scm = SG_ARGREF(1);
2879   value = (value_scm);
2880   {
2881 
2882 #line 390 "./lib_core.stub"
2883 CXR_SETTER(D,d,a);
2884 SG_RETURN(SG_UNDEF);
2885   }
2886 }
2887 static SG_DEFINE_SUBR(core_cdar_SETTER__STUB, 2, 0,core_cdar_SETTER, SG_FALSE, NULL);
2888 
core_cdar(SgObject * SG_FP,int SG_ARGC,void * data_)2889 static SgObject core_cdar(SgObject *SG_FP, int SG_ARGC, void *data_)
2890 {
2891   SgObject o_scm;
2892   SgPair* o;
2893   SG_ENTER_SUBR("cdar");
2894   if (SG_ARGC != 1)
2895     Sg_WrongNumberOfArgumentsViolation(
2896      SG_INTERN("cdar"), 1, SG_ARGC, SG_NIL);
2897   o_scm = SG_ARGREF(0);
2898   if (!SG_PAIRP(o_scm))
2899     Sg_WrongTypeOfArgumentViolation(
2900        sg__rc_cgen9166.d9486[106], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2901   o = SG_PAIR(o_scm);
2902   {
2903 {
2904 SgObject SG_RESULT = (SgObject)NULL;
2905 SG_RESULT=(Sg_Cdar(o));
2906 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2907 }
2908   }
2909 }
2910 static SG_DEFINE_SUBR(core_cdar__STUB, 1, 0,core_cdar, SG_MAKE_INT(CDAR), NULL);
2911 
core_cddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2912 static SgObject core_cddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2913 {
2914   SgObject obj_scm;
2915   SgObject obj;
2916   SgObject value_scm;
2917   SgObject value;
2918   SG_ENTER_SUBR("(setter cddr)");
2919   if (SG_ARGC != 2)
2920     Sg_WrongNumberOfArgumentsViolation(
2921      SG_INTERN("(setter cddr)"), 2, SG_ARGC, SG_NIL);
2922   obj_scm = SG_ARGREF(0);
2923   obj = (obj_scm);
2924   value_scm = SG_ARGREF(1);
2925   value = (value_scm);
2926   {
2927 
2928 #line 392 "./lib_core.stub"
2929 CXR_SETTER(D,d,d);
2930 SG_RETURN(SG_UNDEF);
2931   }
2932 }
2933 static SG_DEFINE_SUBR(core_cddr_SETTER__STUB, 2, 0,core_cddr_SETTER, SG_FALSE, NULL);
2934 
core_cddr(SgObject * SG_FP,int SG_ARGC,void * data_)2935 static SgObject core_cddr(SgObject *SG_FP, int SG_ARGC, void *data_)
2936 {
2937   SgObject o_scm;
2938   SgPair* o;
2939   SG_ENTER_SUBR("cddr");
2940   if (SG_ARGC != 1)
2941     Sg_WrongNumberOfArgumentsViolation(
2942      SG_INTERN("cddr"), 1, SG_ARGC, SG_NIL);
2943   o_scm = SG_ARGREF(0);
2944   if (!SG_PAIRP(o_scm))
2945     Sg_WrongTypeOfArgumentViolation(
2946        sg__rc_cgen9166.d9486[108], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
2947   o = SG_PAIR(o_scm);
2948   {
2949 {
2950 SgObject SG_RESULT = (SgObject)NULL;
2951 SG_RESULT=(Sg_Cddr(o));
2952 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2953 }
2954   }
2955 }
2956 static SG_DEFINE_SUBR(core_cddr__STUB, 1, 0,core_cddr, SG_MAKE_INT(CDDR), NULL);
2957 
2958 #define CXXR_SETTER(PRE, pre, tail)   SgObject cell = Sg_C##pre##r(Sg_C##tail##r(obj)); if (!SG_PAIRP(cell)) Sg_Error(UC("can't set c" #pre #tail "r of %S"), obj); SG_SET_C##PRE##R(cell, value);
core_caaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)2959 static SgObject core_caaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
2960 {
2961   SgObject obj_scm;
2962   SgObject obj;
2963   SgObject value_scm;
2964   SgObject value;
2965   SG_ENTER_SUBR("(setter caaar)");
2966   if (SG_ARGC != 2)
2967     Sg_WrongNumberOfArgumentsViolation(
2968      SG_INTERN("(setter caaar)"), 2, SG_ARGC, SG_NIL);
2969   obj_scm = SG_ARGREF(0);
2970   obj = (obj_scm);
2971   value_scm = SG_ARGREF(1);
2972   value = (value_scm);
2973   {
2974 
2975 #line 403 "./lib_core.stub"
2976 CXXR_SETTER(A,a,a);
2977 SG_RETURN(SG_UNDEF);
2978   }
2979 }
2980 static SG_DEFINE_SUBR(core_caaar_SETTER__STUB, 2, 0,core_caaar_SETTER, SG_FALSE, NULL);
2981 
core_caaar(SgObject * SG_FP,int SG_ARGC,void * data_)2982 static SgObject core_caaar(SgObject *SG_FP, int SG_ARGC, void *data_)
2983 {
2984   SgObject o_scm;
2985   SgObject o;
2986   SG_ENTER_SUBR("caaar");
2987   if (SG_ARGC != 1)
2988     Sg_WrongNumberOfArgumentsViolation(
2989      SG_INTERN("caaar"), 1, SG_ARGC, SG_NIL);
2990   o_scm = SG_ARGREF(0);
2991   o = (o_scm);
2992   {
2993 {
2994 SgObject SG_RESULT = (SgObject)NULL;
2995 
2996 #line 404 "./lib_core.stub"
2997 SG_RESULT=(Sg_Car(Sg_Caar(o)));
2998 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
2999 }
3000   }
3001 }
3002 static SG_DEFINE_SUBR(core_caaar__STUB, 1, 0,core_caaar, SG_FALSE, NULL);
3003 
core_caadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3004 static SgObject core_caadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3005 {
3006   SgObject obj_scm;
3007   SgObject obj;
3008   SgObject value_scm;
3009   SgObject value;
3010   SG_ENTER_SUBR("(setter caadr)");
3011   if (SG_ARGC != 2)
3012     Sg_WrongNumberOfArgumentsViolation(
3013      SG_INTERN("(setter caadr)"), 2, SG_ARGC, SG_NIL);
3014   obj_scm = SG_ARGREF(0);
3015   obj = (obj_scm);
3016   value_scm = SG_ARGREF(1);
3017   value = (value_scm);
3018   {
3019 
3020 #line 406 "./lib_core.stub"
3021 CXXR_SETTER(A,a,d);
3022 SG_RETURN(SG_UNDEF);
3023   }
3024 }
3025 static SG_DEFINE_SUBR(core_caadr_SETTER__STUB, 2, 0,core_caadr_SETTER, SG_FALSE, NULL);
3026 
core_caadr(SgObject * SG_FP,int SG_ARGC,void * data_)3027 static SgObject core_caadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3028 {
3029   SgObject o_scm;
3030   SgObject o;
3031   SG_ENTER_SUBR("caadr");
3032   if (SG_ARGC != 1)
3033     Sg_WrongNumberOfArgumentsViolation(
3034      SG_INTERN("caadr"), 1, SG_ARGC, SG_NIL);
3035   o_scm = SG_ARGREF(0);
3036   o = (o_scm);
3037   {
3038 {
3039 SgObject SG_RESULT = (SgObject)NULL;
3040 
3041 #line 407 "./lib_core.stub"
3042 SG_RESULT=(Sg_Car(Sg_Cadr(o)));
3043 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3044 }
3045   }
3046 }
3047 static SG_DEFINE_SUBR(core_caadr__STUB, 1, 0,core_caadr, SG_FALSE, NULL);
3048 
core_cadar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3049 static SgObject core_cadar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3050 {
3051   SgObject obj_scm;
3052   SgObject obj;
3053   SgObject value_scm;
3054   SgObject value;
3055   SG_ENTER_SUBR("(setter cadar)");
3056   if (SG_ARGC != 2)
3057     Sg_WrongNumberOfArgumentsViolation(
3058      SG_INTERN("(setter cadar)"), 2, SG_ARGC, SG_NIL);
3059   obj_scm = SG_ARGREF(0);
3060   obj = (obj_scm);
3061   value_scm = SG_ARGREF(1);
3062   value = (value_scm);
3063   {
3064 
3065 #line 409 "./lib_core.stub"
3066 CXXR_SETTER(A,d,a);
3067 SG_RETURN(SG_UNDEF);
3068   }
3069 }
3070 static SG_DEFINE_SUBR(core_cadar_SETTER__STUB, 2, 0,core_cadar_SETTER, SG_FALSE, NULL);
3071 
core_cadar(SgObject * SG_FP,int SG_ARGC,void * data_)3072 static SgObject core_cadar(SgObject *SG_FP, int SG_ARGC, void *data_)
3073 {
3074   SgObject o_scm;
3075   SgObject o;
3076   SG_ENTER_SUBR("cadar");
3077   if (SG_ARGC != 1)
3078     Sg_WrongNumberOfArgumentsViolation(
3079      SG_INTERN("cadar"), 1, SG_ARGC, SG_NIL);
3080   o_scm = SG_ARGREF(0);
3081   o = (o_scm);
3082   {
3083 {
3084 SgObject SG_RESULT = (SgObject)NULL;
3085 
3086 #line 410 "./lib_core.stub"
3087 SG_RESULT=(Sg_Car(Sg_Cdar(o)));
3088 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3089 }
3090   }
3091 }
3092 static SG_DEFINE_SUBR(core_cadar__STUB, 1, 0,core_cadar, SG_FALSE, NULL);
3093 
core_caddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3094 static SgObject core_caddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3095 {
3096   SgObject obj_scm;
3097   SgObject obj;
3098   SgObject value_scm;
3099   SgObject value;
3100   SG_ENTER_SUBR("(setter caddr)");
3101   if (SG_ARGC != 2)
3102     Sg_WrongNumberOfArgumentsViolation(
3103      SG_INTERN("(setter caddr)"), 2, SG_ARGC, SG_NIL);
3104   obj_scm = SG_ARGREF(0);
3105   obj = (obj_scm);
3106   value_scm = SG_ARGREF(1);
3107   value = (value_scm);
3108   {
3109 
3110 #line 412 "./lib_core.stub"
3111 CXXR_SETTER(A,d,d);
3112 SG_RETURN(SG_UNDEF);
3113   }
3114 }
3115 static SG_DEFINE_SUBR(core_caddr_SETTER__STUB, 2, 0,core_caddr_SETTER, SG_FALSE, NULL);
3116 
core_caddr(SgObject * SG_FP,int SG_ARGC,void * data_)3117 static SgObject core_caddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3118 {
3119   SgObject o_scm;
3120   SgObject o;
3121   SG_ENTER_SUBR("caddr");
3122   if (SG_ARGC != 1)
3123     Sg_WrongNumberOfArgumentsViolation(
3124      SG_INTERN("caddr"), 1, SG_ARGC, SG_NIL);
3125   o_scm = SG_ARGREF(0);
3126   o = (o_scm);
3127   {
3128 {
3129 SgObject SG_RESULT = (SgObject)NULL;
3130 
3131 #line 413 "./lib_core.stub"
3132 SG_RESULT=(Sg_Car(Sg_Cddr(o)));
3133 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3134 }
3135   }
3136 }
3137 static SG_DEFINE_SUBR(core_caddr__STUB, 1, 0,core_caddr, SG_FALSE, NULL);
3138 
core_cdaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3139 static SgObject core_cdaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3140 {
3141   SgObject obj_scm;
3142   SgObject obj;
3143   SgObject value_scm;
3144   SgObject value;
3145   SG_ENTER_SUBR("(setter cdaar)");
3146   if (SG_ARGC != 2)
3147     Sg_WrongNumberOfArgumentsViolation(
3148      SG_INTERN("(setter cdaar)"), 2, SG_ARGC, SG_NIL);
3149   obj_scm = SG_ARGREF(0);
3150   obj = (obj_scm);
3151   value_scm = SG_ARGREF(1);
3152   value = (value_scm);
3153   {
3154 
3155 #line 415 "./lib_core.stub"
3156 CXXR_SETTER(D,a,a);
3157 SG_RETURN(SG_UNDEF);
3158   }
3159 }
3160 static SG_DEFINE_SUBR(core_cdaar_SETTER__STUB, 2, 0,core_cdaar_SETTER, SG_FALSE, NULL);
3161 
core_cdaar(SgObject * SG_FP,int SG_ARGC,void * data_)3162 static SgObject core_cdaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3163 {
3164   SgObject o_scm;
3165   SgObject o;
3166   SG_ENTER_SUBR("cdaar");
3167   if (SG_ARGC != 1)
3168     Sg_WrongNumberOfArgumentsViolation(
3169      SG_INTERN("cdaar"), 1, SG_ARGC, SG_NIL);
3170   o_scm = SG_ARGREF(0);
3171   o = (o_scm);
3172   {
3173 {
3174 SgObject SG_RESULT = (SgObject)NULL;
3175 
3176 #line 416 "./lib_core.stub"
3177 SG_RESULT=(Sg_Cdr(Sg_Caar(o)));
3178 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3179 }
3180   }
3181 }
3182 static SG_DEFINE_SUBR(core_cdaar__STUB, 1, 0,core_cdaar, SG_FALSE, NULL);
3183 
core_cdadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3184 static SgObject core_cdadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3185 {
3186   SgObject obj_scm;
3187   SgObject obj;
3188   SgObject value_scm;
3189   SgObject value;
3190   SG_ENTER_SUBR("(setter cdadr)");
3191   if (SG_ARGC != 2)
3192     Sg_WrongNumberOfArgumentsViolation(
3193      SG_INTERN("(setter cdadr)"), 2, SG_ARGC, SG_NIL);
3194   obj_scm = SG_ARGREF(0);
3195   obj = (obj_scm);
3196   value_scm = SG_ARGREF(1);
3197   value = (value_scm);
3198   {
3199 
3200 #line 418 "./lib_core.stub"
3201 CXXR_SETTER(D,a,d);
3202 SG_RETURN(SG_UNDEF);
3203   }
3204 }
3205 static SG_DEFINE_SUBR(core_cdadr_SETTER__STUB, 2, 0,core_cdadr_SETTER, SG_FALSE, NULL);
3206 
core_cdadr(SgObject * SG_FP,int SG_ARGC,void * data_)3207 static SgObject core_cdadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3208 {
3209   SgObject o_scm;
3210   SgObject o;
3211   SG_ENTER_SUBR("cdadr");
3212   if (SG_ARGC != 1)
3213     Sg_WrongNumberOfArgumentsViolation(
3214      SG_INTERN("cdadr"), 1, SG_ARGC, SG_NIL);
3215   o_scm = SG_ARGREF(0);
3216   o = (o_scm);
3217   {
3218 {
3219 SgObject SG_RESULT = (SgObject)NULL;
3220 
3221 #line 419 "./lib_core.stub"
3222 SG_RESULT=(Sg_Cdr(Sg_Cadr(o)));
3223 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3224 }
3225   }
3226 }
3227 static SG_DEFINE_SUBR(core_cdadr__STUB, 1, 0,core_cdadr, SG_FALSE, NULL);
3228 
core_cddar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3229 static SgObject core_cddar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3230 {
3231   SgObject obj_scm;
3232   SgObject obj;
3233   SgObject value_scm;
3234   SgObject value;
3235   SG_ENTER_SUBR("(setter cddar)");
3236   if (SG_ARGC != 2)
3237     Sg_WrongNumberOfArgumentsViolation(
3238      SG_INTERN("(setter cddar)"), 2, SG_ARGC, SG_NIL);
3239   obj_scm = SG_ARGREF(0);
3240   obj = (obj_scm);
3241   value_scm = SG_ARGREF(1);
3242   value = (value_scm);
3243   {
3244 
3245 #line 421 "./lib_core.stub"
3246 CXXR_SETTER(D,d,a);
3247 SG_RETURN(SG_UNDEF);
3248   }
3249 }
3250 static SG_DEFINE_SUBR(core_cddar_SETTER__STUB, 2, 0,core_cddar_SETTER, SG_FALSE, NULL);
3251 
core_cddar(SgObject * SG_FP,int SG_ARGC,void * data_)3252 static SgObject core_cddar(SgObject *SG_FP, int SG_ARGC, void *data_)
3253 {
3254   SgObject o_scm;
3255   SgObject o;
3256   SG_ENTER_SUBR("cddar");
3257   if (SG_ARGC != 1)
3258     Sg_WrongNumberOfArgumentsViolation(
3259      SG_INTERN("cddar"), 1, SG_ARGC, SG_NIL);
3260   o_scm = SG_ARGREF(0);
3261   o = (o_scm);
3262   {
3263 {
3264 SgObject SG_RESULT = (SgObject)NULL;
3265 
3266 #line 422 "./lib_core.stub"
3267 SG_RESULT=(Sg_Cdr(Sg_Cdar(o)));
3268 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3269 }
3270   }
3271 }
3272 static SG_DEFINE_SUBR(core_cddar__STUB, 1, 0,core_cddar, SG_FALSE, NULL);
3273 
core_cdddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3274 static SgObject core_cdddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3275 {
3276   SgObject obj_scm;
3277   SgObject obj;
3278   SgObject value_scm;
3279   SgObject value;
3280   SG_ENTER_SUBR("(setter cdddr)");
3281   if (SG_ARGC != 2)
3282     Sg_WrongNumberOfArgumentsViolation(
3283      SG_INTERN("(setter cdddr)"), 2, SG_ARGC, SG_NIL);
3284   obj_scm = SG_ARGREF(0);
3285   obj = (obj_scm);
3286   value_scm = SG_ARGREF(1);
3287   value = (value_scm);
3288   {
3289 
3290 #line 424 "./lib_core.stub"
3291 CXXR_SETTER(D,d,d);
3292 SG_RETURN(SG_UNDEF);
3293   }
3294 }
3295 static SG_DEFINE_SUBR(core_cdddr_SETTER__STUB, 2, 0,core_cdddr_SETTER, SG_FALSE, NULL);
3296 
core_cdddr(SgObject * SG_FP,int SG_ARGC,void * data_)3297 static SgObject core_cdddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3298 {
3299   SgObject o_scm;
3300   SgObject o;
3301   SG_ENTER_SUBR("cdddr");
3302   if (SG_ARGC != 1)
3303     Sg_WrongNumberOfArgumentsViolation(
3304      SG_INTERN("cdddr"), 1, SG_ARGC, SG_NIL);
3305   o_scm = SG_ARGREF(0);
3306   o = (o_scm);
3307   {
3308 {
3309 SgObject SG_RESULT = (SgObject)NULL;
3310 
3311 #line 425 "./lib_core.stub"
3312 SG_RESULT=(Sg_Cdr(Sg_Cddr(o)));
3313 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3314 }
3315   }
3316 }
3317 static SG_DEFINE_SUBR(core_cdddr__STUB, 1, 0,core_cdddr, SG_FALSE, NULL);
3318 
core_caaaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3319 static SgObject core_caaaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3320 {
3321   SgObject obj_scm;
3322   SgObject obj;
3323   SgObject value_scm;
3324   SgObject value;
3325   SG_ENTER_SUBR("(setter caaaar)");
3326   if (SG_ARGC != 2)
3327     Sg_WrongNumberOfArgumentsViolation(
3328      SG_INTERN("(setter caaaar)"), 2, SG_ARGC, SG_NIL);
3329   obj_scm = SG_ARGREF(0);
3330   obj = (obj_scm);
3331   value_scm = SG_ARGREF(1);
3332   value = (value_scm);
3333   {
3334 
3335 #line 427 "./lib_core.stub"
3336 CXXR_SETTER(A,a,aa);
3337 SG_RETURN(SG_UNDEF);
3338   }
3339 }
3340 static SG_DEFINE_SUBR(core_caaaar_SETTER__STUB, 2, 0,core_caaaar_SETTER, SG_FALSE, NULL);
3341 
core_caaaar(SgObject * SG_FP,int SG_ARGC,void * data_)3342 static SgObject core_caaaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3343 {
3344   SgObject o_scm;
3345   SgObject o;
3346   SG_ENTER_SUBR("caaaar");
3347   if (SG_ARGC != 1)
3348     Sg_WrongNumberOfArgumentsViolation(
3349      SG_INTERN("caaaar"), 1, SG_ARGC, SG_NIL);
3350   o_scm = SG_ARGREF(0);
3351   o = (o_scm);
3352   {
3353 {
3354 SgObject SG_RESULT = (SgObject)NULL;
3355 
3356 #line 428 "./lib_core.stub"
3357 SG_RESULT=(Sg_Caar(Sg_Caar(o)));
3358 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3359 }
3360   }
3361 }
3362 static SG_DEFINE_SUBR(core_caaaar__STUB, 1, 0,core_caaaar, SG_FALSE, NULL);
3363 
core_caaadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3364 static SgObject core_caaadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3365 {
3366   SgObject obj_scm;
3367   SgObject obj;
3368   SgObject value_scm;
3369   SgObject value;
3370   SG_ENTER_SUBR("(setter caaadr)");
3371   if (SG_ARGC != 2)
3372     Sg_WrongNumberOfArgumentsViolation(
3373      SG_INTERN("(setter caaadr)"), 2, SG_ARGC, SG_NIL);
3374   obj_scm = SG_ARGREF(0);
3375   obj = (obj_scm);
3376   value_scm = SG_ARGREF(1);
3377   value = (value_scm);
3378   {
3379 
3380 #line 430 "./lib_core.stub"
3381 CXXR_SETTER(A,a,ad);
3382 SG_RETURN(SG_UNDEF);
3383   }
3384 }
3385 static SG_DEFINE_SUBR(core_caaadr_SETTER__STUB, 2, 0,core_caaadr_SETTER, SG_FALSE, NULL);
3386 
core_caaadr(SgObject * SG_FP,int SG_ARGC,void * data_)3387 static SgObject core_caaadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3388 {
3389   SgObject o_scm;
3390   SgObject o;
3391   SG_ENTER_SUBR("caaadr");
3392   if (SG_ARGC != 1)
3393     Sg_WrongNumberOfArgumentsViolation(
3394      SG_INTERN("caaadr"), 1, SG_ARGC, SG_NIL);
3395   o_scm = SG_ARGREF(0);
3396   o = (o_scm);
3397   {
3398 {
3399 SgObject SG_RESULT = (SgObject)NULL;
3400 
3401 #line 431 "./lib_core.stub"
3402 SG_RESULT=(Sg_Caar(Sg_Cadr(o)));
3403 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3404 }
3405   }
3406 }
3407 static SG_DEFINE_SUBR(core_caaadr__STUB, 1, 0,core_caaadr, SG_FALSE, NULL);
3408 
core_caadar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3409 static SgObject core_caadar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3410 {
3411   SgObject obj_scm;
3412   SgObject obj;
3413   SgObject value_scm;
3414   SgObject value;
3415   SG_ENTER_SUBR("(setter caadar)");
3416   if (SG_ARGC != 2)
3417     Sg_WrongNumberOfArgumentsViolation(
3418      SG_INTERN("(setter caadar)"), 2, SG_ARGC, SG_NIL);
3419   obj_scm = SG_ARGREF(0);
3420   obj = (obj_scm);
3421   value_scm = SG_ARGREF(1);
3422   value = (value_scm);
3423   {
3424 
3425 #line 433 "./lib_core.stub"
3426 CXXR_SETTER(A,a,da);
3427 SG_RETURN(SG_UNDEF);
3428   }
3429 }
3430 static SG_DEFINE_SUBR(core_caadar_SETTER__STUB, 2, 0,core_caadar_SETTER, SG_FALSE, NULL);
3431 
core_caadar(SgObject * SG_FP,int SG_ARGC,void * data_)3432 static SgObject core_caadar(SgObject *SG_FP, int SG_ARGC, void *data_)
3433 {
3434   SgObject o_scm;
3435   SgObject o;
3436   SG_ENTER_SUBR("caadar");
3437   if (SG_ARGC != 1)
3438     Sg_WrongNumberOfArgumentsViolation(
3439      SG_INTERN("caadar"), 1, SG_ARGC, SG_NIL);
3440   o_scm = SG_ARGREF(0);
3441   o = (o_scm);
3442   {
3443 {
3444 SgObject SG_RESULT = (SgObject)NULL;
3445 
3446 #line 434 "./lib_core.stub"
3447 SG_RESULT=(Sg_Caar(Sg_Cdar(o)));
3448 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3449 }
3450   }
3451 }
3452 static SG_DEFINE_SUBR(core_caadar__STUB, 1, 0,core_caadar, SG_FALSE, NULL);
3453 
core_caaddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3454 static SgObject core_caaddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3455 {
3456   SgObject obj_scm;
3457   SgObject obj;
3458   SgObject value_scm;
3459   SgObject value;
3460   SG_ENTER_SUBR("(setter caaddr)");
3461   if (SG_ARGC != 2)
3462     Sg_WrongNumberOfArgumentsViolation(
3463      SG_INTERN("(setter caaddr)"), 2, SG_ARGC, SG_NIL);
3464   obj_scm = SG_ARGREF(0);
3465   obj = (obj_scm);
3466   value_scm = SG_ARGREF(1);
3467   value = (value_scm);
3468   {
3469 
3470 #line 436 "./lib_core.stub"
3471 CXXR_SETTER(A,a,dd);
3472 SG_RETURN(SG_UNDEF);
3473   }
3474 }
3475 static SG_DEFINE_SUBR(core_caaddr_SETTER__STUB, 2, 0,core_caaddr_SETTER, SG_FALSE, NULL);
3476 
core_caaddr(SgObject * SG_FP,int SG_ARGC,void * data_)3477 static SgObject core_caaddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3478 {
3479   SgObject o_scm;
3480   SgObject o;
3481   SG_ENTER_SUBR("caaddr");
3482   if (SG_ARGC != 1)
3483     Sg_WrongNumberOfArgumentsViolation(
3484      SG_INTERN("caaddr"), 1, SG_ARGC, SG_NIL);
3485   o_scm = SG_ARGREF(0);
3486   o = (o_scm);
3487   {
3488 {
3489 SgObject SG_RESULT = (SgObject)NULL;
3490 
3491 #line 437 "./lib_core.stub"
3492 SG_RESULT=(Sg_Caar(Sg_Cddr(o)));
3493 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3494 }
3495   }
3496 }
3497 static SG_DEFINE_SUBR(core_caaddr__STUB, 1, 0,core_caaddr, SG_FALSE, NULL);
3498 
core_cadaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3499 static SgObject core_cadaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3500 {
3501   SgObject obj_scm;
3502   SgObject obj;
3503   SgObject value_scm;
3504   SgObject value;
3505   SG_ENTER_SUBR("(setter cadaar)");
3506   if (SG_ARGC != 2)
3507     Sg_WrongNumberOfArgumentsViolation(
3508      SG_INTERN("(setter cadaar)"), 2, SG_ARGC, SG_NIL);
3509   obj_scm = SG_ARGREF(0);
3510   obj = (obj_scm);
3511   value_scm = SG_ARGREF(1);
3512   value = (value_scm);
3513   {
3514 
3515 #line 439 "./lib_core.stub"
3516 CXXR_SETTER(A,d,aa);
3517 SG_RETURN(SG_UNDEF);
3518   }
3519 }
3520 static SG_DEFINE_SUBR(core_cadaar_SETTER__STUB, 2, 0,core_cadaar_SETTER, SG_FALSE, NULL);
3521 
core_cadaar(SgObject * SG_FP,int SG_ARGC,void * data_)3522 static SgObject core_cadaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3523 {
3524   SgObject o_scm;
3525   SgObject o;
3526   SG_ENTER_SUBR("cadaar");
3527   if (SG_ARGC != 1)
3528     Sg_WrongNumberOfArgumentsViolation(
3529      SG_INTERN("cadaar"), 1, SG_ARGC, SG_NIL);
3530   o_scm = SG_ARGREF(0);
3531   o = (o_scm);
3532   {
3533 {
3534 SgObject SG_RESULT = (SgObject)NULL;
3535 
3536 #line 440 "./lib_core.stub"
3537 SG_RESULT=(Sg_Cadr(Sg_Caar(o)));
3538 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3539 }
3540   }
3541 }
3542 static SG_DEFINE_SUBR(core_cadaar__STUB, 1, 0,core_cadaar, SG_FALSE, NULL);
3543 
core_cadadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3544 static SgObject core_cadadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3545 {
3546   SgObject obj_scm;
3547   SgObject obj;
3548   SgObject value_scm;
3549   SgObject value;
3550   SG_ENTER_SUBR("(setter cadadr)");
3551   if (SG_ARGC != 2)
3552     Sg_WrongNumberOfArgumentsViolation(
3553      SG_INTERN("(setter cadadr)"), 2, SG_ARGC, SG_NIL);
3554   obj_scm = SG_ARGREF(0);
3555   obj = (obj_scm);
3556   value_scm = SG_ARGREF(1);
3557   value = (value_scm);
3558   {
3559 
3560 #line 442 "./lib_core.stub"
3561 CXXR_SETTER(A,d,ad);
3562 SG_RETURN(SG_UNDEF);
3563   }
3564 }
3565 static SG_DEFINE_SUBR(core_cadadr_SETTER__STUB, 2, 0,core_cadadr_SETTER, SG_FALSE, NULL);
3566 
core_cadadr(SgObject * SG_FP,int SG_ARGC,void * data_)3567 static SgObject core_cadadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3568 {
3569   SgObject o_scm;
3570   SgObject o;
3571   SG_ENTER_SUBR("cadadr");
3572   if (SG_ARGC != 1)
3573     Sg_WrongNumberOfArgumentsViolation(
3574      SG_INTERN("cadadr"), 1, SG_ARGC, SG_NIL);
3575   o_scm = SG_ARGREF(0);
3576   o = (o_scm);
3577   {
3578 {
3579 SgObject SG_RESULT = (SgObject)NULL;
3580 
3581 #line 443 "./lib_core.stub"
3582 SG_RESULT=(Sg_Cadr(Sg_Cadr(o)));
3583 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3584 }
3585   }
3586 }
3587 static SG_DEFINE_SUBR(core_cadadr__STUB, 1, 0,core_cadadr, SG_FALSE, NULL);
3588 
core_caddar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3589 static SgObject core_caddar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3590 {
3591   SgObject obj_scm;
3592   SgObject obj;
3593   SgObject value_scm;
3594   SgObject value;
3595   SG_ENTER_SUBR("(setter caddar)");
3596   if (SG_ARGC != 2)
3597     Sg_WrongNumberOfArgumentsViolation(
3598      SG_INTERN("(setter caddar)"), 2, SG_ARGC, SG_NIL);
3599   obj_scm = SG_ARGREF(0);
3600   obj = (obj_scm);
3601   value_scm = SG_ARGREF(1);
3602   value = (value_scm);
3603   {
3604 
3605 #line 445 "./lib_core.stub"
3606 CXXR_SETTER(A,d,da);
3607 SG_RETURN(SG_UNDEF);
3608   }
3609 }
3610 static SG_DEFINE_SUBR(core_caddar_SETTER__STUB, 2, 0,core_caddar_SETTER, SG_FALSE, NULL);
3611 
core_caddar(SgObject * SG_FP,int SG_ARGC,void * data_)3612 static SgObject core_caddar(SgObject *SG_FP, int SG_ARGC, void *data_)
3613 {
3614   SgObject o_scm;
3615   SgObject o;
3616   SG_ENTER_SUBR("caddar");
3617   if (SG_ARGC != 1)
3618     Sg_WrongNumberOfArgumentsViolation(
3619      SG_INTERN("caddar"), 1, SG_ARGC, SG_NIL);
3620   o_scm = SG_ARGREF(0);
3621   o = (o_scm);
3622   {
3623 {
3624 SgObject SG_RESULT = (SgObject)NULL;
3625 
3626 #line 446 "./lib_core.stub"
3627 SG_RESULT=(Sg_Cadr(Sg_Cdar(o)));
3628 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3629 }
3630   }
3631 }
3632 static SG_DEFINE_SUBR(core_caddar__STUB, 1, 0,core_caddar, SG_FALSE, NULL);
3633 
core_cadddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3634 static SgObject core_cadddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3635 {
3636   SgObject obj_scm;
3637   SgObject obj;
3638   SgObject value_scm;
3639   SgObject value;
3640   SG_ENTER_SUBR("(setter cadddr)");
3641   if (SG_ARGC != 2)
3642     Sg_WrongNumberOfArgumentsViolation(
3643      SG_INTERN("(setter cadddr)"), 2, SG_ARGC, SG_NIL);
3644   obj_scm = SG_ARGREF(0);
3645   obj = (obj_scm);
3646   value_scm = SG_ARGREF(1);
3647   value = (value_scm);
3648   {
3649 
3650 #line 448 "./lib_core.stub"
3651 CXXR_SETTER(A,d,dd);
3652 SG_RETURN(SG_UNDEF);
3653   }
3654 }
3655 static SG_DEFINE_SUBR(core_cadddr_SETTER__STUB, 2, 0,core_cadddr_SETTER, SG_FALSE, NULL);
3656 
core_cadddr(SgObject * SG_FP,int SG_ARGC,void * data_)3657 static SgObject core_cadddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3658 {
3659   SgObject o_scm;
3660   SgObject o;
3661   SG_ENTER_SUBR("cadddr");
3662   if (SG_ARGC != 1)
3663     Sg_WrongNumberOfArgumentsViolation(
3664      SG_INTERN("cadddr"), 1, SG_ARGC, SG_NIL);
3665   o_scm = SG_ARGREF(0);
3666   o = (o_scm);
3667   {
3668 {
3669 SgObject SG_RESULT = (SgObject)NULL;
3670 
3671 #line 449 "./lib_core.stub"
3672 SG_RESULT=(Sg_Cadr(Sg_Cddr(o)));
3673 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3674 }
3675   }
3676 }
3677 static SG_DEFINE_SUBR(core_cadddr__STUB, 1, 0,core_cadddr, SG_FALSE, NULL);
3678 
core_cdaaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3679 static SgObject core_cdaaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3680 {
3681   SgObject obj_scm;
3682   SgObject obj;
3683   SgObject value_scm;
3684   SgObject value;
3685   SG_ENTER_SUBR("(setter cdaaar)");
3686   if (SG_ARGC != 2)
3687     Sg_WrongNumberOfArgumentsViolation(
3688      SG_INTERN("(setter cdaaar)"), 2, SG_ARGC, SG_NIL);
3689   obj_scm = SG_ARGREF(0);
3690   obj = (obj_scm);
3691   value_scm = SG_ARGREF(1);
3692   value = (value_scm);
3693   {
3694 
3695 #line 451 "./lib_core.stub"
3696 CXXR_SETTER(D,a,aa);
3697 SG_RETURN(SG_UNDEF);
3698   }
3699 }
3700 static SG_DEFINE_SUBR(core_cdaaar_SETTER__STUB, 2, 0,core_cdaaar_SETTER, SG_FALSE, NULL);
3701 
core_cdaaar(SgObject * SG_FP,int SG_ARGC,void * data_)3702 static SgObject core_cdaaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3703 {
3704   SgObject o_scm;
3705   SgObject o;
3706   SG_ENTER_SUBR("cdaaar");
3707   if (SG_ARGC != 1)
3708     Sg_WrongNumberOfArgumentsViolation(
3709      SG_INTERN("cdaaar"), 1, SG_ARGC, SG_NIL);
3710   o_scm = SG_ARGREF(0);
3711   o = (o_scm);
3712   {
3713 {
3714 SgObject SG_RESULT = (SgObject)NULL;
3715 
3716 #line 452 "./lib_core.stub"
3717 SG_RESULT=(Sg_Cdar(Sg_Caar(o)));
3718 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3719 }
3720   }
3721 }
3722 static SG_DEFINE_SUBR(core_cdaaar__STUB, 1, 0,core_cdaaar, SG_FALSE, NULL);
3723 
core_cdaadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3724 static SgObject core_cdaadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3725 {
3726   SgObject obj_scm;
3727   SgObject obj;
3728   SgObject value_scm;
3729   SgObject value;
3730   SG_ENTER_SUBR("(setter cdaadr)");
3731   if (SG_ARGC != 2)
3732     Sg_WrongNumberOfArgumentsViolation(
3733      SG_INTERN("(setter cdaadr)"), 2, SG_ARGC, SG_NIL);
3734   obj_scm = SG_ARGREF(0);
3735   obj = (obj_scm);
3736   value_scm = SG_ARGREF(1);
3737   value = (value_scm);
3738   {
3739 
3740 #line 454 "./lib_core.stub"
3741 CXXR_SETTER(D,a,ad);
3742 SG_RETURN(SG_UNDEF);
3743   }
3744 }
3745 static SG_DEFINE_SUBR(core_cdaadr_SETTER__STUB, 2, 0,core_cdaadr_SETTER, SG_FALSE, NULL);
3746 
core_cdaadr(SgObject * SG_FP,int SG_ARGC,void * data_)3747 static SgObject core_cdaadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3748 {
3749   SgObject o_scm;
3750   SgObject o;
3751   SG_ENTER_SUBR("cdaadr");
3752   if (SG_ARGC != 1)
3753     Sg_WrongNumberOfArgumentsViolation(
3754      SG_INTERN("cdaadr"), 1, SG_ARGC, SG_NIL);
3755   o_scm = SG_ARGREF(0);
3756   o = (o_scm);
3757   {
3758 {
3759 SgObject SG_RESULT = (SgObject)NULL;
3760 
3761 #line 455 "./lib_core.stub"
3762 SG_RESULT=(Sg_Cdar(Sg_Cadr(o)));
3763 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3764 }
3765   }
3766 }
3767 static SG_DEFINE_SUBR(core_cdaadr__STUB, 1, 0,core_cdaadr, SG_FALSE, NULL);
3768 
core_cdadar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3769 static SgObject core_cdadar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3770 {
3771   SgObject obj_scm;
3772   SgObject obj;
3773   SgObject value_scm;
3774   SgObject value;
3775   SG_ENTER_SUBR("(setter cdadar)");
3776   if (SG_ARGC != 2)
3777     Sg_WrongNumberOfArgumentsViolation(
3778      SG_INTERN("(setter cdadar)"), 2, SG_ARGC, SG_NIL);
3779   obj_scm = SG_ARGREF(0);
3780   obj = (obj_scm);
3781   value_scm = SG_ARGREF(1);
3782   value = (value_scm);
3783   {
3784 
3785 #line 457 "./lib_core.stub"
3786 CXXR_SETTER(D,a,da);
3787 SG_RETURN(SG_UNDEF);
3788   }
3789 }
3790 static SG_DEFINE_SUBR(core_cdadar_SETTER__STUB, 2, 0,core_cdadar_SETTER, SG_FALSE, NULL);
3791 
core_cdadar(SgObject * SG_FP,int SG_ARGC,void * data_)3792 static SgObject core_cdadar(SgObject *SG_FP, int SG_ARGC, void *data_)
3793 {
3794   SgObject o_scm;
3795   SgObject o;
3796   SG_ENTER_SUBR("cdadar");
3797   if (SG_ARGC != 1)
3798     Sg_WrongNumberOfArgumentsViolation(
3799      SG_INTERN("cdadar"), 1, SG_ARGC, SG_NIL);
3800   o_scm = SG_ARGREF(0);
3801   o = (o_scm);
3802   {
3803 {
3804 SgObject SG_RESULT = (SgObject)NULL;
3805 
3806 #line 458 "./lib_core.stub"
3807 SG_RESULT=(Sg_Cdar(Sg_Cdar(o)));
3808 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3809 }
3810   }
3811 }
3812 static SG_DEFINE_SUBR(core_cdadar__STUB, 1, 0,core_cdadar, SG_FALSE, NULL);
3813 
core_cdaddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3814 static SgObject core_cdaddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3815 {
3816   SgObject obj_scm;
3817   SgObject obj;
3818   SgObject value_scm;
3819   SgObject value;
3820   SG_ENTER_SUBR("(setter cdaddr)");
3821   if (SG_ARGC != 2)
3822     Sg_WrongNumberOfArgumentsViolation(
3823      SG_INTERN("(setter cdaddr)"), 2, SG_ARGC, SG_NIL);
3824   obj_scm = SG_ARGREF(0);
3825   obj = (obj_scm);
3826   value_scm = SG_ARGREF(1);
3827   value = (value_scm);
3828   {
3829 
3830 #line 460 "./lib_core.stub"
3831 CXXR_SETTER(D,a,dd);
3832 SG_RETURN(SG_UNDEF);
3833   }
3834 }
3835 static SG_DEFINE_SUBR(core_cdaddr_SETTER__STUB, 2, 0,core_cdaddr_SETTER, SG_FALSE, NULL);
3836 
core_cdaddr(SgObject * SG_FP,int SG_ARGC,void * data_)3837 static SgObject core_cdaddr(SgObject *SG_FP, int SG_ARGC, void *data_)
3838 {
3839   SgObject o_scm;
3840   SgObject o;
3841   SG_ENTER_SUBR("cdaddr");
3842   if (SG_ARGC != 1)
3843     Sg_WrongNumberOfArgumentsViolation(
3844      SG_INTERN("cdaddr"), 1, SG_ARGC, SG_NIL);
3845   o_scm = SG_ARGREF(0);
3846   o = (o_scm);
3847   {
3848 {
3849 SgObject SG_RESULT = (SgObject)NULL;
3850 
3851 #line 461 "./lib_core.stub"
3852 SG_RESULT=(Sg_Cdar(Sg_Cddr(o)));
3853 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3854 }
3855   }
3856 }
3857 static SG_DEFINE_SUBR(core_cdaddr__STUB, 1, 0,core_cdaddr, SG_FALSE, NULL);
3858 
core_cddaar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3859 static SgObject core_cddaar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3860 {
3861   SgObject obj_scm;
3862   SgObject obj;
3863   SgObject value_scm;
3864   SgObject value;
3865   SG_ENTER_SUBR("(setter cddaar)");
3866   if (SG_ARGC != 2)
3867     Sg_WrongNumberOfArgumentsViolation(
3868      SG_INTERN("(setter cddaar)"), 2, SG_ARGC, SG_NIL);
3869   obj_scm = SG_ARGREF(0);
3870   obj = (obj_scm);
3871   value_scm = SG_ARGREF(1);
3872   value = (value_scm);
3873   {
3874 
3875 #line 463 "./lib_core.stub"
3876 CXXR_SETTER(D,d,aa);
3877 SG_RETURN(SG_UNDEF);
3878   }
3879 }
3880 static SG_DEFINE_SUBR(core_cddaar_SETTER__STUB, 2, 0,core_cddaar_SETTER, SG_FALSE, NULL);
3881 
core_cddaar(SgObject * SG_FP,int SG_ARGC,void * data_)3882 static SgObject core_cddaar(SgObject *SG_FP, int SG_ARGC, void *data_)
3883 {
3884   SgObject o_scm;
3885   SgObject o;
3886   SG_ENTER_SUBR("cddaar");
3887   if (SG_ARGC != 1)
3888     Sg_WrongNumberOfArgumentsViolation(
3889      SG_INTERN("cddaar"), 1, SG_ARGC, SG_NIL);
3890   o_scm = SG_ARGREF(0);
3891   o = (o_scm);
3892   {
3893 {
3894 SgObject SG_RESULT = (SgObject)NULL;
3895 
3896 #line 464 "./lib_core.stub"
3897 SG_RESULT=(Sg_Cddr(Sg_Caar(o)));
3898 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3899 }
3900   }
3901 }
3902 static SG_DEFINE_SUBR(core_cddaar__STUB, 1, 0,core_cddaar, SG_FALSE, NULL);
3903 
core_cddadr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3904 static SgObject core_cddadr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3905 {
3906   SgObject obj_scm;
3907   SgObject obj;
3908   SgObject value_scm;
3909   SgObject value;
3910   SG_ENTER_SUBR("(setter cddadr)");
3911   if (SG_ARGC != 2)
3912     Sg_WrongNumberOfArgumentsViolation(
3913      SG_INTERN("(setter cddadr)"), 2, SG_ARGC, SG_NIL);
3914   obj_scm = SG_ARGREF(0);
3915   obj = (obj_scm);
3916   value_scm = SG_ARGREF(1);
3917   value = (value_scm);
3918   {
3919 
3920 #line 466 "./lib_core.stub"
3921 CXXR_SETTER(D,d,ad);
3922 SG_RETURN(SG_UNDEF);
3923   }
3924 }
3925 static SG_DEFINE_SUBR(core_cddadr_SETTER__STUB, 2, 0,core_cddadr_SETTER, SG_FALSE, NULL);
3926 
core_cddadr(SgObject * SG_FP,int SG_ARGC,void * data_)3927 static SgObject core_cddadr(SgObject *SG_FP, int SG_ARGC, void *data_)
3928 {
3929   SgObject o_scm;
3930   SgObject o;
3931   SG_ENTER_SUBR("cddadr");
3932   if (SG_ARGC != 1)
3933     Sg_WrongNumberOfArgumentsViolation(
3934      SG_INTERN("cddadr"), 1, SG_ARGC, SG_NIL);
3935   o_scm = SG_ARGREF(0);
3936   o = (o_scm);
3937   {
3938 {
3939 SgObject SG_RESULT = (SgObject)NULL;
3940 
3941 #line 467 "./lib_core.stub"
3942 SG_RESULT=(Sg_Cddr(Sg_Cadr(o)));
3943 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3944 }
3945   }
3946 }
3947 static SG_DEFINE_SUBR(core_cddadr__STUB, 1, 0,core_cddadr, SG_FALSE, NULL);
3948 
core_cdddar_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3949 static SgObject core_cdddar_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3950 {
3951   SgObject obj_scm;
3952   SgObject obj;
3953   SgObject value_scm;
3954   SgObject value;
3955   SG_ENTER_SUBR("(setter cdddar)");
3956   if (SG_ARGC != 2)
3957     Sg_WrongNumberOfArgumentsViolation(
3958      SG_INTERN("(setter cdddar)"), 2, SG_ARGC, SG_NIL);
3959   obj_scm = SG_ARGREF(0);
3960   obj = (obj_scm);
3961   value_scm = SG_ARGREF(1);
3962   value = (value_scm);
3963   {
3964 
3965 #line 469 "./lib_core.stub"
3966 CXXR_SETTER(D,d,da);
3967 SG_RETURN(SG_UNDEF);
3968   }
3969 }
3970 static SG_DEFINE_SUBR(core_cdddar_SETTER__STUB, 2, 0,core_cdddar_SETTER, SG_FALSE, NULL);
3971 
core_cdddar(SgObject * SG_FP,int SG_ARGC,void * data_)3972 static SgObject core_cdddar(SgObject *SG_FP, int SG_ARGC, void *data_)
3973 {
3974   SgObject o_scm;
3975   SgObject o;
3976   SG_ENTER_SUBR("cdddar");
3977   if (SG_ARGC != 1)
3978     Sg_WrongNumberOfArgumentsViolation(
3979      SG_INTERN("cdddar"), 1, SG_ARGC, SG_NIL);
3980   o_scm = SG_ARGREF(0);
3981   o = (o_scm);
3982   {
3983 {
3984 SgObject SG_RESULT = (SgObject)NULL;
3985 
3986 #line 470 "./lib_core.stub"
3987 SG_RESULT=(Sg_Cddr(Sg_Cdar(o)));
3988 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
3989 }
3990   }
3991 }
3992 static SG_DEFINE_SUBR(core_cdddar__STUB, 1, 0,core_cdddar, SG_FALSE, NULL);
3993 
core_cddddr_SETTER(SgObject * SG_FP,int SG_ARGC,void * data_)3994 static SgObject core_cddddr_SETTER(SgObject *SG_FP, int SG_ARGC, void *data_)
3995 {
3996   SgObject obj_scm;
3997   SgObject obj;
3998   SgObject value_scm;
3999   SgObject value;
4000   SG_ENTER_SUBR("(setter cddddr)");
4001   if (SG_ARGC != 2)
4002     Sg_WrongNumberOfArgumentsViolation(
4003      SG_INTERN("(setter cddddr)"), 2, SG_ARGC, SG_NIL);
4004   obj_scm = SG_ARGREF(0);
4005   obj = (obj_scm);
4006   value_scm = SG_ARGREF(1);
4007   value = (value_scm);
4008   {
4009 
4010 #line 472 "./lib_core.stub"
4011 CXXR_SETTER(D,d,dd);
4012 SG_RETURN(SG_UNDEF);
4013   }
4014 }
4015 static SG_DEFINE_SUBR(core_cddddr_SETTER__STUB, 2, 0,core_cddddr_SETTER, SG_FALSE, NULL);
4016 
core_cddddr(SgObject * SG_FP,int SG_ARGC,void * data_)4017 static SgObject core_cddddr(SgObject *SG_FP, int SG_ARGC, void *data_)
4018 {
4019   SgObject o_scm;
4020   SgObject o;
4021   SG_ENTER_SUBR("cddddr");
4022   if (SG_ARGC != 1)
4023     Sg_WrongNumberOfArgumentsViolation(
4024      SG_INTERN("cddddr"), 1, SG_ARGC, SG_NIL);
4025   o_scm = SG_ARGREF(0);
4026   o = (o_scm);
4027   {
4028 {
4029 SgObject SG_RESULT = (SgObject)NULL;
4030 
4031 #line 473 "./lib_core.stub"
4032 SG_RESULT=(Sg_Cddr(Sg_Cddr(o)));
4033 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4034 }
4035   }
4036 }
4037 static SG_DEFINE_SUBR(core_cddddr__STUB, 1, 0,core_cddddr, SG_FALSE, NULL);
4038 
core_listP(SgObject * SG_FP,int SG_ARGC,void * data_)4039 static SgObject core_listP(SgObject *SG_FP, int SG_ARGC, void *data_)
4040 {
4041   SgObject arg0_scm;
4042   SgObject arg0;
4043   SG_ENTER_SUBR("list?");
4044   if (SG_ARGC != 1)
4045     Sg_WrongNumberOfArgumentsViolation(
4046      SG_INTERN("list?"), 1, SG_ARGC, SG_NIL);
4047   arg0_scm = SG_ARGREF(0);
4048   arg0 = (arg0_scm);
4049   {
4050 {
4051 int SG_RESULT = (int)FALSE;
4052 SG_RESULT=(SG_PROPER_LISTP(arg0));
4053 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4054 }
4055   }
4056 }
4057 static SG_DEFINE_SUBR(core_listP__STUB, 1, 0,core_listP, SG_FALSE, NULL);
4058 
core_list(SgObject * SG_FP,int SG_ARGC,void * data_)4059 static SgObject core_list(SgObject *SG_FP, int SG_ARGC, void *data_)
4060 {
4061   SgObject rest_scm;
4062   SgObject rest;
4063   SG_ENTER_SUBR("list");
4064   if (SG_ARGC < 0)
4065     Sg_WrongNumberOfArgumentsAtLeastViolation(
4066      SG_INTERN("list"), 0, SG_ARGC, SG_NIL);
4067   rest_scm = SG_ARGREF(SG_ARGC-1);
4068   rest = (rest_scm);
4069   {
4070 {
4071 SgObject SG_RESULT = (SgObject)NULL;
4072 
4073 #line 477 "./lib_core.stub"
4074 SG_RESULT=(rest);
4075 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4076 }
4077   }
4078 }
4079 static SG_DEFINE_SUBR(core_list__STUB, 0, 1,core_list, SG_MAKE_INT(LIST), NULL);
4080 
core_length(SgObject * SG_FP,int SG_ARGC,void * data_)4081 static SgObject core_length(SgObject *SG_FP, int SG_ARGC, void *data_)
4082 {
4083   SgObject lst_scm;
4084   SgObject lst;
4085   SG_ENTER_SUBR("length");
4086   if (SG_ARGC != 1)
4087     Sg_WrongNumberOfArgumentsViolation(
4088      SG_INTERN("length"), 1, SG_ARGC, SG_NIL);
4089   lst_scm = SG_ARGREF(0);
4090   lst = (lst_scm);
4091   {
4092 {
4093 long SG_RESULT = (long)0;
4094 SG_RESULT=(Sg_Length(lst));
4095 SG_RETURN(SG_MAKE_INT(SG_RESULT));
4096 }
4097   }
4098 }
4099 static SG_DEFINE_SUBR(core_length__STUB, 1, 0,core_length, SG_FALSE, NULL);
4100 
core_append(SgObject * SG_FP,int SG_ARGC,void * data_)4101 static SgObject core_append(SgObject *SG_FP, int SG_ARGC, void *data_)
4102 {
4103   SgObject lst_scm;
4104   SgObject lst;
4105   SG_ENTER_SUBR("append");
4106   if (SG_ARGC < 0)
4107     Sg_WrongNumberOfArgumentsAtLeastViolation(
4108      SG_INTERN("append"), 0, SG_ARGC, SG_NIL);
4109   lst_scm = SG_ARGREF(SG_ARGC-1);
4110   lst = (lst_scm);
4111   {
4112 {
4113 SgObject SG_RESULT = (SgObject)NULL;
4114 SG_RESULT=(Sg_Append(lst));
4115 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4116 }
4117   }
4118 }
4119 static SG_DEFINE_SUBR(core_append__STUB, 0, 1,core_append, SG_MAKE_INT(APPEND), NULL);
4120 
core_reverse(SgObject * SG_FP,int SG_ARGC,void * data_)4121 static SgObject core_reverse(SgObject *SG_FP, int SG_ARGC, void *data_)
4122 {
4123   SgObject lst_scm;
4124   SgObject lst;
4125   SG_ENTER_SUBR("reverse");
4126   if (SG_ARGC != 1)
4127     Sg_WrongNumberOfArgumentsViolation(
4128      SG_INTERN("reverse"), 1, SG_ARGC, SG_NIL);
4129   lst_scm = SG_ARGREF(0);
4130   lst = (lst_scm);
4131   {
4132 {
4133 SgObject SG_RESULT = (SgObject)NULL;
4134 SG_RESULT=(Sg_Reverse(lst));
4135 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4136 }
4137   }
4138 }
4139 static SG_DEFINE_SUBR(core_reverse__STUB, 1, 0,core_reverse, SG_FALSE, NULL);
4140 
core_list_tail(SgObject * SG_FP,int SG_ARGC,void * data_)4141 static SgObject core_list_tail(SgObject *SG_FP, int SG_ARGC, void *data_)
4142 {
4143   SgObject lst_scm;
4144   SgObject lst;
4145   SgObject k_scm;
4146   long k;
4147   SgObject fallback_scm;
4148   SgObject fallback;
4149   SG_ENTER_SUBR("list-tail");
4150   if ((SG_ARGC > 3 &&
4151       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4152       SG_ARGC < 2)
4153     Sg_WrongNumberOfArgumentsBetweenViolation(
4154      SG_INTERN("list-tail"), 2, 3, SG_ARGC, SG_NIL);
4155   lst_scm = SG_ARGREF(0);
4156   lst = (lst_scm);
4157   k_scm = SG_ARGREF(1);
4158   if (!SG_INTP(k_scm))
4159     Sg_WrongTypeOfArgumentViolation(
4160        sg__rc_cgen9166.d9486[163], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4161   k = SG_INT_VALUE(k_scm);
4162   if (SG_ARGC > 2+1) {
4163     fallback_scm = SG_ARGREF(2);
4164   } else {
4165     fallback_scm = SG_UNBOUND;
4166   }
4167   fallback = (fallback_scm);
4168   {
4169 {
4170 SgObject SG_RESULT = (SgObject)NULL;
4171 SG_RESULT=(Sg_ListTail(lst,k,fallback));
4172 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4173 }
4174   }
4175 }
4176 static SG_DEFINE_SUBR(core_list_tail__STUB, 2, 2,core_list_tail, SG_FALSE, NULL);
4177 
core_list_setX(SgObject * SG_FP,int SG_ARGC,void * data_)4178 static SgObject core_list_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
4179 {
4180   SgObject lst_scm;
4181   SgObject lst;
4182   SgObject k_scm;
4183   long k;
4184   SgObject v_scm;
4185   SgObject v;
4186   SG_ENTER_SUBR("list-set!");
4187   if (SG_ARGC != 3)
4188     Sg_WrongNumberOfArgumentsViolation(
4189      SG_INTERN("list-set!"), 3, SG_ARGC, SG_NIL);
4190   lst_scm = SG_ARGREF(0);
4191   lst = (lst_scm);
4192   k_scm = SG_ARGREF(1);
4193   if (!SG_INTP(k_scm))
4194     Sg_WrongTypeOfArgumentViolation(
4195        sg__rc_cgen9166.d9486[164], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4196   k = SG_INT_VALUE(k_scm);
4197   v_scm = SG_ARGREF(2);
4198   v = (v_scm);
4199   {
4200 {
4201 SgObject SG_RESULT = (SgObject)NULL;
4202 
4203 #line 487 "./lib_core.stub"
4204 {SgObject p=Sg_ListTail(lst,k,SG_FALSE);
4205 if (SG_PAIRP(p)){
4206 SG_SET_CAR(p,v);} else {
4207 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[165],SG_MAKE_STRING("index out of bound"),
4208 SG_LIST2(lst,SG_MAKE_INT(k)));}}}
4209 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4210 }
4211   }
4212 }
4213 static SG_DEFINE_SUBR(core_list_setX__STUB, 3, 0,core_list_setX, SG_FALSE, NULL);
4214 
core_list_ref(SgObject * SG_FP,int SG_ARGC,void * data_)4215 static SgObject core_list_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
4216 {
4217   SgObject lst_scm;
4218   SgObject lst;
4219   SgObject k_scm;
4220   long k;
4221   SgObject fallback_scm;
4222   SgObject fallback;
4223   SG_ENTER_SUBR("list-ref");
4224   if ((SG_ARGC > 3 &&
4225       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4226       SG_ARGC < 2)
4227     Sg_WrongNumberOfArgumentsBetweenViolation(
4228      SG_INTERN("list-ref"), 2, 3, SG_ARGC, SG_NIL);
4229   lst_scm = SG_ARGREF(0);
4230   lst = (lst_scm);
4231   k_scm = SG_ARGREF(1);
4232   if (!SG_INTP(k_scm))
4233     Sg_WrongTypeOfArgumentViolation(
4234        sg__rc_cgen9166.d9486[166], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4235   k = SG_INT_VALUE(k_scm);
4236   if (SG_ARGC > 2+1) {
4237     fallback_scm = SG_ARGREF(2);
4238   } else {
4239     fallback_scm = SG_UNBOUND;
4240   }
4241   fallback = (fallback_scm);
4242   {
4243 {
4244 SgObject SG_RESULT = (SgObject)NULL;
4245 SG_RESULT=(Sg_ListRef(lst,k,fallback));
4246 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4247 }
4248   }
4249 }
4250 static SG_DEFINE_SUBR(core_list_ref__STUB, 2, 2,core_list_ref, SG_FALSE, NULL);
4251 
core_last_pair(SgObject * SG_FP,int SG_ARGC,void * data_)4252 static SgObject core_last_pair(SgObject *SG_FP, int SG_ARGC, void *data_)
4253 {
4254   SgObject lst_scm;
4255   SgObject lst;
4256   SG_ENTER_SUBR("last-pair");
4257   if (SG_ARGC != 1)
4258     Sg_WrongNumberOfArgumentsViolation(
4259      SG_INTERN("last-pair"), 1, SG_ARGC, SG_NIL);
4260   lst_scm = SG_ARGREF(0);
4261   lst = (lst_scm);
4262   {
4263 {
4264 SgObject SG_RESULT = (SgObject)NULL;
4265 SG_RESULT=(Sg_LastPair(lst));
4266 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4267 }
4268   }
4269 }
4270 static SG_DEFINE_SUBR(core_last_pair__STUB, 1, 0,core_last_pair, SG_FALSE, NULL);
4271 
core_symbol_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)4272 static SgObject core_symbol_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
4273 {
4274   SgObject z_scm;
4275   SgSymbol* z;
4276   SG_ENTER_SUBR("symbol->string");
4277   if (SG_ARGC != 1)
4278     Sg_WrongNumberOfArgumentsViolation(
4279      SG_INTERN("symbol->string"), 1, SG_ARGC, SG_NIL);
4280   z_scm = SG_ARGREF(0);
4281   if (!SG_SYMBOLP(z_scm))
4282     Sg_WrongTypeOfArgumentViolation(
4283        sg__rc_cgen9166.d9486[168], SG_MAKE_STRING("symbol"), z_scm, SG_NIL);
4284   z = SG_SYMBOL(z_scm);
4285   {
4286 {
4287 SgObject SG_RESULT = (SgObject)NULL;
4288 SG_RESULT=(SG_SYMBOL_NAME(z));
4289 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4290 }
4291   }
4292 }
4293 static SG_DEFINE_SUBR(core_symbol_TOstring__STUB, 1, 0,core_symbol_TOstring, SG_FALSE, NULL);
4294 
core_symbol_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4295 static SgObject core_symbol_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4296 {
4297   SgObject s1_scm;
4298   SgSymbol* s1;
4299   SgObject s2_scm;
4300   SgSymbol* s2;
4301   SgObject rest_scm;
4302   SgObject rest;
4303   SG_ENTER_SUBR("symbol=?");
4304   if (SG_ARGC < 2)
4305     Sg_WrongNumberOfArgumentsAtLeastViolation(
4306      SG_INTERN("symbol=?"), 2, SG_ARGC, SG_NIL);
4307   s1_scm = SG_ARGREF(0);
4308   if (!SG_SYMBOLP(s1_scm))
4309     Sg_WrongTypeOfArgumentViolation(
4310        sg__rc_cgen9166.d9486[169], SG_MAKE_STRING("symbol"), s1_scm, SG_NIL);
4311   s1 = SG_SYMBOL(s1_scm);
4312   s2_scm = SG_ARGREF(1);
4313   if (!SG_SYMBOLP(s2_scm))
4314     Sg_WrongTypeOfArgumentViolation(
4315        sg__rc_cgen9166.d9486[169], SG_MAKE_STRING("symbol"), s2_scm, SG_NIL);
4316   s2 = SG_SYMBOL(s2_scm);
4317   rest_scm = SG_ARGREF(SG_ARGC-1);
4318   rest = (rest_scm);
4319   {
4320 {
4321 int SG_RESULT = (int)FALSE;
4322 SgObject cise__9811;
4323 #line 508 "./lib_core.stub"
4324 {if ((!(SG_SYMBOLP(s1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[170],SG_MAKE_STRING("symbol"),s1,SG_NIL);}}}if ((!(SG_SYMBOLP(s2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[170],SG_MAKE_STRING("symbol"),s2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=(SG_EQ(s1,s2));}else if((!(SG_EQ(s1,s2)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__9811,rest) {{SgObject p=SG_CAR(cise__9811);if ((!(SG_SYMBOLP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[170],SG_MAKE_STRING("symbol"),p,SG_NIL);}}}if ((!(SG_EQ(prev,p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4325 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4326 }
4327   }
4328 }
4329 static SG_DEFINE_SUBR(core_symbol_3dP__STUB, 2, 1,core_symbol_3dP, SG_FALSE, NULL);
4330 
core_string_TOsymbol(SgObject * SG_FP,int SG_ARGC,void * data_)4331 static SgObject core_string_TOsymbol(SgObject *SG_FP, int SG_ARGC, void *data_)
4332 {
4333   SgObject z_scm;
4334   SgString* z;
4335   SG_ENTER_SUBR("string->symbol");
4336   if (SG_ARGC != 1)
4337     Sg_WrongNumberOfArgumentsViolation(
4338      SG_INTERN("string->symbol"), 1, SG_ARGC, SG_NIL);
4339   z_scm = SG_ARGREF(0);
4340   if (!SG_STRINGP(z_scm))
4341     Sg_WrongTypeOfArgumentViolation(
4342        sg__rc_cgen9166.d9486[171], SG_MAKE_STRING("string"), z_scm, SG_NIL);
4343   z = SG_STRING(z_scm);
4344   {
4345 {
4346 SgObject SG_RESULT = (SgObject)NULL;
4347 SG_RESULT=(Sg_Intern(z));
4348 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4349 }
4350   }
4351 }
4352 static SG_DEFINE_SUBR(core_string_TOsymbol__STUB, 1, 0,core_string_TOsymbol, SG_FALSE, NULL);
4353 
core_char_TOinteger(SgObject * SG_FP,int SG_ARGC,void * data_)4354 static SgObject core_char_TOinteger(SgObject *SG_FP, int SG_ARGC, void *data_)
4355 {
4356   SgObject c_scm;
4357   SgChar c;
4358   SG_ENTER_SUBR("char->integer");
4359   if (SG_ARGC != 1)
4360     Sg_WrongNumberOfArgumentsViolation(
4361      SG_INTERN("char->integer"), 1, SG_ARGC, SG_NIL);
4362   c_scm = SG_ARGREF(0);
4363   if (!SG_CHARP(c_scm))
4364     Sg_WrongTypeOfArgumentViolation(
4365        sg__rc_cgen9166.d9486[172], SG_MAKE_STRING("character"), c_scm, SG_NIL);
4366   c = SG_CHAR_VALUE(c_scm);
4367   {
4368 {
4369 SgObject SG_RESULT = (SgObject)NULL;
4370 SG_RESULT=(SG_MAKE_INT(c));
4371 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4372 }
4373   }
4374 }
4375 static SG_DEFINE_SUBR(core_char_TOinteger__STUB, 1, 0,core_char_TOinteger, SG_FALSE, NULL);
4376 
core_integer_TOchar(SgObject * SG_FP,int SG_ARGC,void * data_)4377 static SgObject core_integer_TOchar(SgObject *SG_FP, int SG_ARGC, void *data_)
4378 {
4379   SgObject ch_scm;
4380   long ch;
4381   SG_ENTER_SUBR("integer->char");
4382   if (SG_ARGC != 1)
4383     Sg_WrongNumberOfArgumentsViolation(
4384      SG_INTERN("integer->char"), 1, SG_ARGC, SG_NIL);
4385   ch_scm = SG_ARGREF(0);
4386   if (!SG_INTP(ch_scm))
4387     Sg_WrongTypeOfArgumentViolation(
4388        sg__rc_cgen9166.d9486[173], SG_MAKE_STRING("fixnum"), ch_scm, SG_NIL);
4389   ch = SG_INT_VALUE(ch_scm);
4390   {
4391 {
4392 SgObject SG_RESULT = (SgObject)NULL;
4393 
4394 #line 521 "./lib_core.stub"
4395 if ((!((((0)<=(ch))&&((ch)<=(55295)))||(
4396 ((57344)<=(ch))&&((ch)<=(1114111)))))){{
4397 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[174],SG_MAKE_STRING("code point out of range"),
4398 SG_MAKE_INT(ch));}}}
4399 
4400 #line 525 "./lib_core.stub"
4401 SG_RESULT=(SG_MAKE_CHAR(ch));
4402 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4403 }
4404   }
4405 }
4406 static SG_DEFINE_SUBR(core_integer_TOchar__STUB, 1, 0,core_integer_TOchar, SG_FALSE, NULL);
4407 
core_char_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4408 static SgObject core_char_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4409 {
4410   SgObject c1_scm;
4411   SgObject c1;
4412   SgObject c2_scm;
4413   SgObject c2;
4414   SgObject rest_scm;
4415   SgObject rest;
4416   SG_ENTER_SUBR("char=?");
4417   if (SG_ARGC < 2)
4418     Sg_WrongNumberOfArgumentsAtLeastViolation(
4419      SG_INTERN("char=?"), 2, SG_ARGC, SG_NIL);
4420   c1_scm = SG_ARGREF(0);
4421   c1 = (c1_scm);
4422   c2_scm = SG_ARGREF(1);
4423   c2 = (c2_scm);
4424   rest_scm = SG_ARGREF(SG_ARGC-1);
4425   rest = (rest_scm);
4426   {
4427 {
4428 int SG_RESULT = (int)FALSE;
4429 SgObject cise__9843;
4430 #line 528 "./lib_core.stub"
4431 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[176],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[176],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=(SG_EQ(c1,c2));}else if((!(SG_EQ(c1,c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9843,rest) {{SgObject p=SG_CAR(cise__9843);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[176],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!(SG_EQ(prev,p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4432 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4433 }
4434   }
4435 }
4436 static SG_DEFINE_SUBR(core_char_3dP__STUB, 2, 1,core_char_3dP, SG_FALSE, NULL);
4437 
core_char_LTP(SgObject * SG_FP,int SG_ARGC,void * data_)4438 static SgObject core_char_LTP(SgObject *SG_FP, int SG_ARGC, void *data_)
4439 {
4440   SgObject c1_scm;
4441   SgObject c1;
4442   SgObject c2_scm;
4443   SgObject c2;
4444   SgObject rest_scm;
4445   SgObject rest;
4446   SG_ENTER_SUBR("char<?");
4447   if (SG_ARGC < 2)
4448     Sg_WrongNumberOfArgumentsAtLeastViolation(
4449      SG_INTERN("char<?"), 2, SG_ARGC, SG_NIL);
4450   c1_scm = SG_ARGREF(0);
4451   c1 = (c1_scm);
4452   c2_scm = SG_ARGREF(1);
4453   c2 = (c2_scm);
4454   rest_scm = SG_ARGREF(SG_ARGC-1);
4455   rest = (rest_scm);
4456   {
4457 {
4458 int SG_RESULT = (int)FALSE;
4459 SgObject cise__9902;
4460 #line 549 "./lib_core.stub"
4461 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[178],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[178],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=((c1)<(c2));}else if((!((c1)<(c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9902,rest) {{SgObject p=SG_CAR(cise__9902);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[178],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!((prev)<(p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4462 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4463 }
4464   }
4465 }
4466 static SG_DEFINE_SUBR(core_char_LTP__STUB, 2, 1,core_char_LTP, SG_FALSE, NULL);
4467 
core_char_GTP(SgObject * SG_FP,int SG_ARGC,void * data_)4468 static SgObject core_char_GTP(SgObject *SG_FP, int SG_ARGC, void *data_)
4469 {
4470   SgObject c1_scm;
4471   SgObject c1;
4472   SgObject c2_scm;
4473   SgObject c2;
4474   SgObject rest_scm;
4475   SgObject rest;
4476   SG_ENTER_SUBR("char>?");
4477   if (SG_ARGC < 2)
4478     Sg_WrongNumberOfArgumentsAtLeastViolation(
4479      SG_INTERN("char>?"), 2, SG_ARGC, SG_NIL);
4480   c1_scm = SG_ARGREF(0);
4481   c1 = (c1_scm);
4482   c2_scm = SG_ARGREF(1);
4483   c2 = (c2_scm);
4484   rest_scm = SG_ARGREF(SG_ARGC-1);
4485   rest = (rest_scm);
4486   {
4487 {
4488 int SG_RESULT = (int)FALSE;
4489 SgObject cise__9903;
4490 #line 552 "./lib_core.stub"
4491 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[180],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[180],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=((c1)>(c2));}else if((!((c1)>(c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9903,rest) {{SgObject p=SG_CAR(cise__9903);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[180],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!((prev)>(p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4492 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4493 }
4494   }
4495 }
4496 static SG_DEFINE_SUBR(core_char_GTP__STUB, 2, 1,core_char_GTP, SG_FALSE, NULL);
4497 
core_char_LT_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4498 static SgObject core_char_LT_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4499 {
4500   SgObject c1_scm;
4501   SgObject c1;
4502   SgObject c2_scm;
4503   SgObject c2;
4504   SgObject rest_scm;
4505   SgObject rest;
4506   SG_ENTER_SUBR("char<=?");
4507   if (SG_ARGC < 2)
4508     Sg_WrongNumberOfArgumentsAtLeastViolation(
4509      SG_INTERN("char<=?"), 2, SG_ARGC, SG_NIL);
4510   c1_scm = SG_ARGREF(0);
4511   c1 = (c1_scm);
4512   c2_scm = SG_ARGREF(1);
4513   c2 = (c2_scm);
4514   rest_scm = SG_ARGREF(SG_ARGC-1);
4515   rest = (rest_scm);
4516   {
4517 {
4518 int SG_RESULT = (int)FALSE;
4519 SgObject cise__9904;
4520 #line 555 "./lib_core.stub"
4521 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[182],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[182],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=((c1)<=(c2));}else if((!((c1)<=(c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9904,rest) {{SgObject p=SG_CAR(cise__9904);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[182],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!((prev)<=(p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4522 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4523 }
4524   }
4525 }
4526 static SG_DEFINE_SUBR(core_char_LT_3dP__STUB, 2, 1,core_char_LT_3dP, SG_FALSE, NULL);
4527 
core_char_GT_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4528 static SgObject core_char_GT_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4529 {
4530   SgObject c1_scm;
4531   SgObject c1;
4532   SgObject c2_scm;
4533   SgObject c2;
4534   SgObject rest_scm;
4535   SgObject rest;
4536   SG_ENTER_SUBR("char>=?");
4537   if (SG_ARGC < 2)
4538     Sg_WrongNumberOfArgumentsAtLeastViolation(
4539      SG_INTERN("char>=?"), 2, SG_ARGC, SG_NIL);
4540   c1_scm = SG_ARGREF(0);
4541   c1 = (c1_scm);
4542   c2_scm = SG_ARGREF(1);
4543   c2 = (c2_scm);
4544   rest_scm = SG_ARGREF(SG_ARGC-1);
4545   rest = (rest_scm);
4546   {
4547 {
4548 int SG_RESULT = (int)FALSE;
4549 SgObject cise__9905;
4550 #line 558 "./lib_core.stub"
4551 {if ((!(SG_CHARP(c1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[184],SG_MAKE_STRING("char"),c1,SG_NIL);}}}if ((!(SG_CHARP(c2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[184],SG_MAKE_STRING("char"),c2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=((c1)>=(c2));}else if((!((c1)>=(c2)))){SG_RESULT=(FALSE);} else {{SgObject prev=c2;SG_FOR_EACH(cise__9905,rest) {{SgObject p=SG_CAR(cise__9905);if ((!(SG_CHARP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[184],SG_MAKE_STRING("char"),p,SG_NIL);}}}if ((!((prev)>=(p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4552 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4553 }
4554   }
4555 }
4556 static SG_DEFINE_SUBR(core_char_GT_3dP__STUB, 2, 1,core_char_GT_3dP, SG_FALSE, NULL);
4557 
core_make_string(SgObject * SG_FP,int SG_ARGC,void * data_)4558 static SgObject core_make_string(SgObject *SG_FP, int SG_ARGC, void *data_)
4559 {
4560   SgObject k_scm;
4561   long k;
4562   SgObject c_scm;
4563   SgChar c;
4564   SG_ENTER_SUBR("make-string");
4565   if ((SG_ARGC > 2 &&
4566       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4567       SG_ARGC < 1)
4568     Sg_WrongNumberOfArgumentsBetweenViolation(
4569      SG_INTERN("make-string"), 1, 2, SG_ARGC, SG_NIL);
4570   k_scm = SG_ARGREF(0);
4571   if (!SG_INTP(k_scm))
4572     Sg_WrongTypeOfArgumentViolation(
4573        sg__rc_cgen9166.d9486[185], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4574   k = SG_INT_VALUE(k_scm);
4575   if (SG_ARGC > 1+1) {
4576     c_scm = SG_ARGREF(1);
4577   } else {
4578     c_scm = SG_MAKE_CHAR(32);
4579   }
4580   if (!SG_CHARP(c_scm) && !SG_CHARP(c_scm))
4581     Sg_WrongTypeOfArgumentViolation(
4582        sg__rc_cgen9166.d9486[185], SG_MAKE_STRING("character"), c_scm, SG_NIL);
4583   c = SG_CHAR_VALUE(c_scm);
4584   {
4585 {
4586 SgObject SG_RESULT = (SgObject)NULL;
4587 SG_RESULT=(Sg_ReserveString(k,c));
4588 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4589 }
4590   }
4591 }
4592 static SG_DEFINE_SUBR(core_make_string__STUB, 1, 2,core_make_string, SG_FALSE, NULL);
4593 
core_string(SgObject * SG_FP,int SG_ARGC,void * data_)4594 static SgObject core_string(SgObject *SG_FP, int SG_ARGC, void *data_)
4595 {
4596   SgObject rest_scm;
4597   SgObject rest;
4598   SG_ENTER_SUBR("string");
4599   if (SG_ARGC < 0)
4600     Sg_WrongNumberOfArgumentsAtLeastViolation(
4601      SG_INTERN("string"), 0, SG_ARGC, SG_NIL);
4602   rest_scm = SG_ARGREF(SG_ARGC-1);
4603   rest = (rest_scm);
4604   {
4605 {
4606 SgObject SG_RESULT = (SgObject)NULL;
4607 
4608 #line 569 "./lib_core.stub"
4609 SG_RESULT=(Sg_ListToString(rest,0,-1));
4610 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4611 }
4612   }
4613 }
4614 static SG_DEFINE_SUBR(core_string__STUB, 0, 1,core_string, SG_FALSE, NULL);
4615 
core_string_length(SgObject * SG_FP,int SG_ARGC,void * data_)4616 static SgObject core_string_length(SgObject *SG_FP, int SG_ARGC, void *data_)
4617 {
4618   SgObject s_scm;
4619   SgString* s;
4620   SG_ENTER_SUBR("string-length");
4621   if (SG_ARGC != 1)
4622     Sg_WrongNumberOfArgumentsViolation(
4623      SG_INTERN("string-length"), 1, SG_ARGC, SG_NIL);
4624   s_scm = SG_ARGREF(0);
4625   if (!SG_STRINGP(s_scm))
4626     Sg_WrongTypeOfArgumentViolation(
4627        sg__rc_cgen9166.d9486[187], SG_MAKE_STRING("string"), s_scm, SG_NIL);
4628   s = SG_STRING(s_scm);
4629   {
4630 {
4631 long SG_RESULT = (long)0;
4632 SG_RESULT=(SG_STRING_SIZE(s));
4633 SG_RETURN(SG_MAKE_INT(SG_RESULT));
4634 }
4635   }
4636 }
4637 static SG_DEFINE_SUBR(core_string_length__STUB, 1, 0,core_string_length, SG_FALSE, NULL);
4638 
core_string_ref(SgObject * SG_FP,int SG_ARGC,void * data_)4639 static SgObject core_string_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
4640 {
4641   SgObject s_scm;
4642   SgString* s;
4643   SgObject k_scm;
4644   long k;
4645   SgObject fallback_scm;
4646   SgObject fallback;
4647   SG_ENTER_SUBR("string-ref");
4648   if ((SG_ARGC > 3 &&
4649       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4650       SG_ARGC < 2)
4651     Sg_WrongNumberOfArgumentsBetweenViolation(
4652      SG_INTERN("string-ref"), 2, 3, SG_ARGC, SG_NIL);
4653   s_scm = SG_ARGREF(0);
4654   if (!SG_STRINGP(s_scm))
4655     Sg_WrongTypeOfArgumentViolation(
4656        sg__rc_cgen9166.d9486[188], SG_MAKE_STRING("string"), s_scm, SG_NIL);
4657   s = SG_STRING(s_scm);
4658   k_scm = SG_ARGREF(1);
4659   if (!SG_INTP(k_scm))
4660     Sg_WrongTypeOfArgumentViolation(
4661        sg__rc_cgen9166.d9486[188], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
4662   k = SG_INT_VALUE(k_scm);
4663   if (SG_ARGC > 2+1) {
4664     fallback_scm = SG_ARGREF(2);
4665   } else {
4666     fallback_scm = SG_UNBOUND;
4667   }
4668   fallback = (fallback_scm);
4669   {
4670 {
4671 SgObject SG_RESULT = (SgObject)NULL;
4672 
4673 #line 576 "./lib_core.stub"
4674 if (SG_UNBOUNDP(fallback)){
4675 SG_RESULT=(SG_MAKE_CHAR(Sg_StringRef(s,k)));}else if(
4676 ((0)<=(k))&&((k)<(SG_STRING_SIZE(s)))){
4677 SG_RESULT=(SG_MAKE_CHAR(Sg_StringRef(s,k)));} else {
4678 SG_RESULT=(fallback);}
4679 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4680 }
4681   }
4682 }
4683 static SG_DEFINE_SUBR(core_string_ref__STUB, 2, 2,core_string_ref, SG_FALSE, NULL);
4684 
core_string_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4685 static SgObject core_string_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4686 {
4687   SgObject s1_scm;
4688   SgString* s1;
4689   SgObject s2_scm;
4690   SgString* s2;
4691   SgObject rest_scm;
4692   SgObject rest;
4693   SG_ENTER_SUBR("string=?");
4694   if (SG_ARGC < 2)
4695     Sg_WrongNumberOfArgumentsAtLeastViolation(
4696      SG_INTERN("string=?"), 2, SG_ARGC, SG_NIL);
4697   s1_scm = SG_ARGREF(0);
4698   if (!SG_STRINGP(s1_scm))
4699     Sg_WrongTypeOfArgumentViolation(
4700        sg__rc_cgen9166.d9486[189], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4701   s1 = SG_STRING(s1_scm);
4702   s2_scm = SG_ARGREF(1);
4703   if (!SG_STRINGP(s2_scm))
4704     Sg_WrongTypeOfArgumentViolation(
4705        sg__rc_cgen9166.d9486[189], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4706   s2 = SG_STRING(s2_scm);
4707   rest_scm = SG_ARGREF(SG_ARGC-1);
4708   rest = (rest_scm);
4709   {
4710 {
4711 int SG_RESULT = (int)FALSE;
4712 SgObject cise__9937;
4713 #line 585 "./lib_core.stub"
4714 {if ((!(SG_STRINGP(s1)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[190],SG_MAKE_STRING("string"),s1,SG_NIL);}}}if ((!(SG_STRINGP(s2)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[190],SG_MAKE_STRING("string"),s2,SG_NIL);}}}if (SG_NULLP(rest)){SG_RESULT=(Sg_StringEqual(s1,s2));}else if((!(Sg_StringEqual(s1,s2)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__9937,rest) {{SgObject p=SG_CAR(cise__9937);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[190],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!(Sg_StringEqual(prev,p)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4715 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4716 }
4717   }
4718 }
4719 static SG_DEFINE_SUBR(core_string_3dP__STUB, 2, 1,core_string_3dP, SG_FALSE, NULL);
4720 
core_string_LTP(SgObject * SG_FP,int SG_ARGC,void * data_)4721 static SgObject core_string_LTP(SgObject *SG_FP, int SG_ARGC, void *data_)
4722 {
4723   SgObject s1_scm;
4724   SgString* s1;
4725   SgObject s2_scm;
4726   SgString* s2;
4727   SgObject rest_scm;
4728   SgObject rest;
4729   SG_ENTER_SUBR("string<?");
4730   if (SG_ARGC < 2)
4731     Sg_WrongNumberOfArgumentsAtLeastViolation(
4732      SG_INTERN("string<?"), 2, SG_ARGC, SG_NIL);
4733   s1_scm = SG_ARGREF(0);
4734   if (!SG_STRINGP(s1_scm))
4735     Sg_WrongTypeOfArgumentViolation(
4736        sg__rc_cgen9166.d9486[191], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4737   s1 = SG_STRING(s1_scm);
4738   s2_scm = SG_ARGREF(1);
4739   if (!SG_STRINGP(s2_scm))
4740     Sg_WrongTypeOfArgumentViolation(
4741        sg__rc_cgen9166.d9486[191], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4742   s2 = SG_STRING(s2_scm);
4743   rest_scm = SG_ARGREF(SG_ARGC-1);
4744   rest = (rest_scm);
4745   {
4746 {
4747 int SG_RESULT = (int)FALSE;
4748 SgObject cise__10005;
4749 #line 605 "./lib_core.stub"
4750 {if (SG_NULLP(rest)){SG_RESULT=((Sg_StringCompare(s1,s2))==(-1));}else if((!((Sg_StringCompare(s1,s2))==(-1)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__10005,rest) {{SgObject p=SG_CAR(cise__10005);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[192],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!((Sg_StringCompare(prev,p))==(-1)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4751 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4752 }
4753   }
4754 }
4755 static SG_DEFINE_SUBR(core_string_LTP__STUB, 2, 1,core_string_LTP, SG_FALSE, NULL);
4756 
core_string_GTP(SgObject * SG_FP,int SG_ARGC,void * data_)4757 static SgObject core_string_GTP(SgObject *SG_FP, int SG_ARGC, void *data_)
4758 {
4759   SgObject s1_scm;
4760   SgString* s1;
4761   SgObject s2_scm;
4762   SgString* s2;
4763   SgObject rest_scm;
4764   SgObject rest;
4765   SG_ENTER_SUBR("string>?");
4766   if (SG_ARGC < 2)
4767     Sg_WrongNumberOfArgumentsAtLeastViolation(
4768      SG_INTERN("string>?"), 2, SG_ARGC, SG_NIL);
4769   s1_scm = SG_ARGREF(0);
4770   if (!SG_STRINGP(s1_scm))
4771     Sg_WrongTypeOfArgumentViolation(
4772        sg__rc_cgen9166.d9486[193], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4773   s1 = SG_STRING(s1_scm);
4774   s2_scm = SG_ARGREF(1);
4775   if (!SG_STRINGP(s2_scm))
4776     Sg_WrongTypeOfArgumentViolation(
4777        sg__rc_cgen9166.d9486[193], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4778   s2 = SG_STRING(s2_scm);
4779   rest_scm = SG_ARGREF(SG_ARGC-1);
4780   rest = (rest_scm);
4781   {
4782 {
4783 int SG_RESULT = (int)FALSE;
4784 SgObject cise__10006;
4785 #line 608 "./lib_core.stub"
4786 {if (SG_NULLP(rest)){SG_RESULT=((Sg_StringCompare(s1,s2))==(1));}else if((!((Sg_StringCompare(s1,s2))==(1)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__10006,rest) {{SgObject p=SG_CAR(cise__10006);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[194],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!((Sg_StringCompare(prev,p))==(1)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4787 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4788 }
4789   }
4790 }
4791 static SG_DEFINE_SUBR(core_string_GTP__STUB, 2, 1,core_string_GTP, SG_FALSE, NULL);
4792 
core_string_LT_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4793 static SgObject core_string_LT_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4794 {
4795   SgObject s1_scm;
4796   SgString* s1;
4797   SgObject s2_scm;
4798   SgString* s2;
4799   SgObject rest_scm;
4800   SgObject rest;
4801   SG_ENTER_SUBR("string<=?");
4802   if (SG_ARGC < 2)
4803     Sg_WrongNumberOfArgumentsAtLeastViolation(
4804      SG_INTERN("string<=?"), 2, SG_ARGC, SG_NIL);
4805   s1_scm = SG_ARGREF(0);
4806   if (!SG_STRINGP(s1_scm))
4807     Sg_WrongTypeOfArgumentViolation(
4808        sg__rc_cgen9166.d9486[195], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4809   s1 = SG_STRING(s1_scm);
4810   s2_scm = SG_ARGREF(1);
4811   if (!SG_STRINGP(s2_scm))
4812     Sg_WrongTypeOfArgumentViolation(
4813        sg__rc_cgen9166.d9486[195], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4814   s2 = SG_STRING(s2_scm);
4815   rest_scm = SG_ARGREF(SG_ARGC-1);
4816   rest = (rest_scm);
4817   {
4818 {
4819 int SG_RESULT = (int)FALSE;
4820 SgObject cise__10007;
4821 #line 611 "./lib_core.stub"
4822 {if (SG_NULLP(rest)){SG_RESULT=((Sg_StringCompare(s1,s2))<=(0));}else if((!((Sg_StringCompare(s1,s2))<=(0)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__10007,rest) {{SgObject p=SG_CAR(cise__10007);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[196],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!((Sg_StringCompare(prev,p))<=(0)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4823 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4824 }
4825   }
4826 }
4827 static SG_DEFINE_SUBR(core_string_LT_3dP__STUB, 2, 1,core_string_LT_3dP, SG_FALSE, NULL);
4828 
core_string_GT_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)4829 static SgObject core_string_GT_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
4830 {
4831   SgObject s1_scm;
4832   SgString* s1;
4833   SgObject s2_scm;
4834   SgString* s2;
4835   SgObject rest_scm;
4836   SgObject rest;
4837   SG_ENTER_SUBR("string>=?");
4838   if (SG_ARGC < 2)
4839     Sg_WrongNumberOfArgumentsAtLeastViolation(
4840      SG_INTERN("string>=?"), 2, SG_ARGC, SG_NIL);
4841   s1_scm = SG_ARGREF(0);
4842   if (!SG_STRINGP(s1_scm))
4843     Sg_WrongTypeOfArgumentViolation(
4844        sg__rc_cgen9166.d9486[197], SG_MAKE_STRING("string"), s1_scm, SG_NIL);
4845   s1 = SG_STRING(s1_scm);
4846   s2_scm = SG_ARGREF(1);
4847   if (!SG_STRINGP(s2_scm))
4848     Sg_WrongTypeOfArgumentViolation(
4849        sg__rc_cgen9166.d9486[197], SG_MAKE_STRING("string"), s2_scm, SG_NIL);
4850   s2 = SG_STRING(s2_scm);
4851   rest_scm = SG_ARGREF(SG_ARGC-1);
4852   rest = (rest_scm);
4853   {
4854 {
4855 int SG_RESULT = (int)FALSE;
4856 SgObject cise__10008;
4857 #line 614 "./lib_core.stub"
4858 {if (SG_NULLP(rest)){SG_RESULT=((Sg_StringCompare(s1,s2))>=(0));}else if((!((Sg_StringCompare(s1,s2))>=(0)))){SG_RESULT=(FALSE);} else {{SgObject prev=s2;SG_FOR_EACH(cise__10008,rest) {{SgObject p=SG_CAR(cise__10008);if ((!(SG_STRINGP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[198],SG_MAKE_STRING("string"),p,SG_NIL);}}}if ((!((Sg_StringCompare(prev,p))>=(0)))){{return (SG_FALSE);}}prev=(p);}}SG_RESULT=(TRUE);}}}
4859 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
4860 }
4861   }
4862 }
4863 static SG_DEFINE_SUBR(core_string_GT_3dP__STUB, 2, 1,core_string_GT_3dP, SG_FALSE, NULL);
4864 
core_substring(SgObject * SG_FP,int SG_ARGC,void * data_)4865 static SgObject core_substring(SgObject *SG_FP, int SG_ARGC, void *data_)
4866 {
4867   SgObject s_scm;
4868   SgString* s;
4869   SgObject start_scm;
4870   long start;
4871   SgObject end_scm;
4872   long end;
4873   SG_ENTER_SUBR("substring");
4874   if (SG_ARGC != 3)
4875     Sg_WrongNumberOfArgumentsViolation(
4876      SG_INTERN("substring"), 3, SG_ARGC, SG_NIL);
4877   s_scm = SG_ARGREF(0);
4878   if (!SG_STRINGP(s_scm))
4879     Sg_WrongTypeOfArgumentViolation(
4880        sg__rc_cgen9166.d9486[199], SG_MAKE_STRING("string"), s_scm, SG_NIL);
4881   s = SG_STRING(s_scm);
4882   start_scm = SG_ARGREF(1);
4883   if (!SG_INTP(start_scm))
4884     Sg_WrongTypeOfArgumentViolation(
4885        sg__rc_cgen9166.d9486[199], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
4886   start = SG_INT_VALUE(start_scm);
4887   end_scm = SG_ARGREF(2);
4888   if (!SG_INTP(end_scm))
4889     Sg_WrongTypeOfArgumentViolation(
4890        sg__rc_cgen9166.d9486[199], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
4891   end = SG_INT_VALUE(end_scm);
4892   {
4893 {
4894 SgObject SG_RESULT = (SgObject)NULL;
4895 
4896 #line 618 "./lib_core.stub"
4897 if ((start)<(0)){{
4898 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[200],SG_MAKE_STRING("non negative exact integer"),
4899 SG_MAKE_INT(start),
4900 SG_LIST3(s,SG_MAKE_INT(start),
4901 SG_MAKE_INT(end)));}}}
4902 
4903 #line 623 "./lib_core.stub"
4904 if ((end)<(0)){{
4905 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[200],SG_MAKE_STRING("non negative exact integer"),
4906 SG_MAKE_INT(end),
4907 SG_LIST3(s,SG_MAKE_INT(start),
4908 SG_MAKE_INT(end)));}}}
4909 
4910 #line 628 "./lib_core.stub"
4911 if ((end)<(start)){{
4912 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[200],SG_MAKE_STRING("end index is smaller than start index"),
4913 SG_LIST3(s,SG_MAKE_INT(start),SG_MAKE_INT(end)));}}}
4914 
4915 #line 631 "./lib_core.stub"
4916 if ((SG_STRING_SIZE(s))<(end)){{
4917 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[200],SG_MAKE_STRING("end index out of bounds"),
4918 SG_LIST3(s,SG_MAKE_INT(start),SG_MAKE_INT(end)));}}}
4919 
4920 #line 634 "./lib_core.stub"
4921 SG_RESULT=(Sg_Substring(s,start,end));
4922 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4923 }
4924   }
4925 }
4926 static SG_DEFINE_SUBR(core_substring__STUB, 3, 0,core_substring, SG_FALSE, NULL);
4927 
core_string_append(SgObject * SG_FP,int SG_ARGC,void * data_)4928 static SgObject core_string_append(SgObject *SG_FP, int SG_ARGC, void *data_)
4929 {
4930   SgObject rest_scm;
4931   SgObject rest;
4932   SG_ENTER_SUBR("string-append");
4933   if (SG_ARGC < 0)
4934     Sg_WrongNumberOfArgumentsAtLeastViolation(
4935      SG_INTERN("string-append"), 0, SG_ARGC, SG_NIL);
4936   rest_scm = SG_ARGREF(SG_ARGC-1);
4937   rest = (rest_scm);
4938   {
4939 {
4940 SgObject SG_RESULT = (SgObject)NULL;
4941 SG_RESULT=(Sg_StringAppend(rest));
4942 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4943 }
4944   }
4945 }
4946 static SG_DEFINE_SUBR(core_string_append__STUB, 0, 1,core_string_append, SG_FALSE, NULL);
4947 
core_string_TOlist(SgObject * SG_FP,int SG_ARGC,void * data_)4948 static SgObject core_string_TOlist(SgObject *SG_FP, int SG_ARGC, void *data_)
4949 {
4950   SgObject s_scm;
4951   SgString* s;
4952   SgObject start_scm;
4953   long start;
4954   SgObject end_scm;
4955   long end;
4956   SG_ENTER_SUBR("string->list");
4957   if ((SG_ARGC > 3 &&
4958       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
4959       SG_ARGC < 1)
4960     Sg_WrongNumberOfArgumentsBetweenViolation(
4961      SG_INTERN("string->list"), 1, 3, SG_ARGC, SG_NIL);
4962   s_scm = SG_ARGREF(0);
4963   if (!SG_STRINGP(s_scm))
4964     Sg_WrongTypeOfArgumentViolation(
4965        sg__rc_cgen9166.d9486[202], SG_MAKE_STRING("string"), s_scm, SG_NIL);
4966   s = SG_STRING(s_scm);
4967   if (SG_ARGC > 1+1) {
4968     start_scm = SG_ARGREF(1);
4969   } else {
4970     start_scm = SG_MAKE_INT(0);
4971   }
4972   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
4973     Sg_WrongTypeOfArgumentViolation(
4974        sg__rc_cgen9166.d9486[202], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
4975   start = SG_INT_VALUE(start_scm);
4976   if (SG_ARGC > 2+1) {
4977     end_scm = SG_ARGREF(2);
4978   } else {
4979     end_scm = SG_MAKE_INT(-1);
4980   }
4981   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
4982     Sg_WrongTypeOfArgumentViolation(
4983        sg__rc_cgen9166.d9486[202], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
4984   end = SG_INT_VALUE(end_scm);
4985   {
4986 {
4987 SgObject SG_RESULT = (SgObject)NULL;
4988 SG_RESULT=(Sg_StringToList(s,start,end));
4989 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
4990 }
4991   }
4992 }
4993 static SG_DEFINE_SUBR(core_string_TOlist__STUB, 1, 3,core_string_TOlist, SG_FALSE, NULL);
4994 
core_list_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)4995 static SgObject core_list_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
4996 {
4997   SgObject o_scm;
4998   SgObject o;
4999   SgObject start_scm;
5000   long start;
5001   SgObject end_scm;
5002   long end;
5003   SG_ENTER_SUBR("list->string");
5004   if ((SG_ARGC > 3 &&
5005       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5006       SG_ARGC < 1)
5007     Sg_WrongNumberOfArgumentsBetweenViolation(
5008      SG_INTERN("list->string"), 1, 3, SG_ARGC, SG_NIL);
5009   o_scm = SG_ARGREF(0);
5010   if (!SG_LISTP(o_scm))
5011     Sg_WrongTypeOfArgumentViolation(
5012        sg__rc_cgen9166.d9486[203], SG_MAKE_STRING("list"), o_scm, SG_NIL);
5013   o = (o_scm);
5014   if (SG_ARGC > 1+1) {
5015     start_scm = SG_ARGREF(1);
5016   } else {
5017     start_scm = SG_MAKE_INT(0);
5018   }
5019   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5020     Sg_WrongTypeOfArgumentViolation(
5021        sg__rc_cgen9166.d9486[203], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5022   start = SG_INT_VALUE(start_scm);
5023   if (SG_ARGC > 2+1) {
5024     end_scm = SG_ARGREF(2);
5025   } else {
5026     end_scm = SG_MAKE_INT(-1);
5027   }
5028   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5029     Sg_WrongTypeOfArgumentViolation(
5030        sg__rc_cgen9166.d9486[203], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5031   end = SG_INT_VALUE(end_scm);
5032   {
5033 {
5034 SgObject SG_RESULT = (SgObject)NULL;
5035 SG_RESULT=(Sg_ListToString(o,start,end));
5036 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5037 }
5038   }
5039 }
5040 static SG_DEFINE_SUBR(core_list_TOstring__STUB, 1, 3,core_list_TOstring, SG_FALSE, NULL);
5041 
core_string_copy(SgObject * SG_FP,int SG_ARGC,void * data_)5042 static SgObject core_string_copy(SgObject *SG_FP, int SG_ARGC, void *data_)
5043 {
5044   SgObject s_scm;
5045   SgString* s;
5046   SgObject start_scm;
5047   long start;
5048   SgObject end_scm;
5049   long end;
5050   SG_ENTER_SUBR("string-copy");
5051   if ((SG_ARGC > 3 &&
5052       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5053       SG_ARGC < 1)
5054     Sg_WrongNumberOfArgumentsBetweenViolation(
5055      SG_INTERN("string-copy"), 1, 3, SG_ARGC, SG_NIL);
5056   s_scm = SG_ARGREF(0);
5057   if (!SG_STRINGP(s_scm))
5058     Sg_WrongTypeOfArgumentViolation(
5059        sg__rc_cgen9166.d9486[204], SG_MAKE_STRING("string"), s_scm, SG_NIL);
5060   s = SG_STRING(s_scm);
5061   if (SG_ARGC > 1+1) {
5062     start_scm = SG_ARGREF(1);
5063   } else {
5064     start_scm = SG_MAKE_INT(0);
5065   }
5066   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5067     Sg_WrongTypeOfArgumentViolation(
5068        sg__rc_cgen9166.d9486[204], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5069   start = SG_INT_VALUE(start_scm);
5070   if (SG_ARGC > 2+1) {
5071     end_scm = SG_ARGREF(2);
5072   } else {
5073     end_scm = SG_MAKE_INT(-1);
5074   }
5075   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5076     Sg_WrongTypeOfArgumentViolation(
5077        sg__rc_cgen9166.d9486[204], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5078   end = SG_INT_VALUE(end_scm);
5079   {
5080 {
5081 SgObject SG_RESULT = (SgObject)NULL;
5082 SG_RESULT=(Sg_Substring(s,start,end));
5083 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5084 }
5085   }
5086 }
5087 static SG_DEFINE_SUBR(core_string_copy__STUB, 1, 3,core_string_copy, SG_FALSE, NULL);
5088 
core_make_vector(SgObject * SG_FP,int SG_ARGC,void * data_)5089 static SgObject core_make_vector(SgObject *SG_FP, int SG_ARGC, void *data_)
5090 {
5091   SgObject size_scm;
5092   long size;
5093   SgObject fill_scm;
5094   SgObject fill;
5095   SG_ENTER_SUBR("make-vector");
5096   if ((SG_ARGC > 2 &&
5097       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5098       SG_ARGC < 1)
5099     Sg_WrongNumberOfArgumentsBetweenViolation(
5100      SG_INTERN("make-vector"), 1, 2, SG_ARGC, SG_NIL);
5101   size_scm = SG_ARGREF(0);
5102   if (!SG_INTP(size_scm))
5103     Sg_WrongTypeOfArgumentViolation(
5104        sg__rc_cgen9166.d9486[205], SG_MAKE_STRING("fixnum"), size_scm, SG_NIL);
5105   size = SG_INT_VALUE(size_scm);
5106   if (SG_ARGC > 1+1) {
5107     fill_scm = SG_ARGREF(1);
5108   } else {
5109     fill_scm = SG_UNBOUND;
5110   }
5111   fill = (fill_scm);
5112   {
5113 {
5114 SgObject SG_RESULT = (SgObject)NULL;
5115 
5116 #line 657 "./lib_core.stub"
5117 if (SG_UNBOUNDP(fill)){{fill=(SG_UNDEF);}}
5118 
5119 #line 658 "./lib_core.stub"
5120 SG_RESULT=(Sg_MakeVector(size,fill));
5121 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5122 }
5123   }
5124 }
5125 static SG_DEFINE_SUBR(core_make_vector__STUB, 1, 2,core_make_vector, SG_FALSE, NULL);
5126 
core_vector(SgObject * SG_FP,int SG_ARGC,void * data_)5127 static SgObject core_vector(SgObject *SG_FP, int SG_ARGC, void *data_)
5128 {
5129   SgObject rest_scm;
5130   SgObject rest;
5131   SG_ENTER_SUBR("vector");
5132   if (SG_ARGC < 0)
5133     Sg_WrongNumberOfArgumentsAtLeastViolation(
5134      SG_INTERN("vector"), 0, SG_ARGC, SG_NIL);
5135   rest_scm = SG_ARGREF(SG_ARGC-1);
5136   rest = (rest_scm);
5137   {
5138 {
5139 SgObject SG_RESULT = (SgObject)NULL;
5140 
5141 #line 661 "./lib_core.stub"
5142 SG_RESULT=(Sg_ListToVector(rest,0,-1));
5143 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5144 }
5145   }
5146 }
5147 static SG_DEFINE_SUBR(core_vector__STUB, 0, 1,core_vector, SG_MAKE_INT(VECTOR), NULL);
5148 
core_vector_length(SgObject * SG_FP,int SG_ARGC,void * data_)5149 static SgObject core_vector_length(SgObject *SG_FP, int SG_ARGC, void *data_)
5150 {
5151   SgObject vec_scm;
5152   SgVector* vec;
5153   SG_ENTER_SUBR("vector-length");
5154   if (SG_ARGC != 1)
5155     Sg_WrongNumberOfArgumentsViolation(
5156      SG_INTERN("vector-length"), 1, SG_ARGC, SG_NIL);
5157   vec_scm = SG_ARGREF(0);
5158   if (!SG_VECTORP(vec_scm))
5159     Sg_WrongTypeOfArgumentViolation(
5160        sg__rc_cgen9166.d9486[207], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5161   vec = SG_VECTOR(vec_scm);
5162   {
5163 {
5164 long SG_RESULT = (long)0;
5165 
5166 #line 665 "./lib_core.stub"
5167 SG_RESULT=(SG_VECTOR_SIZE(vec));
5168 SG_RETURN(SG_MAKE_INT(SG_RESULT));
5169 }
5170   }
5171 }
5172 static SG_DEFINE_SUBR(core_vector_length__STUB, 1, 0,core_vector_length, SG_MAKE_INT(VEC_LEN), NULL);
5173 
core_vector_ref(SgObject * SG_FP,int SG_ARGC,void * data_)5174 static SgObject core_vector_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
5175 {
5176   SgObject vec_scm;
5177   SgVector* vec;
5178   SgObject i_scm;
5179   long i;
5180   SgObject fallback_scm;
5181   SgObject fallback;
5182   SG_ENTER_SUBR("vector-ref");
5183   if ((SG_ARGC > 3 &&
5184       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5185       SG_ARGC < 2)
5186     Sg_WrongNumberOfArgumentsBetweenViolation(
5187      SG_INTERN("vector-ref"), 2, 3, SG_ARGC, SG_NIL);
5188   vec_scm = SG_ARGREF(0);
5189   if (!SG_VECTORP(vec_scm))
5190     Sg_WrongTypeOfArgumentViolation(
5191        sg__rc_cgen9166.d9486[208], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5192   vec = SG_VECTOR(vec_scm);
5193   i_scm = SG_ARGREF(1);
5194   if (!SG_INTP(i_scm))
5195     Sg_WrongTypeOfArgumentViolation(
5196        sg__rc_cgen9166.d9486[208], SG_MAKE_STRING("fixnum"), i_scm, SG_NIL);
5197   i = SG_INT_VALUE(i_scm);
5198   if (SG_ARGC > 2+1) {
5199     fallback_scm = SG_ARGREF(2);
5200   } else {
5201     fallback_scm = SG_UNBOUND;
5202   }
5203   fallback = (fallback_scm);
5204   {
5205 {
5206 SgObject SG_RESULT = (SgObject)NULL;
5207 
5208 #line 669 "./lib_core.stub"
5209 if (((i)<(0))||(
5210 (i)>=(SG_VECTOR_SIZE(vec)))){
5211 if (SG_UNBOUNDP(fallback)){{
5212 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[209],SG_MAKE_STRING("index out of range"),
5213 SG_MAKE_INT(i));}}}
5214 SG_RESULT=(fallback);} else {
5215 SG_RESULT=(SG_VECTOR_ELEMENT(vec,i));}
5216 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5217 }
5218   }
5219 }
5220 static SG_DEFINE_SUBR(core_vector_ref__STUB, 2, 2,core_vector_ref, SG_FALSE, NULL);
5221 
core_vector_setX(SgObject * SG_FP,int SG_ARGC,void * data_)5222 static SgObject core_vector_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
5223 {
5224   SgObject vec_scm;
5225   SgVector* vec;
5226   SgObject i_scm;
5227   long i;
5228   SgObject obj_scm;
5229   SgObject obj;
5230   SG_ENTER_SUBR("vector-set!");
5231   if (SG_ARGC != 3)
5232     Sg_WrongNumberOfArgumentsViolation(
5233      SG_INTERN("vector-set!"), 3, SG_ARGC, SG_NIL);
5234   vec_scm = SG_ARGREF(0);
5235   if (!SG_VECTORP(vec_scm))
5236     Sg_WrongTypeOfArgumentViolation(
5237        sg__rc_cgen9166.d9486[210], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5238   vec = SG_VECTOR(vec_scm);
5239   i_scm = SG_ARGREF(1);
5240   if (!SG_INTP(i_scm))
5241     Sg_WrongTypeOfArgumentViolation(
5242        sg__rc_cgen9166.d9486[210], SG_MAKE_STRING("fixnum"), i_scm, SG_NIL);
5243   i = SG_INT_VALUE(i_scm);
5244   obj_scm = SG_ARGREF(2);
5245   obj = (obj_scm);
5246   {
5247 
5248 #line 678 "./lib_core.stub"
5249 if (SG_LITERAL_VECTORP(vec)){{
5250 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[211],SG_MAKE_STRING("attempt to modify immutable vector"),
5251 SG_LIST1(vec));}}}
5252 
5253 #line 681 "./lib_core.stub"
5254 if (((i)<(0))||((i)>=(SG_VECTOR_SIZE(vec)))){
5255 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[209],SG_MAKE_STRING("index out of range"),
5256 SG_MAKE_INT(i));}} else {
5257 SG_VECTOR_ELEMENT(vec,i)=(obj);}
5258 SG_RETURN(SG_UNDEF);
5259   }
5260 }
5261 static SG_DEFINE_SUBR(core_vector_setX__STUB, 3, 0,core_vector_setX, SG_FALSE, NULL);
5262 
core_vector_TOlist(SgObject * SG_FP,int SG_ARGC,void * data_)5263 static SgObject core_vector_TOlist(SgObject *SG_FP, int SG_ARGC, void *data_)
5264 {
5265   SgObject vec_scm;
5266   SgVector* vec;
5267   SgObject start_scm;
5268   long start;
5269   SgObject end_scm;
5270   long end;
5271   SG_ENTER_SUBR("vector->list");
5272   if ((SG_ARGC > 3 &&
5273       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5274       SG_ARGC < 1)
5275     Sg_WrongNumberOfArgumentsBetweenViolation(
5276      SG_INTERN("vector->list"), 1, 3, SG_ARGC, SG_NIL);
5277   vec_scm = SG_ARGREF(0);
5278   if (!SG_VECTORP(vec_scm))
5279     Sg_WrongTypeOfArgumentViolation(
5280        sg__rc_cgen9166.d9486[213], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5281   vec = SG_VECTOR(vec_scm);
5282   if (SG_ARGC > 1+1) {
5283     start_scm = SG_ARGREF(1);
5284   } else {
5285     start_scm = SG_MAKE_INT(0);
5286   }
5287   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5288     Sg_WrongTypeOfArgumentViolation(
5289        sg__rc_cgen9166.d9486[213], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5290   start = SG_INT_VALUE(start_scm);
5291   if (SG_ARGC > 2+1) {
5292     end_scm = SG_ARGREF(2);
5293   } else {
5294     end_scm = SG_MAKE_INT(-1);
5295   }
5296   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5297     Sg_WrongTypeOfArgumentViolation(
5298        sg__rc_cgen9166.d9486[213], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5299   end = SG_INT_VALUE(end_scm);
5300   {
5301 {
5302 SgObject SG_RESULT = (SgObject)NULL;
5303 SG_RESULT=(Sg_VectorToList(vec,start,end));
5304 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5305 }
5306   }
5307 }
5308 static SG_DEFINE_SUBR(core_vector_TOlist__STUB, 1, 3,core_vector_TOlist, SG_FALSE, NULL);
5309 
core_list_TOvector(SgObject * SG_FP,int SG_ARGC,void * data_)5310 static SgObject core_list_TOvector(SgObject *SG_FP, int SG_ARGC, void *data_)
5311 {
5312   SgObject lst_scm;
5313   SgObject lst;
5314   SgObject start_scm;
5315   long start;
5316   SgObject end_scm;
5317   long end;
5318   SG_ENTER_SUBR("list->vector");
5319   if ((SG_ARGC > 3 &&
5320       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5321       SG_ARGC < 1)
5322     Sg_WrongNumberOfArgumentsBetweenViolation(
5323      SG_INTERN("list->vector"), 1, 3, SG_ARGC, SG_NIL);
5324   lst_scm = SG_ARGREF(0);
5325   lst = (lst_scm);
5326   if (SG_ARGC > 1+1) {
5327     start_scm = SG_ARGREF(1);
5328   } else {
5329     start_scm = SG_MAKE_INT(0);
5330   }
5331   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5332     Sg_WrongTypeOfArgumentViolation(
5333        sg__rc_cgen9166.d9486[214], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5334   start = SG_INT_VALUE(start_scm);
5335   if (SG_ARGC > 2+1) {
5336     end_scm = SG_ARGREF(2);
5337   } else {
5338     end_scm = SG_MAKE_INT(-1);
5339   }
5340   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5341     Sg_WrongTypeOfArgumentViolation(
5342        sg__rc_cgen9166.d9486[214], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5343   end = SG_INT_VALUE(end_scm);
5344   {
5345 {
5346 SgObject SG_RESULT = (SgObject)NULL;
5347 
5348 #line 693 "./lib_core.stub"
5349 if ((!(SG_LISTP(lst)))){{
5350 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[215],SG_MAKE_STRING("propert list"),lst,SG_NIL);}}}
5351 
5352 #line 695 "./lib_core.stub"
5353 SG_RESULT=(Sg_ListToVector(lst,start,end));
5354 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5355 }
5356   }
5357 }
5358 static SG_DEFINE_SUBR(core_list_TOvector__STUB, 1, 3,core_list_TOvector, SG_FALSE, NULL);
5359 
core_vector_fillX(SgObject * SG_FP,int SG_ARGC,void * data_)5360 static SgObject core_vector_fillX(SgObject *SG_FP, int SG_ARGC, void *data_)
5361 {
5362   SgObject vec_scm;
5363   SgVector* vec;
5364   SgObject fill_scm;
5365   SgObject fill;
5366   SgObject start_scm;
5367   long start;
5368   SgObject end_scm;
5369   long end;
5370   SG_ENTER_SUBR("vector-fill!");
5371   if ((SG_ARGC > 4 &&
5372       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5373       SG_ARGC < 2)
5374     Sg_WrongNumberOfArgumentsBetweenViolation(
5375      SG_INTERN("vector-fill!"), 2, 4, SG_ARGC, SG_NIL);
5376   vec_scm = SG_ARGREF(0);
5377   if (!SG_VECTORP(vec_scm))
5378     Sg_WrongTypeOfArgumentViolation(
5379        sg__rc_cgen9166.d9486[216], SG_MAKE_STRING("vector"), vec_scm, SG_NIL);
5380   vec = SG_VECTOR(vec_scm);
5381   fill_scm = SG_ARGREF(1);
5382   fill = (fill_scm);
5383   if (SG_ARGC > 2+1) {
5384     start_scm = SG_ARGREF(2);
5385   } else {
5386     start_scm = SG_MAKE_INT(0);
5387   }
5388   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5389     Sg_WrongTypeOfArgumentViolation(
5390        sg__rc_cgen9166.d9486[216], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5391   start = SG_INT_VALUE(start_scm);
5392   if (SG_ARGC > 3+1) {
5393     end_scm = SG_ARGREF(3);
5394   } else {
5395     end_scm = SG_MAKE_INT(-1);
5396   }
5397   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5398     Sg_WrongTypeOfArgumentViolation(
5399        sg__rc_cgen9166.d9486[216], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5400   end = SG_INT_VALUE(end_scm);
5401   {
5402 Sg_VectorFill(vec,fill,start,end);
5403 SG_RETURN(SG_UNDEF);
5404   }
5405 }
5406 static SG_DEFINE_SUBR(core_vector_fillX__STUB, 2, 3,core_vector_fillX, SG_FALSE, NULL);
5407 
core_assertion_violation(SgObject * SG_FP,int SG_ARGC,void * data_)5408 static SgObject core_assertion_violation(SgObject *SG_FP, int SG_ARGC, void *data_)
5409 {
5410   SgObject who_scm;
5411   SgObject who;
5412   SgObject message_scm;
5413   SgObject message;
5414   SgObject irritants_scm;
5415   SgObject irritants;
5416   SG_ENTER_SUBR("assertion-violation");
5417   if (SG_ARGC < 2)
5418     Sg_WrongNumberOfArgumentsAtLeastViolation(
5419      SG_INTERN("assertion-violation"), 2, SG_ARGC, SG_NIL);
5420   who_scm = SG_ARGREF(0);
5421   who = (who_scm);
5422   message_scm = SG_ARGREF(1);
5423   message = (message_scm);
5424   irritants_scm = SG_ARGREF(SG_ARGC-1);
5425   irritants = (irritants_scm);
5426   {
5427 Sg_AssertionViolation(who,message,irritants);
5428 SG_RETURN(SG_UNDEF);
5429   }
5430 }
5431 static SG_DEFINE_SUBR(core_assertion_violation__STUB, 2, 1,core_assertion_violation, SG_FALSE, NULL);
5432 
core_error(SgObject * SG_FP,int SG_ARGC,void * data_)5433 static SgObject core_error(SgObject *SG_FP, int SG_ARGC, void *data_)
5434 {
5435   SgObject who_scm;
5436   SgObject who;
5437   SgObject message_scm;
5438   SgObject message;
5439   SgObject irritants_scm;
5440   SgObject irritants;
5441   SG_ENTER_SUBR("error");
5442   if (SG_ARGC < 2)
5443     Sg_WrongNumberOfArgumentsAtLeastViolation(
5444      SG_INTERN("error"), 2, SG_ARGC, SG_NIL);
5445   who_scm = SG_ARGREF(0);
5446   who = (who_scm);
5447   message_scm = SG_ARGREF(1);
5448   message = (message_scm);
5449   irritants_scm = SG_ARGREF(SG_ARGC-1);
5450   irritants = (irritants_scm);
5451   {
5452 
5453 #line 707 "./lib_core.stub"
5454 {SgObject condi=SG_FALSE;
5455 if (SG_FALSEP(who)){
5456 condi=(
5457 Sg_Condition(
5458 SG_LIST2(Sg_MakeError(message),
5459 Sg_MakeIrritantsCondition(irritants))));} else {
5460 condi=(
5461 Sg_Condition(
5462 SG_LIST3(Sg_MakeError(message),
5463 Sg_MakeWhoCondition(who),
5464 Sg_MakeIrritantsCondition(irritants))));}
5465 Sg_Raise(condi,FALSE);}
5466 SG_RETURN(SG_UNDEF);
5467   }
5468 }
5469 static SG_DEFINE_SUBR(core_error__STUB, 2, 1,core_error, SG_FALSE, NULL);
5470 
core_scheme_error(SgObject * SG_FP,int SG_ARGC,void * data_)5471 static SgObject core_scheme_error(SgObject *SG_FP, int SG_ARGC, void *data_)
5472 {
5473   SgObject who_scm;
5474   SgObject who;
5475   SgObject msg_scm;
5476   SgObject msg;
5477   SgObject irritant_scm;
5478   SgObject irritant;
5479   SG_ENTER_SUBR("scheme-error");
5480   if (SG_ARGC < 2)
5481     Sg_WrongNumberOfArgumentsAtLeastViolation(
5482      SG_INTERN("scheme-error"), 2, SG_ARGC, SG_NIL);
5483   who_scm = SG_ARGREF(0);
5484   who = (who_scm);
5485   msg_scm = SG_ARGREF(1);
5486   msg = (msg_scm);
5487   irritant_scm = SG_ARGREF(SG_ARGC-1);
5488   irritant = (irritant_scm);
5489   {
5490 
5491 #line 722 "./lib_core.stub"
5492 Sg_Error(UC("%S %A %S"),who,msg,irritant);
5493 SG_RETURN(SG_UNDEF);
5494   }
5495 }
5496 static SG_DEFINE_SUBR(core_scheme_error__STUB, 2, 1,core_scheme_error, SG_FALSE, NULL);
5497 
core_syntax_error(SgObject * SG_FP,int SG_ARGC,void * data_)5498 static SgObject core_syntax_error(SgObject *SG_FP, int SG_ARGC, void *data_)
5499 {
5500   SgObject form_scm;
5501   SgObject form;
5502   SgObject irritant_scm;
5503   SgObject irritant;
5504   SG_ENTER_SUBR("syntax-error");
5505   if (SG_ARGC < 1)
5506     Sg_WrongNumberOfArgumentsAtLeastViolation(
5507      SG_INTERN("syntax-error"), 1, SG_ARGC, SG_NIL);
5508   form_scm = SG_ARGREF(0);
5509   form = (form_scm);
5510   irritant_scm = SG_ARGREF(SG_ARGC-1);
5511   irritant = (irritant_scm);
5512   {
5513 Sg_SyntaxError(form,irritant);
5514 SG_RETURN(SG_UNDEF);
5515   }
5516 }
5517 static SG_DEFINE_SUBR(core_syntax_error__STUB, 1, 1,core_syntax_error, SG_FALSE, NULL);
5518 
core_apply(SgObject * SG_FP,int SG_ARGC,void * data_)5519 static SgObject core_apply(SgObject *SG_FP, int SG_ARGC, void *data_)
5520 {
5521   SgObject proc_scm;
5522   SgProcedure* proc;
5523   SgObject arg1_scm;
5524   SgObject arg1;
5525   SgObject rest_scm;
5526   SgObject rest;
5527   SG_ENTER_SUBR("apply");
5528   if (SG_ARGC < 2)
5529     Sg_WrongNumberOfArgumentsAtLeastViolation(
5530      SG_INTERN("apply"), 2, SG_ARGC, SG_NIL);
5531   proc_scm = SG_ARGREF(0);
5532   if (!SG_PROCEDUREP(proc_scm))
5533     Sg_WrongTypeOfArgumentViolation(
5534        sg__rc_cgen9166.d9486[221], SG_MAKE_STRING("procedure"), proc_scm, SG_NIL);
5535   proc = SG_PROCEDURE(proc_scm);
5536   arg1_scm = SG_ARGREF(1);
5537   arg1 = (arg1_scm);
5538   rest_scm = SG_ARGREF(SG_ARGC-1);
5539   rest = (rest_scm);
5540   {
5541 {
5542 SgObject SG_RESULT = (SgObject)NULL;
5543 SgObject cp;
5544 #line 732 "./lib_core.stub"
5545 {SgObject head=SG_NIL;SgObject tail=SG_NIL;
5546 if (SG_NULLP(rest)){SG_RESULT=(Sg_VMApply(proc,arg1));} else {
5547 #line 735 "./lib_core.stub"
5548 head=(Sg_Cons(arg1,SG_NIL));
5549 tail=(head);
5550 SG_FOR_EACH(cp,rest){
5551 if (SG_NULLP(SG_CDR(cp))){{
5552 SG_APPEND(head,tail,SG_CAR(cp));
5553 break;}}
5554 if ((!(SG_PAIRP(SG_CDR(cp))))){{
5555 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[222],SG_MAKE_STRING("improper list not allowed"),rest);}}}
5556 #line 744 "./lib_core.stub"
5557 SG_APPEND1(head,tail,SG_CAR(cp));}
5558 SG_RESULT=(Sg_VMApply(proc,head));}}
5559 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5560 }
5561   }
5562 }
5563 static SG_DEFINE_SUBR(core_apply__STUB, 2, 1,core_apply, SG_MAKE_INT(APPLY), NULL);
5564 
core_call_2fcc(SgObject * SG_FP,int SG_ARGC,void * data_)5565 static SgObject core_call_2fcc(SgObject *SG_FP, int SG_ARGC, void *data_)
5566 {
5567   SgObject proc_scm;
5568   SgProcedure* proc;
5569   SG_ENTER_SUBR("call/cc");
5570   if (SG_ARGC != 1)
5571     Sg_WrongNumberOfArgumentsViolation(
5572      SG_INTERN("call/cc"), 1, SG_ARGC, SG_NIL);
5573   proc_scm = SG_ARGREF(0);
5574   if (!SG_PROCEDUREP(proc_scm))
5575     Sg_WrongTypeOfArgumentViolation(
5576        sg__rc_cgen9166.d9486[223], SG_MAKE_STRING("procedure"), proc_scm, SG_NIL);
5577   proc = SG_PROCEDURE(proc_scm);
5578   {
5579 {
5580 SgObject SG_RESULT = (SgObject)NULL;
5581 SG_RESULT=(Sg_VMCallCC(proc));
5582 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5583 }
5584   }
5585 }
5586 static SG_DEFINE_SUBR(core_call_2fcc__STUB, 1, 0,core_call_2fcc, SG_FALSE, NULL);
5587 
core_call_with_current_continuation(SgObject * SG_FP,int SG_ARGC,void * data_)5588 static SgObject core_call_with_current_continuation(SgObject *SG_FP, int SG_ARGC, void *data_)
5589 {
5590   SgObject proc_scm;
5591   SgProcedure* proc;
5592   SG_ENTER_SUBR("call-with-current-continuation");
5593   if (SG_ARGC != 1)
5594     Sg_WrongNumberOfArgumentsViolation(
5595      SG_INTERN("call-with-current-continuation"), 1, SG_ARGC, SG_NIL);
5596   proc_scm = SG_ARGREF(0);
5597   if (!SG_PROCEDUREP(proc_scm))
5598     Sg_WrongTypeOfArgumentViolation(
5599        sg__rc_cgen9166.d9486[224], SG_MAKE_STRING("procedure"), proc_scm, SG_NIL);
5600   proc = SG_PROCEDURE(proc_scm);
5601   {
5602 {
5603 SgObject SG_RESULT = (SgObject)NULL;
5604 SG_RESULT=(Sg_VMCallCC(proc));
5605 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5606 }
5607   }
5608 }
5609 static SG_DEFINE_SUBR(core_call_with_current_continuation__STUB, 1, 0,core_call_with_current_continuation, SG_FALSE, NULL);
5610 
core_values(SgObject * SG_FP,int SG_ARGC,void * data_)5611 static SgObject core_values(SgObject *SG_FP, int SG_ARGC, void *data_)
5612 {
5613   SgObject rest_scm;
5614   SgObject rest;
5615   SG_ENTER_SUBR("values");
5616   if (SG_ARGC < 0)
5617     Sg_WrongNumberOfArgumentsAtLeastViolation(
5618      SG_INTERN("values"), 0, SG_ARGC, SG_NIL);
5619   rest_scm = SG_ARGREF(SG_ARGC-1);
5620   rest = (rest_scm);
5621   {
5622 {
5623 SgObject SG_RESULT = (SgObject)NULL;
5624 SG_RESULT=(Sg_Values(rest));
5625 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5626 }
5627   }
5628 }
5629 static SG_DEFINE_SUBR(core_values__STUB, 0, 1,core_values, SG_MAKE_INT(VALUES), NULL);
5630 
core_dynamic_wind(SgObject * SG_FP,int SG_ARGC,void * data_)5631 static SgObject core_dynamic_wind(SgObject *SG_FP, int SG_ARGC, void *data_)
5632 {
5633   SgObject before_scm;
5634   SgObject before;
5635   SgObject thunk_scm;
5636   SgObject thunk;
5637   SgObject after_scm;
5638   SgObject after;
5639   SG_ENTER_SUBR("dynamic-wind");
5640   if (SG_ARGC != 3)
5641     Sg_WrongNumberOfArgumentsViolation(
5642      SG_INTERN("dynamic-wind"), 3, SG_ARGC, SG_NIL);
5643   before_scm = SG_ARGREF(0);
5644   before = (before_scm);
5645   thunk_scm = SG_ARGREF(1);
5646   thunk = (thunk_scm);
5647   after_scm = SG_ARGREF(2);
5648   after = (after_scm);
5649   {
5650 {
5651 SgObject SG_RESULT = (SgObject)NULL;
5652 SG_RESULT=(Sg_VMDynamicWind(before,thunk,after));
5653 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5654 }
5655   }
5656 }
5657 static SG_DEFINE_SUBR(core_dynamic_wind__STUB, 3, 0,core_dynamic_wind, SG_FALSE, NULL);
5658 
core_char_upcase(SgObject * SG_FP,int SG_ARGC,void * data_)5659 static SgObject core_char_upcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5660 {
5661   SgObject c_scm;
5662   SgChar c;
5663   SG_ENTER_SUBR("char-upcase");
5664   if (SG_ARGC != 1)
5665     Sg_WrongNumberOfArgumentsViolation(
5666      SG_INTERN("char-upcase"), 1, SG_ARGC, SG_NIL);
5667   c_scm = SG_ARGREF(0);
5668   if (!SG_CHARP(c_scm))
5669     Sg_WrongTypeOfArgumentViolation(
5670        sg__rc_cgen9166.d9486[227], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5671   c = SG_CHAR_VALUE(c_scm);
5672   {
5673 {
5674 SgChar SG_RESULT = (SgChar)0;
5675 SG_RESULT=(Sg_CharUpCase(c));
5676 SG_RETURN(SG_MAKE_CHAR(SG_RESULT));
5677 }
5678   }
5679 }
5680 static SG_DEFINE_SUBR(core_char_upcase__STUB, 1, 0,core_char_upcase, SG_FALSE, NULL);
5681 
core_char_downcase(SgObject * SG_FP,int SG_ARGC,void * data_)5682 static SgObject core_char_downcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5683 {
5684   SgObject c_scm;
5685   SgChar c;
5686   SG_ENTER_SUBR("char-downcase");
5687   if (SG_ARGC != 1)
5688     Sg_WrongNumberOfArgumentsViolation(
5689      SG_INTERN("char-downcase"), 1, SG_ARGC, SG_NIL);
5690   c_scm = SG_ARGREF(0);
5691   if (!SG_CHARP(c_scm))
5692     Sg_WrongTypeOfArgumentViolation(
5693        sg__rc_cgen9166.d9486[228], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5694   c = SG_CHAR_VALUE(c_scm);
5695   {
5696 {
5697 SgChar SG_RESULT = (SgChar)0;
5698 SG_RESULT=(Sg_CharDownCase(c));
5699 SG_RETURN(SG_MAKE_CHAR(SG_RESULT));
5700 }
5701   }
5702 }
5703 static SG_DEFINE_SUBR(core_char_downcase__STUB, 1, 0,core_char_downcase, SG_FALSE, NULL);
5704 
core_char_titlecase(SgObject * SG_FP,int SG_ARGC,void * data_)5705 static SgObject core_char_titlecase(SgObject *SG_FP, int SG_ARGC, void *data_)
5706 {
5707   SgObject c_scm;
5708   SgChar c;
5709   SG_ENTER_SUBR("char-titlecase");
5710   if (SG_ARGC != 1)
5711     Sg_WrongNumberOfArgumentsViolation(
5712      SG_INTERN("char-titlecase"), 1, SG_ARGC, SG_NIL);
5713   c_scm = SG_ARGREF(0);
5714   if (!SG_CHARP(c_scm))
5715     Sg_WrongTypeOfArgumentViolation(
5716        sg__rc_cgen9166.d9486[229], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5717   c = SG_CHAR_VALUE(c_scm);
5718   {
5719 {
5720 SgChar SG_RESULT = (SgChar)0;
5721 SG_RESULT=(Sg_CharTitleCase(c));
5722 SG_RETURN(SG_MAKE_CHAR(SG_RESULT));
5723 }
5724   }
5725 }
5726 static SG_DEFINE_SUBR(core_char_titlecase__STUB, 1, 0,core_char_titlecase, SG_FALSE, NULL);
5727 
core_char_foldcase(SgObject * SG_FP,int SG_ARGC,void * data_)5728 static SgObject core_char_foldcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5729 {
5730   SgObject c_scm;
5731   SgChar c;
5732   SG_ENTER_SUBR("char-foldcase");
5733   if (SG_ARGC != 1)
5734     Sg_WrongNumberOfArgumentsViolation(
5735      SG_INTERN("char-foldcase"), 1, SG_ARGC, SG_NIL);
5736   c_scm = SG_ARGREF(0);
5737   if (!SG_CHARP(c_scm))
5738     Sg_WrongTypeOfArgumentViolation(
5739        sg__rc_cgen9166.d9486[230], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5740   c = SG_CHAR_VALUE(c_scm);
5741   {
5742 {
5743 SgChar SG_RESULT = (SgChar)0;
5744 SG_RESULT=(Sg_CharFoldCase(c));
5745 SG_RETURN(SG_MAKE_CHAR(SG_RESULT));
5746 }
5747   }
5748 }
5749 static SG_DEFINE_SUBR(core_char_foldcase__STUB, 1, 0,core_char_foldcase, SG_FALSE, NULL);
5750 
core_char_general_category(SgObject * SG_FP,int SG_ARGC,void * data_)5751 static SgObject core_char_general_category(SgObject *SG_FP, int SG_ARGC, void *data_)
5752 {
5753   SgObject c_scm;
5754   SgChar c;
5755   SG_ENTER_SUBR("char-general-category");
5756   if (SG_ARGC != 1)
5757     Sg_WrongNumberOfArgumentsViolation(
5758      SG_INTERN("char-general-category"), 1, SG_ARGC, SG_NIL);
5759   c_scm = SG_ARGREF(0);
5760   if (!SG_CHARP(c_scm))
5761     Sg_WrongTypeOfArgumentViolation(
5762        sg__rc_cgen9166.d9486[231], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5763   c = SG_CHAR_VALUE(c_scm);
5764   {
5765 {
5766 SgObject SG_RESULT = (SgObject)NULL;
5767 
5768 #line 775 "./lib_core.stub"
5769 SG_RESULT=(Sg_CategroyToSymbol(Sg_CharGeneralCategory(c)));
5770 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5771 }
5772   }
5773 }
5774 static SG_DEFINE_SUBR(core_char_general_category__STUB, 1, 0,core_char_general_category, SG_FALSE, NULL);
5775 
core_char_alphabeticP(SgObject * SG_FP,int SG_ARGC,void * data_)5776 static SgObject core_char_alphabeticP(SgObject *SG_FP, int SG_ARGC, void *data_)
5777 {
5778   SgObject c_scm;
5779   SgChar c;
5780   SG_ENTER_SUBR("char-alphabetic?");
5781   if (SG_ARGC != 1)
5782     Sg_WrongNumberOfArgumentsViolation(
5783      SG_INTERN("char-alphabetic?"), 1, SG_ARGC, SG_NIL);
5784   c_scm = SG_ARGREF(0);
5785   if (!SG_CHARP(c_scm))
5786     Sg_WrongTypeOfArgumentViolation(
5787        sg__rc_cgen9166.d9486[232], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5788   c = SG_CHAR_VALUE(c_scm);
5789   {
5790 {
5791 int SG_RESULT = (int)FALSE;
5792 SG_RESULT=(Sg_CharAlphabeticP(c));
5793 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5794 }
5795   }
5796 }
5797 static SG_DEFINE_SUBR(core_char_alphabeticP__STUB, 1, 0,core_char_alphabeticP, SG_FALSE, NULL);
5798 
core_char_numericP(SgObject * SG_FP,int SG_ARGC,void * data_)5799 static SgObject core_char_numericP(SgObject *SG_FP, int SG_ARGC, void *data_)
5800 {
5801   SgObject c_scm;
5802   SgChar c;
5803   SG_ENTER_SUBR("char-numeric?");
5804   if (SG_ARGC != 1)
5805     Sg_WrongNumberOfArgumentsViolation(
5806      SG_INTERN("char-numeric?"), 1, SG_ARGC, SG_NIL);
5807   c_scm = SG_ARGREF(0);
5808   if (!SG_CHARP(c_scm))
5809     Sg_WrongTypeOfArgumentViolation(
5810        sg__rc_cgen9166.d9486[233], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5811   c = SG_CHAR_VALUE(c_scm);
5812   {
5813 {
5814 int SG_RESULT = (int)FALSE;
5815 SG_RESULT=(Sg_CharNumericP(c));
5816 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5817 }
5818   }
5819 }
5820 static SG_DEFINE_SUBR(core_char_numericP__STUB, 1, 0,core_char_numericP, SG_FALSE, NULL);
5821 
core_char_whitespaceP(SgObject * SG_FP,int SG_ARGC,void * data_)5822 static SgObject core_char_whitespaceP(SgObject *SG_FP, int SG_ARGC, void *data_)
5823 {
5824   SgObject c_scm;
5825   SgChar c;
5826   SG_ENTER_SUBR("char-whitespace?");
5827   if (SG_ARGC != 1)
5828     Sg_WrongNumberOfArgumentsViolation(
5829      SG_INTERN("char-whitespace?"), 1, SG_ARGC, SG_NIL);
5830   c_scm = SG_ARGREF(0);
5831   if (!SG_CHARP(c_scm))
5832     Sg_WrongTypeOfArgumentViolation(
5833        sg__rc_cgen9166.d9486[234], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5834   c = SG_CHAR_VALUE(c_scm);
5835   {
5836 {
5837 int SG_RESULT = (int)FALSE;
5838 SG_RESULT=(Sg_Ucs4WhiteSpaceP(c));
5839 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5840 }
5841   }
5842 }
5843 static SG_DEFINE_SUBR(core_char_whitespaceP__STUB, 1, 0,core_char_whitespaceP, SG_FALSE, NULL);
5844 
core_char_upper_caseP(SgObject * SG_FP,int SG_ARGC,void * data_)5845 static SgObject core_char_upper_caseP(SgObject *SG_FP, int SG_ARGC, void *data_)
5846 {
5847   SgObject c_scm;
5848   SgChar c;
5849   SG_ENTER_SUBR("char-upper-case?");
5850   if (SG_ARGC != 1)
5851     Sg_WrongNumberOfArgumentsViolation(
5852      SG_INTERN("char-upper-case?"), 1, SG_ARGC, SG_NIL);
5853   c_scm = SG_ARGREF(0);
5854   if (!SG_CHARP(c_scm))
5855     Sg_WrongTypeOfArgumentViolation(
5856        sg__rc_cgen9166.d9486[235], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5857   c = SG_CHAR_VALUE(c_scm);
5858   {
5859 {
5860 int SG_RESULT = (int)FALSE;
5861 SG_RESULT=(Sg_CharUpperCaseP(c));
5862 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5863 }
5864   }
5865 }
5866 static SG_DEFINE_SUBR(core_char_upper_caseP__STUB, 1, 0,core_char_upper_caseP, SG_FALSE, NULL);
5867 
core_char_lower_caseP(SgObject * SG_FP,int SG_ARGC,void * data_)5868 static SgObject core_char_lower_caseP(SgObject *SG_FP, int SG_ARGC, void *data_)
5869 {
5870   SgObject c_scm;
5871   SgChar c;
5872   SG_ENTER_SUBR("char-lower-case?");
5873   if (SG_ARGC != 1)
5874     Sg_WrongNumberOfArgumentsViolation(
5875      SG_INTERN("char-lower-case?"), 1, SG_ARGC, SG_NIL);
5876   c_scm = SG_ARGREF(0);
5877   if (!SG_CHARP(c_scm))
5878     Sg_WrongTypeOfArgumentViolation(
5879        sg__rc_cgen9166.d9486[236], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5880   c = SG_CHAR_VALUE(c_scm);
5881   {
5882 {
5883 int SG_RESULT = (int)FALSE;
5884 SG_RESULT=(Sg_CharLowerCaseP(c));
5885 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5886 }
5887   }
5888 }
5889 static SG_DEFINE_SUBR(core_char_lower_caseP__STUB, 1, 0,core_char_lower_caseP, SG_FALSE, NULL);
5890 
core_char_title_caseP(SgObject * SG_FP,int SG_ARGC,void * data_)5891 static SgObject core_char_title_caseP(SgObject *SG_FP, int SG_ARGC, void *data_)
5892 {
5893   SgObject c_scm;
5894   SgChar c;
5895   SG_ENTER_SUBR("char-title-case?");
5896   if (SG_ARGC != 1)
5897     Sg_WrongNumberOfArgumentsViolation(
5898      SG_INTERN("char-title-case?"), 1, SG_ARGC, SG_NIL);
5899   c_scm = SG_ARGREF(0);
5900   if (!SG_CHARP(c_scm))
5901     Sg_WrongTypeOfArgumentViolation(
5902        sg__rc_cgen9166.d9486[237], SG_MAKE_STRING("character"), c_scm, SG_NIL);
5903   c = SG_CHAR_VALUE(c_scm);
5904   {
5905 {
5906 int SG_RESULT = (int)FALSE;
5907 SG_RESULT=(Sg_CharTitleCaseP(c));
5908 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
5909 }
5910   }
5911 }
5912 static SG_DEFINE_SUBR(core_char_title_caseP__STUB, 1, 0,core_char_title_caseP, SG_FALSE, NULL);
5913 
core_string_upcase(SgObject * SG_FP,int SG_ARGC,void * data_)5914 static SgObject core_string_upcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5915 {
5916   SgObject s_scm;
5917   SgString* s;
5918   SgObject start_scm;
5919   long start;
5920   SgObject end_scm;
5921   long end;
5922   SG_ENTER_SUBR("string-upcase");
5923   if ((SG_ARGC > 3 &&
5924       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5925       SG_ARGC < 1)
5926     Sg_WrongNumberOfArgumentsBetweenViolation(
5927      SG_INTERN("string-upcase"), 1, 3, SG_ARGC, SG_NIL);
5928   s_scm = SG_ARGREF(0);
5929   if (!SG_STRINGP(s_scm))
5930     Sg_WrongTypeOfArgumentViolation(
5931        sg__rc_cgen9166.d9486[238], SG_MAKE_STRING("string"), s_scm, SG_NIL);
5932   s = SG_STRING(s_scm);
5933   if (SG_ARGC > 1+1) {
5934     start_scm = SG_ARGREF(1);
5935   } else {
5936     start_scm = SG_MAKE_INT(0);
5937   }
5938   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5939     Sg_WrongTypeOfArgumentViolation(
5940        sg__rc_cgen9166.d9486[238], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5941   start = SG_INT_VALUE(start_scm);
5942   if (SG_ARGC > 2+1) {
5943     end_scm = SG_ARGREF(2);
5944   } else {
5945     end_scm = SG_MAKE_INT(-1);
5946   }
5947   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5948     Sg_WrongTypeOfArgumentViolation(
5949        sg__rc_cgen9166.d9486[238], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5950   end = SG_INT_VALUE(end_scm);
5951   {
5952 {
5953 SgObject SG_RESULT = (SgObject)NULL;
5954 
5955 #line 797 "./lib_core.stub"
5956 SG_RESULT=(Sg_StringUpCase(Sg_MaybeSubstring(s,start,end)));
5957 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
5958 }
5959   }
5960 }
5961 static SG_DEFINE_SUBR(core_string_upcase__STUB, 1, 3,core_string_upcase, SG_FALSE, NULL);
5962 
core_string_downcase(SgObject * SG_FP,int SG_ARGC,void * data_)5963 static SgObject core_string_downcase(SgObject *SG_FP, int SG_ARGC, void *data_)
5964 {
5965   SgObject s_scm;
5966   SgString* s;
5967   SgObject start_scm;
5968   long start;
5969   SgObject end_scm;
5970   long end;
5971   SG_ENTER_SUBR("string-downcase");
5972   if ((SG_ARGC > 3 &&
5973       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
5974       SG_ARGC < 1)
5975     Sg_WrongNumberOfArgumentsBetweenViolation(
5976      SG_INTERN("string-downcase"), 1, 3, SG_ARGC, SG_NIL);
5977   s_scm = SG_ARGREF(0);
5978   if (!SG_STRINGP(s_scm))
5979     Sg_WrongTypeOfArgumentViolation(
5980        sg__rc_cgen9166.d9486[239], SG_MAKE_STRING("string"), s_scm, SG_NIL);
5981   s = SG_STRING(s_scm);
5982   if (SG_ARGC > 1+1) {
5983     start_scm = SG_ARGREF(1);
5984   } else {
5985     start_scm = SG_MAKE_INT(0);
5986   }
5987   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
5988     Sg_WrongTypeOfArgumentViolation(
5989        sg__rc_cgen9166.d9486[239], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
5990   start = SG_INT_VALUE(start_scm);
5991   if (SG_ARGC > 2+1) {
5992     end_scm = SG_ARGREF(2);
5993   } else {
5994     end_scm = SG_MAKE_INT(-1);
5995   }
5996   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
5997     Sg_WrongTypeOfArgumentViolation(
5998        sg__rc_cgen9166.d9486[239], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
5999   end = SG_INT_VALUE(end_scm);
6000   {
6001 {
6002 SgObject SG_RESULT = (SgObject)NULL;
6003 
6004 #line 802 "./lib_core.stub"
6005 SG_RESULT=(Sg_StringDownCase(Sg_MaybeSubstring(s,start,end)));
6006 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6007 }
6008   }
6009 }
6010 static SG_DEFINE_SUBR(core_string_downcase__STUB, 1, 3,core_string_downcase, SG_FALSE, NULL);
6011 
core_string_titlecase(SgObject * SG_FP,int SG_ARGC,void * data_)6012 static SgObject core_string_titlecase(SgObject *SG_FP, int SG_ARGC, void *data_)
6013 {
6014   SgObject s_scm;
6015   SgString* s;
6016   SgObject start_scm;
6017   long start;
6018   SgObject end_scm;
6019   long end;
6020   SG_ENTER_SUBR("string-titlecase");
6021   if ((SG_ARGC > 3 &&
6022       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6023       SG_ARGC < 1)
6024     Sg_WrongNumberOfArgumentsBetweenViolation(
6025      SG_INTERN("string-titlecase"), 1, 3, SG_ARGC, SG_NIL);
6026   s_scm = SG_ARGREF(0);
6027   if (!SG_STRINGP(s_scm))
6028     Sg_WrongTypeOfArgumentViolation(
6029        sg__rc_cgen9166.d9486[240], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6030   s = SG_STRING(s_scm);
6031   if (SG_ARGC > 1+1) {
6032     start_scm = SG_ARGREF(1);
6033   } else {
6034     start_scm = SG_MAKE_INT(0);
6035   }
6036   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
6037     Sg_WrongTypeOfArgumentViolation(
6038        sg__rc_cgen9166.d9486[240], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
6039   start = SG_INT_VALUE(start_scm);
6040   if (SG_ARGC > 2+1) {
6041     end_scm = SG_ARGREF(2);
6042   } else {
6043     end_scm = SG_MAKE_INT(-1);
6044   }
6045   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
6046     Sg_WrongTypeOfArgumentViolation(
6047        sg__rc_cgen9166.d9486[240], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
6048   end = SG_INT_VALUE(end_scm);
6049   {
6050 {
6051 SgObject SG_RESULT = (SgObject)NULL;
6052 
6053 #line 807 "./lib_core.stub"
6054 SG_RESULT=(Sg_StringTitleCase(Sg_MaybeSubstring(s,start,end),FALSE));
6055 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6056 }
6057   }
6058 }
6059 static SG_DEFINE_SUBR(core_string_titlecase__STUB, 1, 3,core_string_titlecase, SG_FALSE, NULL);
6060 
core_string_foldcase(SgObject * SG_FP,int SG_ARGC,void * data_)6061 static SgObject core_string_foldcase(SgObject *SG_FP, int SG_ARGC, void *data_)
6062 {
6063   SgObject s_scm;
6064   SgString* s;
6065   SgObject start_scm;
6066   long start;
6067   SgObject end_scm;
6068   long end;
6069   SG_ENTER_SUBR("string-foldcase");
6070   if ((SG_ARGC > 3 &&
6071       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6072       SG_ARGC < 1)
6073     Sg_WrongNumberOfArgumentsBetweenViolation(
6074      SG_INTERN("string-foldcase"), 1, 3, SG_ARGC, SG_NIL);
6075   s_scm = SG_ARGREF(0);
6076   if (!SG_STRINGP(s_scm))
6077     Sg_WrongTypeOfArgumentViolation(
6078        sg__rc_cgen9166.d9486[241], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6079   s = SG_STRING(s_scm);
6080   if (SG_ARGC > 1+1) {
6081     start_scm = SG_ARGREF(1);
6082   } else {
6083     start_scm = SG_MAKE_INT(0);
6084   }
6085   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
6086     Sg_WrongTypeOfArgumentViolation(
6087        sg__rc_cgen9166.d9486[241], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
6088   start = SG_INT_VALUE(start_scm);
6089   if (SG_ARGC > 2+1) {
6090     end_scm = SG_ARGREF(2);
6091   } else {
6092     end_scm = SG_MAKE_INT(-1);
6093   }
6094   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
6095     Sg_WrongTypeOfArgumentViolation(
6096        sg__rc_cgen9166.d9486[241], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
6097   end = SG_INT_VALUE(end_scm);
6098   {
6099 {
6100 SgObject SG_RESULT = (SgObject)NULL;
6101 
6102 #line 812 "./lib_core.stub"
6103 SG_RESULT=(Sg_StringFoldCase(Sg_MaybeSubstring(s,start,end)));
6104 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6105 }
6106   }
6107 }
6108 static SG_DEFINE_SUBR(core_string_foldcase__STUB, 1, 3,core_string_foldcase, SG_FALSE, NULL);
6109 
core_string_normalize_nfd(SgObject * SG_FP,int SG_ARGC,void * data_)6110 static SgObject core_string_normalize_nfd(SgObject *SG_FP, int SG_ARGC, void *data_)
6111 {
6112   SgObject s_scm;
6113   SgString* s;
6114   SG_ENTER_SUBR("string-normalize-nfd");
6115   if (SG_ARGC != 1)
6116     Sg_WrongNumberOfArgumentsViolation(
6117      SG_INTERN("string-normalize-nfd"), 1, SG_ARGC, SG_NIL);
6118   s_scm = SG_ARGREF(0);
6119   if (!SG_STRINGP(s_scm))
6120     Sg_WrongTypeOfArgumentViolation(
6121        sg__rc_cgen9166.d9486[242], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6122   s = SG_STRING(s_scm);
6123   {
6124 {
6125 SgObject SG_RESULT = (SgObject)NULL;
6126 SG_RESULT=(Sg_StringNormalizeNfd(s));
6127 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6128 }
6129   }
6130 }
6131 static SG_DEFINE_SUBR(core_string_normalize_nfd__STUB, 1, 0,core_string_normalize_nfd, SG_FALSE, NULL);
6132 
core_string_normalize_nfkd(SgObject * SG_FP,int SG_ARGC,void * data_)6133 static SgObject core_string_normalize_nfkd(SgObject *SG_FP, int SG_ARGC, void *data_)
6134 {
6135   SgObject s_scm;
6136   SgString* s;
6137   SG_ENTER_SUBR("string-normalize-nfkd");
6138   if (SG_ARGC != 1)
6139     Sg_WrongNumberOfArgumentsViolation(
6140      SG_INTERN("string-normalize-nfkd"), 1, SG_ARGC, SG_NIL);
6141   s_scm = SG_ARGREF(0);
6142   if (!SG_STRINGP(s_scm))
6143     Sg_WrongTypeOfArgumentViolation(
6144        sg__rc_cgen9166.d9486[243], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6145   s = SG_STRING(s_scm);
6146   {
6147 {
6148 SgObject SG_RESULT = (SgObject)NULL;
6149 SG_RESULT=(Sg_StringNormalizeNfkd(s));
6150 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6151 }
6152   }
6153 }
6154 static SG_DEFINE_SUBR(core_string_normalize_nfkd__STUB, 1, 0,core_string_normalize_nfkd, SG_FALSE, NULL);
6155 
core_string_normalize_nfc(SgObject * SG_FP,int SG_ARGC,void * data_)6156 static SgObject core_string_normalize_nfc(SgObject *SG_FP, int SG_ARGC, void *data_)
6157 {
6158   SgObject s_scm;
6159   SgString* s;
6160   SG_ENTER_SUBR("string-normalize-nfc");
6161   if (SG_ARGC != 1)
6162     Sg_WrongNumberOfArgumentsViolation(
6163      SG_INTERN("string-normalize-nfc"), 1, SG_ARGC, SG_NIL);
6164   s_scm = SG_ARGREF(0);
6165   if (!SG_STRINGP(s_scm))
6166     Sg_WrongTypeOfArgumentViolation(
6167        sg__rc_cgen9166.d9486[244], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6168   s = SG_STRING(s_scm);
6169   {
6170 {
6171 SgObject SG_RESULT = (SgObject)NULL;
6172 SG_RESULT=(Sg_StringNormalizeNfc(s));
6173 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6174 }
6175   }
6176 }
6177 static SG_DEFINE_SUBR(core_string_normalize_nfc__STUB, 1, 0,core_string_normalize_nfc, SG_FALSE, NULL);
6178 
core_string_normalize_nfkc(SgObject * SG_FP,int SG_ARGC,void * data_)6179 static SgObject core_string_normalize_nfkc(SgObject *SG_FP, int SG_ARGC, void *data_)
6180 {
6181   SgObject s_scm;
6182   SgString* s;
6183   SG_ENTER_SUBR("string-normalize-nfkc");
6184   if (SG_ARGC != 1)
6185     Sg_WrongNumberOfArgumentsViolation(
6186      SG_INTERN("string-normalize-nfkc"), 1, SG_ARGC, SG_NIL);
6187   s_scm = SG_ARGREF(0);
6188   if (!SG_STRINGP(s_scm))
6189     Sg_WrongTypeOfArgumentViolation(
6190        sg__rc_cgen9166.d9486[245], SG_MAKE_STRING("string"), s_scm, SG_NIL);
6191   s = SG_STRING(s_scm);
6192   {
6193 {
6194 SgObject SG_RESULT = (SgObject)NULL;
6195 SG_RESULT=(Sg_StringNormalizeNfkc(s));
6196 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6197 }
6198   }
6199 }
6200 static SG_DEFINE_SUBR(core_string_normalize_nfkc__STUB, 1, 0,core_string_normalize_nfkc, SG_FALSE, NULL);
6201 
core_native_endianness(SgObject * SG_FP,int SG_ARGC,void * data_)6202 static SgObject core_native_endianness(SgObject *SG_FP, int SG_ARGC, void *data_)
6203 {
6204   SG_ENTER_SUBR("native-endianness");
6205   if (SG_ARGC != 0)
6206     Sg_WrongNumberOfArgumentsViolation(
6207      SG_INTERN("native-endianness"), 0, SG_ARGC, SG_NIL);
6208   {
6209 {
6210 SgObject SG_RESULT = (SgObject)NULL;
6211 SG_RESULT=(Sg_NativeEndianness());
6212 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6213 }
6214   }
6215 }
6216 static SG_DEFINE_SUBR(core_native_endianness__STUB, 0, 0,core_native_endianness, SG_FALSE, NULL);
6217 
core_bytevector_3dP(SgObject * SG_FP,int SG_ARGC,void * data_)6218 static SgObject core_bytevector_3dP(SgObject *SG_FP, int SG_ARGC, void *data_)
6219 {
6220   SgObject bv1_scm;
6221   SgByteVector* bv1;
6222   SgObject bv2_scm;
6223   SgByteVector* bv2;
6224   SG_ENTER_SUBR("bytevector=?");
6225   if (SG_ARGC != 2)
6226     Sg_WrongNumberOfArgumentsViolation(
6227      SG_INTERN("bytevector=?"), 2, SG_ARGC, SG_NIL);
6228   bv1_scm = SG_ARGREF(0);
6229   if (!SG_BVECTORP(bv1_scm))
6230     Sg_WrongTypeOfArgumentViolation(
6231        sg__rc_cgen9166.d9486[247], SG_MAKE_STRING("bytevector"), bv1_scm, SG_NIL);
6232   bv1 = SG_BVECTOR(bv1_scm);
6233   bv2_scm = SG_ARGREF(1);
6234   if (!SG_BVECTORP(bv2_scm))
6235     Sg_WrongTypeOfArgumentViolation(
6236        sg__rc_cgen9166.d9486[247], SG_MAKE_STRING("bytevector"), bv2_scm, SG_NIL);
6237   bv2 = SG_BVECTOR(bv2_scm);
6238   {
6239 {
6240 int SG_RESULT = (int)FALSE;
6241 SG_RESULT=(Sg_ByteVectorEqP(bv1,bv2));
6242 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
6243 }
6244   }
6245 }
6246 static SG_DEFINE_SUBR(core_bytevector_3dP__STUB, 2, 0,core_bytevector_3dP, SG_FALSE, NULL);
6247 
core_bytevector_copy(SgObject * SG_FP,int SG_ARGC,void * data_)6248 static SgObject core_bytevector_copy(SgObject *SG_FP, int SG_ARGC, void *data_)
6249 {
6250   SgObject src_scm;
6251   SgByteVector* src;
6252   SgObject start_scm;
6253   long start;
6254   SgObject end_scm;
6255   long end;
6256   SG_ENTER_SUBR("bytevector-copy");
6257   if ((SG_ARGC > 3 &&
6258       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6259       SG_ARGC < 1)
6260     Sg_WrongNumberOfArgumentsBetweenViolation(
6261      SG_INTERN("bytevector-copy"), 1, 3, SG_ARGC, SG_NIL);
6262   src_scm = SG_ARGREF(0);
6263   if (!SG_BVECTORP(src_scm))
6264     Sg_WrongTypeOfArgumentViolation(
6265        sg__rc_cgen9166.d9486[248], SG_MAKE_STRING("bytevector"), src_scm, SG_NIL);
6266   src = SG_BVECTOR(src_scm);
6267   if (SG_ARGC > 1+1) {
6268     start_scm = SG_ARGREF(1);
6269   } else {
6270     start_scm = SG_MAKE_INT(0);
6271   }
6272   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
6273     Sg_WrongTypeOfArgumentViolation(
6274        sg__rc_cgen9166.d9486[248], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
6275   start = SG_INT_VALUE(start_scm);
6276   if (SG_ARGC > 2+1) {
6277     end_scm = SG_ARGREF(2);
6278   } else {
6279     end_scm = SG_MAKE_INT(-1);
6280   }
6281   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
6282     Sg_WrongTypeOfArgumentViolation(
6283        sg__rc_cgen9166.d9486[248], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
6284   end = SG_INT_VALUE(end_scm);
6285   {
6286 {
6287 SgObject SG_RESULT = (SgObject)NULL;
6288 SG_RESULT=(Sg_ByteVectorCopy(src,start,end));
6289 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6290 }
6291   }
6292 }
6293 static SG_DEFINE_SUBR(core_bytevector_copy__STUB, 1, 3,core_bytevector_copy, SG_FALSE, NULL);
6294 
core_bytevector_copyX(SgObject * SG_FP,int SG_ARGC,void * data_)6295 static SgObject core_bytevector_copyX(SgObject *SG_FP, int SG_ARGC, void *data_)
6296 {
6297   SgObject src_scm;
6298   SgByteVector* src;
6299   SgObject sstart_scm;
6300   long sstart;
6301   SgObject dst_scm;
6302   SgByteVector* dst;
6303   SgObject dstart_scm;
6304   long dstart;
6305   SgObject k_scm;
6306   long k;
6307   SG_ENTER_SUBR("bytevector-copy!");
6308   if (SG_ARGC != 5)
6309     Sg_WrongNumberOfArgumentsViolation(
6310      SG_INTERN("bytevector-copy!"), 5, SG_ARGC, SG_NIL);
6311   src_scm = SG_ARGREF(0);
6312   if (!SG_BVECTORP(src_scm))
6313     Sg_WrongTypeOfArgumentViolation(
6314        sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("bytevector"), src_scm, SG_NIL);
6315   src = SG_BVECTOR(src_scm);
6316   sstart_scm = SG_ARGREF(1);
6317   if (!SG_INTP(sstart_scm))
6318     Sg_WrongTypeOfArgumentViolation(
6319        sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("fixnum"), sstart_scm, SG_NIL);
6320   sstart = SG_INT_VALUE(sstart_scm);
6321   dst_scm = SG_ARGREF(2);
6322   if (!SG_BVECTORP(dst_scm))
6323     Sg_WrongTypeOfArgumentViolation(
6324        sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("bytevector"), dst_scm, SG_NIL);
6325   dst = SG_BVECTOR(dst_scm);
6326   dstart_scm = SG_ARGREF(3);
6327   if (!SG_INTP(dstart_scm))
6328     Sg_WrongTypeOfArgumentViolation(
6329        sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("fixnum"), dstart_scm, SG_NIL);
6330   dstart = SG_INT_VALUE(dstart_scm);
6331   k_scm = SG_ARGREF(4);
6332   if (!SG_INTP(k_scm))
6333     Sg_WrongTypeOfArgumentViolation(
6334        sg__rc_cgen9166.d9486[249], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
6335   k = SG_INT_VALUE(k_scm);
6336   {
6337 
6338 #line 846 "./lib_core.stub"
6339 if ((sstart)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[250],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(sstart),SG_NIL);}}}
6340 
6341 #line 847 "./lib_core.stub"
6342 if ((dstart)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[250],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(dstart),SG_NIL);}}}
6343 
6344 #line 848 "./lib_core.stub"
6345 Sg_ByteVectorCopyX(src,sstart,dst,dstart,k);
6346 SG_RETURN(SG_UNDEF);
6347   }
6348 }
6349 static SG_DEFINE_SUBR(core_bytevector_copyX__STUB, 5, 0,core_bytevector_copyX, SG_FALSE, NULL);
6350 
core_make_bytevector(SgObject * SG_FP,int SG_ARGC,void * data_)6351 static SgObject core_make_bytevector(SgObject *SG_FP, int SG_ARGC, void *data_)
6352 {
6353   SgObject len_scm;
6354   long len;
6355   SgObject fill_scm;
6356   long fill;
6357   SG_ENTER_SUBR("make-bytevector");
6358   if ((SG_ARGC > 2 &&
6359       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6360       SG_ARGC < 1)
6361     Sg_WrongNumberOfArgumentsBetweenViolation(
6362      SG_INTERN("make-bytevector"), 1, 2, SG_ARGC, SG_NIL);
6363   len_scm = SG_ARGREF(0);
6364   if (!SG_INTP(len_scm))
6365     Sg_WrongTypeOfArgumentViolation(
6366        sg__rc_cgen9166.d9486[251], SG_MAKE_STRING("fixnum"), len_scm, SG_NIL);
6367   len = SG_INT_VALUE(len_scm);
6368   if (SG_ARGC > 1+1) {
6369     fill_scm = SG_ARGREF(1);
6370   } else {
6371     fill_scm = SG_MAKE_INT(0);
6372   }
6373   if (!SG_INTP(fill_scm) && !SG_INTP(fill_scm))
6374     Sg_WrongTypeOfArgumentViolation(
6375        sg__rc_cgen9166.d9486[251], SG_MAKE_STRING("fixnum"), fill_scm, SG_NIL);
6376   fill = SG_INT_VALUE(fill_scm);
6377   {
6378 {
6379 SgObject SG_RESULT = (SgObject)NULL;
6380 
6381 #line 852 "./lib_core.stub"
6382 if ((len)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[252],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(len),SG_NIL);}}}
6383 
6384 #line 853 "./lib_core.stub"
6385 SG_RESULT=(Sg_MakeByteVector(len,((int )(fill))));
6386 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6387 }
6388   }
6389 }
6390 static SG_DEFINE_SUBR(core_make_bytevector__STUB, 1, 2,core_make_bytevector, SG_FALSE, NULL);
6391 
core_bytevectorP(SgObject * SG_FP,int SG_ARGC,void * data_)6392 static SgObject core_bytevectorP(SgObject *SG_FP, int SG_ARGC, void *data_)
6393 {
6394   SgObject o_scm;
6395   SgObject o;
6396   SG_ENTER_SUBR("bytevector?");
6397   if (SG_ARGC != 1)
6398     Sg_WrongNumberOfArgumentsViolation(
6399      SG_INTERN("bytevector?"), 1, SG_ARGC, SG_NIL);
6400   o_scm = SG_ARGREF(0);
6401   o = (o_scm);
6402   {
6403 {
6404 int SG_RESULT = (int)FALSE;
6405 SG_RESULT=(SG_BVECTORP(o));
6406 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
6407 }
6408   }
6409 }
6410 static SG_DEFINE_SUBR(core_bytevectorP__STUB, 1, 0,core_bytevectorP, SG_FALSE, NULL);
6411 
core_bytevector_length(SgObject * SG_FP,int SG_ARGC,void * data_)6412 static SgObject core_bytevector_length(SgObject *SG_FP, int SG_ARGC, void *data_)
6413 {
6414   SgObject bv_scm;
6415   SgByteVector* bv;
6416   SG_ENTER_SUBR("bytevector-length");
6417   if (SG_ARGC != 1)
6418     Sg_WrongNumberOfArgumentsViolation(
6419      SG_INTERN("bytevector-length"), 1, SG_ARGC, SG_NIL);
6420   bv_scm = SG_ARGREF(0);
6421   if (!SG_BVECTORP(bv_scm))
6422     Sg_WrongTypeOfArgumentViolation(
6423        sg__rc_cgen9166.d9486[254], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6424   bv = SG_BVECTOR(bv_scm);
6425   {
6426 {
6427 long SG_RESULT = (long)0;
6428 SG_RESULT=(SG_BVECTOR_SIZE(bv));
6429 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6430 }
6431   }
6432 }
6433 static SG_DEFINE_SUBR(core_bytevector_length__STUB, 1, 0,core_bytevector_length, SG_FALSE, NULL);
6434 
core_bytevector_fillX(SgObject * SG_FP,int SG_ARGC,void * data_)6435 static SgObject core_bytevector_fillX(SgObject *SG_FP, int SG_ARGC, void *data_)
6436 {
6437   SgObject bv_scm;
6438   SgByteVector* bv;
6439   SgObject fill_scm;
6440   long fill;
6441   SgObject start_scm;
6442   long start;
6443   SgObject end_scm;
6444   long end;
6445   SG_ENTER_SUBR("bytevector-fill!");
6446   if ((SG_ARGC > 4 &&
6447       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
6448       SG_ARGC < 2)
6449     Sg_WrongNumberOfArgumentsBetweenViolation(
6450      SG_INTERN("bytevector-fill!"), 2, 4, SG_ARGC, SG_NIL);
6451   bv_scm = SG_ARGREF(0);
6452   if (!SG_BVECTORP(bv_scm))
6453     Sg_WrongTypeOfArgumentViolation(
6454        sg__rc_cgen9166.d9486[255], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6455   bv = SG_BVECTOR(bv_scm);
6456   fill_scm = SG_ARGREF(1);
6457   if (!SG_INTP(fill_scm))
6458     Sg_WrongTypeOfArgumentViolation(
6459        sg__rc_cgen9166.d9486[255], SG_MAKE_STRING("fixnum"), fill_scm, SG_NIL);
6460   fill = SG_INT_VALUE(fill_scm);
6461   if (SG_ARGC > 2+1) {
6462     start_scm = SG_ARGREF(2);
6463   } else {
6464     start_scm = SG_MAKE_INT(0);
6465   }
6466   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
6467     Sg_WrongTypeOfArgumentViolation(
6468        sg__rc_cgen9166.d9486[255], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
6469   start = SG_INT_VALUE(start_scm);
6470   if (SG_ARGC > 3+1) {
6471     end_scm = SG_ARGREF(3);
6472   } else {
6473     end_scm = SG_MAKE_INT(-1);
6474   }
6475   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
6476     Sg_WrongTypeOfArgumentViolation(
6477        sg__rc_cgen9166.d9486[255], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
6478   end = SG_INT_VALUE(end_scm);
6479   {
6480 
6481 #line 862 "./lib_core.stub"
6482 Sg_ByteVectorFill(bv,((int )(fill)),start,end);
6483 SG_RETURN(SG_UNDEF);
6484   }
6485 }
6486 static SG_DEFINE_SUBR(core_bytevector_fillX__STUB, 2, 3,core_bytevector_fillX, SG_FALSE, NULL);
6487 
core_u8_list_TObytevector(SgObject * SG_FP,int SG_ARGC,void * data_)6488 static SgObject core_u8_list_TObytevector(SgObject *SG_FP, int SG_ARGC, void *data_)
6489 {
6490   SgObject lst_scm;
6491   SgObject lst;
6492   SG_ENTER_SUBR("u8-list->bytevector");
6493   if (SG_ARGC != 1)
6494     Sg_WrongNumberOfArgumentsViolation(
6495      SG_INTERN("u8-list->bytevector"), 1, SG_ARGC, SG_NIL);
6496   lst_scm = SG_ARGREF(0);
6497   lst = (lst_scm);
6498   {
6499 {
6500 SgObject SG_RESULT = (SgObject)NULL;
6501 
6502 #line 866 "./lib_core.stub"
6503 SG_RESULT=(Sg_ListToByteVector(lst,8,FALSE));
6504 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6505 }
6506   }
6507 }
6508 static SG_DEFINE_SUBR(core_u8_list_TObytevector__STUB, 1, 0,core_u8_list_TObytevector, SG_FALSE, NULL);
6509 
core_bytevector_TOu8_list(SgObject * SG_FP,int SG_ARGC,void * data_)6510 static SgObject core_bytevector_TOu8_list(SgObject *SG_FP, int SG_ARGC, void *data_)
6511 {
6512   SgObject lst_scm;
6513   SgObject lst;
6514   SG_ENTER_SUBR("bytevector->u8-list");
6515   if (SG_ARGC != 1)
6516     Sg_WrongNumberOfArgumentsViolation(
6517      SG_INTERN("bytevector->u8-list"), 1, SG_ARGC, SG_NIL);
6518   lst_scm = SG_ARGREF(0);
6519   lst = (lst_scm);
6520   {
6521 {
6522 SgObject SG_RESULT = (SgObject)NULL;
6523 
6524 #line 869 "./lib_core.stub"
6525 SG_RESULT=(Sg_ByteVectorToList(lst,8,FALSE));
6526 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
6527 }
6528   }
6529 }
6530 static SG_DEFINE_SUBR(core_bytevector_TOu8_list__STUB, 1, 0,core_bytevector_TOu8_list, SG_FALSE, NULL);
6531 
core_bytevector_u8_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6532 static SgObject core_bytevector_u8_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6533 {
6534   SgObject bv_scm;
6535   SgByteVector* bv;
6536   SgObject index_scm;
6537   long index;
6538   SG_ENTER_SUBR("bytevector-u8-ref");
6539   if (SG_ARGC != 2)
6540     Sg_WrongNumberOfArgumentsViolation(
6541      SG_INTERN("bytevector-u8-ref"), 2, SG_ARGC, SG_NIL);
6542   bv_scm = SG_ARGREF(0);
6543   if (!SG_BVECTORP(bv_scm))
6544     Sg_WrongTypeOfArgumentViolation(
6545        sg__rc_cgen9166.d9486[258], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6546   bv = SG_BVECTOR(bv_scm);
6547   index_scm = SG_ARGREF(1);
6548   if (!SG_INTP(index_scm))
6549     Sg_WrongTypeOfArgumentViolation(
6550        sg__rc_cgen9166.d9486[258], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6551   index = SG_INT_VALUE(index_scm);
6552   {
6553 {
6554 long SG_RESULT = (long)0;
6555 
6556 #line 892 "./lib_core.stub"
6557 if ((!(((SG_BVECTOR_SIZE(bv))>(index))&&((index)>=(0))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[259],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}
6558 
6559 #line 893 "./lib_core.stub"
6560 SG_RESULT=(SG_BVECTOR_ELEMENT(bv,index));
6561 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6562 }
6563   }
6564 }
6565 static SG_DEFINE_SUBR(core_bytevector_u8_ref__STUB, 2, 0,core_bytevector_u8_ref, SG_FALSE, NULL);
6566 
core_bytevector_u8_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6567 static SgObject core_bytevector_u8_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6568 {
6569   SgObject bv_scm;
6570   SgByteVector* bv;
6571   SgObject index_scm;
6572   long index;
6573   SgObject value_scm;
6574   long value;
6575   SG_ENTER_SUBR("bytevector-u8-set!");
6576   if (SG_ARGC != 3)
6577     Sg_WrongNumberOfArgumentsViolation(
6578      SG_INTERN("bytevector-u8-set!"), 3, SG_ARGC, SG_NIL);
6579   bv_scm = SG_ARGREF(0);
6580   if (!SG_BVECTORP(bv_scm))
6581     Sg_WrongTypeOfArgumentViolation(
6582        sg__rc_cgen9166.d9486[260], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6583   bv = SG_BVECTOR(bv_scm);
6584   index_scm = SG_ARGREF(1);
6585   if (!SG_INTP(index_scm))
6586     Sg_WrongTypeOfArgumentViolation(
6587        sg__rc_cgen9166.d9486[260], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6588   index = SG_INT_VALUE(index_scm);
6589   value_scm = SG_ARGREF(2);
6590   if (!SG_INTP(value_scm))
6591     Sg_WrongTypeOfArgumentViolation(
6592        sg__rc_cgen9166.d9486[260], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6593   value = SG_INT_VALUE(value_scm);
6594   {
6595 
6596 #line 897 "./lib_core.stub"
6597 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[261],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6598 
6599 #line 898 "./lib_core.stub"
6600 if ((!(((SG_BVECTOR_SIZE(bv))>(index))&&((index)>=(0))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[261],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}
6601 
6602 #line 899 "./lib_core.stub"
6603 if ((!(SG_IS_OCTET(value)))){{
6604 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[261],SG_MAKE_STRING("value out of range. must be 0 <= value <= 255"),
6605 #line 902 "./lib_core.stub"
6606 SG_MAKE_INT(value));}}}
6607 
6608 #line 903 "./lib_core.stub"
6609 SG_BVECTOR_ELEMENT(bv,index)=(((uint8_t )(value)));
6610 SG_RETURN(SG_UNDEF);
6611   }
6612 }
6613 static SG_DEFINE_SUBR(core_bytevector_u8_setX__STUB, 3, 0,core_bytevector_u8_setX, SG_FALSE, NULL);
6614 
core_bytevector_s8_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6615 static SgObject core_bytevector_s8_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6616 {
6617   SgObject bv_scm;
6618   SgByteVector* bv;
6619   SgObject index_scm;
6620   long index;
6621   SG_ENTER_SUBR("bytevector-s8-ref");
6622   if (SG_ARGC != 2)
6623     Sg_WrongNumberOfArgumentsViolation(
6624      SG_INTERN("bytevector-s8-ref"), 2, SG_ARGC, SG_NIL);
6625   bv_scm = SG_ARGREF(0);
6626   if (!SG_BVECTORP(bv_scm))
6627     Sg_WrongTypeOfArgumentViolation(
6628        sg__rc_cgen9166.d9486[262], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6629   bv = SG_BVECTOR(bv_scm);
6630   index_scm = SG_ARGREF(1);
6631   if (!SG_INTP(index_scm))
6632     Sg_WrongTypeOfArgumentViolation(
6633        sg__rc_cgen9166.d9486[262], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6634   index = SG_INT_VALUE(index_scm);
6635   {
6636 {
6637 long SG_RESULT = (long)0;
6638 
6639 #line 908 "./lib_core.stub"
6640 if ((!(((SG_BVECTOR_SIZE(bv))>(index))&&((index)>=(0))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[263],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}
6641 
6642 #line 909 "./lib_core.stub"
6643 SG_RESULT=(((int8_t )(SG_BVECTOR_ELEMENT(bv,index))));
6644 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6645 }
6646   }
6647 }
6648 static SG_DEFINE_SUBR(core_bytevector_s8_ref__STUB, 2, 0,core_bytevector_s8_ref, SG_FALSE, NULL);
6649 
core_bytevector_s8_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6650 static SgObject core_bytevector_s8_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6651 {
6652   SgObject bv_scm;
6653   SgByteVector* bv;
6654   SgObject index_scm;
6655   long index;
6656   SgObject value_scm;
6657   long value;
6658   SG_ENTER_SUBR("bytevector-s8-set!");
6659   if (SG_ARGC != 3)
6660     Sg_WrongNumberOfArgumentsViolation(
6661      SG_INTERN("bytevector-s8-set!"), 3, SG_ARGC, SG_NIL);
6662   bv_scm = SG_ARGREF(0);
6663   if (!SG_BVECTORP(bv_scm))
6664     Sg_WrongTypeOfArgumentViolation(
6665        sg__rc_cgen9166.d9486[264], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6666   bv = SG_BVECTOR(bv_scm);
6667   index_scm = SG_ARGREF(1);
6668   if (!SG_INTP(index_scm))
6669     Sg_WrongTypeOfArgumentViolation(
6670        sg__rc_cgen9166.d9486[264], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6671   index = SG_INT_VALUE(index_scm);
6672   value_scm = SG_ARGREF(2);
6673   if (!SG_INTP(value_scm))
6674     Sg_WrongTypeOfArgumentViolation(
6675        sg__rc_cgen9166.d9486[264], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6676   value = SG_INT_VALUE(value_scm);
6677   {
6678 
6679 #line 913 "./lib_core.stub"
6680 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[265],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6681 
6682 #line 914 "./lib_core.stub"
6683 if ((!(((SG_BVECTOR_SIZE(bv))>(index))&&((index)>=(0))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[265],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}
6684 
6685 #line 915 "./lib_core.stub"
6686 if ((!(SG_IS_BYTE(value)))){{
6687 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[265],SG_MAKE_STRING("value out of range. must be -128 <= value <= 127"),
6688 #line 918 "./lib_core.stub"
6689 SG_MAKE_INT(value));}}}
6690 
6691 #line 919 "./lib_core.stub"
6692 SG_BVECTOR_ELEMENT(bv,index)=(((uint8_t )(value)));
6693 SG_RETURN(SG_UNDEF);
6694   }
6695 }
6696 static SG_DEFINE_SUBR(core_bytevector_s8_setX__STUB, 3, 0,core_bytevector_s8_setX, SG_FALSE, NULL);
6697 
core_bytevector_u16_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6698 static SgObject core_bytevector_u16_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6699 {
6700   SgObject bv_scm;
6701   SgByteVector* bv;
6702   SgObject index_scm;
6703   long index;
6704   SG_ENTER_SUBR("bytevector-u16-native-ref");
6705   if (SG_ARGC != 2)
6706     Sg_WrongNumberOfArgumentsViolation(
6707      SG_INTERN("bytevector-u16-native-ref"), 2, SG_ARGC, SG_NIL);
6708   bv_scm = SG_ARGREF(0);
6709   if (!SG_BVECTORP(bv_scm))
6710     Sg_WrongTypeOfArgumentViolation(
6711        sg__rc_cgen9166.d9486[266], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6712   bv = SG_BVECTOR(bv_scm);
6713   index_scm = SG_ARGREF(1);
6714   if (!SG_INTP(index_scm))
6715     Sg_WrongTypeOfArgumentViolation(
6716        sg__rc_cgen9166.d9486[266], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6717   index = SG_INT_VALUE(index_scm);
6718   {
6719 {
6720 long SG_RESULT = (long)0;
6721 
6722 #line 941 "./lib_core.stub"
6723 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[267],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6724 
6725 #line 942 "./lib_core.stub"
6726 if ((!(((index)%(2))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[267],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
6727 
6728 #line 943 "./lib_core.stub"
6729 SG_RESULT=(Sg_ByteVectorU16NativeRef(bv,index));
6730 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6731 }
6732   }
6733 }
6734 static SG_DEFINE_SUBR(core_bytevector_u16_native_ref__STUB, 2, 0,core_bytevector_u16_native_ref, SG_FALSE, NULL);
6735 
core_bytevector_u16_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6736 static SgObject core_bytevector_u16_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6737 {
6738   SgObject bv_scm;
6739   SgByteVector* bv;
6740   SgObject index_scm;
6741   long index;
6742   SgObject value_scm;
6743   long value;
6744   SG_ENTER_SUBR("bytevector-u16-native-set!");
6745   if (SG_ARGC != 3)
6746     Sg_WrongNumberOfArgumentsViolation(
6747      SG_INTERN("bytevector-u16-native-set!"), 3, SG_ARGC, SG_NIL);
6748   bv_scm = SG_ARGREF(0);
6749   if (!SG_BVECTORP(bv_scm))
6750     Sg_WrongTypeOfArgumentViolation(
6751        sg__rc_cgen9166.d9486[268], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6752   bv = SG_BVECTOR(bv_scm);
6753   index_scm = SG_ARGREF(1);
6754   if (!SG_INTP(index_scm))
6755     Sg_WrongTypeOfArgumentViolation(
6756        sg__rc_cgen9166.d9486[268], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6757   index = SG_INT_VALUE(index_scm);
6758   value_scm = SG_ARGREF(2);
6759   if (!SG_INTP(value_scm))
6760     Sg_WrongTypeOfArgumentViolation(
6761        sg__rc_cgen9166.d9486[268], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6762   value = SG_INT_VALUE(value_scm);
6763   {
6764 
6765 #line 947 "./lib_core.stub"
6766 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[269],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6767 
6768 #line 948 "./lib_core.stub"
6769 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[269],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6770 
6771 #line 949 "./lib_core.stub"
6772 {long cise__10275=value;if ((!(((0)<=(cise__10275))&&((cise__10275)<=(65535))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[269],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10275));}}}}
6773 
6774 #line 950 "./lib_core.stub"
6775 Sg_ByteVectorU16NativeSet(bv,index,value);
6776 SG_RETURN(SG_UNDEF);
6777   }
6778 }
6779 static SG_DEFINE_SUBR(core_bytevector_u16_native_setX__STUB, 3, 0,core_bytevector_u16_native_setX, SG_FALSE, NULL);
6780 
core_bytevector_u16_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6781 static SgObject core_bytevector_u16_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6782 {
6783   SgObject bv_scm;
6784   SgByteVector* bv;
6785   SgObject index_scm;
6786   long index;
6787   SgObject endian_scm;
6788   SgSymbol* endian;
6789   SG_ENTER_SUBR("bytevector-u16-ref");
6790   if (SG_ARGC != 3)
6791     Sg_WrongNumberOfArgumentsViolation(
6792      SG_INTERN("bytevector-u16-ref"), 3, SG_ARGC, SG_NIL);
6793   bv_scm = SG_ARGREF(0);
6794   if (!SG_BVECTORP(bv_scm))
6795     Sg_WrongTypeOfArgumentViolation(
6796        sg__rc_cgen9166.d9486[270], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6797   bv = SG_BVECTOR(bv_scm);
6798   index_scm = SG_ARGREF(1);
6799   if (!SG_INTP(index_scm))
6800     Sg_WrongTypeOfArgumentViolation(
6801        sg__rc_cgen9166.d9486[270], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6802   index = SG_INT_VALUE(index_scm);
6803   endian_scm = SG_ARGREF(2);
6804   if (!SG_SYMBOLP(endian_scm))
6805     Sg_WrongTypeOfArgumentViolation(
6806        sg__rc_cgen9166.d9486[270], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
6807   endian = SG_SYMBOL(endian_scm);
6808   {
6809 {
6810 long SG_RESULT = (long)0;
6811 
6812 #line 955 "./lib_core.stub"
6813 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[271],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6814 
6815 #line 956 "./lib_core.stub"
6816 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
6817 SG_RESULT=(Sg_ByteVectorU16BigRef(bv,index));}else if(
6818 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
6819 SG_RESULT=(Sg_ByteVectorU16LittleRef(bv,index));} else {
6820 #line 961 "./lib_core.stub"
6821 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[271],SG_MAKE_STRING("unsupported endianness"),endian);}}
6822 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6823 }
6824   }
6825 }
6826 static SG_DEFINE_SUBR(core_bytevector_u16_ref__STUB, 3, 0,core_bytevector_u16_ref, SG_FALSE, NULL);
6827 
core_bytevector_u16_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6828 static SgObject core_bytevector_u16_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6829 {
6830   SgObject bv_scm;
6831   SgByteVector* bv;
6832   SgObject index_scm;
6833   long index;
6834   SgObject value_scm;
6835   long value;
6836   SgObject endian_scm;
6837   SgSymbol* endian;
6838   SG_ENTER_SUBR("bytevector-u16-set!");
6839   if (SG_ARGC != 4)
6840     Sg_WrongNumberOfArgumentsViolation(
6841      SG_INTERN("bytevector-u16-set!"), 4, SG_ARGC, SG_NIL);
6842   bv_scm = SG_ARGREF(0);
6843   if (!SG_BVECTORP(bv_scm))
6844     Sg_WrongTypeOfArgumentViolation(
6845        sg__rc_cgen9166.d9486[276], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6846   bv = SG_BVECTOR(bv_scm);
6847   index_scm = SG_ARGREF(1);
6848   if (!SG_INTP(index_scm))
6849     Sg_WrongTypeOfArgumentViolation(
6850        sg__rc_cgen9166.d9486[276], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6851   index = SG_INT_VALUE(index_scm);
6852   value_scm = SG_ARGREF(2);
6853   if (!SG_INTP(value_scm))
6854     Sg_WrongTypeOfArgumentViolation(
6855        sg__rc_cgen9166.d9486[276], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6856   value = SG_INT_VALUE(value_scm);
6857   endian_scm = SG_ARGREF(3);
6858   if (!SG_SYMBOLP(endian_scm))
6859     Sg_WrongTypeOfArgumentViolation(
6860        sg__rc_cgen9166.d9486[276], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
6861   endian = SG_SYMBOL(endian_scm);
6862   {
6863 
6864 #line 966 "./lib_core.stub"
6865 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[277],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6866 
6867 #line 967 "./lib_core.stub"
6868 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[277],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6869 
6870 #line 968 "./lib_core.stub"
6871 {long cise__10276=value;if ((!(((0)<=(cise__10276))&&((cise__10276)<=(65535))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[277],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10276));}}}}
6872 
6873 #line 969 "./lib_core.stub"
6874 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
6875 Sg_ByteVectorU16BigSet(bv,index,value);}else if(
6876 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
6877 Sg_ByteVectorU16LittleSet(bv,index,value);} else {
6878 #line 974 "./lib_core.stub"
6879 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[277],SG_MAKE_STRING("unsupported endianness"),endian);}}
6880 SG_RETURN(SG_UNDEF);
6881   }
6882 }
6883 static SG_DEFINE_SUBR(core_bytevector_u16_setX__STUB, 4, 0,core_bytevector_u16_setX, SG_FALSE, NULL);
6884 
core_bytevector_s16_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6885 static SgObject core_bytevector_s16_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6886 {
6887   SgObject bv_scm;
6888   SgByteVector* bv;
6889   SgObject index_scm;
6890   long index;
6891   SG_ENTER_SUBR("bytevector-s16-native-ref");
6892   if (SG_ARGC != 2)
6893     Sg_WrongNumberOfArgumentsViolation(
6894      SG_INTERN("bytevector-s16-native-ref"), 2, SG_ARGC, SG_NIL);
6895   bv_scm = SG_ARGREF(0);
6896   if (!SG_BVECTORP(bv_scm))
6897     Sg_WrongTypeOfArgumentViolation(
6898        sg__rc_cgen9166.d9486[278], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6899   bv = SG_BVECTOR(bv_scm);
6900   index_scm = SG_ARGREF(1);
6901   if (!SG_INTP(index_scm))
6902     Sg_WrongTypeOfArgumentViolation(
6903        sg__rc_cgen9166.d9486[278], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6904   index = SG_INT_VALUE(index_scm);
6905   {
6906 {
6907 long SG_RESULT = (long)0;
6908 
6909 #line 981 "./lib_core.stub"
6910 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[279],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6911 
6912 #line 982 "./lib_core.stub"
6913 if ((!(((index)%(2))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[279],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
6914 
6915 #line 983 "./lib_core.stub"
6916 SG_RESULT=(Sg_ByteVectorS16NativeRef(bv,index));
6917 SG_RETURN(SG_MAKE_INT(SG_RESULT));
6918 }
6919   }
6920 }
6921 static SG_DEFINE_SUBR(core_bytevector_s16_native_ref__STUB, 2, 0,core_bytevector_s16_native_ref, SG_FALSE, NULL);
6922 
core_bytevector_s16_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)6923 static SgObject core_bytevector_s16_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
6924 {
6925   SgObject bv_scm;
6926   SgByteVector* bv;
6927   SgObject index_scm;
6928   long index;
6929   SgObject value_scm;
6930   long value;
6931   SG_ENTER_SUBR("bytevector-s16-native-set!");
6932   if (SG_ARGC != 3)
6933     Sg_WrongNumberOfArgumentsViolation(
6934      SG_INTERN("bytevector-s16-native-set!"), 3, SG_ARGC, SG_NIL);
6935   bv_scm = SG_ARGREF(0);
6936   if (!SG_BVECTORP(bv_scm))
6937     Sg_WrongTypeOfArgumentViolation(
6938        sg__rc_cgen9166.d9486[280], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6939   bv = SG_BVECTOR(bv_scm);
6940   index_scm = SG_ARGREF(1);
6941   if (!SG_INTP(index_scm))
6942     Sg_WrongTypeOfArgumentViolation(
6943        sg__rc_cgen9166.d9486[280], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6944   index = SG_INT_VALUE(index_scm);
6945   value_scm = SG_ARGREF(2);
6946   if (!SG_INTP(value_scm))
6947     Sg_WrongTypeOfArgumentViolation(
6948        sg__rc_cgen9166.d9486[280], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
6949   value = SG_INT_VALUE(value_scm);
6950   {
6951 
6952 #line 987 "./lib_core.stub"
6953 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[281],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
6954 
6955 #line 988 "./lib_core.stub"
6956 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[281],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
6957 
6958 #line 989 "./lib_core.stub"
6959 {long cise__10277=value;if ((!(((-32768)<=(cise__10277))&&((cise__10277)<=(32767))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[281],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10277));}}}}
6960 
6961 #line 990 "./lib_core.stub"
6962 Sg_ByteVectorS16NativeSet(bv,index,value);
6963 SG_RETURN(SG_UNDEF);
6964   }
6965 }
6966 static SG_DEFINE_SUBR(core_bytevector_s16_native_setX__STUB, 3, 0,core_bytevector_s16_native_setX, SG_FALSE, NULL);
6967 
core_bytevector_s16_ref(SgObject * SG_FP,int SG_ARGC,void * data_)6968 static SgObject core_bytevector_s16_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
6969 {
6970   SgObject bv_scm;
6971   SgByteVector* bv;
6972   SgObject index_scm;
6973   long index;
6974   SgObject endian_scm;
6975   SgSymbol* endian;
6976   SG_ENTER_SUBR("bytevector-s16-ref");
6977   if (SG_ARGC != 3)
6978     Sg_WrongNumberOfArgumentsViolation(
6979      SG_INTERN("bytevector-s16-ref"), 3, SG_ARGC, SG_NIL);
6980   bv_scm = SG_ARGREF(0);
6981   if (!SG_BVECTORP(bv_scm))
6982     Sg_WrongTypeOfArgumentViolation(
6983        sg__rc_cgen9166.d9486[282], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
6984   bv = SG_BVECTOR(bv_scm);
6985   index_scm = SG_ARGREF(1);
6986   if (!SG_INTP(index_scm))
6987     Sg_WrongTypeOfArgumentViolation(
6988        sg__rc_cgen9166.d9486[282], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
6989   index = SG_INT_VALUE(index_scm);
6990   endian_scm = SG_ARGREF(2);
6991   if (!SG_SYMBOLP(endian_scm))
6992     Sg_WrongTypeOfArgumentViolation(
6993        sg__rc_cgen9166.d9486[282], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
6994   endian = SG_SYMBOL(endian_scm);
6995   {
6996 {
6997 long SG_RESULT = (long)0;
6998 
6999 #line 995 "./lib_core.stub"
7000 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[283],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7001 
7002 #line 996 "./lib_core.stub"
7003 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7004 SG_RESULT=(Sg_ByteVectorS16BigRef(bv,index));}else if(
7005 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7006 SG_RESULT=(Sg_ByteVectorS16LittleRef(bv,index));} else {
7007 #line 1001 "./lib_core.stub"
7008 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[283],SG_MAKE_STRING("unsupported endianness"),endian);}}
7009 SG_RETURN(SG_MAKE_INT(SG_RESULT));
7010 }
7011   }
7012 }
7013 static SG_DEFINE_SUBR(core_bytevector_s16_ref__STUB, 3, 0,core_bytevector_s16_ref, SG_FALSE, NULL);
7014 
core_bytevector_s16_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7015 static SgObject core_bytevector_s16_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7016 {
7017   SgObject bv_scm;
7018   SgByteVector* bv;
7019   SgObject index_scm;
7020   long index;
7021   SgObject value_scm;
7022   long value;
7023   SgObject endian_scm;
7024   SgSymbol* endian;
7025   SG_ENTER_SUBR("bytevector-s16-set!");
7026   if (SG_ARGC != 4)
7027     Sg_WrongNumberOfArgumentsViolation(
7028      SG_INTERN("bytevector-s16-set!"), 4, SG_ARGC, SG_NIL);
7029   bv_scm = SG_ARGREF(0);
7030   if (!SG_BVECTORP(bv_scm))
7031     Sg_WrongTypeOfArgumentViolation(
7032        sg__rc_cgen9166.d9486[284], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7033   bv = SG_BVECTOR(bv_scm);
7034   index_scm = SG_ARGREF(1);
7035   if (!SG_INTP(index_scm))
7036     Sg_WrongTypeOfArgumentViolation(
7037        sg__rc_cgen9166.d9486[284], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7038   index = SG_INT_VALUE(index_scm);
7039   value_scm = SG_ARGREF(2);
7040   if (!SG_INTP(value_scm))
7041     Sg_WrongTypeOfArgumentViolation(
7042        sg__rc_cgen9166.d9486[284], SG_MAKE_STRING("fixnum"), value_scm, SG_NIL);
7043   value = SG_INT_VALUE(value_scm);
7044   endian_scm = SG_ARGREF(3);
7045   if (!SG_SYMBOLP(endian_scm))
7046     Sg_WrongTypeOfArgumentViolation(
7047        sg__rc_cgen9166.d9486[284], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7048   endian = SG_SYMBOL(endian_scm);
7049   {
7050 
7051 #line 1006 "./lib_core.stub"
7052 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[285],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7053 
7054 #line 1007 "./lib_core.stub"
7055 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(1))&&((index)<((len)-(1)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[285],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7056 
7057 #line 1008 "./lib_core.stub"
7058 {long cise__10278=value;if ((!(((-32768)<=(cise__10278))&&((cise__10278)<=(32767))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[285],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10278));}}}}
7059 
7060 #line 1009 "./lib_core.stub"
7061 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7062 Sg_ByteVectorS16BigSet(bv,index,value);}else if(
7063 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7064 Sg_ByteVectorS16LittleSet(bv,index,value);} else {
7065 #line 1014 "./lib_core.stub"
7066 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[285],SG_MAKE_STRING("unsupported endianness"),endian);}}
7067 SG_RETURN(SG_UNDEF);
7068   }
7069 }
7070 static SG_DEFINE_SUBR(core_bytevector_s16_setX__STUB, 4, 0,core_bytevector_s16_setX, SG_FALSE, NULL);
7071 
core_bytevector_u32_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7072 static SgObject core_bytevector_u32_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7073 {
7074   SgObject bv_scm;
7075   SgByteVector* bv;
7076   SgObject index_scm;
7077   long index;
7078   SG_ENTER_SUBR("bytevector-u32-native-ref");
7079   if (SG_ARGC != 2)
7080     Sg_WrongNumberOfArgumentsViolation(
7081      SG_INTERN("bytevector-u32-native-ref"), 2, SG_ARGC, SG_NIL);
7082   bv_scm = SG_ARGREF(0);
7083   if (!SG_BVECTORP(bv_scm))
7084     Sg_WrongTypeOfArgumentViolation(
7085        sg__rc_cgen9166.d9486[286], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7086   bv = SG_BVECTOR(bv_scm);
7087   index_scm = SG_ARGREF(1);
7088   if (!SG_INTP(index_scm))
7089     Sg_WrongTypeOfArgumentViolation(
7090        sg__rc_cgen9166.d9486[286], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7091   index = SG_INT_VALUE(index_scm);
7092   {
7093 {
7094 SgObject SG_RESULT = (SgObject)NULL;
7095 
7096 #line 1021 "./lib_core.stub"
7097 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[287],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7098 
7099 #line 1022 "./lib_core.stub"
7100 if ((!(((index)%(4))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[287],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7101 
7102 #line 1023 "./lib_core.stub"
7103 SG_RESULT=(Sg_MakeIntegerFromU32(Sg_ByteVectorU32NativeRef(bv,index)));
7104 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7105 }
7106   }
7107 }
7108 static SG_DEFINE_SUBR(core_bytevector_u32_native_ref__STUB, 2, 0,core_bytevector_u32_native_ref, SG_FALSE, NULL);
7109 
core_bytevector_u32_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7110 static SgObject core_bytevector_u32_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7111 {
7112   SgObject bv_scm;
7113   SgByteVector* bv;
7114   SgObject index_scm;
7115   long index;
7116   SgObject v_scm;
7117   SgObject v;
7118   SG_ENTER_SUBR("bytevector-u32-native-set!");
7119   if (SG_ARGC != 3)
7120     Sg_WrongNumberOfArgumentsViolation(
7121      SG_INTERN("bytevector-u32-native-set!"), 3, SG_ARGC, SG_NIL);
7122   bv_scm = SG_ARGREF(0);
7123   if (!SG_BVECTORP(bv_scm))
7124     Sg_WrongTypeOfArgumentViolation(
7125        sg__rc_cgen9166.d9486[288], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7126   bv = SG_BVECTOR(bv_scm);
7127   index_scm = SG_ARGREF(1);
7128   if (!SG_INTP(index_scm))
7129     Sg_WrongTypeOfArgumentViolation(
7130        sg__rc_cgen9166.d9486[288], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7131   index = SG_INT_VALUE(index_scm);
7132   v_scm = SG_ARGREF(2);
7133   if (!SG_NUMBERP(v_scm))
7134     Sg_WrongTypeOfArgumentViolation(
7135        sg__rc_cgen9166.d9486[288], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7136   v = (v_scm);
7137   {
7138 
7139 #line 1027 "./lib_core.stub"
7140 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[289],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7141 
7142 #line 1028 "./lib_core.stub"
7143 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[289],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7144 
7145 #line 1029 "./lib_core.stub"
7146 {uint32_t value=0;
7147 if (SG_INTP(v)){
7148 {long cise__10279=SG_INT_VALUE(v);if ((!(((0)<=(cise__10279))&&((cise__10279)<=(UINT32_MAX))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[289],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10279));}}}}
7149 #line 1033 "./lib_core.stub"
7150 value=(((uint32_t )(SG_INT_VALUE(v))));}else if(
7151 SG_BIGNUMP(v)){
7152 value=(Sg_BignumToU32(v,SG_CLAMP_NONE,NULL));} else {
7153 #line 1037 "./lib_core.stub"
7154 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[289],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7155 #line 1039 "./lib_core.stub"
7156 Sg_ByteVectorU32NativeSet(bv,index,value);}
7157 SG_RETURN(SG_UNDEF);
7158   }
7159 }
7160 static SG_DEFINE_SUBR(core_bytevector_u32_native_setX__STUB, 3, 0,core_bytevector_u32_native_setX, SG_FALSE, NULL);
7161 
core_bytevector_u32_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7162 static SgObject core_bytevector_u32_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7163 {
7164   SgObject bv_scm;
7165   SgByteVector* bv;
7166   SgObject index_scm;
7167   long index;
7168   SgObject endian_scm;
7169   SgSymbol* endian;
7170   SG_ENTER_SUBR("bytevector-u32-ref");
7171   if (SG_ARGC != 3)
7172     Sg_WrongNumberOfArgumentsViolation(
7173      SG_INTERN("bytevector-u32-ref"), 3, SG_ARGC, SG_NIL);
7174   bv_scm = SG_ARGREF(0);
7175   if (!SG_BVECTORP(bv_scm))
7176     Sg_WrongTypeOfArgumentViolation(
7177        sg__rc_cgen9166.d9486[290], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7178   bv = SG_BVECTOR(bv_scm);
7179   index_scm = SG_ARGREF(1);
7180   if (!SG_INTP(index_scm))
7181     Sg_WrongTypeOfArgumentViolation(
7182        sg__rc_cgen9166.d9486[290], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7183   index = SG_INT_VALUE(index_scm);
7184   endian_scm = SG_ARGREF(2);
7185   if (!SG_SYMBOLP(endian_scm))
7186     Sg_WrongTypeOfArgumentViolation(
7187        sg__rc_cgen9166.d9486[290], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7188   endian = SG_SYMBOL(endian_scm);
7189   {
7190 {
7191 SgObject SG_RESULT = (SgObject)NULL;
7192 
7193 #line 1044 "./lib_core.stub"
7194 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[291],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7195 
7196 #line 1045 "./lib_core.stub"
7197 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7198 SG_RESULT=(Sg_MakeIntegerFromU32(Sg_ByteVectorU32BigRef(bv,index)));}else if(
7199 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7200 SG_RESULT=(Sg_MakeIntegerFromU32(
7201 Sg_ByteVectorU32LittleRef(bv,index)));} else {
7202 #line 1051 "./lib_core.stub"
7203 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[291],SG_MAKE_STRING("unsupported endianness"),endian);}}
7204 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7205 }
7206   }
7207 }
7208 static SG_DEFINE_SUBR(core_bytevector_u32_ref__STUB, 3, 0,core_bytevector_u32_ref, SG_FALSE, NULL);
7209 
core_bytevector_u32_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7210 static SgObject core_bytevector_u32_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7211 {
7212   SgObject bv_scm;
7213   SgByteVector* bv;
7214   SgObject index_scm;
7215   long index;
7216   SgObject v_scm;
7217   SgObject v;
7218   SgObject endian_scm;
7219   SgSymbol* endian;
7220   SG_ENTER_SUBR("bytevector-u32-set!");
7221   if (SG_ARGC != 4)
7222     Sg_WrongNumberOfArgumentsViolation(
7223      SG_INTERN("bytevector-u32-set!"), 4, SG_ARGC, SG_NIL);
7224   bv_scm = SG_ARGREF(0);
7225   if (!SG_BVECTORP(bv_scm))
7226     Sg_WrongTypeOfArgumentViolation(
7227        sg__rc_cgen9166.d9486[292], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7228   bv = SG_BVECTOR(bv_scm);
7229   index_scm = SG_ARGREF(1);
7230   if (!SG_INTP(index_scm))
7231     Sg_WrongTypeOfArgumentViolation(
7232        sg__rc_cgen9166.d9486[292], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7233   index = SG_INT_VALUE(index_scm);
7234   v_scm = SG_ARGREF(2);
7235   if (!SG_NUMBERP(v_scm))
7236     Sg_WrongTypeOfArgumentViolation(
7237        sg__rc_cgen9166.d9486[292], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7238   v = (v_scm);
7239   endian_scm = SG_ARGREF(3);
7240   if (!SG_SYMBOLP(endian_scm))
7241     Sg_WrongTypeOfArgumentViolation(
7242        sg__rc_cgen9166.d9486[292], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7243   endian = SG_SYMBOL(endian_scm);
7244   {
7245 
7246 #line 1056 "./lib_core.stub"
7247 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7248 
7249 #line 1057 "./lib_core.stub"
7250 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7251 
7252 #line 1058 "./lib_core.stub"
7253 {uint32_t value=0;
7254 if (SG_INTP(v)){
7255 #line 1061 "./lib_core.stub"
7256 {long cise__10280=SG_INT_VALUE(v);if ((!(((0)<=(cise__10280))&&((cise__10280)<=(UINT32_MAX))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10280));}}}}
7257 #line 1063 "./lib_core.stub"
7258 value=(((uint32_t )(SG_INT_VALUE(v))));}else if(
7259 SG_BIGNUMP(v)){
7260 value=(Sg_BignumToU32(v,SG_CLAMP_NONE,NULL));} else {
7261 #line 1067 "./lib_core.stub"
7262 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7263 #line 1069 "./lib_core.stub"
7264 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7265 Sg_ByteVectorU32BigSet(bv,index,value);}else if(
7266 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7267 Sg_ByteVectorU32LittleSet(bv,index,value);} else {
7268 #line 1074 "./lib_core.stub"
7269 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[293],SG_MAKE_STRING("unsupported endianness"),endian);}}}
7270 SG_RETURN(SG_UNDEF);
7271   }
7272 }
7273 static SG_DEFINE_SUBR(core_bytevector_u32_setX__STUB, 4, 0,core_bytevector_u32_setX, SG_FALSE, NULL);
7274 
core_bytevector_s32_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7275 static SgObject core_bytevector_s32_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7276 {
7277   SgObject bv_scm;
7278   SgByteVector* bv;
7279   SgObject index_scm;
7280   long index;
7281   SG_ENTER_SUBR("bytevector-s32-native-ref");
7282   if (SG_ARGC != 2)
7283     Sg_WrongNumberOfArgumentsViolation(
7284      SG_INTERN("bytevector-s32-native-ref"), 2, SG_ARGC, SG_NIL);
7285   bv_scm = SG_ARGREF(0);
7286   if (!SG_BVECTORP(bv_scm))
7287     Sg_WrongTypeOfArgumentViolation(
7288        sg__rc_cgen9166.d9486[294], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7289   bv = SG_BVECTOR(bv_scm);
7290   index_scm = SG_ARGREF(1);
7291   if (!SG_INTP(index_scm))
7292     Sg_WrongTypeOfArgumentViolation(
7293        sg__rc_cgen9166.d9486[294], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7294   index = SG_INT_VALUE(index_scm);
7295   {
7296 {
7297 SgObject SG_RESULT = (SgObject)NULL;
7298 
7299 #line 1080 "./lib_core.stub"
7300 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[295],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7301 
7302 #line 1081 "./lib_core.stub"
7303 if ((!(((index)%(4))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[295],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7304 
7305 #line 1082 "./lib_core.stub"
7306 SG_RESULT=(Sg_MakeIntegerFromS32(Sg_ByteVectorS32NativeRef(bv,index)));
7307 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7308 }
7309   }
7310 }
7311 static SG_DEFINE_SUBR(core_bytevector_s32_native_ref__STUB, 2, 0,core_bytevector_s32_native_ref, SG_FALSE, NULL);
7312 
core_bytevector_s32_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7313 static SgObject core_bytevector_s32_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7314 {
7315   SgObject bv_scm;
7316   SgByteVector* bv;
7317   SgObject index_scm;
7318   long index;
7319   SgObject v_scm;
7320   SgObject v;
7321   SG_ENTER_SUBR("bytevector-s32-native-set!");
7322   if (SG_ARGC != 3)
7323     Sg_WrongNumberOfArgumentsViolation(
7324      SG_INTERN("bytevector-s32-native-set!"), 3, SG_ARGC, SG_NIL);
7325   bv_scm = SG_ARGREF(0);
7326   if (!SG_BVECTORP(bv_scm))
7327     Sg_WrongTypeOfArgumentViolation(
7328        sg__rc_cgen9166.d9486[296], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7329   bv = SG_BVECTOR(bv_scm);
7330   index_scm = SG_ARGREF(1);
7331   if (!SG_INTP(index_scm))
7332     Sg_WrongTypeOfArgumentViolation(
7333        sg__rc_cgen9166.d9486[296], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7334   index = SG_INT_VALUE(index_scm);
7335   v_scm = SG_ARGREF(2);
7336   if (!SG_NUMBERP(v_scm))
7337     Sg_WrongTypeOfArgumentViolation(
7338        sg__rc_cgen9166.d9486[296], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7339   v = (v_scm);
7340   {
7341 
7342 #line 1086 "./lib_core.stub"
7343 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[297],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7344 
7345 #line 1087 "./lib_core.stub"
7346 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[297],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7347 
7348 #line 1088 "./lib_core.stub"
7349 {int32_t value=0;
7350 if (SG_INTP(v)){
7351 {long cise__10281=SG_INT_VALUE(v);if ((!(((INT32_MIN)<=(cise__10281))&&((cise__10281)<=(INT32_MAX))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[297],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10281));}}}}
7352 #line 1092 "./lib_core.stub"
7353 value=(((int32_t )(SG_INT_VALUE(v))));}else if(
7354 SG_BIGNUMP(v)){
7355 value=(Sg_BignumToS32(v,SG_CLAMP_NONE,NULL));} else {
7356 #line 1096 "./lib_core.stub"
7357 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[297],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7358 #line 1098 "./lib_core.stub"
7359 Sg_ByteVectorS32NativeSet(bv,index,value);}
7360 SG_RETURN(SG_UNDEF);
7361   }
7362 }
7363 static SG_DEFINE_SUBR(core_bytevector_s32_native_setX__STUB, 3, 0,core_bytevector_s32_native_setX, SG_FALSE, NULL);
7364 
core_bytevector_s32_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7365 static SgObject core_bytevector_s32_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7366 {
7367   SgObject bv_scm;
7368   SgByteVector* bv;
7369   SgObject index_scm;
7370   long index;
7371   SgObject endian_scm;
7372   SgSymbol* endian;
7373   SG_ENTER_SUBR("bytevector-s32-ref");
7374   if (SG_ARGC != 3)
7375     Sg_WrongNumberOfArgumentsViolation(
7376      SG_INTERN("bytevector-s32-ref"), 3, SG_ARGC, SG_NIL);
7377   bv_scm = SG_ARGREF(0);
7378   if (!SG_BVECTORP(bv_scm))
7379     Sg_WrongTypeOfArgumentViolation(
7380        sg__rc_cgen9166.d9486[298], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7381   bv = SG_BVECTOR(bv_scm);
7382   index_scm = SG_ARGREF(1);
7383   if (!SG_INTP(index_scm))
7384     Sg_WrongTypeOfArgumentViolation(
7385        sg__rc_cgen9166.d9486[298], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7386   index = SG_INT_VALUE(index_scm);
7387   endian_scm = SG_ARGREF(2);
7388   if (!SG_SYMBOLP(endian_scm))
7389     Sg_WrongTypeOfArgumentViolation(
7390        sg__rc_cgen9166.d9486[298], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7391   endian = SG_SYMBOL(endian_scm);
7392   {
7393 {
7394 SgObject SG_RESULT = (SgObject)NULL;
7395 
7396 #line 1103 "./lib_core.stub"
7397 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[299],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7398 
7399 #line 1104 "./lib_core.stub"
7400 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7401 SG_RESULT=(Sg_MakeIntegerFromS32(Sg_ByteVectorS32BigRef(bv,index)));}else if(
7402 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7403 SG_RESULT=(Sg_MakeIntegerFromS32(
7404 Sg_ByteVectorS32LittleRef(bv,index)));} else {
7405 #line 1110 "./lib_core.stub"
7406 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[299],SG_MAKE_STRING("unsupported endianness"),endian);}}
7407 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7408 }
7409   }
7410 }
7411 static SG_DEFINE_SUBR(core_bytevector_s32_ref__STUB, 3, 0,core_bytevector_s32_ref, SG_FALSE, NULL);
7412 
core_bytevector_s32_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7413 static SgObject core_bytevector_s32_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7414 {
7415   SgObject bv_scm;
7416   SgByteVector* bv;
7417   SgObject index_scm;
7418   long index;
7419   SgObject v_scm;
7420   SgObject v;
7421   SgObject endian_scm;
7422   SgSymbol* endian;
7423   SG_ENTER_SUBR("bytevector-s32-set!");
7424   if (SG_ARGC != 4)
7425     Sg_WrongNumberOfArgumentsViolation(
7426      SG_INTERN("bytevector-s32-set!"), 4, SG_ARGC, SG_NIL);
7427   bv_scm = SG_ARGREF(0);
7428   if (!SG_BVECTORP(bv_scm))
7429     Sg_WrongTypeOfArgumentViolation(
7430        sg__rc_cgen9166.d9486[300], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7431   bv = SG_BVECTOR(bv_scm);
7432   index_scm = SG_ARGREF(1);
7433   if (!SG_INTP(index_scm))
7434     Sg_WrongTypeOfArgumentViolation(
7435        sg__rc_cgen9166.d9486[300], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7436   index = SG_INT_VALUE(index_scm);
7437   v_scm = SG_ARGREF(2);
7438   if (!SG_NUMBERP(v_scm))
7439     Sg_WrongTypeOfArgumentViolation(
7440        sg__rc_cgen9166.d9486[300], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7441   v = (v_scm);
7442   endian_scm = SG_ARGREF(3);
7443   if (!SG_SYMBOLP(endian_scm))
7444     Sg_WrongTypeOfArgumentViolation(
7445        sg__rc_cgen9166.d9486[300], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7446   endian = SG_SYMBOL(endian_scm);
7447   {
7448 
7449 #line 1115 "./lib_core.stub"
7450 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7451 
7452 #line 1116 "./lib_core.stub"
7453 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7454 
7455 #line 1117 "./lib_core.stub"
7456 {int32_t value=0;
7457 if (SG_INTP(v)){
7458 {long cise__10282=SG_INT_VALUE(v);if ((!(((INT32_MIN)<=(cise__10282))&&((cise__10282)<=(INT32_MAX))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("value out of range"),SG_MAKE_INT(cise__10282));}}}}
7459 #line 1121 "./lib_core.stub"
7460 value=(((int32_t )(SG_INT_VALUE(v))));}else if(
7461 SG_BIGNUMP(v)){
7462 value=(Sg_BignumToS32(v,SG_CLAMP_NONE,NULL));} else {
7463 #line 1125 "./lib_core.stub"
7464 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7465 #line 1127 "./lib_core.stub"
7466 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7467 Sg_ByteVectorS32BigSet(bv,index,value);}else if(
7468 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7469 Sg_ByteVectorS32LittleSet(bv,index,value);} else {
7470 #line 1132 "./lib_core.stub"
7471 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[301],SG_MAKE_STRING("unsupported endianness"),endian);}}}
7472 SG_RETURN(SG_UNDEF);
7473   }
7474 }
7475 static SG_DEFINE_SUBR(core_bytevector_s32_setX__STUB, 4, 0,core_bytevector_s32_setX, SG_FALSE, NULL);
7476 
core_bytevector_u64_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7477 static SgObject core_bytevector_u64_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7478 {
7479   SgObject bv_scm;
7480   SgByteVector* bv;
7481   SgObject index_scm;
7482   long index;
7483   SG_ENTER_SUBR("bytevector-u64-native-ref");
7484   if (SG_ARGC != 2)
7485     Sg_WrongNumberOfArgumentsViolation(
7486      SG_INTERN("bytevector-u64-native-ref"), 2, SG_ARGC, SG_NIL);
7487   bv_scm = SG_ARGREF(0);
7488   if (!SG_BVECTORP(bv_scm))
7489     Sg_WrongTypeOfArgumentViolation(
7490        sg__rc_cgen9166.d9486[302], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7491   bv = SG_BVECTOR(bv_scm);
7492   index_scm = SG_ARGREF(1);
7493   if (!SG_INTP(index_scm))
7494     Sg_WrongTypeOfArgumentViolation(
7495        sg__rc_cgen9166.d9486[302], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7496   index = SG_INT_VALUE(index_scm);
7497   {
7498 {
7499 SgObject SG_RESULT = (SgObject)NULL;
7500 
7501 #line 1139 "./lib_core.stub"
7502 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[303],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7503 
7504 #line 1140 "./lib_core.stub"
7505 if ((!(((index)%(8))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[303],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7506 
7507 #line 1141 "./lib_core.stub"
7508 SG_RESULT=(Sg_MakeIntegerFromU64(Sg_ByteVectorU64NativeRef(bv,index)));
7509 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7510 }
7511   }
7512 }
7513 static SG_DEFINE_SUBR(core_bytevector_u64_native_ref__STUB, 2, 0,core_bytevector_u64_native_ref, SG_FALSE, NULL);
7514 
core_bytevector_u64_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7515 static SgObject core_bytevector_u64_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7516 {
7517   SgObject bv_scm;
7518   SgByteVector* bv;
7519   SgObject index_scm;
7520   long index;
7521   SgObject v_scm;
7522   SgObject v;
7523   SG_ENTER_SUBR("bytevector-u64-native-set!");
7524   if (SG_ARGC != 3)
7525     Sg_WrongNumberOfArgumentsViolation(
7526      SG_INTERN("bytevector-u64-native-set!"), 3, SG_ARGC, SG_NIL);
7527   bv_scm = SG_ARGREF(0);
7528   if (!SG_BVECTORP(bv_scm))
7529     Sg_WrongTypeOfArgumentViolation(
7530        sg__rc_cgen9166.d9486[304], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7531   bv = SG_BVECTOR(bv_scm);
7532   index_scm = SG_ARGREF(1);
7533   if (!SG_INTP(index_scm))
7534     Sg_WrongTypeOfArgumentViolation(
7535        sg__rc_cgen9166.d9486[304], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7536   index = SG_INT_VALUE(index_scm);
7537   v_scm = SG_ARGREF(2);
7538   if (!SG_NUMBERP(v_scm))
7539     Sg_WrongTypeOfArgumentViolation(
7540        sg__rc_cgen9166.d9486[304], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7541   v = (v_scm);
7542   {
7543 
7544 #line 1145 "./lib_core.stub"
7545 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[305],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7546 
7547 #line 1146 "./lib_core.stub"
7548 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[305],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7549 
7550 #line 1147 "./lib_core.stub"
7551 {uint64_t value=0;
7552 if (SG_INTP(v)){
7553 #line 1151 "./lib_core.stub"
7554 if ((SG_INT_VALUE(v))<(0)){{
7555 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[305],SG_MAKE_STRING("value out of range"),v);}}}
7556 #line 1154 "./lib_core.stub"
7557 value=(((uint64_t )(SG_INT_VALUE(v))));}else if(
7558 SG_BIGNUMP(v)){
7559 value=(Sg_BignumToU64(v,SG_CLAMP_NONE,NULL));} else {
7560 #line 1158 "./lib_core.stub"
7561 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[305],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7562 #line 1160 "./lib_core.stub"
7563 Sg_ByteVectorU64NativeSet(bv,index,value);}
7564 SG_RETURN(SG_UNDEF);
7565   }
7566 }
7567 static SG_DEFINE_SUBR(core_bytevector_u64_native_setX__STUB, 3, 0,core_bytevector_u64_native_setX, SG_FALSE, NULL);
7568 
core_bytevector_u64_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7569 static SgObject core_bytevector_u64_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7570 {
7571   SgObject bv_scm;
7572   SgByteVector* bv;
7573   SgObject index_scm;
7574   long index;
7575   SgObject endian_scm;
7576   SgSymbol* endian;
7577   SG_ENTER_SUBR("bytevector-u64-ref");
7578   if (SG_ARGC != 3)
7579     Sg_WrongNumberOfArgumentsViolation(
7580      SG_INTERN("bytevector-u64-ref"), 3, SG_ARGC, SG_NIL);
7581   bv_scm = SG_ARGREF(0);
7582   if (!SG_BVECTORP(bv_scm))
7583     Sg_WrongTypeOfArgumentViolation(
7584        sg__rc_cgen9166.d9486[306], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7585   bv = SG_BVECTOR(bv_scm);
7586   index_scm = SG_ARGREF(1);
7587   if (!SG_INTP(index_scm))
7588     Sg_WrongTypeOfArgumentViolation(
7589        sg__rc_cgen9166.d9486[306], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7590   index = SG_INT_VALUE(index_scm);
7591   endian_scm = SG_ARGREF(2);
7592   if (!SG_SYMBOLP(endian_scm))
7593     Sg_WrongTypeOfArgumentViolation(
7594        sg__rc_cgen9166.d9486[306], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7595   endian = SG_SYMBOL(endian_scm);
7596   {
7597 {
7598 SgObject SG_RESULT = (SgObject)NULL;
7599 
7600 #line 1165 "./lib_core.stub"
7601 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[307],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7602 
7603 #line 1166 "./lib_core.stub"
7604 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7605 SG_RESULT=(Sg_MakeIntegerFromU64(
7606 Sg_ByteVectorU64BigRef(bv,index)));}else if(
7607 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7608 SG_RESULT=(Sg_MakeIntegerFromU64(
7609 Sg_ByteVectorU64LittleRef(bv,index)));} else {
7610 #line 1173 "./lib_core.stub"
7611 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[307],SG_MAKE_STRING("unsupported endianness"),endian);}}
7612 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7613 }
7614   }
7615 }
7616 static SG_DEFINE_SUBR(core_bytevector_u64_ref__STUB, 3, 0,core_bytevector_u64_ref, SG_FALSE, NULL);
7617 
core_bytevector_u64_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7618 static SgObject core_bytevector_u64_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7619 {
7620   SgObject bv_scm;
7621   SgByteVector* bv;
7622   SgObject index_scm;
7623   long index;
7624   SgObject v_scm;
7625   SgObject v;
7626   SgObject endian_scm;
7627   SgSymbol* endian;
7628   SG_ENTER_SUBR("bytevector-u64-set!");
7629   if (SG_ARGC != 4)
7630     Sg_WrongNumberOfArgumentsViolation(
7631      SG_INTERN("bytevector-u64-set!"), 4, SG_ARGC, SG_NIL);
7632   bv_scm = SG_ARGREF(0);
7633   if (!SG_BVECTORP(bv_scm))
7634     Sg_WrongTypeOfArgumentViolation(
7635        sg__rc_cgen9166.d9486[308], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7636   bv = SG_BVECTOR(bv_scm);
7637   index_scm = SG_ARGREF(1);
7638   if (!SG_INTP(index_scm))
7639     Sg_WrongTypeOfArgumentViolation(
7640        sg__rc_cgen9166.d9486[308], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7641   index = SG_INT_VALUE(index_scm);
7642   v_scm = SG_ARGREF(2);
7643   if (!SG_NUMBERP(v_scm))
7644     Sg_WrongTypeOfArgumentViolation(
7645        sg__rc_cgen9166.d9486[308], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7646   v = (v_scm);
7647   endian_scm = SG_ARGREF(3);
7648   if (!SG_SYMBOLP(endian_scm))
7649     Sg_WrongTypeOfArgumentViolation(
7650        sg__rc_cgen9166.d9486[308], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7651   endian = SG_SYMBOL(endian_scm);
7652   {
7653 
7654 #line 1178 "./lib_core.stub"
7655 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7656 
7657 #line 1179 "./lib_core.stub"
7658 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7659 
7660 #line 1180 "./lib_core.stub"
7661 {uint64_t value=0;
7662 if (SG_INTP(v)){
7663 if ((SG_INT_VALUE(v))<(0)){{
7664 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("value out of range"),v);}}}
7665 #line 1185 "./lib_core.stub"
7666 value=(((uint64_t )(SG_INT_VALUE(v))));}else if(
7667 SG_BIGNUMP(v)){
7668 value=(Sg_BignumToU64(v,SG_CLAMP_NONE,NULL));} else {
7669 #line 1189 "./lib_core.stub"
7670 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7671 #line 1191 "./lib_core.stub"
7672 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7673 Sg_ByteVectorU64BigSet(bv,index,value);}else if(
7674 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7675 Sg_ByteVectorU64LittleSet(bv,index,value);} else {
7676 #line 1196 "./lib_core.stub"
7677 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[309],SG_MAKE_STRING("unsupported endianness"),endian);}}}
7678 SG_RETURN(SG_UNDEF);
7679   }
7680 }
7681 static SG_DEFINE_SUBR(core_bytevector_u64_setX__STUB, 4, 0,core_bytevector_u64_setX, SG_FALSE, NULL);
7682 
core_bytevector_s64_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7683 static SgObject core_bytevector_s64_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7684 {
7685   SgObject bv_scm;
7686   SgByteVector* bv;
7687   SgObject index_scm;
7688   long index;
7689   SG_ENTER_SUBR("bytevector-s64-native-ref");
7690   if (SG_ARGC != 2)
7691     Sg_WrongNumberOfArgumentsViolation(
7692      SG_INTERN("bytevector-s64-native-ref"), 2, SG_ARGC, SG_NIL);
7693   bv_scm = SG_ARGREF(0);
7694   if (!SG_BVECTORP(bv_scm))
7695     Sg_WrongTypeOfArgumentViolation(
7696        sg__rc_cgen9166.d9486[310], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7697   bv = SG_BVECTOR(bv_scm);
7698   index_scm = SG_ARGREF(1);
7699   if (!SG_INTP(index_scm))
7700     Sg_WrongTypeOfArgumentViolation(
7701        sg__rc_cgen9166.d9486[310], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7702   index = SG_INT_VALUE(index_scm);
7703   {
7704 {
7705 SgObject SG_RESULT = (SgObject)NULL;
7706 
7707 #line 1202 "./lib_core.stub"
7708 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[311],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7709 
7710 #line 1203 "./lib_core.stub"
7711 if ((!(((index)%(8))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[311],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7712 
7713 #line 1204 "./lib_core.stub"
7714 SG_RESULT=(Sg_MakeIntegerFromS64(Sg_ByteVectorS64NativeRef(bv,index)));
7715 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7716 }
7717   }
7718 }
7719 static SG_DEFINE_SUBR(core_bytevector_s64_native_ref__STUB, 2, 0,core_bytevector_s64_native_ref, SG_FALSE, NULL);
7720 
core_bytevector_s64_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7721 static SgObject core_bytevector_s64_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7722 {
7723   SgObject bv_scm;
7724   SgByteVector* bv;
7725   SgObject index_scm;
7726   long index;
7727   SgObject v_scm;
7728   SgObject v;
7729   SG_ENTER_SUBR("bytevector-s64-native-set!");
7730   if (SG_ARGC != 3)
7731     Sg_WrongNumberOfArgumentsViolation(
7732      SG_INTERN("bytevector-s64-native-set!"), 3, SG_ARGC, SG_NIL);
7733   bv_scm = SG_ARGREF(0);
7734   if (!SG_BVECTORP(bv_scm))
7735     Sg_WrongTypeOfArgumentViolation(
7736        sg__rc_cgen9166.d9486[312], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7737   bv = SG_BVECTOR(bv_scm);
7738   index_scm = SG_ARGREF(1);
7739   if (!SG_INTP(index_scm))
7740     Sg_WrongTypeOfArgumentViolation(
7741        sg__rc_cgen9166.d9486[312], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7742   index = SG_INT_VALUE(index_scm);
7743   v_scm = SG_ARGREF(2);
7744   if (!SG_NUMBERP(v_scm))
7745     Sg_WrongTypeOfArgumentViolation(
7746        sg__rc_cgen9166.d9486[312], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7747   v = (v_scm);
7748   {
7749 
7750 #line 1208 "./lib_core.stub"
7751 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[313],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7752 
7753 #line 1209 "./lib_core.stub"
7754 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[313],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7755 
7756 #line 1210 "./lib_core.stub"
7757 {int64_t value=0;
7758 if (SG_INTP(v)){
7759 if (((SG_INT_VALUE(v))<(SG_INT_MIN))||(
7760 (SG_INT_VALUE(v))>(SG_INT_MAX))){{
7761 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[313],SG_MAKE_STRING("value out of range"),v);}}}
7762 #line 1216 "./lib_core.stub"
7763 value=(((int64_t )(SG_INT_VALUE(v))));}else if(
7764 SG_BIGNUMP(v)){
7765 value=(Sg_BignumToS64(v,SG_CLAMP_NONE,NULL));} else {
7766 #line 1220 "./lib_core.stub"
7767 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[313],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7768 #line 1222 "./lib_core.stub"
7769 Sg_ByteVectorS64NativeSet(bv,index,value);}
7770 SG_RETURN(SG_UNDEF);
7771   }
7772 }
7773 static SG_DEFINE_SUBR(core_bytevector_s64_native_setX__STUB, 3, 0,core_bytevector_s64_native_setX, SG_FALSE, NULL);
7774 
core_bytevector_s64_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7775 static SgObject core_bytevector_s64_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7776 {
7777   SgObject bv_scm;
7778   SgByteVector* bv;
7779   SgObject index_scm;
7780   long index;
7781   SgObject endian_scm;
7782   SgSymbol* endian;
7783   SG_ENTER_SUBR("bytevector-s64-ref");
7784   if (SG_ARGC != 3)
7785     Sg_WrongNumberOfArgumentsViolation(
7786      SG_INTERN("bytevector-s64-ref"), 3, SG_ARGC, SG_NIL);
7787   bv_scm = SG_ARGREF(0);
7788   if (!SG_BVECTORP(bv_scm))
7789     Sg_WrongTypeOfArgumentViolation(
7790        sg__rc_cgen9166.d9486[314], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7791   bv = SG_BVECTOR(bv_scm);
7792   index_scm = SG_ARGREF(1);
7793   if (!SG_INTP(index_scm))
7794     Sg_WrongTypeOfArgumentViolation(
7795        sg__rc_cgen9166.d9486[314], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7796   index = SG_INT_VALUE(index_scm);
7797   endian_scm = SG_ARGREF(2);
7798   if (!SG_SYMBOLP(endian_scm))
7799     Sg_WrongTypeOfArgumentViolation(
7800        sg__rc_cgen9166.d9486[314], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7801   endian = SG_SYMBOL(endian_scm);
7802   {
7803 {
7804 SgObject SG_RESULT = (SgObject)NULL;
7805 
7806 #line 1227 "./lib_core.stub"
7807 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[315],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7808 
7809 #line 1228 "./lib_core.stub"
7810 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7811 SG_RESULT=(Sg_MakeIntegerFromS64(Sg_ByteVectorS64BigRef(bv,index)));}else if(
7812 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7813 SG_RESULT=(Sg_MakeIntegerFromS64(
7814 Sg_ByteVectorS64LittleRef(bv,index)));} else {
7815 #line 1234 "./lib_core.stub"
7816 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[315],SG_MAKE_STRING("unsupported endianness"),endian);}}
7817 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7818 }
7819   }
7820 }
7821 static SG_DEFINE_SUBR(core_bytevector_s64_ref__STUB, 3, 0,core_bytevector_s64_ref, SG_FALSE, NULL);
7822 
core_bytevector_s64_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7823 static SgObject core_bytevector_s64_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7824 {
7825   SgObject bv_scm;
7826   SgByteVector* bv;
7827   SgObject index_scm;
7828   long index;
7829   SgObject v_scm;
7830   SgObject v;
7831   SgObject endian_scm;
7832   SgSymbol* endian;
7833   SG_ENTER_SUBR("bytevector-s64-set!");
7834   if (SG_ARGC != 4)
7835     Sg_WrongNumberOfArgumentsViolation(
7836      SG_INTERN("bytevector-s64-set!"), 4, SG_ARGC, SG_NIL);
7837   bv_scm = SG_ARGREF(0);
7838   if (!SG_BVECTORP(bv_scm))
7839     Sg_WrongTypeOfArgumentViolation(
7840        sg__rc_cgen9166.d9486[316], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7841   bv = SG_BVECTOR(bv_scm);
7842   index_scm = SG_ARGREF(1);
7843   if (!SG_INTP(index_scm))
7844     Sg_WrongTypeOfArgumentViolation(
7845        sg__rc_cgen9166.d9486[316], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7846   index = SG_INT_VALUE(index_scm);
7847   v_scm = SG_ARGREF(2);
7848   if (!SG_NUMBERP(v_scm))
7849     Sg_WrongTypeOfArgumentViolation(
7850        sg__rc_cgen9166.d9486[316], SG_MAKE_STRING("number"), v_scm, SG_NIL);
7851   v = (v_scm);
7852   endian_scm = SG_ARGREF(3);
7853   if (!SG_SYMBOLP(endian_scm))
7854     Sg_WrongTypeOfArgumentViolation(
7855        sg__rc_cgen9166.d9486[316], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7856   endian = SG_SYMBOL(endian_scm);
7857   {
7858 
7859 #line 1239 "./lib_core.stub"
7860 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
7861 
7862 #line 1240 "./lib_core.stub"
7863 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7864 
7865 #line 1241 "./lib_core.stub"
7866 {int64_t value=0;
7867 if (SG_INTP(v)){
7868 if (((SG_INT_VALUE(v))<(SG_INT_MIN))||(
7869 (SG_INT_VALUE(v))>(SG_INT_MAX))){{
7870 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("value out of range"),v);}}}
7871 #line 1247 "./lib_core.stub"
7872 value=(((int64_t )(SG_INT_VALUE(v))));}else if(
7873 SG_BIGNUMP(v)){
7874 value=(Sg_BignumToS64(v,SG_CLAMP_NONE,NULL));} else {
7875 #line 1251 "./lib_core.stub"
7876 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("exact integer"),v,SG_NIL);}}
7877 #line 1253 "./lib_core.stub"
7878 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7879 Sg_ByteVectorS64BigSet(bv,index,value);}else if(
7880 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7881 Sg_ByteVectorS64LittleSet(bv,index,value);} else {
7882 #line 1258 "./lib_core.stub"
7883 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[317],SG_MAKE_STRING("unsupported endianness"),endian);}}}
7884 SG_RETURN(SG_UNDEF);
7885   }
7886 }
7887 static SG_DEFINE_SUBR(core_bytevector_s64_setX__STUB, 4, 0,core_bytevector_s64_setX, SG_FALSE, NULL);
7888 
core_bytevector_ieee_single_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7889 static SgObject core_bytevector_ieee_single_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7890 {
7891   SgObject bv_scm;
7892   SgByteVector* bv;
7893   SgObject index_scm;
7894   long index;
7895   SG_ENTER_SUBR("bytevector-ieee-single-native-ref");
7896   if (SG_ARGC != 2)
7897     Sg_WrongNumberOfArgumentsViolation(
7898      SG_INTERN("bytevector-ieee-single-native-ref"), 2, SG_ARGC, SG_NIL);
7899   bv_scm = SG_ARGREF(0);
7900   if (!SG_BVECTORP(bv_scm))
7901     Sg_WrongTypeOfArgumentViolation(
7902        sg__rc_cgen9166.d9486[318], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7903   bv = SG_BVECTOR(bv_scm);
7904   index_scm = SG_ARGREF(1);
7905   if (!SG_INTP(index_scm))
7906     Sg_WrongTypeOfArgumentViolation(
7907        sg__rc_cgen9166.d9486[318], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7908   index = SG_INT_VALUE(index_scm);
7909   {
7910 {
7911 SgObject SG_RESULT = (SgObject)NULL;
7912 
7913 #line 1265 "./lib_core.stub"
7914 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[319],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7915 
7916 #line 1266 "./lib_core.stub"
7917 if ((!(((index)%(4))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[319],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
7918 
7919 #line 1267 "./lib_core.stub"
7920 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEESingleNativeRef(bv,index)));
7921 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7922 }
7923   }
7924 }
7925 static SG_DEFINE_SUBR(core_bytevector_ieee_single_native_ref__STUB, 2, 0,core_bytevector_ieee_single_native_ref, SG_FALSE, NULL);
7926 
core_bytevector_ieee_single_ref(SgObject * SG_FP,int SG_ARGC,void * data_)7927 static SgObject core_bytevector_ieee_single_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
7928 {
7929   SgObject bv_scm;
7930   SgByteVector* bv;
7931   SgObject index_scm;
7932   long index;
7933   SgObject endian_scm;
7934   SgSymbol* endian;
7935   SG_ENTER_SUBR("bytevector-ieee-single-ref");
7936   if (SG_ARGC != 3)
7937     Sg_WrongNumberOfArgumentsViolation(
7938      SG_INTERN("bytevector-ieee-single-ref"), 3, SG_ARGC, SG_NIL);
7939   bv_scm = SG_ARGREF(0);
7940   if (!SG_BVECTORP(bv_scm))
7941     Sg_WrongTypeOfArgumentViolation(
7942        sg__rc_cgen9166.d9486[320], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7943   bv = SG_BVECTOR(bv_scm);
7944   index_scm = SG_ARGREF(1);
7945   if (!SG_INTP(index_scm))
7946     Sg_WrongTypeOfArgumentViolation(
7947        sg__rc_cgen9166.d9486[320], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7948   index = SG_INT_VALUE(index_scm);
7949   endian_scm = SG_ARGREF(2);
7950   if (!SG_SYMBOLP(endian_scm))
7951     Sg_WrongTypeOfArgumentViolation(
7952        sg__rc_cgen9166.d9486[320], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
7953   endian = SG_SYMBOL(endian_scm);
7954   {
7955 {
7956 SgObject SG_RESULT = (SgObject)NULL;
7957 
7958 #line 1272 "./lib_core.stub"
7959 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[321],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
7960 
7961 #line 1273 "./lib_core.stub"
7962 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
7963 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEESingleBigRef(bv,index)));}else if(
7964 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
7965 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEESingleLittleRef(bv,index)));} else {
7966 #line 1278 "./lib_core.stub"
7967 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[321],SG_MAKE_STRING("unsupported endianness"),endian);}}
7968 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
7969 }
7970   }
7971 }
7972 static SG_DEFINE_SUBR(core_bytevector_ieee_single_ref__STUB, 3, 0,core_bytevector_ieee_single_ref, SG_FALSE, NULL);
7973 
core_bytevector_ieee_single_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)7974 static SgObject core_bytevector_ieee_single_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
7975 {
7976   SgObject bv_scm;
7977   SgByteVector* bv;
7978   SgObject index_scm;
7979   long index;
7980   SgObject v_scm;
7981   SgObject v;
7982   SG_ENTER_SUBR("bytevector-ieee-single-native-set!");
7983   if (SG_ARGC != 3)
7984     Sg_WrongNumberOfArgumentsViolation(
7985      SG_INTERN("bytevector-ieee-single-native-set!"), 3, SG_ARGC, SG_NIL);
7986   bv_scm = SG_ARGREF(0);
7987   if (!SG_BVECTORP(bv_scm))
7988     Sg_WrongTypeOfArgumentViolation(
7989        sg__rc_cgen9166.d9486[322], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
7990   bv = SG_BVECTOR(bv_scm);
7991   index_scm = SG_ARGREF(1);
7992   if (!SG_INTP(index_scm))
7993     Sg_WrongTypeOfArgumentViolation(
7994        sg__rc_cgen9166.d9486[322], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
7995   index = SG_INT_VALUE(index_scm);
7996   v_scm = SG_ARGREF(2);
7997   if (!SG_NUMBERP(v_scm))
7998     Sg_WrongTypeOfArgumentViolation(
7999        sg__rc_cgen9166.d9486[322], SG_MAKE_STRING("number"), v_scm, SG_NIL);
8000   v = (v_scm);
8001   {
8002 
8003 #line 1283 "./lib_core.stub"
8004 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[323],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
8005 
8006 #line 1284 "./lib_core.stub"
8007 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[323],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8008 
8009 #line 1285 "./lib_core.stub"
8010 if ((!(((index)%(4))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[323],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
8011 
8012 #line 1286 "./lib_core.stub"
8013 if ((!(SG_REALP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[323],SG_MAKE_STRING("real number"),v,SG_NIL);}}}
8014 
8015 #line 1287 "./lib_core.stub"
8016 {double value=Sg_GetDouble(v);
8017 Sg_ByteVectorIEEESingleNativeSet(bv,index,((float )(value)));}
8018 SG_RETURN(SG_UNDEF);
8019   }
8020 }
8021 static SG_DEFINE_SUBR(core_bytevector_ieee_single_native_setX__STUB, 3, 0,core_bytevector_ieee_single_native_setX, SG_FALSE, NULL);
8022 
core_bytevector_ieee_single_setX(SgObject * SG_FP,int SG_ARGC,void * data_)8023 static SgObject core_bytevector_ieee_single_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
8024 {
8025   SgObject bv_scm;
8026   SgByteVector* bv;
8027   SgObject index_scm;
8028   long index;
8029   SgObject v_scm;
8030   SgObject v;
8031   SgObject endian_scm;
8032   SgSymbol* endian;
8033   SG_ENTER_SUBR("bytevector-ieee-single-set!");
8034   if (SG_ARGC != 4)
8035     Sg_WrongNumberOfArgumentsViolation(
8036      SG_INTERN("bytevector-ieee-single-set!"), 4, SG_ARGC, SG_NIL);
8037   bv_scm = SG_ARGREF(0);
8038   if (!SG_BVECTORP(bv_scm))
8039     Sg_WrongTypeOfArgumentViolation(
8040        sg__rc_cgen9166.d9486[324], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8041   bv = SG_BVECTOR(bv_scm);
8042   index_scm = SG_ARGREF(1);
8043   if (!SG_INTP(index_scm))
8044     Sg_WrongTypeOfArgumentViolation(
8045        sg__rc_cgen9166.d9486[324], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8046   index = SG_INT_VALUE(index_scm);
8047   v_scm = SG_ARGREF(2);
8048   if (!SG_NUMBERP(v_scm))
8049     Sg_WrongTypeOfArgumentViolation(
8050        sg__rc_cgen9166.d9486[324], SG_MAKE_STRING("number"), v_scm, SG_NIL);
8051   v = (v_scm);
8052   endian_scm = SG_ARGREF(3);
8053   if (!SG_SYMBOLP(endian_scm))
8054     Sg_WrongTypeOfArgumentViolation(
8055        sg__rc_cgen9166.d9486[324], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8056   endian = SG_SYMBOL(endian_scm);
8057   {
8058 
8059 #line 1292 "./lib_core.stub"
8060 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[325],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
8061 
8062 #line 1293 "./lib_core.stub"
8063 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(3))&&((index)<((len)-(3)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[325],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8064 
8065 #line 1294 "./lib_core.stub"
8066 if ((!(SG_REALP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[325],SG_MAKE_STRING("real number"),v,SG_NIL);}}}
8067 
8068 #line 1295 "./lib_core.stub"
8069 {double value=Sg_GetDouble(v);
8070 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8071 Sg_ByteVectorIEEESingleBigSet(bv,index,((float )(value)));}else if(
8072 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8073 Sg_ByteVectorIEEESingleLittleSet(bv,index,((float )(value)));} else {
8074 #line 1301 "./lib_core.stub"
8075 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[325],SG_MAKE_STRING("unsupported endianness"),endian);}}}
8076 SG_RETURN(SG_UNDEF);
8077   }
8078 }
8079 static SG_DEFINE_SUBR(core_bytevector_ieee_single_setX__STUB, 4, 0,core_bytevector_ieee_single_setX, SG_FALSE, NULL);
8080 
core_bytevector_ieee_double_native_ref(SgObject * SG_FP,int SG_ARGC,void * data_)8081 static SgObject core_bytevector_ieee_double_native_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
8082 {
8083   SgObject bv_scm;
8084   SgByteVector* bv;
8085   SgObject index_scm;
8086   long index;
8087   SG_ENTER_SUBR("bytevector-ieee-double-native-ref");
8088   if (SG_ARGC != 2)
8089     Sg_WrongNumberOfArgumentsViolation(
8090      SG_INTERN("bytevector-ieee-double-native-ref"), 2, SG_ARGC, SG_NIL);
8091   bv_scm = SG_ARGREF(0);
8092   if (!SG_BVECTORP(bv_scm))
8093     Sg_WrongTypeOfArgumentViolation(
8094        sg__rc_cgen9166.d9486[326], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8095   bv = SG_BVECTOR(bv_scm);
8096   index_scm = SG_ARGREF(1);
8097   if (!SG_INTP(index_scm))
8098     Sg_WrongTypeOfArgumentViolation(
8099        sg__rc_cgen9166.d9486[326], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8100   index = SG_INT_VALUE(index_scm);
8101   {
8102 {
8103 SgObject SG_RESULT = (SgObject)NULL;
8104 
8105 #line 1307 "./lib_core.stub"
8106 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[327],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8107 
8108 #line 1308 "./lib_core.stub"
8109 if ((!(((index)%(8))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[327],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
8110 
8111 #line 1309 "./lib_core.stub"
8112 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEEDoubleNativeRef(bv,index)));
8113 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8114 }
8115   }
8116 }
8117 static SG_DEFINE_SUBR(core_bytevector_ieee_double_native_ref__STUB, 2, 0,core_bytevector_ieee_double_native_ref, SG_FALSE, NULL);
8118 
core_bytevector_ieee_double_ref(SgObject * SG_FP,int SG_ARGC,void * data_)8119 static SgObject core_bytevector_ieee_double_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
8120 {
8121   SgObject bv_scm;
8122   SgByteVector* bv;
8123   SgObject index_scm;
8124   long index;
8125   SgObject endian_scm;
8126   SgSymbol* endian;
8127   SG_ENTER_SUBR("bytevector-ieee-double-ref");
8128   if (SG_ARGC != 3)
8129     Sg_WrongNumberOfArgumentsViolation(
8130      SG_INTERN("bytevector-ieee-double-ref"), 3, SG_ARGC, SG_NIL);
8131   bv_scm = SG_ARGREF(0);
8132   if (!SG_BVECTORP(bv_scm))
8133     Sg_WrongTypeOfArgumentViolation(
8134        sg__rc_cgen9166.d9486[328], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8135   bv = SG_BVECTOR(bv_scm);
8136   index_scm = SG_ARGREF(1);
8137   if (!SG_INTP(index_scm))
8138     Sg_WrongTypeOfArgumentViolation(
8139        sg__rc_cgen9166.d9486[328], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8140   index = SG_INT_VALUE(index_scm);
8141   endian_scm = SG_ARGREF(2);
8142   if (!SG_SYMBOLP(endian_scm))
8143     Sg_WrongTypeOfArgumentViolation(
8144        sg__rc_cgen9166.d9486[328], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8145   endian = SG_SYMBOL(endian_scm);
8146   {
8147 {
8148 SgObject SG_RESULT = (SgObject)NULL;
8149 
8150 #line 1314 "./lib_core.stub"
8151 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[329],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8152 
8153 #line 1315 "./lib_core.stub"
8154 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8155 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEEDoubleBigRef(bv,index)));}else if(
8156 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8157 SG_RESULT=(Sg_MakeFlonum(Sg_ByteVectorIEEEDoubleLittleRef(bv,index)));} else {
8158 #line 1320 "./lib_core.stub"
8159 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[329],SG_MAKE_STRING("unsupported endianness"),endian);}}
8160 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8161 }
8162   }
8163 }
8164 static SG_DEFINE_SUBR(core_bytevector_ieee_double_ref__STUB, 3, 0,core_bytevector_ieee_double_ref, SG_FALSE, NULL);
8165 
core_bytevector_ieee_double_native_setX(SgObject * SG_FP,int SG_ARGC,void * data_)8166 static SgObject core_bytevector_ieee_double_native_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
8167 {
8168   SgObject bv_scm;
8169   SgByteVector* bv;
8170   SgObject index_scm;
8171   long index;
8172   SgObject v_scm;
8173   SgObject v;
8174   SG_ENTER_SUBR("bytevector-ieee-double-native-set!");
8175   if (SG_ARGC != 3)
8176     Sg_WrongNumberOfArgumentsViolation(
8177      SG_INTERN("bytevector-ieee-double-native-set!"), 3, SG_ARGC, SG_NIL);
8178   bv_scm = SG_ARGREF(0);
8179   if (!SG_BVECTORP(bv_scm))
8180     Sg_WrongTypeOfArgumentViolation(
8181        sg__rc_cgen9166.d9486[330], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8182   bv = SG_BVECTOR(bv_scm);
8183   index_scm = SG_ARGREF(1);
8184   if (!SG_INTP(index_scm))
8185     Sg_WrongTypeOfArgumentViolation(
8186        sg__rc_cgen9166.d9486[330], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8187   index = SG_INT_VALUE(index_scm);
8188   v_scm = SG_ARGREF(2);
8189   if (!SG_NUMBERP(v_scm))
8190     Sg_WrongTypeOfArgumentViolation(
8191        sg__rc_cgen9166.d9486[330], SG_MAKE_STRING("number"), v_scm, SG_NIL);
8192   v = (v_scm);
8193   {
8194 
8195 #line 1325 "./lib_core.stub"
8196 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[331],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
8197 
8198 #line 1326 "./lib_core.stub"
8199 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[331],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8200 
8201 #line 1327 "./lib_core.stub"
8202 if ((!(((index)%(8))==(0)))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[331],SG_MAKE_STRING("index not aligned"),SG_MAKE_INT(index));}}}
8203 
8204 #line 1328 "./lib_core.stub"
8205 if ((!(SG_REALP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[331],SG_MAKE_STRING("real number"),v,SG_NIL);}}}
8206 
8207 #line 1329 "./lib_core.stub"
8208 {double value=Sg_GetDouble(v);
8209 Sg_ByteVectorIEEEDoubleNativeSet(bv,index,value);}
8210 SG_RETURN(SG_UNDEF);
8211   }
8212 }
8213 static SG_DEFINE_SUBR(core_bytevector_ieee_double_native_setX__STUB, 3, 0,core_bytevector_ieee_double_native_setX, SG_FALSE, NULL);
8214 
core_bytevector_ieee_double_setX(SgObject * SG_FP,int SG_ARGC,void * data_)8215 static SgObject core_bytevector_ieee_double_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
8216 {
8217   SgObject bv_scm;
8218   SgByteVector* bv;
8219   SgObject index_scm;
8220   long index;
8221   SgObject v_scm;
8222   SgObject v;
8223   SgObject endian_scm;
8224   SgSymbol* endian;
8225   SG_ENTER_SUBR("bytevector-ieee-double-set!");
8226   if (SG_ARGC != 4)
8227     Sg_WrongNumberOfArgumentsViolation(
8228      SG_INTERN("bytevector-ieee-double-set!"), 4, SG_ARGC, SG_NIL);
8229   bv_scm = SG_ARGREF(0);
8230   if (!SG_BVECTORP(bv_scm))
8231     Sg_WrongTypeOfArgumentViolation(
8232        sg__rc_cgen9166.d9486[332], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8233   bv = SG_BVECTOR(bv_scm);
8234   index_scm = SG_ARGREF(1);
8235   if (!SG_INTP(index_scm))
8236     Sg_WrongTypeOfArgumentViolation(
8237        sg__rc_cgen9166.d9486[332], SG_MAKE_STRING("fixnum"), index_scm, SG_NIL);
8238   index = SG_INT_VALUE(index_scm);
8239   v_scm = SG_ARGREF(2);
8240   if (!SG_NUMBERP(v_scm))
8241     Sg_WrongTypeOfArgumentViolation(
8242        sg__rc_cgen9166.d9486[332], SG_MAKE_STRING("number"), v_scm, SG_NIL);
8243   v = (v_scm);
8244   endian_scm = SG_ARGREF(3);
8245   if (!SG_SYMBOLP(endian_scm))
8246     Sg_WrongTypeOfArgumentViolation(
8247        sg__rc_cgen9166.d9486[332], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8248   endian = SG_SYMBOL(endian_scm);
8249   {
8250 
8251 #line 1334 "./lib_core.stub"
8252 if (SG_LITERAL_BVECTORP(bv)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[333],SG_MAKE_STRING("attempt to modify literal bytevector"),bv);}}}
8253 
8254 #line 1335 "./lib_core.stub"
8255 {long len=SG_BVECTOR_SIZE(bv);if ((!(((len)>(7))&&((index)<((len)-(7)))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[333],SG_MAKE_STRING("index out of range"),SG_LIST2(bv,SG_MAKE_INT(index)));}}}}
8256 
8257 #line 1336 "./lib_core.stub"
8258 if ((!(SG_REALP(v)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[333],SG_MAKE_STRING("real number"),v,SG_NIL);}}}
8259 
8260 #line 1337 "./lib_core.stub"
8261 {double value=Sg_GetDouble(v);
8262 if (SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8263 Sg_ByteVectorIEEEDoubleBigSet(bv,index,value);}else if(
8264 SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8265 Sg_ByteVectorIEEEDoubleLittleSet(bv,index,value);} else {
8266 #line 1343 "./lib_core.stub"
8267 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[333],SG_MAKE_STRING("unsupported endianness"),endian);}}}
8268 SG_RETURN(SG_UNDEF);
8269   }
8270 }
8271 static SG_DEFINE_SUBR(core_bytevector_ieee_double_setX__STUB, 4, 0,core_bytevector_ieee_double_setX, SG_FALSE, NULL);
8272 
check_utf8_3bytes(SgObject bv,long i)8273 static int check_utf8_3bytes(SgObject bv,long i){{
8274 #line 1353 "./lib_core.stub"
8275 {int first=SG_BVECTOR_ELEMENT(bv,i);int second=
8276 SG_BVECTOR_ELEMENT(bv,(i)+(1));int third=
8277 SG_BVECTOR_ELEMENT(bv,(i)+(2));
8278 if ((!(((128)<=(third))&&((third)<=(191))))){return (FALSE);}else if(
8279 (!(((((((224)==(first))&&((160)<=(second)))&&((second)<=(191)))||(
8280 (((237)==(first))&&((128)<=(second)))&&((second)<=(159))))||(
8281 (((225)<=(first))&&((first)<=(236)))&&(((128)<=(second))&&((second)<=(191)))))||(
8282 (((238)==(first))||((239)==(first)))&&(
8283 ((128)<=(second))&&((second)<=(191))))))){
8284 return (FALSE);} else {
8285 return (TRUE);}}}}
check_utf8_4bytes(SgObject bv,long i)8286 static int check_utf8_4bytes(SgObject bv,long i){{
8287 #line 1366 "./lib_core.stub"
8288 {int first=SG_BVECTOR_ELEMENT(bv,i);int second=
8289 SG_BVECTOR_ELEMENT(bv,(i)+(1));int third=
8290 SG_BVECTOR_ELEMENT(bv,(i)+(2));int forth=
8291 SG_BVECTOR_ELEMENT(bv,(i)+(3));
8292 if (((!(((128)<=(third))&&((third)<=(191)))))||((!(((128)<=(forth))&&((forth)<=(191)))))){
8293 return (FALSE);}else if(
8294 (!((((((240)==(first))&&((144)<=(second)))&&((second)<=(191)))||(
8295 (((244)==(first))&&((128)<=(second)))&&((second)<=(143))))||(
8296 (((241)<=(first))&&((first)<=(243)))&&(
8297 ((128)<=(second))&&((second)<=(191))))))){
8298 return (FALSE);} else {
8299 return (TRUE);}}}}
core_utf8_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)8300 static SgObject core_utf8_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
8301 {
8302   SgObject bv_scm;
8303   SgByteVector* bv;
8304   SgObject start_scm;
8305   long start;
8306   SgObject end_scm;
8307   long end;
8308   SG_ENTER_SUBR("utf8->string");
8309   if ((SG_ARGC > 3 &&
8310       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8311       SG_ARGC < 1)
8312     Sg_WrongNumberOfArgumentsBetweenViolation(
8313      SG_INTERN("utf8->string"), 1, 3, SG_ARGC, SG_NIL);
8314   bv_scm = SG_ARGREF(0);
8315   if (!SG_BVECTORP(bv_scm))
8316     Sg_WrongTypeOfArgumentViolation(
8317        sg__rc_cgen9166.d9486[334], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8318   bv = SG_BVECTOR(bv_scm);
8319   if (SG_ARGC > 1+1) {
8320     start_scm = SG_ARGREF(1);
8321   } else {
8322     start_scm = SG_MAKE_INT(0);
8323   }
8324   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
8325     Sg_WrongTypeOfArgumentViolation(
8326        sg__rc_cgen9166.d9486[334], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
8327   start = SG_INT_VALUE(start_scm);
8328   if (SG_ARGC > 2+1) {
8329     end_scm = SG_ARGREF(2);
8330   } else {
8331     end_scm = SG_MAKE_INT(-1);
8332   }
8333   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
8334     Sg_WrongTypeOfArgumentViolation(
8335        sg__rc_cgen9166.d9486[334], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
8336   end = SG_INT_VALUE(end_scm);
8337   {
8338 {
8339 SgObject SG_RESULT = (SgObject)NULL;
8340 
8341 #line 1381 "./lib_core.stub"
8342 {SgObject s;long count=0;long size=
8343 #line 1383 "./lib_core.stub"
8344 SG_BVECTOR_SIZE(bv);long i=start;
8345 #line 1385 "./lib_core.stub"
8346 SG_CHECK_START_END(start,end,size);
8347 while ((i)<(end)){
8348 (count)++;
8349 {uint8_t f=SG_BVECTOR_ELEMENT(bv,i);
8350 (i)+=((((f)<(128))?(1):(
8351 (((((194)<=(f))&&((f)<=(223)))&&(
8352 ((128)<=(SG_BVECTOR_ELEMENT(bv,(i)+(1))))&&((SG_BVECTOR_ELEMENT(bv,(i)+(1)))<=(191))))?(2):(
8353 (((((224)<=(f))&&((f)<=(239)))&&(
8354 check_utf8_3bytes(bv,i)))?(3):(
8355 #line 1395 "./lib_core.stub"
8356 (((((240)<=(f))&&((f)<=(244)))&&(
8357 check_utf8_4bytes(bv,i)))?(4):(1)))))))));}}
8358 s=(Sg_ReserveString(count,0));
8359 Sg_ConvertUtf8BufferToUcs4(Sg_MakeUtf8Codec(),
8360 (SG_BVECTOR_ELEMENTS(bv))+(start),size,
8361 SG_STRING_VALUE(s),count,NULL,SG_REPLACE_ERROR,FALSE);
8362 #line 1402 "./lib_core.stub"
8363 SG_RESULT=(s);}
8364 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8365 }
8366   }
8367 }
8368 static SG_DEFINE_SUBR(core_utf8_TOstring__STUB, 1, 3,core_utf8_TOstring, SG_FALSE, NULL);
8369 
core_string_TOutf8(SgObject * SG_FP,int SG_ARGC,void * data_)8370 static SgObject core_string_TOutf8(SgObject *SG_FP, int SG_ARGC, void *data_)
8371 {
8372   SgObject s_scm;
8373   SgString* s;
8374   SgObject start_scm;
8375   long start;
8376   SgObject end_scm;
8377   long end;
8378   SG_ENTER_SUBR("string->utf8");
8379   if ((SG_ARGC > 3 &&
8380       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8381       SG_ARGC < 1)
8382     Sg_WrongNumberOfArgumentsBetweenViolation(
8383      SG_INTERN("string->utf8"), 1, 3, SG_ARGC, SG_NIL);
8384   s_scm = SG_ARGREF(0);
8385   if (!SG_STRINGP(s_scm))
8386     Sg_WrongTypeOfArgumentViolation(
8387        sg__rc_cgen9166.d9486[335], SG_MAKE_STRING("string"), s_scm, SG_NIL);
8388   s = SG_STRING(s_scm);
8389   if (SG_ARGC > 1+1) {
8390     start_scm = SG_ARGREF(1);
8391   } else {
8392     start_scm = SG_MAKE_INT(0);
8393   }
8394   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
8395     Sg_WrongTypeOfArgumentViolation(
8396        sg__rc_cgen9166.d9486[335], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
8397   start = SG_INT_VALUE(start_scm);
8398   if (SG_ARGC > 2+1) {
8399     end_scm = SG_ARGREF(2);
8400   } else {
8401     end_scm = SG_MAKE_INT(-1);
8402   }
8403   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
8404     Sg_WrongTypeOfArgumentViolation(
8405        sg__rc_cgen9166.d9486[335], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
8406   end = SG_INT_VALUE(end_scm);
8407   {
8408 {
8409 SgObject SG_RESULT = (SgObject)NULL;
8410 
8411 #line 1407 "./lib_core.stub"
8412 {SgObject bv;long count=0;long size=
8413 #line 1409 "./lib_core.stub"
8414 SG_STRING_SIZE(s);
8415 SG_CHECK_START_END(start,end,size);
8416 {long i=0;long cise__10305=(end)-(start);for (;(i)<(cise__10305);(i)++){
8417 {SgChar ucs4=SG_STRING_VALUE_AT(s,(i)+(start));
8418 (count)+=((((ucs4)<(128))?(1):(
8419 (((ucs4)<(2048))?(2):(
8420 (((ucs4)<(65536))?(3):(
8421 #line 1417 "./lib_core.stub"
8422 (((ucs4)<(2097152))?(4):(2)))))))));}}}
8423 bv=(Sg_MakeByteVector(count,0));
8424 count=(0);
8425 {long i=0;long cise__10306=(end)-(start);for (;(i)<(cise__10306);(i)++){
8426 (count)+=(Sg_ConvertUcs4ToUtf8(
8427 SG_STRING_VALUE_AT(s,(i)+(start)),
8428 (SG_BVECTOR_ELEMENTS(bv))+(count),SG_REPLACE_ERROR));}}
8429 #line 1425 "./lib_core.stub"
8430 SG_RESULT=(bv);}
8431 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8432 }
8433   }
8434 }
8435 static SG_DEFINE_SUBR(core_string_TOutf8__STUB, 1, 3,core_string_TOutf8, SG_FALSE, NULL);
8436 
core_utf16_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)8437 static SgObject core_utf16_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
8438 {
8439   SgObject bv_scm;
8440   SgByteVector* bv;
8441   SgObject endian_scm;
8442   SgSymbol* endian;
8443   SgObject mandatory_scm;
8444   SgObject mandatory;
8445   SG_ENTER_SUBR("utf16->string");
8446   if ((SG_ARGC > 3 &&
8447       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8448       SG_ARGC < 2)
8449     Sg_WrongNumberOfArgumentsBetweenViolation(
8450      SG_INTERN("utf16->string"), 2, 3, SG_ARGC, SG_NIL);
8451   bv_scm = SG_ARGREF(0);
8452   if (!SG_BVECTORP(bv_scm))
8453     Sg_WrongTypeOfArgumentViolation(
8454        sg__rc_cgen9166.d9486[336], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8455   bv = SG_BVECTOR(bv_scm);
8456   endian_scm = SG_ARGREF(1);
8457   if (!SG_SYMBOLP(endian_scm))
8458     Sg_WrongTypeOfArgumentViolation(
8459        sg__rc_cgen9166.d9486[336], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8460   endian = SG_SYMBOL(endian_scm);
8461   if (SG_ARGC > 2+1) {
8462     mandatory_scm = SG_ARGREF(2);
8463   } else {
8464     mandatory_scm = SG_UNBOUND;
8465   }
8466   mandatory = (mandatory_scm);
8467   {
8468 {
8469 SgObject SG_RESULT = (SgObject)NULL;
8470 
8471 #line 1431 "./lib_core.stub"
8472 {SgEndianness endianness=NO_BOM;int skipBOM=FALSE;
8473 #line 1433 "./lib_core.stub"
8474 if (SG_UNBOUNDP(mandatory)){{
8475 endianness=(Sg_Utf16CheckBOM(bv));
8476 if ((!((endianness)==(NO_BOM)))){{skipBOM=(TRUE);}}}}
8477 if ((((!(SG_UNBOUNDP(mandatory))))&&(
8478 (!(SG_FALSEP(mandatory)))))||(
8479 (endianness)==(NO_BOM))){{
8480 if (SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8481 endianness=(UTF_16LE);}else if(
8482 SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8483 endianness=(UTF_16BE);} else {
8484 #line 1444 "./lib_core.stub"
8485 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[337],SG_MAKE_STRING("endianness should be little or big"),endian);}}}}
8486 #line 1446 "./lib_core.stub"
8487 {int skipSize=0;SgObject codec=SG_UNDEF;SgTranscoder trans;
8488 #line 1449 "./lib_core.stub"
8489 if (skipBOM){{skipSize=(2);}}
8490 codec=(Sg_MakeUtf16Codec(endianness));
8491 Sg_InitTranscoder((&(trans)),codec,E_NONE,SG_REPLACE_ERROR);
8492 #line 1453 "./lib_core.stub"
8493 SG_RESULT=(Sg_ByteVectorToString(bv,(&(trans)),skipSize,-1));}}
8494 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8495 }
8496   }
8497 }
8498 static SG_DEFINE_SUBR(core_utf16_TOstring__STUB, 2, 2,core_utf16_TOstring, SG_FALSE, NULL);
8499 
core_string_TOutf16(SgObject * SG_FP,int SG_ARGC,void * data_)8500 static SgObject core_string_TOutf16(SgObject *SG_FP, int SG_ARGC, void *data_)
8501 {
8502   SgObject s_scm;
8503   SgString* s;
8504   SgObject endian_scm;
8505   SgSymbol* endian;
8506   SG_ENTER_SUBR("string->utf16");
8507   if ((SG_ARGC > 2 &&
8508       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8509       SG_ARGC < 1)
8510     Sg_WrongNumberOfArgumentsBetweenViolation(
8511      SG_INTERN("string->utf16"), 1, 2, SG_ARGC, SG_NIL);
8512   s_scm = SG_ARGREF(0);
8513   if (!SG_STRINGP(s_scm))
8514     Sg_WrongTypeOfArgumentViolation(
8515        sg__rc_cgen9166.d9486[338], SG_MAKE_STRING("string"), s_scm, SG_NIL);
8516   s = SG_STRING(s_scm);
8517   if (SG_ARGC > 1+1) {
8518     endian_scm = SG_ARGREF(1);
8519   } else {
8520     endian_scm = SG_UNBOUND;
8521   }
8522   if (!SG_UNBOUNDP(endian_scm) && !SG_SYMBOLP(endian_scm))
8523     Sg_WrongTypeOfArgumentViolation(
8524        sg__rc_cgen9166.d9486[338], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8525   endian = SG_SYMBOL(endian_scm);
8526   {
8527 {
8528 SgObject SG_RESULT = (SgObject)NULL;
8529 
8530 #line 1457 "./lib_core.stub"
8531 {SgEndianness endianness=UTF_16BE;SgTranscoder trans;
8532 #line 1459 "./lib_core.stub"
8533 if ((!(SG_UNBOUNDP(endian)))){
8534 if (SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8535 endianness=(UTF_16LE);}else if(
8536 SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8537 endianness=(UTF_16BE);} else {
8538 #line 1465 "./lib_core.stub"
8539 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[339],SG_MAKE_STRING("endianness should be little or big"),endian);}}}
8540 #line 1467 "./lib_core.stub"
8541 Sg_InitTranscoder((&(trans)),Sg_MakeUtf16Codec(endianness),E_NONE,SG_REPLACE_ERROR);
8542 #line 1469 "./lib_core.stub"
8543 SG_RESULT=(Sg_StringToByteVector(s,(&(trans)),0,-1));}
8544 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8545 }
8546   }
8547 }
8548 static SG_DEFINE_SUBR(core_string_TOutf16__STUB, 1, 2,core_string_TOutf16, SG_FALSE, NULL);
8549 
core_string_TOutf32(SgObject * SG_FP,int SG_ARGC,void * data_)8550 static SgObject core_string_TOutf32(SgObject *SG_FP, int SG_ARGC, void *data_)
8551 {
8552   SgObject s_scm;
8553   SgString* s;
8554   SgObject endian_scm;
8555   SgSymbol* endian;
8556   SG_ENTER_SUBR("string->utf32");
8557   if ((SG_ARGC > 2 &&
8558       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8559       SG_ARGC < 1)
8560     Sg_WrongNumberOfArgumentsBetweenViolation(
8561      SG_INTERN("string->utf32"), 1, 2, SG_ARGC, SG_NIL);
8562   s_scm = SG_ARGREF(0);
8563   if (!SG_STRINGP(s_scm))
8564     Sg_WrongTypeOfArgumentViolation(
8565        sg__rc_cgen9166.d9486[340], SG_MAKE_STRING("string"), s_scm, SG_NIL);
8566   s = SG_STRING(s_scm);
8567   if (SG_ARGC > 1+1) {
8568     endian_scm = SG_ARGREF(1);
8569   } else {
8570     endian_scm = SG_UNBOUND;
8571   }
8572   if (!SG_UNBOUNDP(endian_scm) && !SG_SYMBOLP(endian_scm))
8573     Sg_WrongTypeOfArgumentViolation(
8574        sg__rc_cgen9166.d9486[340], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8575   endian = SG_SYMBOL(endian_scm);
8576   {
8577 {
8578 SgObject SG_RESULT = (SgObject)NULL;
8579 
8580 #line 1474 "./lib_core.stub"
8581 {SgEndianness endianness=UTF_32BE;SgTranscoder trans;
8582 #line 1476 "./lib_core.stub"
8583 if ((!(SG_UNBOUNDP(endian)))){
8584 if (SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8585 endianness=(UTF_32LE);}else if(
8586 SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8587 endianness=(UTF_32BE);} else {
8588 #line 1482 "./lib_core.stub"
8589 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[341],SG_MAKE_STRING("endianness should be little or big"),endian);}}}
8590 #line 1484 "./lib_core.stub"
8591 Sg_InitTranscoder((&(trans)),Sg_MakeUtf32Codec(endianness),E_NONE,SG_REPLACE_ERROR);
8592 #line 1486 "./lib_core.stub"
8593 SG_RESULT=(Sg_StringToByteVector(s,(&(trans)),0,-1));}
8594 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8595 }
8596   }
8597 }
8598 static SG_DEFINE_SUBR(core_string_TOutf32__STUB, 1, 2,core_string_TOutf32, SG_FALSE, NULL);
8599 
core_utf32_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)8600 static SgObject core_utf32_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
8601 {
8602   SgObject bv_scm;
8603   SgByteVector* bv;
8604   SgObject endian_scm;
8605   SgSymbol* endian;
8606   SgObject mandatory_scm;
8607   SgObject mandatory;
8608   SG_ENTER_SUBR("utf32->string");
8609   if ((SG_ARGC > 3 &&
8610       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8611       SG_ARGC < 2)
8612     Sg_WrongNumberOfArgumentsBetweenViolation(
8613      SG_INTERN("utf32->string"), 2, 3, SG_ARGC, SG_NIL);
8614   bv_scm = SG_ARGREF(0);
8615   if (!SG_BVECTORP(bv_scm))
8616     Sg_WrongTypeOfArgumentViolation(
8617        sg__rc_cgen9166.d9486[342], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
8618   bv = SG_BVECTOR(bv_scm);
8619   endian_scm = SG_ARGREF(1);
8620   if (!SG_SYMBOLP(endian_scm))
8621     Sg_WrongTypeOfArgumentViolation(
8622        sg__rc_cgen9166.d9486[342], SG_MAKE_STRING("symbol"), endian_scm, SG_NIL);
8623   endian = SG_SYMBOL(endian_scm);
8624   if (SG_ARGC > 2+1) {
8625     mandatory_scm = SG_ARGREF(2);
8626   } else {
8627     mandatory_scm = SG_UNBOUND;
8628   }
8629   mandatory = (mandatory_scm);
8630   {
8631 {
8632 SgObject SG_RESULT = (SgObject)NULL;
8633 
8634 #line 1491 "./lib_core.stub"
8635 {SgEndianness endianness=NO_BOM;int skipBOM=FALSE;
8636 #line 1493 "./lib_core.stub"
8637 if (SG_UNBOUNDP(mandatory)){{
8638 endianness=(Sg_Utf32CheckBOM(bv));
8639 if ((!((endianness)==(NO_BOM)))){
8640 skipBOM=(TRUE);}}}
8641 if ((((!(SG_UNBOUNDP(mandatory))))&&(
8642 (!(SG_FALSEP(mandatory)))))||(
8643 (endianness)==(NO_BOM))){{
8644 if (SG_EQ(endian,sg__rc_cgen9166.d9486[272])){
8645 endianness=(UTF_32LE);}else if(
8646 SG_EQ(endian,sg__rc_cgen9166.d9486[274])){
8647 endianness=(UTF_32BE);} else {
8648 #line 1505 "./lib_core.stub"
8649 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[343],SG_MAKE_STRING("endianness should be little or big"),endian);}}}}
8650 #line 1507 "./lib_core.stub"
8651 {int skipSize=0;SgObject codec=SG_UNDEF;SgTranscoder trans;
8652 #line 1510 "./lib_core.stub"
8653 if (skipBOM){
8654 skipSize=(4);}
8655 codec=(Sg_MakeUtf32Codec(endianness));
8656 Sg_InitTranscoder((&(trans)),codec,E_NONE,SG_REPLACE_ERROR);
8657 #line 1515 "./lib_core.stub"
8658 SG_RESULT=(Sg_ByteVectorToString(bv,(&(trans)),skipSize,-1));}}
8659 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8660 }
8661   }
8662 }
8663 static SG_DEFINE_SUBR(core_utf32_TOstring__STUB, 2, 2,core_utf32_TOstring, SG_FALSE, NULL);
8664 
core_memq(SgObject * SG_FP,int SG_ARGC,void * data_)8665 static SgObject core_memq(SgObject *SG_FP, int SG_ARGC, void *data_)
8666 {
8667   SgObject arg0_scm;
8668   SgObject arg0;
8669   SgObject arg1_scm;
8670   SgObject arg1;
8671   SG_ENTER_SUBR("memq");
8672   if (SG_ARGC != 2)
8673     Sg_WrongNumberOfArgumentsViolation(
8674      SG_INTERN("memq"), 2, SG_ARGC, SG_NIL);
8675   arg0_scm = SG_ARGREF(0);
8676   arg0 = (arg0_scm);
8677   arg1_scm = SG_ARGREF(1);
8678   arg1 = (arg1_scm);
8679   {
8680 {
8681 SgObject SG_RESULT = (SgObject)NULL;
8682 SG_RESULT=(Sg_Memq(arg0,arg1));
8683 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8684 }
8685   }
8686 }
8687 static SG_DEFINE_SUBR(core_memq__STUB, 2, 0,core_memq, SG_FALSE, NULL);
8688 
core_memv(SgObject * SG_FP,int SG_ARGC,void * data_)8689 static SgObject core_memv(SgObject *SG_FP, int SG_ARGC, void *data_)
8690 {
8691   SgObject arg0_scm;
8692   SgObject arg0;
8693   SgObject arg1_scm;
8694   SgObject arg1;
8695   SG_ENTER_SUBR("memv");
8696   if (SG_ARGC != 2)
8697     Sg_WrongNumberOfArgumentsViolation(
8698      SG_INTERN("memv"), 2, SG_ARGC, SG_NIL);
8699   arg0_scm = SG_ARGREF(0);
8700   arg0 = (arg0_scm);
8701   arg1_scm = SG_ARGREF(1);
8702   arg1 = (arg1_scm);
8703   {
8704 {
8705 SgObject SG_RESULT = (SgObject)NULL;
8706 SG_RESULT=(Sg_Memv(arg0,arg1));
8707 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8708 }
8709   }
8710 }
8711 static SG_DEFINE_SUBR(core_memv__STUB, 2, 0,core_memv, SG_FALSE, NULL);
8712 
core_assq(SgObject * SG_FP,int SG_ARGC,void * data_)8713 static SgObject core_assq(SgObject *SG_FP, int SG_ARGC, void *data_)
8714 {
8715   SgObject obj_scm;
8716   SgObject obj;
8717   SgObject alist_scm;
8718   SgObject alist;
8719   SG_ENTER_SUBR("assq");
8720   if (SG_ARGC != 2)
8721     Sg_WrongNumberOfArgumentsViolation(
8722      SG_INTERN("assq"), 2, SG_ARGC, SG_NIL);
8723   obj_scm = SG_ARGREF(0);
8724   obj = (obj_scm);
8725   alist_scm = SG_ARGREF(1);
8726   alist = (alist_scm);
8727   {
8728 {
8729 SgObject SG_RESULT = (SgObject)NULL;
8730 SG_RESULT=(Sg_Assq(obj,alist));
8731 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8732 }
8733   }
8734 }
8735 static SG_DEFINE_SUBR(core_assq__STUB, 2, 0,core_assq, SG_FALSE, NULL);
8736 
core_assv(SgObject * SG_FP,int SG_ARGC,void * data_)8737 static SgObject core_assv(SgObject *SG_FP, int SG_ARGC, void *data_)
8738 {
8739   SgObject obj_scm;
8740   SgObject obj;
8741   SgObject alist_scm;
8742   SgObject alist;
8743   SG_ENTER_SUBR("assv");
8744   if (SG_ARGC != 2)
8745     Sg_WrongNumberOfArgumentsViolation(
8746      SG_INTERN("assv"), 2, SG_ARGC, SG_NIL);
8747   obj_scm = SG_ARGREF(0);
8748   obj = (obj_scm);
8749   alist_scm = SG_ARGREF(1);
8750   alist = (alist_scm);
8751   {
8752 {
8753 SgObject SG_RESULT = (SgObject)NULL;
8754 SG_RESULT=(Sg_Assv(obj,alist));
8755 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8756 }
8757   }
8758 }
8759 static SG_DEFINE_SUBR(core_assv__STUB, 2, 0,core_assv, SG_FALSE, NULL);
8760 
core_cons_2a(SgObject * SG_FP,int SG_ARGC,void * data_)8761 static SgObject core_cons_2a(SgObject *SG_FP, int SG_ARGC, void *data_)
8762 {
8763   SgObject rest_scm;
8764   SgObject rest;
8765   SG_ENTER_SUBR("cons*");
8766   if (SG_ARGC < 0)
8767     Sg_WrongNumberOfArgumentsAtLeastViolation(
8768      SG_INTERN("cons*"), 0, SG_ARGC, SG_NIL);
8769   rest_scm = SG_ARGREF(SG_ARGC-1);
8770   rest = (rest_scm);
8771   {
8772 {
8773 SgObject SG_RESULT = (SgObject)NULL;
8774 SgObject cp;
8775 #line 1524 "./lib_core.stub"
8776 {SgObject h=SG_NIL;SgObject t=SG_NIL;
8777 if (SG_PAIRP(rest)){{
8778 SG_FOR_EACH(cp,rest){
8779 if ((!(SG_PAIRP(SG_CDR(cp))))){{
8780 if (SG_NULLP(h)){
8781 h=(SG_CAR(cp));} else {
8782 SG_SET_CDR(t,SG_CAR(cp));}
8783 break;}}
8784 SG_APPEND1(h,t,SG_CAR(cp));}}}
8785 SG_RESULT=(h);}
8786 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8787 }
8788   }
8789 }
8790 static SG_DEFINE_SUBR(core_cons_2a__STUB, 0, 1,core_cons_2a, SG_FALSE, NULL);
8791 
core_buffer_modeP(SgObject * SG_FP,int SG_ARGC,void * data_)8792 static SgObject core_buffer_modeP(SgObject *SG_FP, int SG_ARGC, void *data_)
8793 {
8794   SgObject o_scm;
8795   SgObject o;
8796   SG_ENTER_SUBR("buffer-mode?");
8797   if (SG_ARGC != 1)
8798     Sg_WrongNumberOfArgumentsViolation(
8799      SG_INTERN("buffer-mode?"), 1, SG_ARGC, SG_NIL);
8800   o_scm = SG_ARGREF(0);
8801   o = (o_scm);
8802   {
8803 {
8804 int SG_RESULT = (int)FALSE;
8805 
8806 #line 1551 "./lib_core.stub"
8807 SG_RESULT=(((SG_EQ(o,sg__rc_cgen9166.d9486[350]))||(
8808 SG_EQ(o,sg__rc_cgen9166.d9486[352])))||(
8809 SG_EQ(o,sg__rc_cgen9166.d9486[354])));
8810 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
8811 }
8812   }
8813 }
8814 static SG_DEFINE_SUBR(core_buffer_modeP__STUB, 1, 0,core_buffer_modeP, SG_FALSE, NULL);
8815 
core_latin_1_codec(SgObject * SG_FP,int SG_ARGC,void * data_)8816 static SgObject core_latin_1_codec(SgObject *SG_FP, int SG_ARGC, void *data_)
8817 {
8818   SG_ENTER_SUBR("latin-1-codec");
8819   if (SG_ARGC != 0)
8820     Sg_WrongNumberOfArgumentsViolation(
8821      SG_INTERN("latin-1-codec"), 0, SG_ARGC, SG_NIL);
8822   {
8823 {
8824 SgObject SG_RESULT = (SgObject)NULL;
8825 SG_RESULT=(Sg_MakeLatin1Codec());
8826 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8827 }
8828   }
8829 }
8830 static SG_DEFINE_SUBR(core_latin_1_codec__STUB, 0, 0,core_latin_1_codec, SG_FALSE, NULL);
8831 
core_utf_8_codec(SgObject * SG_FP,int SG_ARGC,void * data_)8832 static SgObject core_utf_8_codec(SgObject *SG_FP, int SG_ARGC, void *data_)
8833 {
8834   SG_ENTER_SUBR("utf-8-codec");
8835   if (SG_ARGC != 0)
8836     Sg_WrongNumberOfArgumentsViolation(
8837      SG_INTERN("utf-8-codec"), 0, SG_ARGC, SG_NIL);
8838   {
8839 {
8840 SgObject SG_RESULT = (SgObject)NULL;
8841 SG_RESULT=(Sg_MakeUtf8Codec());
8842 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8843 }
8844   }
8845 }
8846 static SG_DEFINE_SUBR(core_utf_8_codec__STUB, 0, 0,core_utf_8_codec, SG_FALSE, NULL);
8847 
core_utf_16_codec(SgObject * SG_FP,int SG_ARGC,void * data_)8848 static SgObject core_utf_16_codec(SgObject *SG_FP, int SG_ARGC, void *data_)
8849 {
8850   SG_ENTER_SUBR("utf-16-codec");
8851   if (SG_ARGC != 0)
8852     Sg_WrongNumberOfArgumentsViolation(
8853      SG_INTERN("utf-16-codec"), 0, SG_ARGC, SG_NIL);
8854   {
8855 {
8856 SgObject SG_RESULT = (SgObject)NULL;
8857 
8858 #line 1559 "./lib_core.stub"
8859 SG_RESULT=(Sg_MakeUtf16Codec(UTF_16CHECK_BOM));
8860 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8861 }
8862   }
8863 }
8864 static SG_DEFINE_SUBR(core_utf_16_codec__STUB, 0, 0,core_utf_16_codec, SG_FALSE, NULL);
8865 
core_native_eol_style(SgObject * SG_FP,int SG_ARGC,void * data_)8866 static SgObject core_native_eol_style(SgObject *SG_FP, int SG_ARGC, void *data_)
8867 {
8868   SG_ENTER_SUBR("native-eol-style");
8869   if (SG_ARGC != 0)
8870     Sg_WrongNumberOfArgumentsViolation(
8871      SG_INTERN("native-eol-style"), 0, SG_ARGC, SG_NIL);
8872   {
8873 {
8874 SgObject SG_RESULT = (SgObject)NULL;
8875 
8876 #line 1562 "./lib_core.stub"
8877 {SgEolStyle style=Sg_NativeEol();
8878 if ((style)==(LF)){
8879 SG_RESULT=(sg__rc_cgen9166.d9486[371]);}else if(
8880 (style)==(CR)){
8881 SG_RESULT=(sg__rc_cgen9166.d9486[369]);}else if(
8882 (style)==(LS)){
8883 SG_RESULT=(sg__rc_cgen9166.d9486[367]);}else if(
8884 (style)==(NEL)){
8885 SG_RESULT=(sg__rc_cgen9166.d9486[365]);}else if(
8886 (style)==(CRNEL)){
8887 SG_RESULT=(sg__rc_cgen9166.d9486[363]);}else if(
8888 (style)==(CRLF)){
8889 SG_RESULT=(sg__rc_cgen9166.d9486[361]);}else if(
8890 (style)==(E_NONE)){
8891 SG_RESULT=(sg__rc_cgen9166.d9486[350]);} else {
8892 #line 1580 "./lib_core.stub"
8893 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[360],SG_MAKE_STRING("platform native eol style not found"),SG_NIL);}}}
8894 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8895 }
8896   }
8897 }
8898 static SG_DEFINE_SUBR(core_native_eol_style__STUB, 0, 0,core_native_eol_style, SG_FALSE, NULL);
8899 
core_make_transcoder(SgObject * SG_FP,int SG_ARGC,void * data_)8900 static SgObject core_make_transcoder(SgObject *SG_FP, int SG_ARGC, void *data_)
8901 {
8902   SgObject c_scm;
8903   SgCodec* c;
8904   SgObject eol_scm;
8905   SgObject eol;
8906   SgObject mode_scm;
8907   SgSymbol* mode;
8908   SG_ENTER_SUBR("make-transcoder");
8909   if ((SG_ARGC > 3 &&
8910       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
8911       SG_ARGC < 1)
8912     Sg_WrongNumberOfArgumentsBetweenViolation(
8913      SG_INTERN("make-transcoder"), 1, 3, SG_ARGC, SG_NIL);
8914   c_scm = SG_ARGREF(0);
8915   if (!SG_CODECP(c_scm))
8916     Sg_WrongTypeOfArgumentViolation(
8917        sg__rc_cgen9166.d9486[373], SG_MAKE_STRING("codec"), c_scm, SG_NIL);
8918   c = SG_CODEC(c_scm);
8919   if (SG_ARGC > 1+1) {
8920     eol_scm = SG_ARGREF(1);
8921   } else {
8922     eol_scm = SG_UNBOUND;
8923   }
8924   eol = (eol_scm);
8925   if (SG_ARGC > 2+1) {
8926     mode_scm = SG_ARGREF(2);
8927   } else {
8928     mode_scm = SG_UNBOUND;
8929   }
8930   if (!SG_UNBOUNDP(mode_scm) && !SG_SYMBOLP(mode_scm))
8931     Sg_WrongTypeOfArgumentViolation(
8932        sg__rc_cgen9166.d9486[373], SG_MAKE_STRING("symbol"), mode_scm, SG_NIL);
8933   mode = SG_SYMBOL(mode_scm);
8934   {
8935 {
8936 SgObject SG_RESULT = (SgObject)NULL;
8937 
8938 #line 1586 "./lib_core.stub"
8939 if ((!((SG_UNBOUNDP(eol))||(
8940 SG_SYMBOLP(eol))))){{
8941 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[374],SG_MAKE_STRING("symbol"),eol,SG_NIL);}}}
8942 
8943 #line 1590 "./lib_core.stub"
8944 {SgEolStyle style=Sg_NativeEol();SgErrorHandlingMode handling=SG_REPLACE_ERROR;
8945 #line 1592 "./lib_core.stub"
8946 if (SG_UNBOUNDP(eol)){}else if(
8947 SG_EQ(eol,sg__rc_cgen9166.d9486[371])){
8948 style=(LF);}else if(
8949 SG_EQ(eol,sg__rc_cgen9166.d9486[369])){
8950 style=(CR);}else if(
8951 SG_EQ(eol,sg__rc_cgen9166.d9486[367])){
8952 style=(LS);}else if(
8953 SG_EQ(eol,sg__rc_cgen9166.d9486[365])){
8954 style=(NEL);}else if(
8955 SG_EQ(eol,sg__rc_cgen9166.d9486[363])){
8956 style=(CRNEL);}else if(
8957 SG_EQ(eol,sg__rc_cgen9166.d9486[361])){
8958 style=(CRLF);}else if(
8959 SG_EQ(eol,sg__rc_cgen9166.d9486[350])){
8960 style=(E_NONE);} else {
8961 #line 1608 "./lib_core.stub"
8962 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[374],SG_MAKE_STRING("invalid eol-style"),eol);}}
8963 #line 1611 "./lib_core.stub"
8964 if ((SG_UNBOUNDP(mode))||(
8965 SG_EQ(mode,sg__rc_cgen9166.d9486[379]))){}else if(
8966 SG_EQ(mode,sg__rc_cgen9166.d9486[377])){
8967 handling=(SG_RAISE_ERROR);}else if(
8968 SG_EQ(mode,sg__rc_cgen9166.d9486[375])){
8969 handling=(SG_IGNORE_ERROR);} else {
8970 #line 1618 "./lib_core.stub"
8971 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[374],SG_MAKE_STRING("invalid error-handling-mode"),mode);}}
8972 #line 1621 "./lib_core.stub"
8973 SG_RESULT=(Sg_MakeTranscoder(c,style,handling));}
8974 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8975 }
8976   }
8977 }
8978 static SG_DEFINE_SUBR(core_make_transcoder__STUB, 1, 3,core_make_transcoder, SG_FALSE, NULL);
8979 
core_native_transcoder(SgObject * SG_FP,int SG_ARGC,void * data_)8980 static SgObject core_native_transcoder(SgObject *SG_FP, int SG_ARGC, void *data_)
8981 {
8982   SG_ENTER_SUBR("native-transcoder");
8983   if (SG_ARGC != 0)
8984     Sg_WrongNumberOfArgumentsViolation(
8985      SG_INTERN("native-transcoder"), 0, SG_ARGC, SG_NIL);
8986   {
8987 {
8988 SgObject SG_RESULT = (SgObject)NULL;
8989 SG_RESULT=(Sg_MakeNativeTranscoder());
8990 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
8991 }
8992   }
8993 }
8994 static SG_DEFINE_SUBR(core_native_transcoder__STUB, 0, 0,core_native_transcoder, SG_FALSE, NULL);
8995 
core_transcoder_codec(SgObject * SG_FP,int SG_ARGC,void * data_)8996 static SgObject core_transcoder_codec(SgObject *SG_FP, int SG_ARGC, void *data_)
8997 {
8998   SgObject t_scm;
8999   SgTranscoder* t;
9000   SG_ENTER_SUBR("transcoder-codec");
9001   if (SG_ARGC != 1)
9002     Sg_WrongNumberOfArgumentsViolation(
9003      SG_INTERN("transcoder-codec"), 1, SG_ARGC, SG_NIL);
9004   t_scm = SG_ARGREF(0);
9005   if (!SG_TRANSCODERP(t_scm))
9006     Sg_WrongTypeOfArgumentViolation(
9007        sg__rc_cgen9166.d9486[382], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9008   t = SG_TRANSCODER(t_scm);
9009   {
9010 {
9011 SgObject SG_RESULT = (SgObject)NULL;
9012 SG_RESULT=(SG_TRANSCODER_CODEC(t));
9013 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9014 }
9015   }
9016 }
9017 static SG_DEFINE_SUBR(core_transcoder_codec__STUB, 1, 0,core_transcoder_codec, SG_FALSE, NULL);
9018 
core_transcoder_eol_style(SgObject * SG_FP,int SG_ARGC,void * data_)9019 static SgObject core_transcoder_eol_style(SgObject *SG_FP, int SG_ARGC, void *data_)
9020 {
9021   SgObject t_scm;
9022   SgTranscoder* t;
9023   SG_ENTER_SUBR("transcoder-eol-style");
9024   if (SG_ARGC != 1)
9025     Sg_WrongNumberOfArgumentsViolation(
9026      SG_INTERN("transcoder-eol-style"), 1, SG_ARGC, SG_NIL);
9027   t_scm = SG_ARGREF(0);
9028   if (!SG_TRANSCODERP(t_scm))
9029     Sg_WrongTypeOfArgumentViolation(
9030        sg__rc_cgen9166.d9486[383], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9031   t = SG_TRANSCODER(t_scm);
9032   {
9033 {
9034 SgObject SG_RESULT = (SgObject)NULL;
9035 
9036 #line 1629 "./lib_core.stub"
9037 {SgEolStyle style=SG_TRANSCODER_EOL_STYLE(t);
9038 if ((style)==(LF)){
9039 SG_RESULT=(sg__rc_cgen9166.d9486[371]);}else if(
9040 (style)==(CR)){
9041 SG_RESULT=(sg__rc_cgen9166.d9486[369]);}else if(
9042 (style)==(LS)){
9043 SG_RESULT=(sg__rc_cgen9166.d9486[367]);}else if(
9044 (style)==(NEL)){
9045 SG_RESULT=(sg__rc_cgen9166.d9486[365]);}else if(
9046 (style)==(CRNEL)){
9047 SG_RESULT=(sg__rc_cgen9166.d9486[363]);}else if(
9048 (style)==(CRLF)){
9049 SG_RESULT=(sg__rc_cgen9166.d9486[361]);}else if(
9050 (style)==(E_NONE)){
9051 SG_RESULT=(sg__rc_cgen9166.d9486[350]);} else {
9052 #line 1646 "./lib_core.stub"
9053 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[384],SG_MAKE_STRING("transcoder had unknown eol-style. this must be a bug, please report it"),SG_NIL);}}}
9054 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9055 }
9056   }
9057 }
9058 static SG_DEFINE_SUBR(core_transcoder_eol_style__STUB, 1, 0,core_transcoder_eol_style, SG_FALSE, NULL);
9059 
core_transcoder_error_handling_mode(SgObject * SG_FP,int SG_ARGC,void * data_)9060 static SgObject core_transcoder_error_handling_mode(SgObject *SG_FP, int SG_ARGC, void *data_)
9061 {
9062   SgObject t_scm;
9063   SgTranscoder* t;
9064   SG_ENTER_SUBR("transcoder-error-handling-mode");
9065   if (SG_ARGC != 1)
9066     Sg_WrongNumberOfArgumentsViolation(
9067      SG_INTERN("transcoder-error-handling-mode"), 1, SG_ARGC, SG_NIL);
9068   t_scm = SG_ARGREF(0);
9069   if (!SG_TRANSCODERP(t_scm))
9070     Sg_WrongTypeOfArgumentViolation(
9071        sg__rc_cgen9166.d9486[385], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9072   t = SG_TRANSCODER(t_scm);
9073   {
9074 {
9075 SgObject SG_RESULT = (SgObject)NULL;
9076 
9077 #line 1652 "./lib_core.stub"
9078 {SgErrorHandlingMode mode=SG_TRANSCODER_MODE(t);
9079 if (SG_EQ(mode,SG_REPLACE_ERROR)){
9080 SG_RESULT=(SG_SYMBOL_REPLACE);}else if(
9081 SG_EQ(mode,SG_IGNORE_ERROR)){
9082 SG_RESULT=(SG_SYMBOL_IGNORE);}else if(
9083 SG_EQ(mode,SG_RAISE_ERROR)){
9084 SG_RESULT=(SG_SYMBOL_RAISE);} else {
9085 #line 1660 "./lib_core.stub"
9086 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[386],SG_MAKE_STRING("transcoder had unknown error-handling-mode. this must be a bug, please report it"),SG_NIL);}}}
9087 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9088 }
9089   }
9090 }
9091 static SG_DEFINE_SUBR(core_transcoder_error_handling_mode__STUB, 1, 0,core_transcoder_error_handling_mode, SG_FALSE, NULL);
9092 
core_bytevector_TOstring(SgObject * SG_FP,int SG_ARGC,void * data_)9093 static SgObject core_bytevector_TOstring(SgObject *SG_FP, int SG_ARGC, void *data_)
9094 {
9095   SgObject b_scm;
9096   SgByteVector* b;
9097   SgObject t_scm;
9098   SgTranscoder* t;
9099   SgObject start_scm;
9100   long start;
9101   SgObject end_scm;
9102   long end;
9103   SG_ENTER_SUBR("bytevector->string");
9104   if ((SG_ARGC > 4 &&
9105       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9106       SG_ARGC < 2)
9107     Sg_WrongNumberOfArgumentsBetweenViolation(
9108      SG_INTERN("bytevector->string"), 2, 4, SG_ARGC, SG_NIL);
9109   b_scm = SG_ARGREF(0);
9110   if (!SG_BVECTORP(b_scm))
9111     Sg_WrongTypeOfArgumentViolation(
9112        sg__rc_cgen9166.d9486[387], SG_MAKE_STRING("bytevector"), b_scm, SG_NIL);
9113   b = SG_BVECTOR(b_scm);
9114   t_scm = SG_ARGREF(1);
9115   if (!SG_TRANSCODERP(t_scm))
9116     Sg_WrongTypeOfArgumentViolation(
9117        sg__rc_cgen9166.d9486[387], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9118   t = SG_TRANSCODER(t_scm);
9119   if (SG_ARGC > 2+1) {
9120     start_scm = SG_ARGREF(2);
9121   } else {
9122     start_scm = SG_MAKE_INT(0);
9123   }
9124   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
9125     Sg_WrongTypeOfArgumentViolation(
9126        sg__rc_cgen9166.d9486[387], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
9127   start = SG_INT_VALUE(start_scm);
9128   if (SG_ARGC > 3+1) {
9129     end_scm = SG_ARGREF(3);
9130   } else {
9131     end_scm = SG_MAKE_INT(-1);
9132   }
9133   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
9134     Sg_WrongTypeOfArgumentViolation(
9135        sg__rc_cgen9166.d9486[387], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
9136   end = SG_INT_VALUE(end_scm);
9137   {
9138 {
9139 SgObject SG_RESULT = (SgObject)NULL;
9140 SG_RESULT=(Sg_ByteVectorToString(b,t,start,end));
9141 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9142 }
9143   }
9144 }
9145 static SG_DEFINE_SUBR(core_bytevector_TOstring__STUB, 2, 3,core_bytevector_TOstring, SG_FALSE, NULL);
9146 
core_string_TObytevector(SgObject * SG_FP,int SG_ARGC,void * data_)9147 static SgObject core_string_TObytevector(SgObject *SG_FP, int SG_ARGC, void *data_)
9148 {
9149   SgObject s_scm;
9150   SgString* s;
9151   SgObject t_scm;
9152   SgTranscoder* t;
9153   SgObject start_scm;
9154   long start;
9155   SgObject end_scm;
9156   long end;
9157   SG_ENTER_SUBR("string->bytevector");
9158   if ((SG_ARGC > 4 &&
9159       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9160       SG_ARGC < 2)
9161     Sg_WrongNumberOfArgumentsBetweenViolation(
9162      SG_INTERN("string->bytevector"), 2, 4, SG_ARGC, SG_NIL);
9163   s_scm = SG_ARGREF(0);
9164   if (!SG_STRINGP(s_scm))
9165     Sg_WrongTypeOfArgumentViolation(
9166        sg__rc_cgen9166.d9486[388], SG_MAKE_STRING("string"), s_scm, SG_NIL);
9167   s = SG_STRING(s_scm);
9168   t_scm = SG_ARGREF(1);
9169   if (!SG_TRANSCODERP(t_scm))
9170     Sg_WrongTypeOfArgumentViolation(
9171        sg__rc_cgen9166.d9486[388], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9172   t = SG_TRANSCODER(t_scm);
9173   if (SG_ARGC > 2+1) {
9174     start_scm = SG_ARGREF(2);
9175   } else {
9176     start_scm = SG_MAKE_INT(0);
9177   }
9178   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
9179     Sg_WrongTypeOfArgumentViolation(
9180        sg__rc_cgen9166.d9486[388], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
9181   start = SG_INT_VALUE(start_scm);
9182   if (SG_ARGC > 3+1) {
9183     end_scm = SG_ARGREF(3);
9184   } else {
9185     end_scm = SG_MAKE_INT(-1);
9186   }
9187   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
9188     Sg_WrongTypeOfArgumentViolation(
9189        sg__rc_cgen9166.d9486[388], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
9190   end = SG_INT_VALUE(end_scm);
9191   {
9192 {
9193 SgObject SG_RESULT = (SgObject)NULL;
9194 SG_RESULT=(Sg_StringToByteVector(s,t,start,end));
9195 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9196 }
9197   }
9198 }
9199 static SG_DEFINE_SUBR(core_string_TObytevector__STUB, 2, 3,core_string_TObytevector, SG_FALSE, NULL);
9200 
core_eof_object(SgObject * SG_FP,int SG_ARGC,void * data_)9201 static SgObject core_eof_object(SgObject *SG_FP, int SG_ARGC, void *data_)
9202 {
9203   SG_ENTER_SUBR("eof-object");
9204   if (SG_ARGC != 0)
9205     Sg_WrongNumberOfArgumentsViolation(
9206      SG_INTERN("eof-object"), 0, SG_ARGC, SG_NIL);
9207   {
9208 {
9209 SgObject SG_RESULT = (SgObject)NULL;
9210 
9211 #line 1677 "./lib_core.stub"
9212 SG_RESULT=(SG_EOF);
9213 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9214 }
9215   }
9216 }
9217 static SG_DEFINE_SUBR(core_eof_object__STUB, 0, 0,core_eof_object, SG_FALSE, NULL);
9218 
core_eof_objectP(SgObject * SG_FP,int SG_ARGC,void * data_)9219 static SgObject core_eof_objectP(SgObject *SG_FP, int SG_ARGC, void *data_)
9220 {
9221   SgObject o_scm;
9222   SgObject o;
9223   SG_ENTER_SUBR("eof-object?");
9224   if (SG_ARGC != 1)
9225     Sg_WrongNumberOfArgumentsViolation(
9226      SG_INTERN("eof-object?"), 1, SG_ARGC, SG_NIL);
9227   o_scm = SG_ARGREF(0);
9228   o = (o_scm);
9229   {
9230 {
9231 int SG_RESULT = (int)FALSE;
9232 SG_RESULT=(SG_EOFP(o));
9233 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9234 }
9235   }
9236 }
9237 static SG_DEFINE_SUBR(core_eof_objectP__STUB, 1, 0,core_eof_objectP, SG_FALSE, NULL);
9238 
core_portP(SgObject * SG_FP,int SG_ARGC,void * data_)9239 static SgObject core_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
9240 {
9241   SgObject obj_scm;
9242   SgObject obj;
9243   SG_ENTER_SUBR("port?");
9244   if (SG_ARGC != 1)
9245     Sg_WrongNumberOfArgumentsViolation(
9246      SG_INTERN("port?"), 1, SG_ARGC, SG_NIL);
9247   obj_scm = SG_ARGREF(0);
9248   obj = (obj_scm);
9249   {
9250 {
9251 int SG_RESULT = (int)FALSE;
9252 SG_RESULT=(SG_PORTP(obj));
9253 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9254 }
9255   }
9256 }
9257 static SG_DEFINE_SUBR(core_portP__STUB, 1, 0,core_portP, SG_FALSE, NULL);
9258 
core_port_transcoder(SgObject * SG_FP,int SG_ARGC,void * data_)9259 static SgObject core_port_transcoder(SgObject *SG_FP, int SG_ARGC, void *data_)
9260 {
9261   SgObject p_scm;
9262   SgPort* p;
9263   SG_ENTER_SUBR("port-transcoder");
9264   if (SG_ARGC != 1)
9265     Sg_WrongNumberOfArgumentsViolation(
9266      SG_INTERN("port-transcoder"), 1, SG_ARGC, SG_NIL);
9267   p_scm = SG_ARGREF(0);
9268   if (!SG_PORTP(p_scm))
9269     Sg_WrongTypeOfArgumentViolation(
9270        sg__rc_cgen9166.d9486[392], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9271   p = SG_PORT(p_scm);
9272   {
9273 {
9274 SgObject SG_RESULT = (SgObject)NULL;
9275 SG_RESULT=(Sg_PortTranscoder(p));
9276 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9277 }
9278   }
9279 }
9280 static SG_DEFINE_SUBR(core_port_transcoder__STUB, 1, 0,core_port_transcoder, SG_FALSE, NULL);
9281 
core_textual_portP(SgObject * SG_FP,int SG_ARGC,void * data_)9282 static SgObject core_textual_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
9283 {
9284   SgObject p_scm;
9285   SgObject p;
9286   SG_ENTER_SUBR("textual-port?");
9287   if (SG_ARGC != 1)
9288     Sg_WrongNumberOfArgumentsViolation(
9289      SG_INTERN("textual-port?"), 1, SG_ARGC, SG_NIL);
9290   p_scm = SG_ARGREF(0);
9291   p = (p_scm);
9292   {
9293 {
9294 int SG_RESULT = (int)FALSE;
9295 SG_RESULT=(SG_TEXTUAL_PORTP(p));
9296 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9297 }
9298   }
9299 }
9300 static SG_DEFINE_SUBR(core_textual_portP__STUB, 1, 0,core_textual_portP, SG_FALSE, NULL);
9301 
core_binary_portP(SgObject * SG_FP,int SG_ARGC,void * data_)9302 static SgObject core_binary_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
9303 {
9304   SgObject p_scm;
9305   SgObject p;
9306   SG_ENTER_SUBR("binary-port?");
9307   if (SG_ARGC != 1)
9308     Sg_WrongNumberOfArgumentsViolation(
9309      SG_INTERN("binary-port?"), 1, SG_ARGC, SG_NIL);
9310   p_scm = SG_ARGREF(0);
9311   p = (p_scm);
9312   {
9313 {
9314 int SG_RESULT = (int)FALSE;
9315 SG_RESULT=(SG_BINARY_PORTP(p));
9316 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9317 }
9318   }
9319 }
9320 static SG_DEFINE_SUBR(core_binary_portP__STUB, 1, 0,core_binary_portP, SG_FALSE, NULL);
9321 
core_transcoded_port(SgObject * SG_FP,int SG_ARGC,void * data_)9322 static SgObject core_transcoded_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9323 {
9324   SgObject p_scm;
9325   SgPort* p;
9326   SgObject t_scm;
9327   SgTranscoder* t;
9328   SG_ENTER_SUBR("transcoded-port");
9329   if (SG_ARGC != 2)
9330     Sg_WrongNumberOfArgumentsViolation(
9331      SG_INTERN("transcoded-port"), 2, SG_ARGC, SG_NIL);
9332   p_scm = SG_ARGREF(0);
9333   if (!SG_PORTP(p_scm))
9334     Sg_WrongTypeOfArgumentViolation(
9335        sg__rc_cgen9166.d9486[395], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9336   p = SG_PORT(p_scm);
9337   t_scm = SG_ARGREF(1);
9338   if (!SG_TRANSCODERP(t_scm))
9339     Sg_WrongTypeOfArgumentViolation(
9340        sg__rc_cgen9166.d9486[395], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9341   t = SG_TRANSCODER(t_scm);
9342   {
9343 {
9344 SgObject SG_RESULT = (SgObject)NULL;
9345 
9346 #line 1702 "./lib_core.stub"
9347 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[396],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}
9348 
9349 #line 1703 "./lib_core.stub"
9350 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[396],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
9351 
9352 #line 1704 "./lib_core.stub"
9353 Sg_PseudoClosePort(p);
9354 
9355 #line 1705 "./lib_core.stub"
9356 SG_RESULT=(Sg_MakeTranscodedPort(p,t));
9357 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9358 }
9359   }
9360 }
9361 static SG_DEFINE_SUBR(core_transcoded_port__STUB, 2, 0,core_transcoded_port, SG_FALSE, NULL);
9362 
core_port_has_port_positionP(SgObject * SG_FP,int SG_ARGC,void * data_)9363 static SgObject core_port_has_port_positionP(SgObject *SG_FP, int SG_ARGC, void *data_)
9364 {
9365   SgObject p_scm;
9366   SgPort* p;
9367   SG_ENTER_SUBR("port-has-port-position?");
9368   if (SG_ARGC != 1)
9369     Sg_WrongNumberOfArgumentsViolation(
9370      SG_INTERN("port-has-port-position?"), 1, SG_ARGC, SG_NIL);
9371   p_scm = SG_ARGREF(0);
9372   if (!SG_PORTP(p_scm))
9373     Sg_WrongTypeOfArgumentViolation(
9374        sg__rc_cgen9166.d9486[397], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9375   p = SG_PORT(p_scm);
9376   {
9377 {
9378 int SG_RESULT = (int)FALSE;
9379 SG_RESULT=(Sg_HasPortPosition(p));
9380 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9381 }
9382   }
9383 }
9384 static SG_DEFINE_SUBR(core_port_has_port_positionP__STUB, 1, 0,core_port_has_port_positionP, SG_FALSE, NULL);
9385 
core_port_has_set_port_positionXP(SgObject * SG_FP,int SG_ARGC,void * data_)9386 static SgObject core_port_has_set_port_positionXP(SgObject *SG_FP, int SG_ARGC, void *data_)
9387 {
9388   SgObject p_scm;
9389   SgPort* p;
9390   SG_ENTER_SUBR("port-has-set-port-position!?");
9391   if (SG_ARGC != 1)
9392     Sg_WrongNumberOfArgumentsViolation(
9393      SG_INTERN("port-has-set-port-position!?"), 1, SG_ARGC, SG_NIL);
9394   p_scm = SG_ARGREF(0);
9395   if (!SG_PORTP(p_scm))
9396     Sg_WrongTypeOfArgumentViolation(
9397        sg__rc_cgen9166.d9486[398], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9398   p = SG_PORT(p_scm);
9399   {
9400 {
9401 int SG_RESULT = (int)FALSE;
9402 SG_RESULT=(Sg_HasSetPortPosition(p));
9403 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9404 }
9405   }
9406 }
9407 static SG_DEFINE_SUBR(core_port_has_set_port_positionXP__STUB, 1, 0,core_port_has_set_port_positionXP, SG_FALSE, NULL);
9408 
core_port_position(SgObject * SG_FP,int SG_ARGC,void * data_)9409 static SgObject core_port_position(SgObject *SG_FP, int SG_ARGC, void *data_)
9410 {
9411   SgObject p_scm;
9412   SgPort* p;
9413   SG_ENTER_SUBR("port-position");
9414   if (SG_ARGC != 1)
9415     Sg_WrongNumberOfArgumentsViolation(
9416      SG_INTERN("port-position"), 1, SG_ARGC, SG_NIL);
9417   p_scm = SG_ARGREF(0);
9418   if (!SG_PORTP(p_scm))
9419     Sg_WrongTypeOfArgumentViolation(
9420        sg__rc_cgen9166.d9486[399], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9421   p = SG_PORT(p_scm);
9422   {
9423 {
9424 SgObject SG_RESULT = (SgObject)NULL;
9425 
9426 #line 1715 "./lib_core.stub"
9427 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[400],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
9428 
9429 #line 1716 "./lib_core.stub"
9430 SG_RESULT=(Sg_MakeIntegerFromS64(Sg_PortPosition(p)));
9431 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9432 }
9433   }
9434 }
9435 static SG_DEFINE_SUBR(core_port_position__STUB, 1, 0,core_port_position, SG_FALSE, NULL);
9436 
core_set_port_positionX(SgObject * SG_FP,int SG_ARGC,void * data_)9437 static SgObject core_set_port_positionX(SgObject *SG_FP, int SG_ARGC, void *data_)
9438 {
9439   SgObject p_scm;
9440   SgPort* p;
9441   SgObject off_scm;
9442   SgObject off;
9443   SgObject whence_scm;
9444   SgSymbol* whence;
9445   SG_ENTER_SUBR("set-port-position!");
9446   if ((SG_ARGC > 3 &&
9447       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9448       SG_ARGC < 2)
9449     Sg_WrongNumberOfArgumentsBetweenViolation(
9450      SG_INTERN("set-port-position!"), 2, 3, SG_ARGC, SG_NIL);
9451   p_scm = SG_ARGREF(0);
9452   if (!SG_PORTP(p_scm))
9453     Sg_WrongTypeOfArgumentViolation(
9454        sg__rc_cgen9166.d9486[401], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9455   p = SG_PORT(p_scm);
9456   off_scm = SG_ARGREF(1);
9457   if (!SG_NUMBERP(off_scm))
9458     Sg_WrongTypeOfArgumentViolation(
9459        sg__rc_cgen9166.d9486[401], SG_MAKE_STRING("number"), off_scm, SG_NIL);
9460   off = (off_scm);
9461   if (SG_ARGC > 2+1) {
9462     whence_scm = SG_ARGREF(2);
9463   } else {
9464     whence_scm = sg__rc_cgen9166.d9486[407];
9465   }
9466   if (!SG_SYMBOLP(whence_scm))
9467     Sg_WrongTypeOfArgumentViolation(
9468        sg__rc_cgen9166.d9486[401], SG_MAKE_STRING("symbol"), whence_scm, SG_NIL);
9469   whence = SG_SYMBOL(whence_scm);
9470   {
9471 
9472 #line 1721 "./lib_core.stub"
9473 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[402],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
9474 
9475 #line 1722 "./lib_core.stub"
9476 {SgWhence w=SG_BEGIN;
9477 if (SG_EQ(whence,sg__rc_cgen9166.d9486[407])){
9478 if (Sg_NegativeP(off)){{
9479 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[402],SG_MAKE_STRING("non negative number"),off,
9480 #line 1728 "./lib_core.stub"
9481 SG_LIST3(p,off,whence));}}}
9482 w=(SG_BEGIN);}else if(
9483 SG_EQ(whence,sg__rc_cgen9166.d9486[405])){w=(SG_CURRENT);}else if(
9484 SG_EQ(whence,sg__rc_cgen9166.d9486[403])){w=(SG_END);} else {
9485 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[402],SG_MAKE_STRING("unknown whence"),whence);}}
9486 #line 1734 "./lib_core.stub"
9487 Sg_SetPortPosition(p,Sg_GetIntegerS64Clamp(off,SG_CLAMP_NONE,NULL),w);}
9488 SG_RETURN(SG_UNDEF);
9489   }
9490 }
9491 static SG_DEFINE_SUBR(core_set_port_positionX__STUB, 2, 2,core_set_port_positionX, SG_FALSE, NULL);
9492 
core_close_port(SgObject * SG_FP,int SG_ARGC,void * data_)9493 static SgObject core_close_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9494 {
9495   SgObject p_scm;
9496   SgPort* p;
9497   SG_ENTER_SUBR("close-port");
9498   if (SG_ARGC != 1)
9499     Sg_WrongNumberOfArgumentsViolation(
9500      SG_INTERN("close-port"), 1, SG_ARGC, SG_NIL);
9501   p_scm = SG_ARGREF(0);
9502   if (!SG_PORTP(p_scm))
9503     Sg_WrongTypeOfArgumentViolation(
9504        sg__rc_cgen9166.d9486[409], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9505   p = SG_PORT(p_scm);
9506   {
9507 
9508 #line 1737 "./lib_core.stub"
9509 Sg_ClosePort(p);
9510 SG_RETURN(SG_UNDEF);
9511   }
9512 }
9513 static SG_DEFINE_SUBR(core_close_port__STUB, 1, 0,core_close_port, SG_FALSE, NULL);
9514 
core_input_portP(SgObject * SG_FP,int SG_ARGC,void * data_)9515 static SgObject core_input_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
9516 {
9517   SgObject obj_scm;
9518   SgObject obj;
9519   SG_ENTER_SUBR("input-port?");
9520   if (SG_ARGC != 1)
9521     Sg_WrongNumberOfArgumentsViolation(
9522      SG_INTERN("input-port?"), 1, SG_ARGC, SG_NIL);
9523   obj_scm = SG_ARGREF(0);
9524   obj = (obj_scm);
9525   {
9526 {
9527 int SG_RESULT = (int)FALSE;
9528 SG_RESULT=(SG_INPUT_PORTP(obj));
9529 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9530 }
9531   }
9532 }
9533 static SG_DEFINE_SUBR(core_input_portP__STUB, 1, 0,core_input_portP, SG_FALSE, NULL);
9534 
core_port_eofP(SgObject * SG_FP,int SG_ARGC,void * data_)9535 static SgObject core_port_eofP(SgObject *SG_FP, int SG_ARGC, void *data_)
9536 {
9537   SgObject p_scm;
9538   SgPort* p;
9539   SG_ENTER_SUBR("port-eof?");
9540   if (SG_ARGC != 1)
9541     Sg_WrongNumberOfArgumentsViolation(
9542      SG_INTERN("port-eof?"), 1, SG_ARGC, SG_NIL);
9543   p_scm = SG_ARGREF(0);
9544   if (!SG_PORTP(p_scm))
9545     Sg_WrongTypeOfArgumentViolation(
9546        sg__rc_cgen9166.d9486[411], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9547   p = SG_PORT(p_scm);
9548   {
9549 {
9550 int SG_RESULT = (int)FALSE;
9551 
9552 #line 1748 "./lib_core.stub"
9553 if (SG_BINARY_PORTP(p)){
9554 {int ch=Sg_Peekb(p);
9555 SG_RESULT=((ch)==(EOF));}} else {
9556 {SgChar ch=Sg_Peekc(p);
9557 SG_RESULT=((ch)==(EOF));}}
9558 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
9559 }
9560   }
9561 }
9562 static SG_DEFINE_SUBR(core_port_eofP__STUB, 1, 0,core_port_eofP, SG_FALSE, NULL);
9563 
core_open_file_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9564 static SgObject core_open_file_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9565 {
9566   SgObject file_scm;
9567   SgString* file;
9568   SgObject option_scm;
9569   SgObject option;
9570   SgObject mode_scm;
9571   SgSymbol* mode;
9572   SgObject transcoder_scm;
9573   SgTranscoder* transcoder;
9574   SG_ENTER_SUBR("open-file-input-port");
9575   if ((SG_ARGC > 4 &&
9576       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9577       SG_ARGC < 1)
9578     Sg_WrongNumberOfArgumentsBetweenViolation(
9579      SG_INTERN("open-file-input-port"), 1, 4, SG_ARGC, SG_NIL);
9580   file_scm = SG_ARGREF(0);
9581   if (!SG_STRINGP(file_scm))
9582     Sg_WrongTypeOfArgumentViolation(
9583        sg__rc_cgen9166.d9486[412], SG_MAKE_STRING("string"), file_scm, SG_NIL);
9584   file = SG_STRING(file_scm);
9585   if (SG_ARGC > 1+1) {
9586     option_scm = SG_ARGREF(1);
9587   } else {
9588     option_scm = SG_FALSE;
9589   }
9590   option = (option_scm);
9591   if (SG_ARGC > 2+1) {
9592     mode_scm = SG_ARGREF(2);
9593   } else {
9594     mode_scm = SG_UNBOUND;
9595   }
9596   if (!SG_UNBOUNDP(mode_scm) && !SG_SYMBOLP(mode_scm))
9597     Sg_WrongTypeOfArgumentViolation(
9598        sg__rc_cgen9166.d9486[412], SG_MAKE_STRING("symbol"), mode_scm, SG_NIL);
9599   mode = SG_SYMBOL(mode_scm);
9600   if (SG_ARGC > 3+1) {
9601     transcoder_scm = SG_ARGREF(3);
9602   } else {
9603     transcoder_scm = SG_FALSE;
9604   }
9605   if (!SG_FALSEP(transcoder_scm) && !SG_TRANSCODERP(transcoder_scm))
9606     Sg_WrongTypeOfArgumentViolation(
9607        sg__rc_cgen9166.d9486[412], SG_MAKE_STRING("transcoder"), transcoder_scm, SG_NIL);
9608   transcoder = SG_TRANSCODER(transcoder_scm);
9609   {
9610 {
9611 SgObject SG_RESULT = (SgObject)NULL;
9612 
9613 #line 1759 "./lib_core.stub"
9614 if (SG_UNBOUNDP(mode)){{
9615 mode=(sg__rc_cgen9166.d9486[354]);}}
9616 
9617 #line 1761 "./lib_core.stub"
9618 {SgObject fo=Sg_OpenFile(file,SG_READ);int bufferMode=SG_BUFFER_MODE_BLOCK;
9619 #line 1763 "./lib_core.stub"
9620 if ((!(SG_FILEP(fo)))){{
9621 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[413],fo,file,SG_UNDEF);}}
9622 #line 1767 "./lib_core.stub"
9623 if (SG_EQ(mode,sg__rc_cgen9166.d9486[350])){
9624 bufferMode=(SG_BUFFER_MODE_NONE);}
9625 if (SG_FALSEP(transcoder)){
9626 SG_RESULT=(Sg_MakeFileBinaryInputPort(fo,bufferMode));} else {
9627 {SgObject in=Sg_MakeFileBinaryInputPort(fo,bufferMode);
9628 SG_RESULT=(Sg_MakeTranscodedPort(in,transcoder));}}}
9629 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9630 }
9631   }
9632 }
9633 static SG_DEFINE_SUBR(core_open_file_input_port__STUB, 1, 4,core_open_file_input_port, SG_FALSE, NULL);
9634 
core_open_bytevector_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9635 static SgObject core_open_bytevector_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9636 {
9637   SgObject bv_scm;
9638   SgByteVector* bv;
9639   SgObject t_scm;
9640   SgTranscoder* t;
9641   SgObject start_scm;
9642   long start;
9643   SgObject end_scm;
9644   long end;
9645   SG_ENTER_SUBR("open-bytevector-input-port");
9646   if ((SG_ARGC > 4 &&
9647       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9648       SG_ARGC < 1)
9649     Sg_WrongNumberOfArgumentsBetweenViolation(
9650      SG_INTERN("open-bytevector-input-port"), 1, 4, SG_ARGC, SG_NIL);
9651   bv_scm = SG_ARGREF(0);
9652   if (!SG_BVECTORP(bv_scm))
9653     Sg_WrongTypeOfArgumentViolation(
9654        sg__rc_cgen9166.d9486[414], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
9655   bv = SG_BVECTOR(bv_scm);
9656   if (SG_ARGC > 1+1) {
9657     t_scm = SG_ARGREF(1);
9658   } else {
9659     t_scm = SG_FALSE;
9660   }
9661   if (!SG_FALSEP(t_scm) && !SG_TRANSCODERP(t_scm))
9662     Sg_WrongTypeOfArgumentViolation(
9663        sg__rc_cgen9166.d9486[414], SG_MAKE_STRING("transcoder"), t_scm, SG_NIL);
9664   t = SG_TRANSCODER(t_scm);
9665   if (SG_ARGC > 2+1) {
9666     start_scm = SG_ARGREF(2);
9667   } else {
9668     start_scm = SG_MAKE_INT(0);
9669   }
9670   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
9671     Sg_WrongTypeOfArgumentViolation(
9672        sg__rc_cgen9166.d9486[414], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
9673   start = SG_INT_VALUE(start_scm);
9674   if (SG_ARGC > 3+1) {
9675     end_scm = SG_ARGREF(3);
9676   } else {
9677     end_scm = SG_MAKE_INT(-1);
9678   }
9679   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
9680     Sg_WrongTypeOfArgumentViolation(
9681        sg__rc_cgen9166.d9486[414], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
9682   end = SG_INT_VALUE(end_scm);
9683   {
9684 {
9685 SgObject SG_RESULT = (SgObject)NULL;
9686 
9687 #line 1777 "./lib_core.stub"
9688 {SgObject bp=Sg_MakeByteVectorInputPort(bv,start,end);
9689 if (SG_FALSEP(t)){
9690 SG_RESULT=(bp);} else {
9691 SG_RESULT=(Sg_MakeTranscodedPort(bp,t));}}
9692 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9693 }
9694   }
9695 }
9696 static SG_DEFINE_SUBR(core_open_bytevector_input_port__STUB, 1, 4,core_open_bytevector_input_port, SG_FALSE, NULL);
9697 
core_open_string_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9698 static SgObject core_open_string_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9699 {
9700   SgObject s_scm;
9701   SgString* s;
9702   SgObject start_scm;
9703   long start;
9704   SgObject end_scm;
9705   long end;
9706   SG_ENTER_SUBR("open-string-input-port");
9707   if ((SG_ARGC > 3 &&
9708       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9709       SG_ARGC < 1)
9710     Sg_WrongNumberOfArgumentsBetweenViolation(
9711      SG_INTERN("open-string-input-port"), 1, 3, SG_ARGC, SG_NIL);
9712   s_scm = SG_ARGREF(0);
9713   if (!SG_STRINGP(s_scm))
9714     Sg_WrongTypeOfArgumentViolation(
9715        sg__rc_cgen9166.d9486[415], SG_MAKE_STRING("string"), s_scm, SG_NIL);
9716   s = SG_STRING(s_scm);
9717   if (SG_ARGC > 1+1) {
9718     start_scm = SG_ARGREF(1);
9719   } else {
9720     start_scm = SG_MAKE_INT(0);
9721   }
9722   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
9723     Sg_WrongTypeOfArgumentViolation(
9724        sg__rc_cgen9166.d9486[415], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
9725   start = SG_INT_VALUE(start_scm);
9726   if (SG_ARGC > 2+1) {
9727     end_scm = SG_ARGREF(2);
9728   } else {
9729     end_scm = SG_MAKE_INT(-1);
9730   }
9731   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
9732     Sg_WrongTypeOfArgumentViolation(
9733        sg__rc_cgen9166.d9486[415], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
9734   end = SG_INT_VALUE(end_scm);
9735   {
9736 {
9737 SgObject SG_RESULT = (SgObject)NULL;
9738 
9739 #line 1784 "./lib_core.stub"
9740 SG_RESULT=(Sg_MakeStringInputPort(s,start,end));
9741 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9742 }
9743   }
9744 }
9745 static SG_DEFINE_SUBR(core_open_string_input_port__STUB, 1, 3,core_open_string_input_port, SG_FALSE, NULL);
9746 
core_standard_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9747 static SgObject core_standard_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9748 {
9749   SG_ENTER_SUBR("standard-input-port");
9750   if (SG_ARGC != 0)
9751     Sg_WrongNumberOfArgumentsViolation(
9752      SG_INTERN("standard-input-port"), 0, SG_ARGC, SG_NIL);
9753   {
9754 {
9755 SgObject SG_RESULT = (SgObject)NULL;
9756 SG_RESULT=(Sg_StandardInputPort());
9757 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9758 }
9759   }
9760 }
9761 static SG_DEFINE_SUBR(core_standard_input_port__STUB, 0, 0,core_standard_input_port, SG_FALSE, NULL);
9762 
core_current_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9763 static SgObject core_current_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9764 {
9765   SgObject p_scm;
9766   SgPort* p;
9767   SG_ENTER_SUBR("current-input-port");
9768   if ((SG_ARGC > 1 &&
9769       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9770       SG_ARGC < 0)
9771     Sg_WrongNumberOfArgumentsBetweenViolation(
9772      SG_INTERN("current-input-port"), 0, 1, SG_ARGC, SG_NIL);
9773   if (SG_ARGC > 0+1) {
9774     p_scm = SG_ARGREF(0);
9775   } else {
9776     p_scm = SG_UNBOUND;
9777   }
9778   if (!SG_UNBOUNDP(p_scm) && !SG_PORTP(p_scm))
9779     Sg_WrongTypeOfArgumentViolation(
9780        sg__rc_cgen9166.d9486[417], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9781   p = SG_PORT(p_scm);
9782   {
9783 {
9784 SgObject SG_RESULT = (SgObject)NULL;
9785 
9786 #line 1789 "./lib_core.stub"
9787 {SgVM* vm=Sg_VM();
9788 if (SG_UNBOUNDP(p)){
9789 SG_RESULT=((vm)->currentInputPort);} else {
9790 {
9791 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[418],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
9792 (vm)->currentInputPort=(p);
9793 SG_RESULT=(SG_UNDEF);}}}
9794 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9795 }
9796   }
9797 }
9798 static SG_DEFINE_SUBR(core_current_input_port__STUB, 0, 2,core_current_input_port, SG_FALSE, NULL);
9799 
core_make_custom_binary_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9800 static SgObject core_make_custom_binary_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9801 {
9802   SgObject id_scm;
9803   SgString* id;
9804   SgObject read_scm;
9805   SgProcedure* read;
9806   SgObject getter_scm;
9807   SgObject getter;
9808   SgObject setter_scm;
9809   SgObject setter;
9810   SgObject close_scm;
9811   SgObject close;
9812   SgObject ready_scm;
9813   SgObject ready;
9814   SG_ENTER_SUBR("make-custom-binary-input-port");
9815   if ((SG_ARGC > 6 &&
9816       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9817       SG_ARGC < 5)
9818     Sg_WrongNumberOfArgumentsBetweenViolation(
9819      SG_INTERN("make-custom-binary-input-port"), 5, 6, SG_ARGC, SG_NIL);
9820   id_scm = SG_ARGREF(0);
9821   if (!SG_STRINGP(id_scm))
9822     Sg_WrongTypeOfArgumentViolation(
9823        sg__rc_cgen9166.d9486[419], SG_MAKE_STRING("string"), id_scm, SG_NIL);
9824   id = SG_STRING(id_scm);
9825   read_scm = SG_ARGREF(1);
9826   if (!SG_PROCEDUREP(read_scm))
9827     Sg_WrongTypeOfArgumentViolation(
9828        sg__rc_cgen9166.d9486[419], SG_MAKE_STRING("procedure"), read_scm, SG_NIL);
9829   read = SG_PROCEDURE(read_scm);
9830   getter_scm = SG_ARGREF(2);
9831   getter = (getter_scm);
9832   setter_scm = SG_ARGREF(3);
9833   setter = (setter_scm);
9834   close_scm = SG_ARGREF(4);
9835   close = (close_scm);
9836   if (SG_ARGC > 5+1) {
9837     ready_scm = SG_ARGREF(5);
9838   } else {
9839     ready_scm = SG_FALSE;
9840   }
9841   ready = (ready_scm);
9842   {
9843 {
9844 SgObject SG_RESULT = (SgObject)NULL;
9845 
9846 #line 1808 "./lib_core.stub"
9847 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[420],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
9848 
9849 #line 1809 "./lib_core.stub"
9850 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[420],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
9851 
9852 #line 1810 "./lib_core.stub"
9853 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[420],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
9854 
9855 #line 1811 "./lib_core.stub"
9856 if ((!((SG_FALSEP(ready))||(SG_PROCEDUREP(ready))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[420],SG_MAKE_STRING("procedure or #f"),ready,SG_NIL);}}}
9857 
9858 #line 1812 "./lib_core.stub"
9859 SG_RESULT=(Sg_MakeCustomBinaryPort(id,SG_INPUT_PORT,read,SG_FALSE,getter,setter,close,ready));
9860 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9861 }
9862   }
9863 }
9864 static SG_DEFINE_SUBR(core_make_custom_binary_input_port__STUB, 5, 2,core_make_custom_binary_input_port, SG_FALSE, NULL);
9865 
core_make_custom_textual_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)9866 static SgObject core_make_custom_textual_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
9867 {
9868   SgObject id_scm;
9869   SgString* id;
9870   SgObject read_scm;
9871   SgProcedure* read;
9872   SgObject getter_scm;
9873   SgObject getter;
9874   SgObject setter_scm;
9875   SgObject setter;
9876   SgObject close_scm;
9877   SgObject close;
9878   SgObject ready_scm;
9879   SgObject ready;
9880   SG_ENTER_SUBR("make-custom-textual-input-port");
9881   if ((SG_ARGC > 6 &&
9882       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9883       SG_ARGC < 5)
9884     Sg_WrongNumberOfArgumentsBetweenViolation(
9885      SG_INTERN("make-custom-textual-input-port"), 5, 6, SG_ARGC, SG_NIL);
9886   id_scm = SG_ARGREF(0);
9887   if (!SG_STRINGP(id_scm))
9888     Sg_WrongTypeOfArgumentViolation(
9889        sg__rc_cgen9166.d9486[421], SG_MAKE_STRING("string"), id_scm, SG_NIL);
9890   id = SG_STRING(id_scm);
9891   read_scm = SG_ARGREF(1);
9892   if (!SG_PROCEDUREP(read_scm))
9893     Sg_WrongTypeOfArgumentViolation(
9894        sg__rc_cgen9166.d9486[421], SG_MAKE_STRING("procedure"), read_scm, SG_NIL);
9895   read = SG_PROCEDURE(read_scm);
9896   getter_scm = SG_ARGREF(2);
9897   getter = (getter_scm);
9898   setter_scm = SG_ARGREF(3);
9899   setter = (setter_scm);
9900   close_scm = SG_ARGREF(4);
9901   close = (close_scm);
9902   if (SG_ARGC > 5+1) {
9903     ready_scm = SG_ARGREF(5);
9904   } else {
9905     ready_scm = SG_FALSE;
9906   }
9907   ready = (ready_scm);
9908   {
9909 {
9910 SgObject SG_RESULT = (SgObject)NULL;
9911 
9912 #line 1818 "./lib_core.stub"
9913 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[422],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
9914 
9915 #line 1819 "./lib_core.stub"
9916 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[422],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
9917 
9918 #line 1820 "./lib_core.stub"
9919 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[422],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
9920 
9921 #line 1821 "./lib_core.stub"
9922 if ((!((SG_FALSEP(ready))||(SG_PROCEDUREP(ready))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[422],SG_MAKE_STRING("procedure or #f"),ready,SG_NIL);}}}
9923 
9924 #line 1822 "./lib_core.stub"
9925 SG_RESULT=(Sg_MakeCustomTextualPort(id,SG_INPUT_PORT,read,SG_FALSE,getter,setter,close,ready));
9926 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9927 }
9928   }
9929 }
9930 static SG_DEFINE_SUBR(core_make_custom_textual_input_port__STUB, 5, 2,core_make_custom_textual_input_port, SG_FALSE, NULL);
9931 
core_get_u8(SgObject * SG_FP,int SG_ARGC,void * data_)9932 static SgObject core_get_u8(SgObject *SG_FP, int SG_ARGC, void *data_)
9933 {
9934   SgObject p_scm;
9935   SgPort* p;
9936   SgObject reckless_scm;
9937   SgObject reckless;
9938   SG_ENTER_SUBR("get-u8");
9939   if ((SG_ARGC > 2 &&
9940       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9941       SG_ARGC < 1)
9942     Sg_WrongNumberOfArgumentsBetweenViolation(
9943      SG_INTERN("get-u8"), 1, 2, SG_ARGC, SG_NIL);
9944   p_scm = SG_ARGREF(0);
9945   if (!SG_PORTP(p_scm))
9946     Sg_WrongTypeOfArgumentViolation(
9947        sg__rc_cgen9166.d9486[423], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9948   p = SG_PORT(p_scm);
9949   if (SG_ARGC > 1+1) {
9950     reckless_scm = SG_ARGREF(1);
9951   } else {
9952     reckless_scm = SG_FALSE;
9953   }
9954   reckless = (reckless_scm);
9955   {
9956 {
9957 SgObject SG_RESULT = (SgObject)NULL;
9958 
9959 #line 1848 "./lib_core.stub"
9960 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[424],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
9961 
9962 #line 1849 "./lib_core.stub"
9963 if (SG_FALSEP(reckless)){{if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[424],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
9964 
9965 #line 1850 "./lib_core.stub"
9966 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[424],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
9967 
9968 #line 1851 "./lib_core.stub"
9969 {int b;if (SG_CUSTOM_PORTP(p)){b=(Sg_Getb(p));} else {b=(Sg_GetbUnsafe(p));}if ((EOF)==(b)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_INT(b));}}
9970 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
9971 }
9972   }
9973 }
9974 static SG_DEFINE_SUBR(core_get_u8__STUB, 1, 2,core_get_u8, SG_FALSE, NULL);
9975 
core_lookahead_u8(SgObject * SG_FP,int SG_ARGC,void * data_)9976 static SgObject core_lookahead_u8(SgObject *SG_FP, int SG_ARGC, void *data_)
9977 {
9978   SgObject p_scm;
9979   SgPort* p;
9980   SgObject reckless_scm;
9981   SgObject reckless;
9982   SG_ENTER_SUBR("lookahead-u8");
9983   if ((SG_ARGC > 2 &&
9984       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
9985       SG_ARGC < 1)
9986     Sg_WrongNumberOfArgumentsBetweenViolation(
9987      SG_INTERN("lookahead-u8"), 1, 2, SG_ARGC, SG_NIL);
9988   p_scm = SG_ARGREF(0);
9989   if (!SG_PORTP(p_scm))
9990     Sg_WrongTypeOfArgumentViolation(
9991        sg__rc_cgen9166.d9486[425], SG_MAKE_STRING("port"), p_scm, SG_NIL);
9992   p = SG_PORT(p_scm);
9993   if (SG_ARGC > 1+1) {
9994     reckless_scm = SG_ARGREF(1);
9995   } else {
9996     reckless_scm = SG_FALSE;
9997   }
9998   reckless = (reckless_scm);
9999   {
10000 {
10001 SgObject SG_RESULT = (SgObject)NULL;
10002 
10003 #line 1854 "./lib_core.stub"
10004 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[426],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10005 
10006 #line 1855 "./lib_core.stub"
10007 if (SG_FALSEP(reckless)){{if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[426],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10008 
10009 #line 1856 "./lib_core.stub"
10010 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[426],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10011 
10012 #line 1857 "./lib_core.stub"
10013 {int b;if (SG_CUSTOM_PORTP(p)){b=(Sg_Peekb(p));} else {b=(Sg_PeekbUnsafe(p));}if ((EOF)==(b)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_INT(b));}}
10014 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10015 }
10016   }
10017 }
10018 static SG_DEFINE_SUBR(core_lookahead_u8__STUB, 1, 2,core_lookahead_u8, SG_FALSE, NULL);
10019 
core_get_bytevector_n(SgObject * SG_FP,int SG_ARGC,void * data_)10020 static SgObject core_get_bytevector_n(SgObject *SG_FP, int SG_ARGC, void *data_)
10021 {
10022   SgObject p_scm;
10023   SgPort* p;
10024   SgObject count_scm;
10025   long count;
10026   SgObject reckless_scm;
10027   SgObject reckless;
10028   SG_ENTER_SUBR("get-bytevector-n");
10029   if ((SG_ARGC > 3 &&
10030       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10031       SG_ARGC < 2)
10032     Sg_WrongNumberOfArgumentsBetweenViolation(
10033      SG_INTERN("get-bytevector-n"), 2, 3, SG_ARGC, SG_NIL);
10034   p_scm = SG_ARGREF(0);
10035   if (!SG_PORTP(p_scm))
10036     Sg_WrongTypeOfArgumentViolation(
10037        sg__rc_cgen9166.d9486[427], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10038   p = SG_PORT(p_scm);
10039   count_scm = SG_ARGREF(1);
10040   if (!SG_INTP(count_scm))
10041     Sg_WrongTypeOfArgumentViolation(
10042        sg__rc_cgen9166.d9486[427], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
10043   count = SG_INT_VALUE(count_scm);
10044   if (SG_ARGC > 2+1) {
10045     reckless_scm = SG_ARGREF(2);
10046   } else {
10047     reckless_scm = SG_FALSE;
10048   }
10049   reckless = (reckless_scm);
10050   {
10051 {
10052 SgObject SG_RESULT = (SgObject)NULL;
10053 
10054 #line 1889 "./lib_core.stub"
10055 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10056 
10057 #line 1890 "./lib_core.stub"
10058 if (SG_FALSEP(reckless)){{if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10059 
10060 #line 1891 "./lib_core.stub"
10061 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10062 
10063 #line 1892 "./lib_core.stub"
10064 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
10065 
10066 #line 1893 "./lib_core.stub"
10067 if ((count)==(0)){
10068 SG_RESULT=(Sg_MakeByteVector(0,0));} else {
10069 {SgObject buf=Sg_MakeByteVector(count,0);int64_t res=0;
10070 #line 1898 "./lib_core.stub"
10071 SG_PORT_LOCK_READ(p);
10072 {int64_t G10680=0;int64_t G10681=0;int64_t G10682=count;int G10683=Sg_ReadOncePortP(p);for (;(!((G10682)==(0)));){G10681=(Sg_ReadbUnsafe(p,(SG_BVECTOR_ELEMENTS(buf))+(G10680),G10682));res=((G10681)+(res));if ((G10681)==(0)){{break;}}if (G10683){{break;}}G10682=((G10682)-(G10681));G10680=((G10680)+(G10681));}}
10073 #line 1901 "./lib_core.stub"
10074 SG_PORT_UNLOCK_READ(p);
10075 if ((res)==(0)){SG_RESULT=(SG_EOF);} else {
10076 #line 1904 "./lib_core.stub"
10077 if ((!((count)==(res)))){{
10078 SG_BVECTOR_SIZE(buf)=(res);}}
10079 SG_RESULT=(buf);}}}
10080 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10081 }
10082   }
10083 }
10084 static SG_DEFINE_SUBR(core_get_bytevector_n__STUB, 2, 2,core_get_bytevector_n, SG_FALSE, NULL);
10085 
core_get_bytevector_nX(SgObject * SG_FP,int SG_ARGC,void * data_)10086 static SgObject core_get_bytevector_nX(SgObject *SG_FP, int SG_ARGC, void *data_)
10087 {
10088   SgObject p_scm;
10089   SgPort* p;
10090   SgObject bv_scm;
10091   SgByteVector* bv;
10092   SgObject start_scm;
10093   long start;
10094   SgObject count_scm;
10095   long count;
10096   SgObject reckless_scm;
10097   SgObject reckless;
10098   SG_ENTER_SUBR("get-bytevector-n!");
10099   if ((SG_ARGC > 5 &&
10100       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10101       SG_ARGC < 4)
10102     Sg_WrongNumberOfArgumentsBetweenViolation(
10103      SG_INTERN("get-bytevector-n!"), 4, 5, SG_ARGC, SG_NIL);
10104   p_scm = SG_ARGREF(0);
10105   if (!SG_PORTP(p_scm))
10106     Sg_WrongTypeOfArgumentViolation(
10107        sg__rc_cgen9166.d9486[429], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10108   p = SG_PORT(p_scm);
10109   bv_scm = SG_ARGREF(1);
10110   if (!SG_BVECTORP(bv_scm))
10111     Sg_WrongTypeOfArgumentViolation(
10112        sg__rc_cgen9166.d9486[429], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
10113   bv = SG_BVECTOR(bv_scm);
10114   start_scm = SG_ARGREF(2);
10115   if (!SG_INTP(start_scm))
10116     Sg_WrongTypeOfArgumentViolation(
10117        sg__rc_cgen9166.d9486[429], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
10118   start = SG_INT_VALUE(start_scm);
10119   count_scm = SG_ARGREF(3);
10120   if (!SG_INTP(count_scm))
10121     Sg_WrongTypeOfArgumentViolation(
10122        sg__rc_cgen9166.d9486[429], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
10123   count = SG_INT_VALUE(count_scm);
10124   if (SG_ARGC > 4+1) {
10125     reckless_scm = SG_ARGREF(4);
10126   } else {
10127     reckless_scm = SG_FALSE;
10128   }
10129   reckless = (reckless_scm);
10130   {
10131 {
10132 SgObject SG_RESULT = (SgObject)NULL;
10133 
10134 #line 1911 "./lib_core.stub"
10135 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10136 
10137 #line 1912 "./lib_core.stub"
10138 if (SG_FALSEP(reckless)){{if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10139 
10140 #line 1913 "./lib_core.stub"
10141 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10142 
10143 #line 1914 "./lib_core.stub"
10144 if ((start)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(start),SG_NIL);}}}
10145 
10146 #line 1915 "./lib_core.stub"
10147 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
10148 
10149 #line 1916 "./lib_core.stub"
10150 if ((!((SG_BVECTOR_SIZE(bv))>=((start)+(count))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[430],SG_MAKE_STRING("out of range"),SG_MAKE_INT(SG_BVECTOR_SIZE(bv)));}}}
10151 
10152 #line 1917 "./lib_core.stub"
10153 if ((count)==(0)){
10154 SG_RESULT=(SG_MAKE_INT(0));} else {
10155 {int64_t res=0;
10156 #line 1921 "./lib_core.stub"
10157 SG_PORT_LOCK_READ(p);
10158 {int64_t G10684=start;int64_t G10685=0;int64_t G10686=count;int G10687=Sg_ReadOncePortP(p);for (;(!((G10686)==(0)));){G10685=(Sg_ReadbUnsafe(p,(SG_BVECTOR_ELEMENTS(bv))+(G10684),G10686));res=((G10685)+(res));if ((G10685)==(0)){{break;}}if (G10687){{break;}}G10686=((G10686)-(G10685));G10684=((G10684)+(G10685));}}
10159 #line 1924 "./lib_core.stub"
10160 SG_PORT_UNLOCK_READ(p);
10161 if ((res)==(0)){
10162 SG_RESULT=(SG_EOF);} else {
10163 SG_RESULT=(SG_MAKE_INT(res));}}}
10164 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10165 }
10166   }
10167 }
10168 static SG_DEFINE_SUBR(core_get_bytevector_nX__STUB, 4, 2,core_get_bytevector_nX, SG_FALSE, NULL);
10169 
core_get_bytevector_some(SgObject * SG_FP,int SG_ARGC,void * data_)10170 static SgObject core_get_bytevector_some(SgObject *SG_FP, int SG_ARGC, void *data_)
10171 {
10172   SgObject p_scm;
10173   SgPort* p;
10174   SgObject reckless_scm;
10175   SgObject reckless;
10176   SG_ENTER_SUBR("get-bytevector-some");
10177   if ((SG_ARGC > 2 &&
10178       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10179       SG_ARGC < 1)
10180     Sg_WrongNumberOfArgumentsBetweenViolation(
10181      SG_INTERN("get-bytevector-some"), 1, 2, SG_ARGC, SG_NIL);
10182   p_scm = SG_ARGREF(0);
10183   if (!SG_PORTP(p_scm))
10184     Sg_WrongTypeOfArgumentViolation(
10185        sg__rc_cgen9166.d9486[431], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10186   p = SG_PORT(p_scm);
10187   if (SG_ARGC > 1+1) {
10188     reckless_scm = SG_ARGREF(1);
10189   } else {
10190     reckless_scm = SG_FALSE;
10191   }
10192   reckless = (reckless_scm);
10193   {
10194 {
10195 SgObject SG_RESULT = (SgObject)NULL;
10196 
10197 #line 1931 "./lib_core.stub"
10198 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[432],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10199 
10200 #line 1932 "./lib_core.stub"
10201 if (SG_FALSEP(reckless)){{
10202 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10203 
10204 #line 1934 "./lib_core.stub"
10205 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[432],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10206 
10207 #line 1935 "./lib_core.stub"
10208 {SgObject buf=Sg_MakeByteVector(512,0);int64_t res=0;
10209 #line 1938 "./lib_core.stub"
10210 SG_PORT_LOCK_READ(p);
10211 {int64_t G10688=0;int64_t G10689=0;int64_t G10690=512;int G10691=Sg_ReadOncePortP(p);for (;(!((G10690)==(0)));){G10689=(Sg_ReadbUnsafe(p,(SG_BVECTOR_ELEMENTS(buf))+(G10688),G10690));res=((G10689)+(res));if ((G10689)==(0)){{break;}}if (G10691){{break;}}G10690=((G10690)-(G10689));G10688=((G10688)+(G10689));}}
10212 SG_PORT_UNLOCK_READ(p);
10213 if ((res)==(0)){
10214 SG_RESULT=(SG_EOF);} else {
10215 #line 1944 "./lib_core.stub"
10216 if ((!((res)==(512)))){{
10217 SG_BVECTOR_SIZE(buf)=(res);}}
10218 SG_RESULT=(buf);}}
10219 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10220 }
10221   }
10222 }
10223 static SG_DEFINE_SUBR(core_get_bytevector_some__STUB, 1, 2,core_get_bytevector_some, SG_FALSE, NULL);
10224 
core_get_bytevector_all(SgObject * SG_FP,int SG_ARGC,void * data_)10225 static SgObject core_get_bytevector_all(SgObject *SG_FP, int SG_ARGC, void *data_)
10226 {
10227   SgObject p_scm;
10228   SgPort* p;
10229   SgObject reckless_scm;
10230   SgObject reckless;
10231   SG_ENTER_SUBR("get-bytevector-all");
10232   if ((SG_ARGC > 2 &&
10233       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10234       SG_ARGC < 1)
10235     Sg_WrongNumberOfArgumentsBetweenViolation(
10236      SG_INTERN("get-bytevector-all"), 1, 2, SG_ARGC, SG_NIL);
10237   p_scm = SG_ARGREF(0);
10238   if (!SG_PORTP(p_scm))
10239     Sg_WrongTypeOfArgumentViolation(
10240        sg__rc_cgen9166.d9486[433], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10241   p = SG_PORT(p_scm);
10242   if (SG_ARGC > 1+1) {
10243     reckless_scm = SG_ARGREF(1);
10244   } else {
10245     reckless_scm = SG_FALSE;
10246   }
10247   reckless = (reckless_scm);
10248   {
10249 {
10250 SgObject SG_RESULT = (SgObject)NULL;
10251 
10252 #line 1949 "./lib_core.stub"
10253 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[434],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10254 
10255 #line 1950 "./lib_core.stub"
10256 if (SG_FALSEP(reckless)){{
10257 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[428],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
10258 
10259 #line 1952 "./lib_core.stub"
10260 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[434],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10261 
10262 #line 1955 "./lib_core.stub"
10263 {uint8_t* buf=NULL;int64_t res=
10264 Sg_ReadbAll(p,(&(buf)));
10265 if ((res)==(0)){
10266 SG_RESULT=(SG_EOF);} else {
10267 {SgObject r=Sg_MakeByteVectorFromU8Array(buf,res);
10268 buf=(NULL);
10269 SG_RESULT=(r);}}}
10270 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10271 }
10272   }
10273 }
10274 static SG_DEFINE_SUBR(core_get_bytevector_all__STUB, 1, 2,core_get_bytevector_all, SG_FALSE, NULL);
10275 
core_get_char(SgObject * SG_FP,int SG_ARGC,void * data_)10276 static SgObject core_get_char(SgObject *SG_FP, int SG_ARGC, void *data_)
10277 {
10278   SgObject p_scm;
10279   SgPort* p;
10280   SG_ENTER_SUBR("get-char");
10281   if (SG_ARGC != 1)
10282     Sg_WrongNumberOfArgumentsViolation(
10283      SG_INTERN("get-char"), 1, SG_ARGC, SG_NIL);
10284   p_scm = SG_ARGREF(0);
10285   if (!SG_PORTP(p_scm))
10286     Sg_WrongTypeOfArgumentViolation(
10287        sg__rc_cgen9166.d9486[435], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10288   p = SG_PORT(p_scm);
10289   {
10290 {
10291 SgObject SG_RESULT = (SgObject)NULL;
10292 
10293 #line 1998 "./lib_core.stub"
10294 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[436],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10295 
10296 #line 1999 "./lib_core.stub"
10297 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[436],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10298 
10299 #line 2000 "./lib_core.stub"
10300 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[436],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10301 
10302 #line 2001 "./lib_core.stub"
10303 {SgChar c;if (SG_STRING_PORTP(p)){c=(Sg_GetcUnsafe(p));} else {c=(Sg_Getc(p));}if ((c)==(EOF)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_CHAR(c));}}
10304 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10305 }
10306   }
10307 }
10308 static SG_DEFINE_SUBR(core_get_char__STUB, 1, 0,core_get_char, SG_FALSE, NULL);
10309 
core_lookahead_char(SgObject * SG_FP,int SG_ARGC,void * data_)10310 static SgObject core_lookahead_char(SgObject *SG_FP, int SG_ARGC, void *data_)
10311 {
10312   SgObject p_scm;
10313   SgPort* p;
10314   SG_ENTER_SUBR("lookahead-char");
10315   if (SG_ARGC != 1)
10316     Sg_WrongNumberOfArgumentsViolation(
10317      SG_INTERN("lookahead-char"), 1, SG_ARGC, SG_NIL);
10318   p_scm = SG_ARGREF(0);
10319   if (!SG_PORTP(p_scm))
10320     Sg_WrongTypeOfArgumentViolation(
10321        sg__rc_cgen9166.d9486[437], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10322   p = SG_PORT(p_scm);
10323   {
10324 {
10325 SgObject SG_RESULT = (SgObject)NULL;
10326 
10327 #line 2004 "./lib_core.stub"
10328 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[438],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10329 
10330 #line 2005 "./lib_core.stub"
10331 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[438],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10332 
10333 #line 2006 "./lib_core.stub"
10334 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[438],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10335 
10336 #line 2007 "./lib_core.stub"
10337 {SgChar c;if (SG_STRING_PORTP(p)){c=(Sg_PeekcUnsafe(p));} else {c=(Sg_Peekc(p));}if ((c)==(EOF)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_CHAR(c));}}
10338 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10339 }
10340   }
10341 }
10342 static SG_DEFINE_SUBR(core_lookahead_char__STUB, 1, 0,core_lookahead_char, SG_FALSE, NULL);
10343 
core_get_string_n(SgObject * SG_FP,int SG_ARGC,void * data_)10344 static SgObject core_get_string_n(SgObject *SG_FP, int SG_ARGC, void *data_)
10345 {
10346   SgObject p_scm;
10347   SgPort* p;
10348   SgObject count_scm;
10349   long count;
10350   SG_ENTER_SUBR("get-string-n");
10351   if (SG_ARGC != 2)
10352     Sg_WrongNumberOfArgumentsViolation(
10353      SG_INTERN("get-string-n"), 2, SG_ARGC, SG_NIL);
10354   p_scm = SG_ARGREF(0);
10355   if (!SG_PORTP(p_scm))
10356     Sg_WrongTypeOfArgumentViolation(
10357        sg__rc_cgen9166.d9486[439], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10358   p = SG_PORT(p_scm);
10359   count_scm = SG_ARGREF(1);
10360   if (!SG_INTP(count_scm))
10361     Sg_WrongTypeOfArgumentViolation(
10362        sg__rc_cgen9166.d9486[439], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
10363   count = SG_INT_VALUE(count_scm);
10364   {
10365 {
10366 SgObject SG_RESULT = (SgObject)NULL;
10367 
10368 #line 2010 "./lib_core.stub"
10369 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[440],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10370 
10371 #line 2011 "./lib_core.stub"
10372 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[440],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10373 
10374 #line 2012 "./lib_core.stub"
10375 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[440],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10376 
10377 #line 2013 "./lib_core.stub"
10378 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[440],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
10379 
10380 #line 2014 "./lib_core.stub"
10381 if ((count)==(0)){
10382 SG_RESULT=(Sg_MakeEmptyString());} else {
10383 {SgChar ch=Sg_Peekc(p);
10384 if ((ch)==(EOF)){
10385 SG_RESULT=(SG_EOF);} else {
10386 {SgString* buf=Sg_ReserveString(count,0);int64_t len=0;
10387 #line 2022 "./lib_core.stub"
10388 SG_PORT_LOCK_READ(p);
10389 {int64_t G10816=0;int64_t G10817=0;int64_t G10818=count;int G10819=Sg_ReadOncePortP(p);for (;(!((G10818)==(0)));){G10817=(Sg_ReadsUnsafe(p,(SG_STRING_VALUE(buf))+(G10816),G10818));len=((G10817)+(len));if ((G10817)==(0)){{break;}}if (G10819){{break;}}G10818=((G10818)-(G10817));G10816=((G10816)+(G10817));}}
10390 #line 2025 "./lib_core.stub"
10391 SG_PORT_UNLOCK_READ(p);
10392 if ((len)==(count)){
10393 SG_RESULT=(buf);} else {
10394 SG_RESULT=(Sg_Substring(buf,0,len));}}}}}
10395 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10396 }
10397   }
10398 }
10399 static SG_DEFINE_SUBR(core_get_string_n__STUB, 2, 0,core_get_string_n, SG_FALSE, NULL);
10400 
core_get_string_nX(SgObject * SG_FP,int SG_ARGC,void * data_)10401 static SgObject core_get_string_nX(SgObject *SG_FP, int SG_ARGC, void *data_)
10402 {
10403   SgObject p_scm;
10404   SgPort* p;
10405   SgObject s_scm;
10406   SgString* s;
10407   SgObject start_scm;
10408   long start;
10409   SgObject count_scm;
10410   long count;
10411   SG_ENTER_SUBR("get-string-n!");
10412   if (SG_ARGC != 4)
10413     Sg_WrongNumberOfArgumentsViolation(
10414      SG_INTERN("get-string-n!"), 4, SG_ARGC, SG_NIL);
10415   p_scm = SG_ARGREF(0);
10416   if (!SG_PORTP(p_scm))
10417     Sg_WrongTypeOfArgumentViolation(
10418        sg__rc_cgen9166.d9486[441], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10419   p = SG_PORT(p_scm);
10420   s_scm = SG_ARGREF(1);
10421   if (!SG_STRINGP(s_scm))
10422     Sg_WrongTypeOfArgumentViolation(
10423        sg__rc_cgen9166.d9486[441], SG_MAKE_STRING("string"), s_scm, SG_NIL);
10424   s = SG_STRING(s_scm);
10425   start_scm = SG_ARGREF(2);
10426   if (!SG_INTP(start_scm))
10427     Sg_WrongTypeOfArgumentViolation(
10428        sg__rc_cgen9166.d9486[441], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
10429   start = SG_INT_VALUE(start_scm);
10430   count_scm = SG_ARGREF(3);
10431   if (!SG_INTP(count_scm))
10432     Sg_WrongTypeOfArgumentViolation(
10433        sg__rc_cgen9166.d9486[441], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
10434   count = SG_INT_VALUE(count_scm);
10435   {
10436 {
10437 SgObject SG_RESULT = (SgObject)NULL;
10438 
10439 #line 2033 "./lib_core.stub"
10440 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10441 
10442 #line 2034 "./lib_core.stub"
10443 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10444 
10445 #line 2035 "./lib_core.stub"
10446 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10447 
10448 #line 2036 "./lib_core.stub"
10449 if ((start)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(start),SG_NIL);}}}
10450 
10451 #line 2037 "./lib_core.stub"
10452 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
10453 
10454 #line 2038 "./lib_core.stub"
10455 if ((!((SG_STRING_SIZE(s))>=((start)+(count))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("out of range"),SG_MAKE_INT(SG_STRING_SIZE(s)));}}}
10456 
10457 #line 2040 "./lib_core.stub"
10458 if (SG_IMMUTABLE_STRINGP(s)){{
10459 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[442],SG_MAKE_STRING("attempt to modify an immutable string"),s);}}}
10460 
10461 #line 2043 "./lib_core.stub"
10462 if ((count)==(0)){
10463 SG_RESULT=(SG_MAKE_INT(0));} else {
10464 {SgChar ch=Sg_Peekc(p);
10465 if ((ch)==(EOF)){
10466 SG_RESULT=(SG_EOF);} else {
10467 {int64_t len=0;
10468 #line 2050 "./lib_core.stub"
10469 SG_PORT_LOCK_READ(p);
10470 {int64_t G10820=start;int64_t G10821=0;int64_t G10822=count;int G10823=Sg_ReadOncePortP(p);for (;(!((G10822)==(0)));){G10821=(Sg_ReadsUnsafe(p,(SG_STRING_VALUE(s))+(G10820),G10822));len=((G10821)+(len));if ((G10821)==(0)){{break;}}if (G10823){{break;}}G10822=((G10822)-(G10821));G10820=((G10820)+(G10821));}}
10471 #line 2053 "./lib_core.stub"
10472 SG_PORT_UNLOCK_READ(p);
10473 SG_RESULT=(SG_MAKE_INT(len));}}}}
10474 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10475 }
10476   }
10477 }
10478 static SG_DEFINE_SUBR(core_get_string_nX__STUB, 4, 0,core_get_string_nX, SG_FALSE, NULL);
10479 
core_get_string_all(SgObject * SG_FP,int SG_ARGC,void * data_)10480 static SgObject core_get_string_all(SgObject *SG_FP, int SG_ARGC, void *data_)
10481 {
10482   SgObject p_scm;
10483   SgPort* p;
10484   SG_ENTER_SUBR("get-string-all");
10485   if (SG_ARGC != 1)
10486     Sg_WrongNumberOfArgumentsViolation(
10487      SG_INTERN("get-string-all"), 1, SG_ARGC, SG_NIL);
10488   p_scm = SG_ARGREF(0);
10489   if (!SG_PORTP(p_scm))
10490     Sg_WrongTypeOfArgumentViolation(
10491        sg__rc_cgen9166.d9486[443], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10492   p = SG_PORT(p_scm);
10493   {
10494 {
10495 SgObject SG_RESULT = (SgObject)NULL;
10496 
10497 #line 2057 "./lib_core.stub"
10498 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[444],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10499 
10500 #line 2058 "./lib_core.stub"
10501 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[444],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10502 
10503 #line 2059 "./lib_core.stub"
10504 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[444],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10505 
10506 #line 2060 "./lib_core.stub"
10507 {SgChar ch=Sg_Peekc(p);
10508 if ((ch)==(EOF)){
10509 SG_RESULT=(SG_EOF);} else {
10510 #line 2064 "./lib_core.stub"
10511 SG_PORT_LOCK_READ(p);
10512 #line 2066 "./lib_core.stub"
10513 {SgObject buf=Sg_ReserveString(1024,0);SgObject out=SG_FALSE;int firstP=TRUE;
10514 #line 2069 "./lib_core.stub"
10515 for (;;) {
10516 {int64_t len=
10517 Sg_ReadsUnsafe(p,SG_STRING_VALUE(buf),1024);
10518 #line 2073 "./lib_core.stub"
10519 if ((len)==(0)){
10520 if (firstP){{
10521 SG_PORT_UNLOCK_READ(p);
10522 return (SG_EOF);}}
10523 break;}else if(
10524 (len)<(1024)){
10525 if (firstP){{
10526 SG_PORT_UNLOCK_READ(p);
10527 return (Sg_Substring(buf,0,len));}}
10528 Sg_Writes(out,SG_STRING_VALUE(buf),len);
10529 break;} else {
10530 #line 2085 "./lib_core.stub"
10531 if (firstP){out=(Sg_MakeStringOutputPort(-1));}
10532 Sg_PutsUnsafe(out,buf);}
10533 firstP=(FALSE);}}
10534 SG_PORT_UNLOCK_READ(p);
10535 SG_RESULT=(Sg_GetStringFromStringPort(out));}}}
10536 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10537 }
10538   }
10539 }
10540 static SG_DEFINE_SUBR(core_get_string_all__STUB, 1, 0,core_get_string_all, SG_FALSE, NULL);
10541 
core_get_line(SgObject * SG_FP,int SG_ARGC,void * data_)10542 static SgObject core_get_line(SgObject *SG_FP, int SG_ARGC, void *data_)
10543 {
10544   SgObject p_scm;
10545   SgPort* p;
10546   SG_ENTER_SUBR("get-line");
10547   if (SG_ARGC != 1)
10548     Sg_WrongNumberOfArgumentsViolation(
10549      SG_INTERN("get-line"), 1, SG_ARGC, SG_NIL);
10550   p_scm = SG_ARGREF(0);
10551   if (!SG_PORTP(p_scm))
10552     Sg_WrongTypeOfArgumentViolation(
10553        sg__rc_cgen9166.d9486[445], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10554   p = SG_PORT(p_scm);
10555   {
10556 {
10557 SgObject SG_RESULT = (SgObject)NULL;
10558 
10559 #line 2092 "./lib_core.stub"
10560 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[446],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10561 
10562 #line 2093 "./lib_core.stub"
10563 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[446],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10564 
10565 #line 2094 "./lib_core.stub"
10566 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[446],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10567 
10568 #line 2095 "./lib_core.stub"
10569 SG_RESULT=(Sg_ReadLine(p,LF));
10570 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10571 }
10572   }
10573 }
10574 static SG_DEFINE_SUBR(core_get_line__STUB, 1, 0,core_get_line, SG_FALSE, NULL);
10575 
core_get_datum(SgObject * SG_FP,int SG_ARGC,void * data_)10576 static SgObject core_get_datum(SgObject *SG_FP, int SG_ARGC, void *data_)
10577 {
10578   SgObject p_scm;
10579   SgPort* p;
10580   SG_ENTER_SUBR("get-datum");
10581   if (SG_ARGC != 1)
10582     Sg_WrongNumberOfArgumentsViolation(
10583      SG_INTERN("get-datum"), 1, SG_ARGC, SG_NIL);
10584   p_scm = SG_ARGREF(0);
10585   if (!SG_PORTP(p_scm))
10586     Sg_WrongTypeOfArgumentViolation(
10587        sg__rc_cgen9166.d9486[447], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10588   p = SG_PORT(p_scm);
10589   {
10590 {
10591 SgObject SG_RESULT = (SgObject)NULL;
10592 
10593 #line 2098 "./lib_core.stub"
10594 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[448],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
10595 
10596 #line 2099 "./lib_core.stub"
10597 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[450],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
10598 
10599 #line 2100 "./lib_core.stub"
10600 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[448],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
10601 
10602 #line 2102 "./lib_core.stub"
10603 {SgReadContext ctx=SG_STATIC_READ_CONTEXT;
10604 SG_RESULT=(Sg_ReadWithContext(p,(&(ctx))));}
10605 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10606 }
10607   }
10608 }
10609 static SG_DEFINE_SUBR(core_get_datum__STUB, 1, 0,core_get_datum, SG_FALSE, NULL);
10610 
core_output_portP(SgObject * SG_FP,int SG_ARGC,void * data_)10611 static SgObject core_output_portP(SgObject *SG_FP, int SG_ARGC, void *data_)
10612 {
10613   SgObject obj_scm;
10614   SgObject obj;
10615   SG_ENTER_SUBR("output-port?");
10616   if (SG_ARGC != 1)
10617     Sg_WrongNumberOfArgumentsViolation(
10618      SG_INTERN("output-port?"), 1, SG_ARGC, SG_NIL);
10619   obj_scm = SG_ARGREF(0);
10620   obj = (obj_scm);
10621   {
10622 {
10623 int SG_RESULT = (int)FALSE;
10624 SG_RESULT=(SG_OUTPUT_PORTP(obj));
10625 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
10626 }
10627   }
10628 }
10629 static SG_DEFINE_SUBR(core_output_portP__STUB, 1, 0,core_output_portP, SG_FALSE, NULL);
10630 
core_flush_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10631 static SgObject core_flush_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10632 {
10633   SgObject p_scm;
10634   SgPort* p;
10635   SG_ENTER_SUBR("flush-output-port");
10636   if ((SG_ARGC > 1 &&
10637       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10638       SG_ARGC < 0)
10639     Sg_WrongNumberOfArgumentsBetweenViolation(
10640      SG_INTERN("flush-output-port"), 0, 1, SG_ARGC, SG_NIL);
10641   if (SG_ARGC > 0+1) {
10642     p_scm = SG_ARGREF(0);
10643   } else {
10644     p_scm =
10645 #line 2114 "./lib_core.stub"
10646 Sg_CurrentOutputPort();
10647   }
10648   if (!SG_PORTP(p_scm))
10649     Sg_WrongTypeOfArgumentViolation(
10650        sg__rc_cgen9166.d9486[452], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10651   p = SG_PORT(p_scm);
10652   {
10653 Sg_FlushPort(p);
10654 SG_RETURN(SG_UNDEF);
10655   }
10656 }
10657 static SG_DEFINE_SUBR(core_flush_output_port__STUB, 0, 2,core_flush_output_port, SG_FALSE, NULL);
10658 
core_output_port_buffer_mode(SgObject * SG_FP,int SG_ARGC,void * data_)10659 static SgObject core_output_port_buffer_mode(SgObject *SG_FP, int SG_ARGC, void *data_)
10660 {
10661   SgObject p_scm;
10662   SgPort* p;
10663   SG_ENTER_SUBR("output-port-buffer-mode");
10664   if (SG_ARGC != 1)
10665     Sg_WrongNumberOfArgumentsViolation(
10666      SG_INTERN("output-port-buffer-mode"), 1, SG_ARGC, SG_NIL);
10667   p_scm = SG_ARGREF(0);
10668   if (!SG_PORTP(p_scm))
10669     Sg_WrongTypeOfArgumentViolation(
10670        sg__rc_cgen9166.d9486[453], SG_MAKE_STRING("port"), p_scm, SG_NIL);
10671   p = SG_PORT(p_scm);
10672   {
10673 {
10674 SgObject SG_RESULT = (SgObject)NULL;
10675 
10676 #line 2118 "./lib_core.stub"
10677 if (SG_BUFFERED_PORTP(p)){
10678 if (SG_EQ((SG_BUFFERED_PORT(p))->mode,SG_BUFFER_MODE_NONE)){
10679 SG_RESULT=(sg__rc_cgen9166.d9486[350]);}else if(
10680 SG_EQ((SG_BUFFERED_PORT(p))->mode,SG_BUFFER_MODE_LINE)){
10681 SG_RESULT=(sg__rc_cgen9166.d9486[352]);}else if(
10682 SG_EQ((SG_BUFFERED_PORT(p))->mode,SG_BUFFER_MODE_BLOCK)){
10683 SG_RESULT=(sg__rc_cgen9166.d9486[354]);} else {
10684 #line 2126 "./lib_core.stub"
10685 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[454],SG_MAKE_STRING("port has invalid buffer mode. may be bug?"),p);}}} else {
10686 #line 2129 "./lib_core.stub"
10687 SG_RESULT=(sg__rc_cgen9166.d9486[350]);}
10688 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10689 }
10690   }
10691 }
10692 static SG_DEFINE_SUBR(core_output_port_buffer_mode__STUB, 1, 0,core_output_port_buffer_mode, SG_FALSE, NULL);
10693 
get_open_flags(SgObject option,int oflags,SgObject file,int existsP,int * rappend)10694 static int get_open_flags(SgObject option,int oflags,SgObject file,int existsP,int* rappend){{
10695 #line 2134 "./lib_core.stub"
10696 {SgObject opt=Sg_SlotRefUsingClass(Sg_ClassOf(option),option,sg__rc_cgen9166.d9486[455]);
10697 if ((existsP)&&(SG_NULLP(opt))){
10698 {Sg_IOError(SG_IO_FILE_ALREADY_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file already exists"),file,SG_UNDEF);return (0);}} else {
10699 #line 2139 "./lib_core.stub"
10700 {int no_createP=(!(SG_FALSEP(Sg_Memq(sg__rc_cgen9166.d9486[459],opt))));int no_truncateP=
10701 (!(SG_FALSEP(Sg_Memq(sg__rc_cgen9166.d9486[461],opt))));int no_failP=
10702 (!(SG_FALSEP(Sg_Memq(sg__rc_cgen9166.d9486[463],opt))));int appendP=
10703 (!(SG_FALSEP(Sg_Memq(sg__rc_cgen9166.d9486[465],opt))));int open_flags=oflags;
10704 #line 2144 "./lib_core.stub"
10705 if ((no_createP)&&(no_truncateP)){
10706 if ((!(existsP))){{
10707 {Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file-options no-create: file not exist"),file,SG_UNDEF);return (0);}}}}else if(no_createP){
10708 #line 2151 "./lib_core.stub"
10709 if (existsP){
10710 open_flags=((SG_TRUNCATE)|(open_flags));} else {
10711 {Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file-options no-create: file not exist"),file,SG_UNDEF);return (0);}}}else if(
10712 #line 2157 "./lib_core.stub"
10713 (no_failP)&&(no_truncateP)){
10714 if ((!(existsP))){{
10715 open_flags=((SG_TRUNCATE)|(open_flags));}}}else if(no_failP){
10716 #line 2162 "./lib_core.stub"
10717 open_flags=((SG_TRUNCATE)|(open_flags));}else if(no_truncateP){
10718 #line 2164 "./lib_core.stub"
10719 if ((existsP)&&((!(appendP)))){
10720 {Sg_IOError(SG_IO_FILE_ALREADY_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file-options no-truncate: file already exist"),file,SG_UNDEF);return (0);}}else if(
10721 #line 2169 "./lib_core.stub"
10722 (!(appendP))){
10723 open_flags=((SG_TRUNCATE)|(open_flags));}}
10724 if (appendP){{(*(rappend))=(appendP);}}
10725 return (open_flags);}}
10726 #line 2174 "./lib_core.stub"
10727 return (0);}}}
core_open_file_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10728 static SgObject core_open_file_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10729 {
10730   SgObject file_scm;
10731   SgString* file;
10732   SgObject option_scm;
10733   SgObject option;
10734   SgObject mode_scm;
10735   SgSymbol* mode;
10736   SgObject transcoder_scm;
10737   SgTranscoder* transcoder;
10738   SG_ENTER_SUBR("open-file-output-port");
10739   if ((SG_ARGC > 4 &&
10740       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10741       SG_ARGC < 1)
10742     Sg_WrongNumberOfArgumentsBetweenViolation(
10743      SG_INTERN("open-file-output-port"), 1, 4, SG_ARGC, SG_NIL);
10744   file_scm = SG_ARGREF(0);
10745   if (!SG_STRINGP(file_scm))
10746     Sg_WrongTypeOfArgumentViolation(
10747        sg__rc_cgen9166.d9486[458], SG_MAKE_STRING("string"), file_scm, SG_NIL);
10748   file = SG_STRING(file_scm);
10749   if (SG_ARGC > 1+1) {
10750     option_scm = SG_ARGREF(1);
10751   } else {
10752     option_scm = SG_FALSE;
10753   }
10754   option = (option_scm);
10755   if (SG_ARGC > 2+1) {
10756     mode_scm = SG_ARGREF(2);
10757   } else {
10758     mode_scm = SG_UNBOUND;
10759   }
10760   if (!SG_UNBOUNDP(mode_scm) && !SG_SYMBOLP(mode_scm))
10761     Sg_WrongTypeOfArgumentViolation(
10762        sg__rc_cgen9166.d9486[458], SG_MAKE_STRING("symbol"), mode_scm, SG_NIL);
10763   mode = SG_SYMBOL(mode_scm);
10764   if (SG_ARGC > 3+1) {
10765     transcoder_scm = SG_ARGREF(3);
10766   } else {
10767     transcoder_scm = SG_FALSE;
10768   }
10769   if (!SG_FALSEP(transcoder_scm) && !SG_TRANSCODERP(transcoder_scm))
10770     Sg_WrongTypeOfArgumentViolation(
10771        sg__rc_cgen9166.d9486[458], SG_MAKE_STRING("transcoder"), transcoder_scm, SG_NIL);
10772   transcoder = SG_TRANSCODER(transcoder_scm);
10773   {
10774 {
10775 SgObject SG_RESULT = (SgObject)NULL;
10776 
10777 #line 2180 "./lib_core.stub"
10778 if (SG_UNBOUNDP(mode)){{mode=(sg__rc_cgen9166.d9486[354]);}}
10779 
10780 #line 2181 "./lib_core.stub"
10781 {SgObject fo=SG_UNDEF;int isFileExist=
10782 Sg_FileExistP(file);int openFlags=
10783 (SG_WRITE)|(SG_CREATE);int bufferMode=SG_BUFFER_MODE_BLOCK;
10784 #line 2185 "./lib_core.stub"
10785 if (SG_EQ(mode,sg__rc_cgen9166.d9486[350])){
10786 bufferMode=(SG_BUFFER_MODE_NONE);}else if(
10787 SG_EQ(mode,sg__rc_cgen9166.d9486[352])){
10788 bufferMode=(SG_BUFFER_MODE_LINE);}
10789 if (SG_FALSEP(option)){
10790 if (isFileExist){
10791 {Sg_IOError(SG_IO_FILE_ALREADY_EXIST_ERROR,sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("file already exists"),file,SG_UNDEF);return (SG_UNDEF);}}
10792 #line 2194 "./lib_core.stub"
10793 fo=(Sg_OpenFile(file,openFlags));
10794 if ((!(SG_FILEP(fo)))){{
10795 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[457],fo,file,SG_UNDEF);}}
10796 #line 2199 "./lib_core.stub"
10797 SG_RESULT=(Sg_MakeFileBinaryOutputPort(fo,bufferMode));} else {
10798 #line 2203 "./lib_core.stub"
10799 if ((!(Sg_RecordP(option)))){{
10800 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("invalid file options"),option);}}}
10801 #line 2206 "./lib_core.stub"
10802 {int appendP=0;
10803 openFlags=(get_open_flags(option,openFlags,file,isFileExist,
10804 (&(appendP))));
10805 fo=(Sg_OpenFile(file,openFlags));
10806 if ((!(SG_FILEP(fo)))){{
10807 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[457],fo,file,SG_UNDEF);}}
10808 #line 2213 "./lib_core.stub"
10809 if (appendP){{Sg_FileSeek(fo,0,SG_END);}}
10810 if (SG_FALSEP(transcoder)){
10811 SG_RESULT=(Sg_MakeFileBinaryOutputPort(fo,bufferMode));} else {
10812 {SgObject out=Sg_MakeFileBinaryOutputPort(fo,bufferMode);
10813 SG_RESULT=(Sg_MakeTranscodedPort(out,transcoder));}}}}}
10814 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10815 }
10816   }
10817 }
10818 static SG_DEFINE_SUBR(core_open_file_output_port__STUB, 1, 4,core_open_file_output_port, SG_FALSE, NULL);
10819 
core_standard_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10820 static SgObject core_standard_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10821 {
10822   SG_ENTER_SUBR("standard-output-port");
10823   if (SG_ARGC != 0)
10824     Sg_WrongNumberOfArgumentsViolation(
10825      SG_INTERN("standard-output-port"), 0, SG_ARGC, SG_NIL);
10826   {
10827 {
10828 SgObject SG_RESULT = (SgObject)NULL;
10829 SG_RESULT=(Sg_StandardOutputPort());
10830 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10831 }
10832   }
10833 }
10834 static SG_DEFINE_SUBR(core_standard_output_port__STUB, 0, 0,core_standard_output_port, SG_FALSE, NULL);
10835 
core_standard_error_port(SgObject * SG_FP,int SG_ARGC,void * data_)10836 static SgObject core_standard_error_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10837 {
10838   SG_ENTER_SUBR("standard-error-port");
10839   if (SG_ARGC != 0)
10840     Sg_WrongNumberOfArgumentsViolation(
10841      SG_INTERN("standard-error-port"), 0, SG_ARGC, SG_NIL);
10842   {
10843 {
10844 SgObject SG_RESULT = (SgObject)NULL;
10845 SG_RESULT=(Sg_StandardErrorPort());
10846 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10847 }
10848   }
10849 }
10850 static SG_DEFINE_SUBR(core_standard_error_port__STUB, 0, 0,core_standard_error_port, SG_FALSE, NULL);
10851 
core_current_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10852 static SgObject core_current_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10853 {
10854   SgObject p_scm;
10855   SgObject p;
10856   SG_ENTER_SUBR("current-output-port");
10857   if ((SG_ARGC > 1 &&
10858       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10859       SG_ARGC < 0)
10860     Sg_WrongNumberOfArgumentsBetweenViolation(
10861      SG_INTERN("current-output-port"), 0, 1, SG_ARGC, SG_NIL);
10862   if (SG_ARGC > 0+1) {
10863     p_scm = SG_ARGREF(0);
10864   } else {
10865     p_scm = SG_UNBOUND;
10866   }
10867   p = (p_scm);
10868   {
10869 {
10870 SgObject SG_RESULT = (SgObject)NULL;
10871 
10872 #line 2224 "./lib_core.stub"
10873 {SgVM* vm=Sg_VM();
10874 if (SG_UNBOUNDP(p)){
10875 SG_RESULT=((vm)->currentOutputPort);} else {
10876 {
10877 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[469],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
10878 (vm)->currentOutputPort=(p);
10879 SG_RESULT=(SG_UNDEF);}}}
10880 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10881 }
10882   }
10883 }
10884 static SG_DEFINE_SUBR(core_current_output_port__STUB, 0, 2,core_current_output_port, SG_FALSE, NULL);
10885 
core_current_error_port(SgObject * SG_FP,int SG_ARGC,void * data_)10886 static SgObject core_current_error_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10887 {
10888   SgObject p_scm;
10889   SgObject p;
10890   SG_ENTER_SUBR("current-error-port");
10891   if ((SG_ARGC > 1 &&
10892       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
10893       SG_ARGC < 0)
10894     Sg_WrongNumberOfArgumentsBetweenViolation(
10895      SG_INTERN("current-error-port"), 0, 1, SG_ARGC, SG_NIL);
10896   if (SG_ARGC > 0+1) {
10897     p_scm = SG_ARGREF(0);
10898   } else {
10899     p_scm = SG_UNBOUND;
10900   }
10901   p = (p_scm);
10902   {
10903 {
10904 SgObject SG_RESULT = (SgObject)NULL;
10905 
10906 #line 2233 "./lib_core.stub"
10907 {SgVM* vm=Sg_VM();
10908 if (SG_UNBOUNDP(p)){
10909 SG_RESULT=((vm)->currentErrorPort);} else {
10910 {
10911 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[471],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
10912 (vm)->currentErrorPort=(p);
10913 SG_RESULT=(SG_UNDEF);}}}
10914 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10915 }
10916   }
10917 }
10918 static SG_DEFINE_SUBR(core_current_error_port__STUB, 0, 2,core_current_error_port, SG_FALSE, NULL);
10919 
core_make_custom_binary_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10920 static SgObject core_make_custom_binary_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10921 {
10922   SgObject id_scm;
10923   SgString* id;
10924   SgObject write_scm;
10925   SgProcedure* write;
10926   SgObject getter_scm;
10927   SgObject getter;
10928   SgObject setter_scm;
10929   SgObject setter;
10930   SgObject close_scm;
10931   SgObject close;
10932   SG_ENTER_SUBR("make-custom-binary-output-port");
10933   if (SG_ARGC != 5)
10934     Sg_WrongNumberOfArgumentsViolation(
10935      SG_INTERN("make-custom-binary-output-port"), 5, SG_ARGC, SG_NIL);
10936   id_scm = SG_ARGREF(0);
10937   if (!SG_STRINGP(id_scm))
10938     Sg_WrongTypeOfArgumentViolation(
10939        sg__rc_cgen9166.d9486[472], SG_MAKE_STRING("string"), id_scm, SG_NIL);
10940   id = SG_STRING(id_scm);
10941   write_scm = SG_ARGREF(1);
10942   if (!SG_PROCEDUREP(write_scm))
10943     Sg_WrongTypeOfArgumentViolation(
10944        sg__rc_cgen9166.d9486[472], SG_MAKE_STRING("procedure"), write_scm, SG_NIL);
10945   write = SG_PROCEDURE(write_scm);
10946   getter_scm = SG_ARGREF(2);
10947   getter = (getter_scm);
10948   setter_scm = SG_ARGREF(3);
10949   setter = (setter_scm);
10950   close_scm = SG_ARGREF(4);
10951   close = (close_scm);
10952   {
10953 {
10954 SgObject SG_RESULT = (SgObject)NULL;
10955 
10956 #line 2243 "./lib_core.stub"
10957 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[473],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
10958 
10959 #line 2244 "./lib_core.stub"
10960 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[473],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
10961 
10962 #line 2245 "./lib_core.stub"
10963 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[473],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
10964 
10965 #line 2246 "./lib_core.stub"
10966 SG_RESULT=(Sg_MakeCustomBinaryPort(id,SG_OUTPUT_PORT,SG_FALSE,write,getter,setter,close,SG_FALSE));
10967 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
10968 }
10969   }
10970 }
10971 static SG_DEFINE_SUBR(core_make_custom_binary_output_port__STUB, 5, 0,core_make_custom_binary_output_port, SG_FALSE, NULL);
10972 
core_make_custom_textual_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)10973 static SgObject core_make_custom_textual_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
10974 {
10975   SgObject id_scm;
10976   SgString* id;
10977   SgObject write_scm;
10978   SgProcedure* write;
10979   SgObject getter_scm;
10980   SgObject getter;
10981   SgObject setter_scm;
10982   SgObject setter;
10983   SgObject close_scm;
10984   SgObject close;
10985   SG_ENTER_SUBR("make-custom-textual-output-port");
10986   if (SG_ARGC != 5)
10987     Sg_WrongNumberOfArgumentsViolation(
10988      SG_INTERN("make-custom-textual-output-port"), 5, SG_ARGC, SG_NIL);
10989   id_scm = SG_ARGREF(0);
10990   if (!SG_STRINGP(id_scm))
10991     Sg_WrongTypeOfArgumentViolation(
10992        sg__rc_cgen9166.d9486[474], SG_MAKE_STRING("string"), id_scm, SG_NIL);
10993   id = SG_STRING(id_scm);
10994   write_scm = SG_ARGREF(1);
10995   if (!SG_PROCEDUREP(write_scm))
10996     Sg_WrongTypeOfArgumentViolation(
10997        sg__rc_cgen9166.d9486[474], SG_MAKE_STRING("procedure"), write_scm, SG_NIL);
10998   write = SG_PROCEDURE(write_scm);
10999   getter_scm = SG_ARGREF(2);
11000   getter = (getter_scm);
11001   setter_scm = SG_ARGREF(3);
11002   setter = (setter_scm);
11003   close_scm = SG_ARGREF(4);
11004   close = (close_scm);
11005   {
11006 {
11007 SgObject SG_RESULT = (SgObject)NULL;
11008 
11009 #line 2251 "./lib_core.stub"
11010 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[475],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
11011 
11012 #line 2252 "./lib_core.stub"
11013 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[475],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
11014 
11015 #line 2253 "./lib_core.stub"
11016 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[475],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
11017 
11018 #line 2254 "./lib_core.stub"
11019 SG_RESULT=(Sg_MakeCustomTextualPort(id,SG_OUTPUT_PORT,SG_FALSE,write,getter,setter,close,SG_FALSE));
11020 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11021 }
11022   }
11023 }
11024 static SG_DEFINE_SUBR(core_make_custom_textual_output_port__STUB, 5, 0,core_make_custom_textual_output_port, SG_FALSE, NULL);
11025 
core_put_u8(SgObject * SG_FP,int SG_ARGC,void * data_)11026 static SgObject core_put_u8(SgObject *SG_FP, int SG_ARGC, void *data_)
11027 {
11028   SgObject p_scm;
11029   SgPort* p;
11030   SgObject octet_scm;
11031   long octet;
11032   SgObject reckless_scm;
11033   SgObject reckless;
11034   SG_ENTER_SUBR("put-u8");
11035   if ((SG_ARGC > 3 &&
11036       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11037       SG_ARGC < 2)
11038     Sg_WrongNumberOfArgumentsBetweenViolation(
11039      SG_INTERN("put-u8"), 2, 3, SG_ARGC, SG_NIL);
11040   p_scm = SG_ARGREF(0);
11041   if (!SG_PORTP(p_scm))
11042     Sg_WrongTypeOfArgumentViolation(
11043        sg__rc_cgen9166.d9486[476], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11044   p = SG_PORT(p_scm);
11045   octet_scm = SG_ARGREF(1);
11046   if (!SG_INTP(octet_scm))
11047     Sg_WrongTypeOfArgumentViolation(
11048        sg__rc_cgen9166.d9486[476], SG_MAKE_STRING("fixnum"), octet_scm, SG_NIL);
11049   octet = SG_INT_VALUE(octet_scm);
11050   if (SG_ARGC > 2+1) {
11051     reckless_scm = SG_ARGREF(2);
11052   } else {
11053     reckless_scm = SG_FALSE;
11054   }
11055   reckless = (reckless_scm);
11056   {
11057 
11058 #line 2260 "./lib_core.stub"
11059 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[477],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11060 
11061 #line 2261 "./lib_core.stub"
11062 if (SG_FALSEP(reckless)){{
11063 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[477],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
11064 
11065 #line 2263 "./lib_core.stub"
11066 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[477],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11067 
11068 #line 2264 "./lib_core.stub"
11069 if ((!(((0)<=(octet))&&((octet)<=(255))))){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[477],SG_MAKE_STRING("out of range"),SG_MAKE_INT(octet));}}}
11070 
11071 #line 2265 "./lib_core.stub"
11072 if (SG_CUSTOM_PORTP(p)){Sg_Putb(p,octet);} else {Sg_PutbUnsafe(p,octet);}
11073 SG_RETURN(SG_UNDEF);
11074   }
11075 }
11076 static SG_DEFINE_SUBR(core_put_u8__STUB, 2, 2,core_put_u8, SG_FALSE, NULL);
11077 
core_put_bytevector(SgObject * SG_FP,int SG_ARGC,void * data_)11078 static SgObject core_put_bytevector(SgObject *SG_FP, int SG_ARGC, void *data_)
11079 {
11080   SgObject p_scm;
11081   SgPort* p;
11082   SgObject bv_scm;
11083   SgByteVector* bv;
11084   SgObject start_scm;
11085   long start;
11086   SgObject count_scm;
11087   long count;
11088   SgObject reckless_scm;
11089   SgObject reckless;
11090   SG_ENTER_SUBR("put-bytevector");
11091   if ((SG_ARGC > 5 &&
11092       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11093       SG_ARGC < 2)
11094     Sg_WrongNumberOfArgumentsBetweenViolation(
11095      SG_INTERN("put-bytevector"), 2, 5, SG_ARGC, SG_NIL);
11096   p_scm = SG_ARGREF(0);
11097   if (!SG_PORTP(p_scm))
11098     Sg_WrongTypeOfArgumentViolation(
11099        sg__rc_cgen9166.d9486[478], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11100   p = SG_PORT(p_scm);
11101   bv_scm = SG_ARGREF(1);
11102   if (!SG_BVECTORP(bv_scm))
11103     Sg_WrongTypeOfArgumentViolation(
11104        sg__rc_cgen9166.d9486[478], SG_MAKE_STRING("bytevector"), bv_scm, SG_NIL);
11105   bv = SG_BVECTOR(bv_scm);
11106   if (SG_ARGC > 2+1) {
11107     start_scm = SG_ARGREF(2);
11108   } else {
11109     start_scm = SG_MAKE_INT(0);
11110   }
11111   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
11112     Sg_WrongTypeOfArgumentViolation(
11113        sg__rc_cgen9166.d9486[478], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
11114   start = SG_INT_VALUE(start_scm);
11115   if (SG_ARGC > 3+1) {
11116     count_scm = SG_ARGREF(3);
11117   } else {
11118     count_scm =
11119 #line 2270 "./lib_core.stub"
11120 SG_MAKE_INT((SG_BVECTOR_SIZE(bv))-(start));
11121   }
11122   if (!SG_INTP(count_scm))
11123     Sg_WrongTypeOfArgumentViolation(
11124        sg__rc_cgen9166.d9486[478], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
11125   count = SG_INT_VALUE(count_scm);
11126   if (SG_ARGC > 4+1) {
11127     reckless_scm = SG_ARGREF(4);
11128   } else {
11129     reckless_scm = SG_FALSE;
11130   }
11131   reckless = (reckless_scm);
11132   {
11133 
11134 #line 2273 "./lib_core.stub"
11135 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11136 
11137 #line 2274 "./lib_core.stub"
11138 if (SG_FALSEP(reckless)){{
11139 if ((!(SG_BINARY_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("binary-port"),p,SG_NIL);}}}}}
11140 
11141 #line 2276 "./lib_core.stub"
11142 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11143 
11144 #line 2277 "./lib_core.stub"
11145 if ((start)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(start),SG_NIL);}}}
11146 
11147 #line 2278 "./lib_core.stub"
11148 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
11149 
11150 #line 2279 "./lib_core.stub"
11151 if ((!(((count)+(start))<=(SG_BVECTOR_SIZE(bv))))){{
11152 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[479],SG_MAKE_STRING("invalid range"),SG_NIL);}}}
11153 
11154 #line 2282 "./lib_core.stub"
11155 Sg_Writeb(p,SG_BVECTOR_ELEMENTS(bv),start,count);
11156 SG_RETURN(SG_UNDEF);
11157   }
11158 }
11159 static SG_DEFINE_SUBR(core_put_bytevector__STUB, 2, 4,core_put_bytevector, SG_FALSE, NULL);
11160 
core_put_char(SgObject * SG_FP,int SG_ARGC,void * data_)11161 static SgObject core_put_char(SgObject *SG_FP, int SG_ARGC, void *data_)
11162 {
11163   SgObject p_scm;
11164   SgPort* p;
11165   SgObject ch_scm;
11166   SgChar ch;
11167   SG_ENTER_SUBR("put-char");
11168   if (SG_ARGC != 2)
11169     Sg_WrongNumberOfArgumentsViolation(
11170      SG_INTERN("put-char"), 2, SG_ARGC, SG_NIL);
11171   p_scm = SG_ARGREF(0);
11172   if (!SG_PORTP(p_scm))
11173     Sg_WrongTypeOfArgumentViolation(
11174        sg__rc_cgen9166.d9486[480], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11175   p = SG_PORT(p_scm);
11176   ch_scm = SG_ARGREF(1);
11177   if (!SG_CHARP(ch_scm))
11178     Sg_WrongTypeOfArgumentViolation(
11179        sg__rc_cgen9166.d9486[480], SG_MAKE_STRING("character"), ch_scm, SG_NIL);
11180   ch = SG_CHAR_VALUE(ch_scm);
11181   {
11182 
11183 #line 2286 "./lib_core.stub"
11184 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[481],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11185 
11186 #line 2287 "./lib_core.stub"
11187 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[481],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11188 
11189 #line 2288 "./lib_core.stub"
11190 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[481],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11191 
11192 #line 2289 "./lib_core.stub"
11193 if (SG_STRING_PORTP(p)){Sg_PutcUnsafe(p,ch);} else {Sg_Putc(p,ch);}
11194 SG_RETURN(SG_UNDEF);
11195   }
11196 }
11197 static SG_DEFINE_SUBR(core_put_char__STUB, 2, 0,core_put_char, SG_FALSE, NULL);
11198 
core_put_string(SgObject * SG_FP,int SG_ARGC,void * data_)11199 static SgObject core_put_string(SgObject *SG_FP, int SG_ARGC, void *data_)
11200 {
11201   SgObject p_scm;
11202   SgPort* p;
11203   SgObject s_scm;
11204   SgString* s;
11205   SgObject start_scm;
11206   long start;
11207   SgObject count_scm;
11208   long count;
11209   SG_ENTER_SUBR("put-string");
11210   if ((SG_ARGC > 4 &&
11211       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11212       SG_ARGC < 2)
11213     Sg_WrongNumberOfArgumentsBetweenViolation(
11214      SG_INTERN("put-string"), 2, 4, SG_ARGC, SG_NIL);
11215   p_scm = SG_ARGREF(0);
11216   if (!SG_PORTP(p_scm))
11217     Sg_WrongTypeOfArgumentViolation(
11218        sg__rc_cgen9166.d9486[482], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11219   p = SG_PORT(p_scm);
11220   s_scm = SG_ARGREF(1);
11221   if (!SG_STRINGP(s_scm))
11222     Sg_WrongTypeOfArgumentViolation(
11223        sg__rc_cgen9166.d9486[482], SG_MAKE_STRING("string"), s_scm, SG_NIL);
11224   s = SG_STRING(s_scm);
11225   if (SG_ARGC > 2+1) {
11226     start_scm = SG_ARGREF(2);
11227   } else {
11228     start_scm = SG_MAKE_INT(0);
11229   }
11230   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
11231     Sg_WrongTypeOfArgumentViolation(
11232        sg__rc_cgen9166.d9486[482], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
11233   start = SG_INT_VALUE(start_scm);
11234   if (SG_ARGC > 3+1) {
11235     count_scm = SG_ARGREF(3);
11236   } else {
11237     count_scm =
11238 #line 2294 "./lib_core.stub"
11239 SG_MAKE_INT((SG_STRING_SIZE(s))-(start));
11240   }
11241   if (!SG_INTP(count_scm))
11242     Sg_WrongTypeOfArgumentViolation(
11243        sg__rc_cgen9166.d9486[482], SG_MAKE_STRING("fixnum"), count_scm, SG_NIL);
11244   count = SG_INT_VALUE(count_scm);
11245   {
11246 
11247 #line 2296 "./lib_core.stub"
11248 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11249 
11250 #line 2297 "./lib_core.stub"
11251 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11252 
11253 #line 2298 "./lib_core.stub"
11254 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11255 
11256 #line 2299 "./lib_core.stub"
11257 if ((start)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(start),SG_NIL);}}}
11258 
11259 #line 2300 "./lib_core.stub"
11260 if ((count)<(0)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("non negative exact integer"),SG_MAKE_INT(count),SG_NIL);}}}
11261 
11262 #line 2301 "./lib_core.stub"
11263 if ((!(((count)+(start))<=(SG_STRING_SIZE(s))))){{
11264 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[483],SG_MAKE_STRING("invalid range"),SG_NIL);}}}
11265 
11266 #line 2303 "./lib_core.stub"
11267 Sg_Writes(p,(SG_STRING_VALUE(s))+(start),count);
11268 SG_RETURN(SG_UNDEF);
11269   }
11270 }
11271 static SG_DEFINE_SUBR(core_put_string__STUB, 2, 3,core_put_string, SG_FALSE, NULL);
11272 
core_put_datum(SgObject * SG_FP,int SG_ARGC,void * data_)11273 static SgObject core_put_datum(SgObject *SG_FP, int SG_ARGC, void *data_)
11274 {
11275   SgObject p_scm;
11276   SgPort* p;
11277   SgObject datum_scm;
11278   SgObject datum;
11279   SG_ENTER_SUBR("put-datum");
11280   if (SG_ARGC != 2)
11281     Sg_WrongNumberOfArgumentsViolation(
11282      SG_INTERN("put-datum"), 2, SG_ARGC, SG_NIL);
11283   p_scm = SG_ARGREF(0);
11284   if (!SG_PORTP(p_scm))
11285     Sg_WrongTypeOfArgumentViolation(
11286        sg__rc_cgen9166.d9486[484], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11287   p = SG_PORT(p_scm);
11288   datum_scm = SG_ARGREF(1);
11289   datum = (datum_scm);
11290   {
11291 
11292 #line 2306 "./lib_core.stub"
11293 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[485],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11294 
11295 #line 2307 "./lib_core.stub"
11296 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[485],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11297 
11298 #line 2308 "./lib_core.stub"
11299 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[485],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11300 
11301 #line 2309 "./lib_core.stub"
11302 Sg_Write(datum,p,SG_WRITE_WRITE);
11303 SG_RETURN(SG_UNDEF);
11304   }
11305 }
11306 static SG_DEFINE_SUBR(core_put_datum__STUB, 2, 0,core_put_datum, SG_FALSE, NULL);
11307 
core_open_file_input_2foutput_port(SgObject * SG_FP,int SG_ARGC,void * data_)11308 static SgObject core_open_file_input_2foutput_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11309 {
11310   SgObject file_scm;
11311   SgString* file;
11312   SgObject option_scm;
11313   SgObject option;
11314   SgObject mode_scm;
11315   SgSymbol* mode;
11316   SgObject transcoder_scm;
11317   SgTranscoder* transcoder;
11318   SG_ENTER_SUBR("open-file-input/output-port");
11319   if ((SG_ARGC > 4 &&
11320       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11321       SG_ARGC < 1)
11322     Sg_WrongNumberOfArgumentsBetweenViolation(
11323      SG_INTERN("open-file-input/output-port"), 1, 4, SG_ARGC, SG_NIL);
11324   file_scm = SG_ARGREF(0);
11325   if (!SG_STRINGP(file_scm))
11326     Sg_WrongTypeOfArgumentViolation(
11327        sg__rc_cgen9166.d9486[486], SG_MAKE_STRING("string"), file_scm, SG_NIL);
11328   file = SG_STRING(file_scm);
11329   if (SG_ARGC > 1+1) {
11330     option_scm = SG_ARGREF(1);
11331   } else {
11332     option_scm = SG_FALSE;
11333   }
11334   option = (option_scm);
11335   if (SG_ARGC > 2+1) {
11336     mode_scm = SG_ARGREF(2);
11337   } else {
11338     mode_scm = SG_UNBOUND;
11339   }
11340   if (!SG_UNBOUNDP(mode_scm) && !SG_SYMBOLP(mode_scm))
11341     Sg_WrongTypeOfArgumentViolation(
11342        sg__rc_cgen9166.d9486[486], SG_MAKE_STRING("symbol"), mode_scm, SG_NIL);
11343   mode = SG_SYMBOL(mode_scm);
11344   if (SG_ARGC > 3+1) {
11345     transcoder_scm = SG_ARGREF(3);
11346   } else {
11347     transcoder_scm = SG_FALSE;
11348   }
11349   if (!SG_FALSEP(transcoder_scm) && !SG_TRANSCODERP(transcoder_scm))
11350     Sg_WrongTypeOfArgumentViolation(
11351        sg__rc_cgen9166.d9486[486], SG_MAKE_STRING("transcoder"), transcoder_scm, SG_NIL);
11352   transcoder = SG_TRANSCODER(transcoder_scm);
11353   {
11354 {
11355 SgObject SG_RESULT = (SgObject)NULL;
11356 
11357 #line 2316 "./lib_core.stub"
11358 if (SG_UNBOUNDP(mode)){{
11359 mode=(sg__rc_cgen9166.d9486[354]);}}
11360 
11361 #line 2318 "./lib_core.stub"
11362 {SgObject fo=SG_UNDEF;int isFileExist=
11363 Sg_FileExistP(file);int openFlags=
11364 (SG_READ)|((SG_WRITE)|(SG_CREATE));int bufferMode=SG_BUFFER_MODE_BLOCK;
11365 #line 2322 "./lib_core.stub"
11366 if (SG_EQ(mode,sg__rc_cgen9166.d9486[350])){
11367 bufferMode=(SG_BUFFER_MODE_NONE);}else if(
11368 SG_EQ(mode,sg__rc_cgen9166.d9486[352])){
11369 bufferMode=(SG_BUFFER_MODE_LINE);}
11370 if (SG_FALSEP(option)){
11371 if (isFileExist){
11372 {Sg_IOError(SG_IO_FILE_ALREADY_EXIST_ERROR,sg__rc_cgen9166.d9486[487],SG_MAKE_STRING("file already exists"),file,SG_UNDEF);return (SG_UNDEF);}}
11373 #line 2331 "./lib_core.stub"
11374 fo=(Sg_OpenFile(file,openFlags));
11375 if ((!(SG_FILEP(fo)))){{
11376 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[487],fo,file,SG_UNDEF);}}
11377 #line 2335 "./lib_core.stub"
11378 SG_RESULT=(Sg_MakeFileBinaryInputOutputPort(fo,bufferMode));} else {
11379 #line 2337 "./lib_core.stub"
11380 if ((!(Sg_RecordP(option)))){{
11381 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[457],SG_MAKE_STRING("invalid file options"),option);}}}
11382 #line 2340 "./lib_core.stub"
11383 {int appendP=0;
11384 openFlags=(get_open_flags(option,openFlags,file,isFileExist,
11385 (&(appendP))));
11386 fo=(Sg_OpenFile(file,openFlags));
11387 if ((!(SG_FILEP(fo)))){{
11388 Sg_IOError(SG_IO_FILE_NOT_EXIST_ERROR,sg__rc_cgen9166.d9486[487],fo,file,SG_UNDEF);}}
11389 #line 2347 "./lib_core.stub"
11390 if (appendP){{Sg_FileSeek(fo,0,SG_END);}}
11391 if (SG_FALSEP(transcoder)){
11392 SG_RESULT=(Sg_MakeFileBinaryInputOutputPort(fo,bufferMode));} else {
11393 {SgObject out=Sg_MakeFileBinaryInputOutputPort(fo,bufferMode);
11394 SG_RESULT=(Sg_MakeTranscodedPort(out,transcoder));}}}}}
11395 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11396 }
11397   }
11398 }
11399 static SG_DEFINE_SUBR(core_open_file_input_2foutput_port__STUB, 1, 4,core_open_file_input_2foutput_port, SG_FALSE, NULL);
11400 
core_make_custom_binary_input_2foutput_port(SgObject * SG_FP,int SG_ARGC,void * data_)11401 static SgObject core_make_custom_binary_input_2foutput_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11402 {
11403   SgObject id_scm;
11404   SgString* id;
11405   SgObject read_scm;
11406   SgProcedure* read;
11407   SgObject write_scm;
11408   SgProcedure* write;
11409   SgObject getter_scm;
11410   SgObject getter;
11411   SgObject setter_scm;
11412   SgObject setter;
11413   SgObject close_scm;
11414   SgObject close;
11415   SgObject ready_scm;
11416   SgObject ready;
11417   SG_ENTER_SUBR("make-custom-binary-input/output-port");
11418   if ((SG_ARGC > 7 &&
11419       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11420       SG_ARGC < 6)
11421     Sg_WrongNumberOfArgumentsBetweenViolation(
11422      SG_INTERN("make-custom-binary-input/output-port"), 6, 7, SG_ARGC, SG_NIL);
11423   id_scm = SG_ARGREF(0);
11424   if (!SG_STRINGP(id_scm))
11425     Sg_WrongTypeOfArgumentViolation(
11426        sg__rc_cgen9166.d9486[488], SG_MAKE_STRING("string"), id_scm, SG_NIL);
11427   id = SG_STRING(id_scm);
11428   read_scm = SG_ARGREF(1);
11429   if (!SG_PROCEDUREP(read_scm))
11430     Sg_WrongTypeOfArgumentViolation(
11431        sg__rc_cgen9166.d9486[488], SG_MAKE_STRING("procedure"), read_scm, SG_NIL);
11432   read = SG_PROCEDURE(read_scm);
11433   write_scm = SG_ARGREF(2);
11434   if (!SG_PROCEDUREP(write_scm))
11435     Sg_WrongTypeOfArgumentViolation(
11436        sg__rc_cgen9166.d9486[488], SG_MAKE_STRING("procedure"), write_scm, SG_NIL);
11437   write = SG_PROCEDURE(write_scm);
11438   getter_scm = SG_ARGREF(3);
11439   getter = (getter_scm);
11440   setter_scm = SG_ARGREF(4);
11441   setter = (setter_scm);
11442   close_scm = SG_ARGREF(5);
11443   close = (close_scm);
11444   if (SG_ARGC > 6+1) {
11445     ready_scm = SG_ARGREF(6);
11446   } else {
11447     ready_scm = SG_FALSE;
11448   }
11449   ready = (ready_scm);
11450   {
11451 {
11452 SgObject SG_RESULT = (SgObject)NULL;
11453 
11454 #line 2356 "./lib_core.stub"
11455 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[489],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
11456 
11457 #line 2357 "./lib_core.stub"
11458 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[489],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
11459 
11460 #line 2358 "./lib_core.stub"
11461 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[489],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
11462 
11463 #line 2359 "./lib_core.stub"
11464 if ((!((SG_FALSEP(ready))||(SG_PROCEDUREP(ready))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[489],SG_MAKE_STRING("procedure or #f"),ready,SG_NIL);}}}
11465 
11466 #line 2360 "./lib_core.stub"
11467 SG_RESULT=(Sg_MakeCustomBinaryPort(id,SG_IN_OUT_PORT,read,write,getter,setter,close,ready));
11468 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11469 }
11470   }
11471 }
11472 static SG_DEFINE_SUBR(core_make_custom_binary_input_2foutput_port__STUB, 6, 2,core_make_custom_binary_input_2foutput_port, SG_FALSE, NULL);
11473 
core_make_custom_textual_input_2foutput_port(SgObject * SG_FP,int SG_ARGC,void * data_)11474 static SgObject core_make_custom_textual_input_2foutput_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11475 {
11476   SgObject id_scm;
11477   SgString* id;
11478   SgObject read_scm;
11479   SgProcedure* read;
11480   SgObject write_scm;
11481   SgProcedure* write;
11482   SgObject getter_scm;
11483   SgObject getter;
11484   SgObject setter_scm;
11485   SgObject setter;
11486   SgObject close_scm;
11487   SgObject close;
11488   SgObject ready_scm;
11489   SgObject ready;
11490   SG_ENTER_SUBR("make-custom-textual-input/output-port");
11491   if ((SG_ARGC > 7 &&
11492       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11493       SG_ARGC < 6)
11494     Sg_WrongNumberOfArgumentsBetweenViolation(
11495      SG_INTERN("make-custom-textual-input/output-port"), 6, 7, SG_ARGC, SG_NIL);
11496   id_scm = SG_ARGREF(0);
11497   if (!SG_STRINGP(id_scm))
11498     Sg_WrongTypeOfArgumentViolation(
11499        sg__rc_cgen9166.d9486[490], SG_MAKE_STRING("string"), id_scm, SG_NIL);
11500   id = SG_STRING(id_scm);
11501   read_scm = SG_ARGREF(1);
11502   if (!SG_PROCEDUREP(read_scm))
11503     Sg_WrongTypeOfArgumentViolation(
11504        sg__rc_cgen9166.d9486[490], SG_MAKE_STRING("procedure"), read_scm, SG_NIL);
11505   read = SG_PROCEDURE(read_scm);
11506   write_scm = SG_ARGREF(2);
11507   if (!SG_PROCEDUREP(write_scm))
11508     Sg_WrongTypeOfArgumentViolation(
11509        sg__rc_cgen9166.d9486[490], SG_MAKE_STRING("procedure"), write_scm, SG_NIL);
11510   write = SG_PROCEDURE(write_scm);
11511   getter_scm = SG_ARGREF(3);
11512   getter = (getter_scm);
11513   setter_scm = SG_ARGREF(4);
11514   setter = (setter_scm);
11515   close_scm = SG_ARGREF(5);
11516   close = (close_scm);
11517   if (SG_ARGC > 6+1) {
11518     ready_scm = SG_ARGREF(6);
11519   } else {
11520     ready_scm = SG_FALSE;
11521   }
11522   ready = (ready_scm);
11523   {
11524 {
11525 SgObject SG_RESULT = (SgObject)NULL;
11526 
11527 #line 2366 "./lib_core.stub"
11528 if ((!((SG_FALSEP(getter))||(SG_PROCEDUREP(getter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[491],SG_MAKE_STRING("procedure or #f"),getter,SG_NIL);}}}
11529 
11530 #line 2367 "./lib_core.stub"
11531 if ((!((SG_FALSEP(setter))||(SG_PROCEDUREP(setter))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[491],SG_MAKE_STRING("procedure or #f"),setter,SG_NIL);}}}
11532 
11533 #line 2368 "./lib_core.stub"
11534 if ((!((SG_FALSEP(close))||(SG_PROCEDUREP(close))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[491],SG_MAKE_STRING("procedure or #f"),close,SG_NIL);}}}
11535 
11536 #line 2369 "./lib_core.stub"
11537 if ((!((SG_FALSEP(ready))||(SG_PROCEDUREP(ready))))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[491],SG_MAKE_STRING("procedure or #f"),ready,SG_NIL);}}}
11538 
11539 #line 2370 "./lib_core.stub"
11540 SG_RESULT=(Sg_MakeCustomTextualPort(id,SG_IN_OUT_PORT,read,write,getter,setter,close,ready));
11541 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11542 }
11543   }
11544 }
11545 static SG_DEFINE_SUBR(core_make_custom_textual_input_2foutput_port__STUB, 6, 2,core_make_custom_textual_input_2foutput_port, SG_FALSE, NULL);
11546 
core_close_input_port(SgObject * SG_FP,int SG_ARGC,void * data_)11547 static SgObject core_close_input_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11548 {
11549   SgObject p_scm;
11550   SgPort* p;
11551   SG_ENTER_SUBR("close-input-port");
11552   if (SG_ARGC != 1)
11553     Sg_WrongNumberOfArgumentsViolation(
11554      SG_INTERN("close-input-port"), 1, SG_ARGC, SG_NIL);
11555   p_scm = SG_ARGREF(0);
11556   if (!SG_PORTP(p_scm))
11557     Sg_WrongTypeOfArgumentViolation(
11558        sg__rc_cgen9166.d9486[492], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11559   p = SG_PORT(p_scm);
11560   {
11561 
11562 #line 2375 "./lib_core.stub"
11563 if ((!(SG_INPUT_PORTP(p)))){{
11564 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[493],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
11565 
11566 #line 2377 "./lib_core.stub"
11567 Sg_ClosePort(p);
11568 SG_RETURN(SG_UNDEF);
11569   }
11570 }
11571 static SG_DEFINE_SUBR(core_close_input_port__STUB, 1, 0,core_close_input_port, SG_FALSE, NULL);
11572 
core_close_output_port(SgObject * SG_FP,int SG_ARGC,void * data_)11573 static SgObject core_close_output_port(SgObject *SG_FP, int SG_ARGC, void *data_)
11574 {
11575   SgObject p_scm;
11576   SgPort* p;
11577   SG_ENTER_SUBR("close-output-port");
11578   if (SG_ARGC != 1)
11579     Sg_WrongNumberOfArgumentsViolation(
11580      SG_INTERN("close-output-port"), 1, SG_ARGC, SG_NIL);
11581   p_scm = SG_ARGREF(0);
11582   if (!SG_PORTP(p_scm))
11583     Sg_WrongTypeOfArgumentViolation(
11584        sg__rc_cgen9166.d9486[494], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11585   p = SG_PORT(p_scm);
11586   {
11587 
11588 #line 2380 "./lib_core.stub"
11589 if ((!(SG_OUTPUT_PORTP(p)))){{
11590 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[495],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11591 
11592 #line 2382 "./lib_core.stub"
11593 Sg_ClosePort(p);
11594 SG_RETURN(SG_UNDEF);
11595   }
11596 }
11597 static SG_DEFINE_SUBR(core_close_output_port__STUB, 1, 0,core_close_output_port, SG_FALSE, NULL);
11598 
core_read_char(SgObject * SG_FP,int SG_ARGC,void * data_)11599 static SgObject core_read_char(SgObject *SG_FP, int SG_ARGC, void *data_)
11600 {
11601   SgObject p_scm;
11602   SgPort* p;
11603   SG_ENTER_SUBR("read-char");
11604   if ((SG_ARGC > 1 &&
11605       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11606       SG_ARGC < 0)
11607     Sg_WrongNumberOfArgumentsBetweenViolation(
11608      SG_INTERN("read-char"), 0, 1, SG_ARGC, SG_NIL);
11609   if (SG_ARGC > 0+1) {
11610     p_scm = SG_ARGREF(0);
11611   } else {
11612     p_scm =
11613 #line 2384 "./lib_core.stub"
11614 Sg_CurrentInputPort();
11615   }
11616   if (!SG_PORTP(p_scm))
11617     Sg_WrongTypeOfArgumentViolation(
11618        sg__rc_cgen9166.d9486[496], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11619   p = SG_PORT(p_scm);
11620   {
11621 {
11622 SgObject SG_RESULT = (SgObject)NULL;
11623 
11624 #line 2385 "./lib_core.stub"
11625 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[497],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11626 
11627 #line 2386 "./lib_core.stub"
11628 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[497],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
11629 
11630 #line 2387 "./lib_core.stub"
11631 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[497],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11632 
11633 #line 2388 "./lib_core.stub"
11634 {SgChar c;if (SG_STRING_PORTP(p)){c=(Sg_GetcUnsafe(p));} else {c=(Sg_Getc(p));}if ((c)==(EOF)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_CHAR(c));}}
11635 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11636 }
11637   }
11638 }
11639 static SG_DEFINE_SUBR(core_read_char__STUB, 0, 2,core_read_char, SG_FALSE, NULL);
11640 
core_peek_char(SgObject * SG_FP,int SG_ARGC,void * data_)11641 static SgObject core_peek_char(SgObject *SG_FP, int SG_ARGC, void *data_)
11642 {
11643   SgObject p_scm;
11644   SgPort* p;
11645   SG_ENTER_SUBR("peek-char");
11646   if ((SG_ARGC > 1 &&
11647       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11648       SG_ARGC < 0)
11649     Sg_WrongNumberOfArgumentsBetweenViolation(
11650      SG_INTERN("peek-char"), 0, 1, SG_ARGC, SG_NIL);
11651   if (SG_ARGC > 0+1) {
11652     p_scm = SG_ARGREF(0);
11653   } else {
11654     p_scm =
11655 #line 2390 "./lib_core.stub"
11656 Sg_CurrentInputPort();
11657   }
11658   if (!SG_PORTP(p_scm))
11659     Sg_WrongTypeOfArgumentViolation(
11660        sg__rc_cgen9166.d9486[498], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11661   p = SG_PORT(p_scm);
11662   {
11663 {
11664 SgObject SG_RESULT = (SgObject)NULL;
11665 
11666 #line 2391 "./lib_core.stub"
11667 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[499],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11668 
11669 #line 2392 "./lib_core.stub"
11670 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[499],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
11671 
11672 #line 2393 "./lib_core.stub"
11673 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[499],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11674 
11675 #line 2394 "./lib_core.stub"
11676 {SgChar c;if (SG_STRING_PORTP(p)){c=(Sg_PeekcUnsafe(p));} else {c=(Sg_Peekc(p));}if ((c)==(EOF)){SG_RESULT=(SG_EOF);} else {SG_RESULT=(SG_MAKE_CHAR(c));}}
11677 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11678 }
11679   }
11680 }
11681 static SG_DEFINE_SUBR(core_peek_char__STUB, 0, 2,core_peek_char, SG_FALSE, NULL);
11682 
core_read(SgObject * SG_FP,int SG_ARGC,void * data_)11683 static SgObject core_read(SgObject *SG_FP, int SG_ARGC, void *data_)
11684 {
11685   SgObject p_scm;
11686   SgPort* p;
11687   SgObject source_infoP_scm = SG_FALSE;
11688   int source_infoP;
11689   SgObject read_sharedP_scm = SG_FALSE;
11690   int read_sharedP;
11691   int SG_KEYARGC = SG_ARGC-1-1;
11692   SG_ENTER_SUBR("read");
11693   if ((SG_ARGC > 5 &&
11694       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11695       SG_ARGC < 0)
11696     Sg_WrongNumberOfArgumentsBetweenViolation(
11697      SG_INTERN("read"), 0, 5, SG_ARGC, SG_NIL);
11698   if (SG_ARGC > 0+1) {
11699     p_scm = SG_ARGREF(0);
11700   } else {
11701     p_scm =
11702 #line 2396 "./lib_core.stub"
11703 Sg_CurrentInputPort();
11704   }
11705   if (!SG_PORTP(p_scm))
11706     Sg_WrongTypeOfArgumentViolation(
11707        sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11708   p = SG_PORT(p_scm);
11709   if (SG_KEYARGC > 0 && SG_KEYARGC % 2)
11710     Sg_AssertionViolation(sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("keyword list not even"), Sg_ArrayToList(SG_FP+1, SG_ARGC-1-1));
11711   { int SG_KEYINDEX;
11712       for (SG_KEYINDEX=0; SG_KEYINDEX<SG_KEYARGC; SG_KEYINDEX+=2) {
11713       if (SG_EQ(SG_ARGREF(1+SG_KEYINDEX), sg__rc_cgen9166.d9486[500])) {
11714         source_infoP_scm = SG_ARGREF(1+SG_KEYINDEX+1);
11715       } else
11716       if (SG_EQ(SG_ARGREF(1+SG_KEYINDEX), sg__rc_cgen9166.d9486[502])) {
11717         read_sharedP_scm = SG_ARGREF(1+SG_KEYINDEX+1);
11718       }
11719       else Sg_AssertionViolation(sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("unknown keyword"), SG_ARGREF(1+SG_KEYINDEX));
11720     }
11721   }
11722   if (!SG_FALSEP(source_infoP_scm) && !SG_BOOLP(source_infoP_scm))
11723     Sg_WrongTypeOfArgumentViolation(
11724        sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("boolean"), source_infoP_scm, SG_NIL);
11725   source_infoP = SG_BOOL_VALUE(source_infoP_scm);
11726   if (!SG_FALSEP(read_sharedP_scm) && !SG_BOOLP(read_sharedP_scm))
11727     Sg_WrongTypeOfArgumentViolation(
11728        sg__rc_cgen9166.d9486[504], SG_MAKE_STRING("boolean"), read_sharedP_scm, SG_NIL);
11729   read_sharedP = SG_BOOL_VALUE(read_sharedP_scm);
11730   {
11731 {
11732 SgObject SG_RESULT = (SgObject)NULL;
11733 
11734 #line 2399 "./lib_core.stub"
11735 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[505],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11736 
11737 #line 2400 "./lib_core.stub"
11738 if ((!(SG_INPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[505],SG_MAKE_STRING("input port"),p,SG_NIL);}}}
11739 
11740 #line 2401 "./lib_core.stub"
11741 {SgReadContext ctx=SG_STATIC_READ_CONTEXT;
11742 if (source_infoP){{
11743 (ctx).flags=(SG_READ_SOURCE_INFO);}}
11744 if (read_sharedP){{
11745 (ctx).graph=(Sg_MakeHashTableSimple(SG_HASH_EQ,1));}}
11746 SG_RESULT=(Sg_ReadWithContext(p,(&(ctx))));}
11747 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
11748 }
11749   }
11750 }
11751 static SG_DEFINE_SUBR(core_read__STUB, 0, 6,core_read, SG_FALSE, NULL);
11752 
core_write_char(SgObject * SG_FP,int SG_ARGC,void * data_)11753 static SgObject core_write_char(SgObject *SG_FP, int SG_ARGC, void *data_)
11754 {
11755   SgObject ch_scm;
11756   SgChar ch;
11757   SgObject p_scm;
11758   SgPort* p;
11759   SG_ENTER_SUBR("write-char");
11760   if ((SG_ARGC > 2 &&
11761       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11762       SG_ARGC < 1)
11763     Sg_WrongNumberOfArgumentsBetweenViolation(
11764      SG_INTERN("write-char"), 1, 2, SG_ARGC, SG_NIL);
11765   ch_scm = SG_ARGREF(0);
11766   if (!SG_CHARP(ch_scm))
11767     Sg_WrongTypeOfArgumentViolation(
11768        sg__rc_cgen9166.d9486[506], SG_MAKE_STRING("character"), ch_scm, SG_NIL);
11769   ch = SG_CHAR_VALUE(ch_scm);
11770   if (SG_ARGC > 1+1) {
11771     p_scm = SG_ARGREF(1);
11772   } else {
11773     p_scm =
11774 #line 2409 "./lib_core.stub"
11775 Sg_CurrentOutputPort();
11776   }
11777   if (!SG_PORTP(p_scm))
11778     Sg_WrongTypeOfArgumentViolation(
11779        sg__rc_cgen9166.d9486[506], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11780   p = SG_PORT(p_scm);
11781   {
11782 
11783 #line 2411 "./lib_core.stub"
11784 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[507],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11785 
11786 #line 2412 "./lib_core.stub"
11787 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[507],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11788 
11789 #line 2413 "./lib_core.stub"
11790 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[507],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11791 
11792 #line 2414 "./lib_core.stub"
11793 if (SG_STRING_PORTP(p)){Sg_PutcUnsafe(p,ch);} else {Sg_Putc(p,ch);}
11794 SG_RETURN(SG_UNDEF);
11795   }
11796 }
11797 static SG_DEFINE_SUBR(core_write_char__STUB, 1, 2,core_write_char, SG_FALSE, NULL);
11798 
core_newline(SgObject * SG_FP,int SG_ARGC,void * data_)11799 static SgObject core_newline(SgObject *SG_FP, int SG_ARGC, void *data_)
11800 {
11801   SgObject p_scm;
11802   SgPort* p;
11803   SG_ENTER_SUBR("newline");
11804   if ((SG_ARGC > 1 &&
11805       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11806       SG_ARGC < 0)
11807     Sg_WrongNumberOfArgumentsBetweenViolation(
11808      SG_INTERN("newline"), 0, 1, SG_ARGC, SG_NIL);
11809   if (SG_ARGC > 0+1) {
11810     p_scm = SG_ARGREF(0);
11811   } else {
11812     p_scm =
11813 #line 2416 "./lib_core.stub"
11814 Sg_CurrentOutputPort();
11815   }
11816   if (!SG_PORTP(p_scm))
11817     Sg_WrongTypeOfArgumentViolation(
11818        sg__rc_cgen9166.d9486[508], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11819   p = SG_PORT(p_scm);
11820   {
11821 
11822 #line 2417 "./lib_core.stub"
11823 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[509],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11824 
11825 #line 2418 "./lib_core.stub"
11826 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[509],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11827 
11828 #line 2419 "./lib_core.stub"
11829 if ((!(SG_TEXTUAL_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[509],SG_MAKE_STRING("textual-port"),p,SG_NIL);}}}
11830 
11831 #line 2420 "./lib_core.stub"
11832 if (SG_STRING_PORTP(p)){Sg_PutcUnsafe(p,'\n');} else {Sg_Putc(p,'\n');}
11833 SG_RETURN(SG_UNDEF);
11834   }
11835 }
11836 static SG_DEFINE_SUBR(core_newline__STUB, 0, 2,core_newline, SG_FALSE, NULL);
11837 
core_display(SgObject * SG_FP,int SG_ARGC,void * data_)11838 static SgObject core_display(SgObject *SG_FP, int SG_ARGC, void *data_)
11839 {
11840   SgObject o_scm;
11841   SgObject o;
11842   SgObject p_scm;
11843   SgPort* p;
11844   SG_ENTER_SUBR("display");
11845   if ((SG_ARGC > 2 &&
11846       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11847       SG_ARGC < 1)
11848     Sg_WrongNumberOfArgumentsBetweenViolation(
11849      SG_INTERN("display"), 1, 2, SG_ARGC, SG_NIL);
11850   o_scm = SG_ARGREF(0);
11851   o = (o_scm);
11852   if (SG_ARGC > 1+1) {
11853     p_scm = SG_ARGREF(1);
11854   } else {
11855     p_scm =
11856 #line 2422 "./lib_core.stub"
11857 Sg_CurrentOutputPort();
11858   }
11859   if (!SG_PORTP(p_scm))
11860     Sg_WrongTypeOfArgumentViolation(
11861        sg__rc_cgen9166.d9486[510], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11862   p = SG_PORT(p_scm);
11863   {
11864 
11865 #line 2423 "./lib_core.stub"
11866 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[511],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11867 
11868 #line 2424 "./lib_core.stub"
11869 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[511],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11870 
11871 #line 2425 "./lib_core.stub"
11872 Sg_Write(o,p,SG_WRITE_DISPLAY);
11873 SG_RETURN(SG_UNDEF);
11874   }
11875 }
11876 static SG_DEFINE_SUBR(core_display__STUB, 1, 2,core_display, SG_FALSE, NULL);
11877 
core_write(SgObject * SG_FP,int SG_ARGC,void * data_)11878 static SgObject core_write(SgObject *SG_FP, int SG_ARGC, void *data_)
11879 {
11880   SgObject o_scm;
11881   SgObject o;
11882   SgObject p_scm;
11883   SgPort* p;
11884   SG_ENTER_SUBR("write");
11885   if ((SG_ARGC > 2 &&
11886       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11887       SG_ARGC < 1)
11888     Sg_WrongNumberOfArgumentsBetweenViolation(
11889      SG_INTERN("write"), 1, 2, SG_ARGC, SG_NIL);
11890   o_scm = SG_ARGREF(0);
11891   o = (o_scm);
11892   if (SG_ARGC > 1+1) {
11893     p_scm = SG_ARGREF(1);
11894   } else {
11895     p_scm =
11896 #line 2427 "./lib_core.stub"
11897 Sg_CurrentOutputPort();
11898   }
11899   if (!SG_PORTP(p_scm))
11900     Sg_WrongTypeOfArgumentViolation(
11901        sg__rc_cgen9166.d9486[512], SG_MAKE_STRING("port"), p_scm, SG_NIL);
11902   p = SG_PORT(p_scm);
11903   {
11904 
11905 #line 2428 "./lib_core.stub"
11906 if (Sg_PortClosedP(p)){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[513],SG_MAKE_STRING("opened port"),p,SG_NIL);}}}
11907 
11908 #line 2429 "./lib_core.stub"
11909 if ((!(SG_OUTPUT_PORTP(p)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[513],SG_MAKE_STRING("output port"),p,SG_NIL);}}}
11910 
11911 #line 2430 "./lib_core.stub"
11912 Sg_Write(o,p,SG_WRITE_WRITE);
11913 SG_RETURN(SG_UNDEF);
11914   }
11915 }
11916 static SG_DEFINE_SUBR(core_write__STUB, 1, 2,core_write, SG_FALSE, NULL);
11917 
core_file_existsP(SgObject * SG_FP,int SG_ARGC,void * data_)11918 static SgObject core_file_existsP(SgObject *SG_FP, int SG_ARGC, void *data_)
11919 {
11920   SgObject filename_scm;
11921   SgString* filename;
11922   SG_ENTER_SUBR("file-exists?");
11923   if (SG_ARGC != 1)
11924     Sg_WrongNumberOfArgumentsViolation(
11925      SG_INTERN("file-exists?"), 1, SG_ARGC, SG_NIL);
11926   filename_scm = SG_ARGREF(0);
11927   if (!SG_STRINGP(filename_scm))
11928     Sg_WrongTypeOfArgumentViolation(
11929        sg__rc_cgen9166.d9486[514], SG_MAKE_STRING("string"), filename_scm, SG_NIL);
11930   filename = SG_STRING(filename_scm);
11931   {
11932 {
11933 int SG_RESULT = (int)FALSE;
11934 SG_RESULT=(Sg_FileExistP(filename));
11935 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
11936 }
11937   }
11938 }
11939 static SG_DEFINE_SUBR(core_file_existsP__STUB, 1, 0,core_file_existsP, SG_FALSE, NULL);
11940 
core_delete_file(SgObject * SG_FP,int SG_ARGC,void * data_)11941 static SgObject core_delete_file(SgObject *SG_FP, int SG_ARGC, void *data_)
11942 {
11943   SgObject filename_scm;
11944   SgString* filename;
11945   SG_ENTER_SUBR("delete-file");
11946   if (SG_ARGC != 1)
11947     Sg_WrongNumberOfArgumentsViolation(
11948      SG_INTERN("delete-file"), 1, SG_ARGC, SG_NIL);
11949   filename_scm = SG_ARGREF(0);
11950   if (!SG_STRINGP(filename_scm))
11951     Sg_WrongTypeOfArgumentViolation(
11952        sg__rc_cgen9166.d9486[515], SG_MAKE_STRING("string"), filename_scm, SG_NIL);
11953   filename = SG_STRING(filename_scm);
11954   {
11955 
11956 #line 2438 "./lib_core.stub"
11957 {int r=Sg_DeleteFile(filename);
11958 if ((!((r)==(0)))){{
11959 Sg_IOError(SG_IO_FILENAME_ERROR,sg__rc_cgen9166.d9486[516],
11960 Sg_GetLastErrorMessageWithErrorCode(r),filename,SG_UNDEF);}}}
11961 SG_RETURN(SG_UNDEF);
11962   }
11963 }
11964 static SG_DEFINE_SUBR(core_delete_file__STUB, 1, 0,core_delete_file, SG_FALSE, NULL);
11965 
core_exit(SgObject * SG_FP,int SG_ARGC,void * data_)11966 static SgObject core_exit(SgObject *SG_FP, int SG_ARGC, void *data_)
11967 {
11968   SgObject obj_scm;
11969   SgObject obj;
11970   SG_ENTER_SUBR("exit");
11971   if ((SG_ARGC > 1 &&
11972       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
11973       SG_ARGC < 0)
11974     Sg_WrongNumberOfArgumentsBetweenViolation(
11975      SG_INTERN("exit"), 0, 1, SG_ARGC, SG_NIL);
11976   if (SG_ARGC > 0+1) {
11977     obj_scm = SG_ARGREF(0);
11978   } else {
11979     obj_scm = SG_UNBOUND;
11980   }
11981   obj = (obj_scm);
11982   {
11983 
11984 #line 2446 "./lib_core.stub"
11985 if (SG_UNBOUNDP(obj)){
11986 Sg_Exit(EXIT_SUCCESS);} else {
11987 if (SG_INTP(obj)){Sg_Exit(((int )(SG_INT_VALUE(obj))));}else if(
11988 SG_TRUEP(obj)){Sg_Exit(EXIT_SUCCESS);} else {
11989 Sg_Exit(EXIT_FAILURE);}}
11990 SG_RETURN(SG_UNDEF);
11991   }
11992 }
11993 static SG_DEFINE_SUBR(core_exit__STUB, 0, 2,core_exit, SG_FALSE, NULL);
11994 
core_bitwise_not(SgObject * SG_FP,int SG_ARGC,void * data_)11995 static SgObject core_bitwise_not(SgObject *SG_FP, int SG_ARGC, void *data_)
11996 {
11997   SgObject ei_scm;
11998   SgObject ei;
11999   SG_ENTER_SUBR("bitwise-not");
12000   if (SG_ARGC != 1)
12001     Sg_WrongNumberOfArgumentsViolation(
12002      SG_INTERN("bitwise-not"), 1, SG_ARGC, SG_NIL);
12003   ei_scm = SG_ARGREF(0);
12004   if (!SG_NUMBERP(ei_scm))
12005     Sg_WrongTypeOfArgumentViolation(
12006        sg__rc_cgen9166.d9486[518], SG_MAKE_STRING("number"), ei_scm, SG_NIL);
12007   ei = (ei_scm);
12008   {
12009 {
12010 SgObject SG_RESULT = (SgObject)NULL;
12011 
12012 #line 2458 "./lib_core.stub"
12013 if ((!(Sg_ExactP(ei)))){{
12014 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[519],SG_MAKE_STRING("exact integer required"),ei,SG_NIL);}}}
12015 
12016 #line 2460 "./lib_core.stub"
12017 SG_RESULT=(Sg_LogNot(ei));
12018 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12019 }
12020   }
12021 }
12022 static SG_DEFINE_SUBR(core_bitwise_not__STUB, 1, 0,core_bitwise_not, SG_FALSE, NULL);
12023 
core_bitwise_and(SgObject * SG_FP,int SG_ARGC,void * data_)12024 static SgObject core_bitwise_and(SgObject *SG_FP, int SG_ARGC, void *data_)
12025 {
12026   SgObject ei_scm;
12027   SgObject ei;
12028   SgObject ei2_scm;
12029   SgObject ei2;
12030   SgObject rest_scm;
12031   SgObject rest;
12032   SG_ENTER_SUBR("bitwise-and");
12033   if (SG_ARGC < 0)
12034     Sg_WrongNumberOfArgumentsAtLeastViolation(
12035      SG_INTERN("bitwise-and"), 0, SG_ARGC, SG_NIL);
12036   if (SG_ARGC > 0+1) {
12037     ei_scm = SG_ARGREF(0);
12038   } else {
12039     ei_scm = SG_UNBOUND;
12040   }
12041   if (!SG_UNBOUNDP(ei_scm) && !SG_EXACT_INTP(ei_scm))
12042     Sg_WrongTypeOfArgumentViolation(
12043        sg__rc_cgen9166.d9486[520], SG_MAKE_STRING("exact integer"), ei_scm, SG_NIL);
12044   ei = (ei_scm);
12045   if (SG_ARGC > 1+1) {
12046     ei2_scm = SG_ARGREF(1);
12047   } else {
12048     ei2_scm = SG_UNBOUND;
12049   }
12050   if (!SG_UNBOUNDP(ei2_scm) && !SG_EXACT_INTP(ei2_scm))
12051     Sg_WrongTypeOfArgumentViolation(
12052        sg__rc_cgen9166.d9486[520], SG_MAKE_STRING("exact integer"), ei2_scm, SG_NIL);
12053   ei2 = (ei2_scm);
12054   rest_scm = SG_ARGREF(SG_ARGC-1);
12055   rest = (rest_scm);
12056   {
12057 {
12058 SgObject SG_RESULT = (SgObject)NULL;
12059 SgObject cise__10904;
12060 #line 2470 "./lib_core.stub"
12061 if (SG_UNBOUNDP(ei)){SG_RESULT=(SG_MAKE_INT(-1));}else if(
12062 SG_NULLP(rest)){
12063 if (SG_UNBOUNDP(ei2)){
12064 SG_RESULT=(ei);} else {
12065 SG_RESULT=(Sg_LogAnd(ei,ei2));}} else {
12066 #line 2476 "./lib_core.stub"
12067 ei=(Sg_LogAnd(ei,ei2));
12068 {SgObject r=Sg_LogAnd(ei,SG_CAR(rest));SG_FOR_EACH(cise__10904,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__10904);r=(Sg_LogAnd(r,v));}}SG_RESULT=(r);}}
12069 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12070 }
12071   }
12072 }
12073 static SG_DEFINE_SUBR(core_bitwise_and__STUB, 0, 3,core_bitwise_and, SG_FALSE, NULL);
12074 
core_bitwise_ior(SgObject * SG_FP,int SG_ARGC,void * data_)12075 static SgObject core_bitwise_ior(SgObject *SG_FP, int SG_ARGC, void *data_)
12076 {
12077   SgObject ei_scm;
12078   SgObject ei;
12079   SgObject ei2_scm;
12080   SgObject ei2;
12081   SgObject rest_scm;
12082   SgObject rest;
12083   SG_ENTER_SUBR("bitwise-ior");
12084   if (SG_ARGC < 0)
12085     Sg_WrongNumberOfArgumentsAtLeastViolation(
12086      SG_INTERN("bitwise-ior"), 0, SG_ARGC, SG_NIL);
12087   if (SG_ARGC > 0+1) {
12088     ei_scm = SG_ARGREF(0);
12089   } else {
12090     ei_scm = SG_UNBOUND;
12091   }
12092   if (!SG_UNBOUNDP(ei_scm) && !SG_EXACT_INTP(ei_scm))
12093     Sg_WrongTypeOfArgumentViolation(
12094        sg__rc_cgen9166.d9486[521], SG_MAKE_STRING("exact integer"), ei_scm, SG_NIL);
12095   ei = (ei_scm);
12096   if (SG_ARGC > 1+1) {
12097     ei2_scm = SG_ARGREF(1);
12098   } else {
12099     ei2_scm = SG_UNBOUND;
12100   }
12101   if (!SG_UNBOUNDP(ei2_scm) && !SG_EXACT_INTP(ei2_scm))
12102     Sg_WrongTypeOfArgumentViolation(
12103        sg__rc_cgen9166.d9486[521], SG_MAKE_STRING("exact integer"), ei2_scm, SG_NIL);
12104   ei2 = (ei2_scm);
12105   rest_scm = SG_ARGREF(SG_ARGC-1);
12106   rest = (rest_scm);
12107   {
12108 {
12109 SgObject SG_RESULT = (SgObject)NULL;
12110 SgObject cise__10905;
12111 #line 2481 "./lib_core.stub"
12112 if (SG_UNBOUNDP(ei)){SG_RESULT=(SG_MAKE_INT(0));}else if(
12113 SG_NULLP(rest)){
12114 if (SG_UNBOUNDP(ei2)){
12115 SG_RESULT=(ei);} else {
12116 SG_RESULT=(Sg_LogIor(ei,ei2));}} else {
12117 #line 2487 "./lib_core.stub"
12118 ei=(Sg_LogIor(ei,ei2));
12119 {SgObject r=Sg_LogIor(ei,SG_CAR(rest));SG_FOR_EACH(cise__10905,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__10905);r=(Sg_LogIor(r,v));}}SG_RESULT=(r);}}
12120 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12121 }
12122   }
12123 }
12124 static SG_DEFINE_SUBR(core_bitwise_ior__STUB, 0, 3,core_bitwise_ior, SG_FALSE, NULL);
12125 
core_bitwise_xor(SgObject * SG_FP,int SG_ARGC,void * data_)12126 static SgObject core_bitwise_xor(SgObject *SG_FP, int SG_ARGC, void *data_)
12127 {
12128   SgObject ei_scm;
12129   SgObject ei;
12130   SgObject ei2_scm;
12131   SgObject ei2;
12132   SgObject rest_scm;
12133   SgObject rest;
12134   SG_ENTER_SUBR("bitwise-xor");
12135   if (SG_ARGC < 0)
12136     Sg_WrongNumberOfArgumentsAtLeastViolation(
12137      SG_INTERN("bitwise-xor"), 0, SG_ARGC, SG_NIL);
12138   if (SG_ARGC > 0+1) {
12139     ei_scm = SG_ARGREF(0);
12140   } else {
12141     ei_scm = SG_UNBOUND;
12142   }
12143   if (!SG_UNBOUNDP(ei_scm) && !SG_EXACT_INTP(ei_scm))
12144     Sg_WrongTypeOfArgumentViolation(
12145        sg__rc_cgen9166.d9486[522], SG_MAKE_STRING("exact integer"), ei_scm, SG_NIL);
12146   ei = (ei_scm);
12147   if (SG_ARGC > 1+1) {
12148     ei2_scm = SG_ARGREF(1);
12149   } else {
12150     ei2_scm = SG_UNBOUND;
12151   }
12152   if (!SG_UNBOUNDP(ei2_scm) && !SG_EXACT_INTP(ei2_scm))
12153     Sg_WrongTypeOfArgumentViolation(
12154        sg__rc_cgen9166.d9486[522], SG_MAKE_STRING("exact integer"), ei2_scm, SG_NIL);
12155   ei2 = (ei2_scm);
12156   rest_scm = SG_ARGREF(SG_ARGC-1);
12157   rest = (rest_scm);
12158   {
12159 {
12160 SgObject SG_RESULT = (SgObject)NULL;
12161 SgObject cise__10906;
12162 #line 2492 "./lib_core.stub"
12163 if (SG_UNBOUNDP(ei)){SG_RESULT=(SG_MAKE_INT(0));}else if(
12164 SG_NULLP(rest)){
12165 if (SG_UNBOUNDP(ei2)){
12166 SG_RESULT=(ei);} else {
12167 SG_RESULT=(Sg_LogXor(ei,ei2));}} else {
12168 #line 2498 "./lib_core.stub"
12169 ei=(Sg_LogXor(ei,ei2));
12170 {SgObject r=Sg_LogXor(ei,SG_CAR(rest));SG_FOR_EACH(cise__10906,SG_CDR(rest)) {{SgObject v=SG_CAR(cise__10906);r=(Sg_LogXor(r,v));}}SG_RESULT=(r);}}
12171 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12172 }
12173   }
12174 }
12175 static SG_DEFINE_SUBR(core_bitwise_xor__STUB, 0, 3,core_bitwise_xor, SG_FALSE, NULL);
12176 
core_bitwise_if(SgObject * SG_FP,int SG_ARGC,void * data_)12177 static SgObject core_bitwise_if(SgObject *SG_FP, int SG_ARGC, void *data_)
12178 {
12179   SgObject ei1_scm;
12180   SgObject ei1;
12181   SgObject ei2_scm;
12182   SgObject ei2;
12183   SgObject ei3_scm;
12184   SgObject ei3;
12185   SG_ENTER_SUBR("bitwise-if");
12186   if (SG_ARGC != 3)
12187     Sg_WrongNumberOfArgumentsViolation(
12188      SG_INTERN("bitwise-if"), 3, SG_ARGC, SG_NIL);
12189   ei1_scm = SG_ARGREF(0);
12190   if (!SG_NUMBERP(ei1_scm))
12191     Sg_WrongTypeOfArgumentViolation(
12192        sg__rc_cgen9166.d9486[523], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12193   ei1 = (ei1_scm);
12194   ei2_scm = SG_ARGREF(1);
12195   if (!SG_NUMBERP(ei2_scm))
12196     Sg_WrongTypeOfArgumentViolation(
12197        sg__rc_cgen9166.d9486[523], SG_MAKE_STRING("number"), ei2_scm, SG_NIL);
12198   ei2 = (ei2_scm);
12199   ei3_scm = SG_ARGREF(2);
12200   if (!SG_NUMBERP(ei3_scm))
12201     Sg_WrongTypeOfArgumentViolation(
12202        sg__rc_cgen9166.d9486[523], SG_MAKE_STRING("number"), ei3_scm, SG_NIL);
12203   ei3 = (ei3_scm);
12204   {
12205 {
12206 SgObject SG_RESULT = (SgObject)NULL;
12207 
12208 #line 2508 "./lib_core.stub"
12209 SG_RESULT=(Sg_LogIor(Sg_LogAnd(ei1,ei2),Sg_LogAnd(Sg_LogNot(ei1),ei3)));
12210 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12211 }
12212   }
12213 }
12214 static SG_DEFINE_SUBR(core_bitwise_if__STUB, 3, 0,core_bitwise_if, SG_FALSE, NULL);
12215 
core_bitwise_bit_count(SgObject * SG_FP,int SG_ARGC,void * data_)12216 static SgObject core_bitwise_bit_count(SgObject *SG_FP, int SG_ARGC, void *data_)
12217 {
12218   SgObject ei_scm;
12219   SgObject ei;
12220   SG_ENTER_SUBR("bitwise-bit-count");
12221   if (SG_ARGC != 1)
12222     Sg_WrongNumberOfArgumentsViolation(
12223      SG_INTERN("bitwise-bit-count"), 1, SG_ARGC, SG_NIL);
12224   ei_scm = SG_ARGREF(0);
12225   if (!SG_NUMBERP(ei_scm))
12226     Sg_WrongTypeOfArgumentViolation(
12227        sg__rc_cgen9166.d9486[524], SG_MAKE_STRING("number"), ei_scm, SG_NIL);
12228   ei = (ei_scm);
12229   {
12230 {
12231 long SG_RESULT = (long)0;
12232 SG_RESULT=(Sg_BitCount(ei));
12233 SG_RETURN(SG_MAKE_INT(SG_RESULT));
12234 }
12235   }
12236 }
12237 static SG_DEFINE_SUBR(core_bitwise_bit_count__STUB, 1, 0,core_bitwise_bit_count, SG_FALSE, NULL);
12238 
core_bitwise_length(SgObject * SG_FP,int SG_ARGC,void * data_)12239 static SgObject core_bitwise_length(SgObject *SG_FP, int SG_ARGC, void *data_)
12240 {
12241   SgObject ei_scm;
12242   SgObject ei;
12243   SG_ENTER_SUBR("bitwise-length");
12244   if (SG_ARGC != 1)
12245     Sg_WrongNumberOfArgumentsViolation(
12246      SG_INTERN("bitwise-length"), 1, SG_ARGC, SG_NIL);
12247   ei_scm = SG_ARGREF(0);
12248   if (!SG_NUMBERP(ei_scm))
12249     Sg_WrongTypeOfArgumentViolation(
12250        sg__rc_cgen9166.d9486[525], SG_MAKE_STRING("number"), ei_scm, SG_NIL);
12251   ei = (ei_scm);
12252   {
12253 {
12254 long SG_RESULT = (long)0;
12255 SG_RESULT=(Sg_BitSize(ei));
12256 SG_RETURN(SG_MAKE_INT(SG_RESULT));
12257 }
12258   }
12259 }
12260 static SG_DEFINE_SUBR(core_bitwise_length__STUB, 1, 0,core_bitwise_length, SG_FALSE, NULL);
12261 
core_bitwise_first_bit_set(SgObject * SG_FP,int SG_ARGC,void * data_)12262 static SgObject core_bitwise_first_bit_set(SgObject *SG_FP, int SG_ARGC, void *data_)
12263 {
12264   SgObject ei_scm;
12265   SgObject ei;
12266   SG_ENTER_SUBR("bitwise-first-bit-set");
12267   if (SG_ARGC != 1)
12268     Sg_WrongNumberOfArgumentsViolation(
12269      SG_INTERN("bitwise-first-bit-set"), 1, SG_ARGC, SG_NIL);
12270   ei_scm = SG_ARGREF(0);
12271   if (!SG_NUMBERP(ei_scm))
12272     Sg_WrongTypeOfArgumentViolation(
12273        sg__rc_cgen9166.d9486[526], SG_MAKE_STRING("number"), ei_scm, SG_NIL);
12274   ei = (ei_scm);
12275   {
12276 {
12277 long SG_RESULT = (long)0;
12278 SG_RESULT=(Sg_FirstBitSet(ei));
12279 SG_RETURN(SG_MAKE_INT(SG_RESULT));
12280 }
12281   }
12282 }
12283 static SG_DEFINE_SUBR(core_bitwise_first_bit_set__STUB, 1, 0,core_bitwise_first_bit_set, SG_FALSE, NULL);
12284 
core_bitwise_bit_setP(SgObject * SG_FP,int SG_ARGC,void * data_)12285 static SgObject core_bitwise_bit_setP(SgObject *SG_FP, int SG_ARGC, void *data_)
12286 {
12287   SgObject ei1_scm;
12288   SgObject ei1;
12289   SgObject ei2_scm;
12290   long ei2;
12291   SG_ENTER_SUBR("bitwise-bit-set?");
12292   if (SG_ARGC != 2)
12293     Sg_WrongNumberOfArgumentsViolation(
12294      SG_INTERN("bitwise-bit-set?"), 2, SG_ARGC, SG_NIL);
12295   ei1_scm = SG_ARGREF(0);
12296   if (!SG_NUMBERP(ei1_scm))
12297     Sg_WrongTypeOfArgumentViolation(
12298        sg__rc_cgen9166.d9486[527], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12299   ei1 = (ei1_scm);
12300   ei2_scm = SG_ARGREF(1);
12301   if (!SG_INTP(ei2_scm))
12302     Sg_WrongTypeOfArgumentViolation(
12303        sg__rc_cgen9166.d9486[527], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12304   ei2 = SG_INT_VALUE(ei2_scm);
12305   {
12306 {
12307 int SG_RESULT = (int)FALSE;
12308 SG_RESULT=(Sg_BitSetP(ei1,ei2));
12309 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
12310 }
12311   }
12312 }
12313 static SG_DEFINE_SUBR(core_bitwise_bit_setP__STUB, 2, 0,core_bitwise_bit_setP, SG_FALSE, NULL);
12314 
core_bitwise_copy_bit(SgObject * SG_FP,int SG_ARGC,void * data_)12315 static SgObject core_bitwise_copy_bit(SgObject *SG_FP, int SG_ARGC, void *data_)
12316 {
12317   SgObject ei1_scm;
12318   SgObject ei1;
12319   SgObject ei2_scm;
12320   long ei2;
12321   SgObject ei3_scm;
12322   SgObject ei3;
12323   SG_ENTER_SUBR("bitwise-copy-bit");
12324   if (SG_ARGC != 3)
12325     Sg_WrongNumberOfArgumentsViolation(
12326      SG_INTERN("bitwise-copy-bit"), 3, SG_ARGC, SG_NIL);
12327   ei1_scm = SG_ARGREF(0);
12328   if (!SG_NUMBERP(ei1_scm))
12329     Sg_WrongTypeOfArgumentViolation(
12330        sg__rc_cgen9166.d9486[528], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12331   ei1 = (ei1_scm);
12332   ei2_scm = SG_ARGREF(1);
12333   if (!SG_INTP(ei2_scm))
12334     Sg_WrongTypeOfArgumentViolation(
12335        sg__rc_cgen9166.d9486[528], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12336   ei2 = SG_INT_VALUE(ei2_scm);
12337   ei3_scm = SG_ARGREF(2);
12338   if (!SG_NUMBERP(ei3_scm))
12339     Sg_WrongTypeOfArgumentViolation(
12340        sg__rc_cgen9166.d9486[528], SG_MAKE_STRING("number"), ei3_scm, SG_NIL);
12341   ei3 = (ei3_scm);
12342   {
12343 {
12344 SgObject SG_RESULT = (SgObject)NULL;
12345 
12346 #line 2525 "./lib_core.stub"
12347 {SgObject mask=Sg_Ash(SG_MAKE_INT(1),ei2);
12348 SG_RESULT=(Sg_LogIor(Sg_LogAnd(mask,Sg_Ash(ei3,ei2)),Sg_LogAnd(Sg_LogNot(mask),ei1)));}
12349 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12350 }
12351   }
12352 }
12353 static SG_DEFINE_SUBR(core_bitwise_copy_bit__STUB, 3, 0,core_bitwise_copy_bit, SG_FALSE, NULL);
12354 
core_bitwise_bit_field(SgObject * SG_FP,int SG_ARGC,void * data_)12355 static SgObject core_bitwise_bit_field(SgObject *SG_FP, int SG_ARGC, void *data_)
12356 {
12357   SgObject ei1_scm;
12358   SgObject ei1;
12359   SgObject ei2_scm;
12360   long ei2;
12361   SgObject ei3_scm;
12362   long ei3;
12363   SG_ENTER_SUBR("bitwise-bit-field");
12364   if (SG_ARGC != 3)
12365     Sg_WrongNumberOfArgumentsViolation(
12366      SG_INTERN("bitwise-bit-field"), 3, SG_ARGC, SG_NIL);
12367   ei1_scm = SG_ARGREF(0);
12368   if (!SG_NUMBERP(ei1_scm))
12369     Sg_WrongTypeOfArgumentViolation(
12370        sg__rc_cgen9166.d9486[529], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12371   ei1 = (ei1_scm);
12372   ei2_scm = SG_ARGREF(1);
12373   if (!SG_INTP(ei2_scm))
12374     Sg_WrongTypeOfArgumentViolation(
12375        sg__rc_cgen9166.d9486[529], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12376   ei2 = SG_INT_VALUE(ei2_scm);
12377   ei3_scm = SG_ARGREF(2);
12378   if (!SG_INTP(ei3_scm))
12379     Sg_WrongTypeOfArgumentViolation(
12380        sg__rc_cgen9166.d9486[529], SG_MAKE_STRING("fixnum"), ei3_scm, SG_NIL);
12381   ei3 = SG_INT_VALUE(ei3_scm);
12382   {
12383 {
12384 SgObject SG_RESULT = (SgObject)NULL;
12385 
12386 #line 2530 "./lib_core.stub"
12387 if ((ei2)<(0)){{
12388 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[530],SG_MAKE_STRING("2nd parameter (start) must be non-negative"),
12389 SG_MAKE_INT(ei2));}}}
12390 
12391 #line 2533 "./lib_core.stub"
12392 if ((ei3)<(0)){{
12393 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[530],SG_MAKE_STRING("3rd parameter (end) must be non-negative"),
12394 SG_MAKE_INT(ei3));}}}
12395 
12396 #line 2536 "./lib_core.stub"
12397 if ((ei2)>(ei3)){{
12398 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[530],SG_MAKE_STRING("2nd parameter must be less than or equal to 3rd parameter"),
12399 #line 2539 "./lib_core.stub"
12400 SG_LIST3(ei1,SG_MAKE_INT(ei2),SG_MAKE_INT(ei3)));}}}
12401 
12402 #line 2540 "./lib_core.stub"
12403 {SgObject mask=Sg_LogNot(Sg_Ash(SG_MAKE_INT(-1),ei3));
12404 SG_RESULT=(Sg_Ash(Sg_LogAnd(ei1,mask),(0)-(ei2)));}
12405 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12406 }
12407   }
12408 }
12409 static SG_DEFINE_SUBR(core_bitwise_bit_field__STUB, 3, 0,core_bitwise_bit_field, SG_FALSE, NULL);
12410 
core_bitwise_copy_bit_field(SgObject * SG_FP,int SG_ARGC,void * data_)12411 static SgObject core_bitwise_copy_bit_field(SgObject *SG_FP, int SG_ARGC, void *data_)
12412 {
12413   SgObject ei1_scm;
12414   SgObject ei1;
12415   SgObject ei2_scm;
12416   long ei2;
12417   SgObject ei3_scm;
12418   long ei3;
12419   SgObject ei4_scm;
12420   SgObject ei4;
12421   SG_ENTER_SUBR("bitwise-copy-bit-field");
12422   if (SG_ARGC != 4)
12423     Sg_WrongNumberOfArgumentsViolation(
12424      SG_INTERN("bitwise-copy-bit-field"), 4, SG_ARGC, SG_NIL);
12425   ei1_scm = SG_ARGREF(0);
12426   if (!SG_NUMBERP(ei1_scm))
12427     Sg_WrongTypeOfArgumentViolation(
12428        sg__rc_cgen9166.d9486[531], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12429   ei1 = (ei1_scm);
12430   ei2_scm = SG_ARGREF(1);
12431   if (!SG_INTP(ei2_scm))
12432     Sg_WrongTypeOfArgumentViolation(
12433        sg__rc_cgen9166.d9486[531], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12434   ei2 = SG_INT_VALUE(ei2_scm);
12435   ei3_scm = SG_ARGREF(2);
12436   if (!SG_INTP(ei3_scm))
12437     Sg_WrongTypeOfArgumentViolation(
12438        sg__rc_cgen9166.d9486[531], SG_MAKE_STRING("fixnum"), ei3_scm, SG_NIL);
12439   ei3 = SG_INT_VALUE(ei3_scm);
12440   ei4_scm = SG_ARGREF(3);
12441   if (!SG_NUMBERP(ei4_scm))
12442     Sg_WrongTypeOfArgumentViolation(
12443        sg__rc_cgen9166.d9486[531], SG_MAKE_STRING("number"), ei4_scm, SG_NIL);
12444   ei4 = (ei4_scm);
12445   {
12446 {
12447 SgObject SG_RESULT = (SgObject)NULL;
12448 
12449 #line 2545 "./lib_core.stub"
12450 {SgObject to=ei1;long start=ei2;long end=ei3;SgObject from=ei4;SgObject mask1=
12451 #line 2549 "./lib_core.stub"
12452 Sg_Ash(SG_MAKE_INT(-1),start);SgObject mask2=
12453 Sg_LogNot(Sg_Ash(SG_MAKE_INT(-1),end));SgObject mask=
12454 Sg_LogAnd(mask1,mask2);
12455 SG_RESULT=(Sg_LogIor(Sg_LogAnd(mask,Sg_Ash(from,start)),Sg_LogAnd(Sg_LogNot(mask),to)));}
12456 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12457 }
12458   }
12459 }
12460 static SG_DEFINE_SUBR(core_bitwise_copy_bit_field__STUB, 4, 0,core_bitwise_copy_bit_field, SG_FALSE, NULL);
12461 
core_bitwise_arithmetic_shift(SgObject * SG_FP,int SG_ARGC,void * data_)12462 static SgObject core_bitwise_arithmetic_shift(SgObject *SG_FP, int SG_ARGC, void *data_)
12463 {
12464   SgObject ei1_scm;
12465   SgObject ei1;
12466   SgObject ei2_scm;
12467   long ei2;
12468   SG_ENTER_SUBR("bitwise-arithmetic-shift");
12469   if (SG_ARGC != 2)
12470     Sg_WrongNumberOfArgumentsViolation(
12471      SG_INTERN("bitwise-arithmetic-shift"), 2, SG_ARGC, SG_NIL);
12472   ei1_scm = SG_ARGREF(0);
12473   if (!SG_NUMBERP(ei1_scm))
12474     Sg_WrongTypeOfArgumentViolation(
12475        sg__rc_cgen9166.d9486[532], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12476   ei1 = (ei1_scm);
12477   ei2_scm = SG_ARGREF(1);
12478   if (!SG_INTP(ei2_scm))
12479     Sg_WrongTypeOfArgumentViolation(
12480        sg__rc_cgen9166.d9486[532], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12481   ei2 = SG_INT_VALUE(ei2_scm);
12482   {
12483 {
12484 SgObject SG_RESULT = (SgObject)NULL;
12485 SG_RESULT=(Sg_Ash(ei1,ei2));
12486 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12487 }
12488   }
12489 }
12490 static SG_DEFINE_SUBR(core_bitwise_arithmetic_shift__STUB, 2, 0,core_bitwise_arithmetic_shift, SG_FALSE, NULL);
12491 
core_bitwise_arithmetic_shift_left(SgObject * SG_FP,int SG_ARGC,void * data_)12492 static SgObject core_bitwise_arithmetic_shift_left(SgObject *SG_FP, int SG_ARGC, void *data_)
12493 {
12494   SgObject ei1_scm;
12495   SgObject ei1;
12496   SgObject ei2_scm;
12497   long ei2;
12498   SG_ENTER_SUBR("bitwise-arithmetic-shift-left");
12499   if (SG_ARGC != 2)
12500     Sg_WrongNumberOfArgumentsViolation(
12501      SG_INTERN("bitwise-arithmetic-shift-left"), 2, SG_ARGC, SG_NIL);
12502   ei1_scm = SG_ARGREF(0);
12503   if (!SG_NUMBERP(ei1_scm))
12504     Sg_WrongTypeOfArgumentViolation(
12505        sg__rc_cgen9166.d9486[533], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12506   ei1 = (ei1_scm);
12507   ei2_scm = SG_ARGREF(1);
12508   if (!SG_INTP(ei2_scm))
12509     Sg_WrongTypeOfArgumentViolation(
12510        sg__rc_cgen9166.d9486[533], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12511   ei2 = SG_INT_VALUE(ei2_scm);
12512   {
12513 {
12514 SgObject SG_RESULT = (SgObject)NULL;
12515 SG_RESULT=(Sg_Ash(ei1,ei2));
12516 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12517 }
12518   }
12519 }
12520 static SG_DEFINE_SUBR(core_bitwise_arithmetic_shift_left__STUB, 2, 0,core_bitwise_arithmetic_shift_left, SG_FALSE, NULL);
12521 
core_bitwise_arithmetic_shift_right(SgObject * SG_FP,int SG_ARGC,void * data_)12522 static SgObject core_bitwise_arithmetic_shift_right(SgObject *SG_FP, int SG_ARGC, void *data_)
12523 {
12524   SgObject ei1_scm;
12525   SgObject ei1;
12526   SgObject ei2_scm;
12527   long ei2;
12528   SG_ENTER_SUBR("bitwise-arithmetic-shift-right");
12529   if (SG_ARGC != 2)
12530     Sg_WrongNumberOfArgumentsViolation(
12531      SG_INTERN("bitwise-arithmetic-shift-right"), 2, SG_ARGC, SG_NIL);
12532   ei1_scm = SG_ARGREF(0);
12533   if (!SG_NUMBERP(ei1_scm))
12534     Sg_WrongTypeOfArgumentViolation(
12535        sg__rc_cgen9166.d9486[534], SG_MAKE_STRING("number"), ei1_scm, SG_NIL);
12536   ei1 = (ei1_scm);
12537   ei2_scm = SG_ARGREF(1);
12538   if (!SG_INTP(ei2_scm))
12539     Sg_WrongTypeOfArgumentViolation(
12540        sg__rc_cgen9166.d9486[534], SG_MAKE_STRING("fixnum"), ei2_scm, SG_NIL);
12541   ei2 = SG_INT_VALUE(ei2_scm);
12542   {
12543 {
12544 SgObject SG_RESULT = (SgObject)NULL;
12545 
12546 #line 2562 "./lib_core.stub"
12547 SG_RESULT=(Sg_Ash(ei1,(0)-(ei2)));
12548 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12549 }
12550   }
12551 }
12552 static SG_DEFINE_SUBR(core_bitwise_arithmetic_shift_right__STUB, 2, 0,core_bitwise_arithmetic_shift_right, SG_FALSE, NULL);
12553 
core_identifierP(SgObject * SG_FP,int SG_ARGC,void * data_)12554 static SgObject core_identifierP(SgObject *SG_FP, int SG_ARGC, void *data_)
12555 {
12556   SgObject id_scm;
12557   SgObject id;
12558   SG_ENTER_SUBR("identifier?");
12559   if (SG_ARGC != 1)
12560     Sg_WrongNumberOfArgumentsViolation(
12561      SG_INTERN("identifier?"), 1, SG_ARGC, SG_NIL);
12562   id_scm = SG_ARGREF(0);
12563   id = (id_scm);
12564   {
12565 {
12566 int SG_RESULT = (int)FALSE;
12567 SG_RESULT=(SG_IDENTIFIERP(id));
12568 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
12569 }
12570   }
12571 }
12572 static SG_DEFINE_SUBR(core_identifierP__STUB, 1, 0,core_identifierP, SG_FALSE, NULL);
12573 
retrieve_weakness(SgObject weakness)12574 static SgWeakness retrieve_weakness(SgObject weakness){{
12575 #line 2573 "./lib_core.stub"
12576 if (SG_EQ(weakness,sg__rc_cgen9166.d9486[542])){return (SG_WEAK_KEY);}else if(
12577 SG_EQ(weakness,sg__rc_cgen9166.d9486[540])){return (SG_WEAK_VALUE);}else if(
12578 SG_EQ(weakness,sg__rc_cgen9166.d9486[538])){return (SG_WEAK_BOTH);} else {
12579 #line 2577 "./lib_core.stub"
12580 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[536],SG_MAKE_STRING("weakness must be one of 'key, 'value or 'both"),weakness);}
12581 #line 2580 "./lib_core.stub"
12582 return (-1);}}}
core_make_eq_hashtable(SgObject * SG_FP,int SG_ARGC,void * data_)12583 static SgObject core_make_eq_hashtable(SgObject *SG_FP, int SG_ARGC, void *data_)
12584 {
12585   SgObject kP_scm;
12586   SgObject kP;
12587   SgObject weakness_scm;
12588   SgObject weakness;
12589   SG_ENTER_SUBR("make-eq-hashtable");
12590   if ((SG_ARGC > 2 &&
12591       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12592       SG_ARGC < 0)
12593     Sg_WrongNumberOfArgumentsBetweenViolation(
12594      SG_INTERN("make-eq-hashtable"), 0, 2, SG_ARGC, SG_NIL);
12595   if (SG_ARGC > 0+1) {
12596     kP_scm = SG_ARGREF(0);
12597   } else {
12598     kP_scm = SG_FALSE;
12599   }
12600   kP = (kP_scm);
12601   if (SG_ARGC > 1+1) {
12602     weakness_scm = SG_ARGREF(1);
12603   } else {
12604     weakness_scm = SG_FALSE;
12605   }
12606   weakness = (weakness_scm);
12607   {
12608 {
12609 SgObject SG_RESULT = (SgObject)NULL;
12610 
12611 #line 2584 "./lib_core.stub"
12612 {long k=-1;
12613 if (SG_INTP(kP)){k=(SG_INT_VALUE(kP));}else if(
12614 SG_FALSEP(kP)){k=(200);} else {
12615 #line 2588 "./lib_core.stub"
12616 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[545],SG_MAKE_STRING("#f or fixnum"),kP,SG_NIL);}}
12617 #line 2590 "./lib_core.stub"
12618 if ((k)<(0)){{
12619 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[545],SG_MAKE_STRING("non negative exact integer"),kP,SG_NIL);}}}
12620 #line 2594 "./lib_core.stub"
12621 if (SG_FALSEP(weakness)){
12622 SG_RESULT=(Sg_MakeHashTableSimple(SG_HASH_EQ,k));} else {
12623 {SgWeakness w=retrieve_weakness(weakness);
12624 SG_RESULT=(Sg_MakeWeakHashTableSimple(SG_HASH_EQ,w,k,SG_UNDEF));}}}
12625 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12626 }
12627   }
12628 }
12629 static SG_DEFINE_SUBR(core_make_eq_hashtable__STUB, 0, 3,core_make_eq_hashtable, SG_FALSE, NULL);
12630 
core_make_eqv_hashtable(SgObject * SG_FP,int SG_ARGC,void * data_)12631 static SgObject core_make_eqv_hashtable(SgObject *SG_FP, int SG_ARGC, void *data_)
12632 {
12633   SgObject kP_scm;
12634   SgObject kP;
12635   SgObject weakness_scm;
12636   SgObject weakness;
12637   SG_ENTER_SUBR("make-eqv-hashtable");
12638   if ((SG_ARGC > 2 &&
12639       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12640       SG_ARGC < 0)
12641     Sg_WrongNumberOfArgumentsBetweenViolation(
12642      SG_INTERN("make-eqv-hashtable"), 0, 2, SG_ARGC, SG_NIL);
12643   if (SG_ARGC > 0+1) {
12644     kP_scm = SG_ARGREF(0);
12645   } else {
12646     kP_scm = SG_FALSE;
12647   }
12648   kP = (kP_scm);
12649   if (SG_ARGC > 1+1) {
12650     weakness_scm = SG_ARGREF(1);
12651   } else {
12652     weakness_scm = SG_FALSE;
12653   }
12654   weakness = (weakness_scm);
12655   {
12656 {
12657 SgObject SG_RESULT = (SgObject)NULL;
12658 
12659 #line 2601 "./lib_core.stub"
12660 {long k=-1;
12661 if (SG_INTP(kP)){k=(SG_INT_VALUE(kP));}else if(
12662 SG_FALSEP(kP)){k=(200);} else {
12663 #line 2605 "./lib_core.stub"
12664 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[547],SG_MAKE_STRING("#f or fixnum"),kP,SG_NIL);}}
12665 #line 2607 "./lib_core.stub"
12666 if ((k)<(0)){{
12667 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[547],SG_MAKE_STRING("non negative exact integer"),
12668 #line 2610 "./lib_core.stub"
12669 SG_MAKE_INT(k),SG_NIL);}}}
12670 if (SG_FALSEP(weakness)){
12671 SG_RESULT=(Sg_MakeHashTableSimple(SG_HASH_EQV,k));} else {
12672 {SgWeakness w=retrieve_weakness(weakness);
12673 SG_RESULT=(Sg_MakeWeakHashTableSimple(SG_HASH_EQV,w,k,SG_UNDEF));}}}
12674 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12675 }
12676   }
12677 }
12678 static SG_DEFINE_SUBR(core_make_eqv_hashtable__STUB, 0, 3,core_make_eqv_hashtable, SG_FALSE, NULL);
12679 
core_make_hashtable(SgObject * SG_FP,int SG_ARGC,void * data_)12680 static SgObject core_make_hashtable(SgObject *SG_FP, int SG_ARGC, void *data_)
12681 {
12682   SgObject hasher_scm;
12683   SgProcedure* hasher;
12684   SgObject equiv_scm;
12685   SgProcedure* equiv;
12686   SgObject kP_scm;
12687   SgObject kP;
12688   SgObject weakness_scm;
12689   SgObject weakness;
12690   SG_ENTER_SUBR("make-hashtable");
12691   if ((SG_ARGC > 4 &&
12692       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12693       SG_ARGC < 2)
12694     Sg_WrongNumberOfArgumentsBetweenViolation(
12695      SG_INTERN("make-hashtable"), 2, 4, SG_ARGC, SG_NIL);
12696   hasher_scm = SG_ARGREF(0);
12697   if (!SG_PROCEDUREP(hasher_scm))
12698     Sg_WrongTypeOfArgumentViolation(
12699        sg__rc_cgen9166.d9486[537], SG_MAKE_STRING("procedure"), hasher_scm, SG_NIL);
12700   hasher = SG_PROCEDURE(hasher_scm);
12701   equiv_scm = SG_ARGREF(1);
12702   if (!SG_PROCEDUREP(equiv_scm))
12703     Sg_WrongTypeOfArgumentViolation(
12704        sg__rc_cgen9166.d9486[537], SG_MAKE_STRING("procedure"), equiv_scm, SG_NIL);
12705   equiv = SG_PROCEDURE(equiv_scm);
12706   if (SG_ARGC > 2+1) {
12707     kP_scm = SG_ARGREF(2);
12708   } else {
12709     kP_scm = SG_FALSE;
12710   }
12711   kP = (kP_scm);
12712   if (SG_ARGC > 3+1) {
12713     weakness_scm = SG_ARGREF(3);
12714   } else {
12715     weakness_scm = SG_FALSE;
12716   }
12717   weakness = (weakness_scm);
12718   {
12719 {
12720 SgObject SG_RESULT = (SgObject)NULL;
12721 
12722 #line 2619 "./lib_core.stub"
12723 {long k=-1;
12724 if (SG_INTP(kP)){k=(SG_INT_VALUE(kP));}else if(
12725 SG_FALSEP(kP)){k=(200);} else {
12726 #line 2623 "./lib_core.stub"
12727 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[536],SG_MAKE_STRING("#f or fixnum"),kP,SG_NIL);}}
12728 #line 2625 "./lib_core.stub"
12729 if ((k)<(0)){{
12730 {Sg_WrongTypeOfArgumentViolation(sg__rc_cgen9166.d9486[536],SG_MAKE_STRING("non negative exact integer"),
12731 #line 2628 "./lib_core.stub"
12732 SG_MAKE_INT(k),SG_NIL);}}}
12733 if (SG_FALSEP(weakness)){
12734 SG_RESULT=(Sg_MakeHashTable(hasher,equiv,k));} else {
12735 {SgWeakness w=retrieve_weakness(weakness);
12736 SG_RESULT=(Sg_MakeWeakHashTable(hasher,equiv,w,k,SG_UNDEF));}}}
12737 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12738 }
12739   }
12740 }
12741 static SG_DEFINE_SUBR(core_make_hashtable__STUB, 2, 3,core_make_hashtable, SG_FALSE, NULL);
12742 
core_hashtableP(SgObject * SG_FP,int SG_ARGC,void * data_)12743 static SgObject core_hashtableP(SgObject *SG_FP, int SG_ARGC, void *data_)
12744 {
12745   SgObject o_scm;
12746   SgObject o;
12747   SG_ENTER_SUBR("hashtable?");
12748   if (SG_ARGC != 1)
12749     Sg_WrongNumberOfArgumentsViolation(
12750      SG_INTERN("hashtable?"), 1, SG_ARGC, SG_NIL);
12751   o_scm = SG_ARGREF(0);
12752   o = (o_scm);
12753   {
12754 {
12755 int SG_RESULT = (int)FALSE;
12756 SG_RESULT=(SG_HASHTABLE_P(o));
12757 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
12758 }
12759   }
12760 }
12761 static SG_DEFINE_SUBR(core_hashtableP__STUB, 1, 0,core_hashtableP, SG_FALSE, NULL);
12762 
core_hashtable_size(SgObject * SG_FP,int SG_ARGC,void * data_)12763 static SgObject core_hashtable_size(SgObject *SG_FP, int SG_ARGC, void *data_)
12764 {
12765   SgObject ht_scm;
12766   SgHashTable* ht;
12767   SG_ENTER_SUBR("hashtable-size");
12768   if (SG_ARGC != 1)
12769     Sg_WrongNumberOfArgumentsViolation(
12770      SG_INTERN("hashtable-size"), 1, SG_ARGC, SG_NIL);
12771   ht_scm = SG_ARGREF(0);
12772   if (!SG_HASHTABLE_P(ht_scm))
12773     Sg_WrongTypeOfArgumentViolation(
12774        sg__rc_cgen9166.d9486[549], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12775   ht = SG_HASHTABLE(ht_scm);
12776   {
12777 {
12778 long SG_RESULT = (long)0;
12779 SG_RESULT=(Sg_HashTableSize(ht));
12780 SG_RETURN(SG_MAKE_INT(SG_RESULT));
12781 }
12782   }
12783 }
12784 static SG_DEFINE_SUBR(core_hashtable_size__STUB, 1, 0,core_hashtable_size, SG_FALSE, NULL);
12785 
core_hashtable_ref(SgObject * SG_FP,int SG_ARGC,void * data_)12786 static SgObject core_hashtable_ref(SgObject *SG_FP, int SG_ARGC, void *data_)
12787 {
12788   SgObject ht_scm;
12789   SgHashTable* ht;
12790   SgObject key_scm;
12791   SgObject key;
12792   SgObject fallback_scm;
12793   SgObject fallback;
12794   SG_ENTER_SUBR("hashtable-ref");
12795   if ((SG_ARGC > 3 &&
12796       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12797       SG_ARGC < 2)
12798     Sg_WrongNumberOfArgumentsBetweenViolation(
12799      SG_INTERN("hashtable-ref"), 2, 3, SG_ARGC, SG_NIL);
12800   ht_scm = SG_ARGREF(0);
12801   if (!SG_HASHTABLE_P(ht_scm))
12802     Sg_WrongTypeOfArgumentViolation(
12803        sg__rc_cgen9166.d9486[550], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12804   ht = SG_HASHTABLE(ht_scm);
12805   key_scm = SG_ARGREF(1);
12806   key = (key_scm);
12807   if (SG_ARGC > 2+1) {
12808     fallback_scm = SG_ARGREF(2);
12809   } else {
12810     fallback_scm = SG_FALSE;
12811   }
12812   fallback = (fallback_scm);
12813   {
12814 {
12815 SgObject SG_RESULT = (SgObject)NULL;
12816 
12817 #line 2641 "./lib_core.stub"
12818 SG_RESULT=(Sg_HashTableRef(ht,key,fallback));
12819 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12820 }
12821   }
12822 }
12823 static SG_DEFINE_SUBR(core_hashtable_ref__STUB, 2, 2,core_hashtable_ref, SG_FALSE, NULL);
12824 
core_hashtable_setX(SgObject * SG_FP,int SG_ARGC,void * data_)12825 static SgObject core_hashtable_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
12826 {
12827   SgObject ht_scm;
12828   SgHashTable* ht;
12829   SgObject key_scm;
12830   SgObject key;
12831   SgObject value_scm;
12832   SgObject value;
12833   SG_ENTER_SUBR("hashtable-set!");
12834   if (SG_ARGC != 3)
12835     Sg_WrongNumberOfArgumentsViolation(
12836      SG_INTERN("hashtable-set!"), 3, SG_ARGC, SG_NIL);
12837   ht_scm = SG_ARGREF(0);
12838   if (!SG_HASHTABLE_P(ht_scm))
12839     Sg_WrongTypeOfArgumentViolation(
12840        sg__rc_cgen9166.d9486[551], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12841   ht = SG_HASHTABLE(ht_scm);
12842   key_scm = SG_ARGREF(1);
12843   key = (key_scm);
12844   value_scm = SG_ARGREF(2);
12845   value = (value_scm);
12846   {
12847 
12848 #line 2650 "./lib_core.stub"
12849 if (SG_IMMUTABLE_HASHTABLE_P(ht)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[552],SG_MAKE_STRING("attemp to modify an immutable hashtable"),ht);}}}
12850 
12851 #line 2651 "./lib_core.stub"
12852 Sg_HashTableSet(ht,key,value,0);
12853 SG_RETURN(SG_UNDEF);
12854   }
12855 }
12856 static SG_DEFINE_SUBR(core_hashtable_setX__STUB, 3, 0,core_hashtable_setX, SG_FALSE, NULL);
12857 
core_hashtable_deleteX(SgObject * SG_FP,int SG_ARGC,void * data_)12858 static SgObject core_hashtable_deleteX(SgObject *SG_FP, int SG_ARGC, void *data_)
12859 {
12860   SgObject ht_scm;
12861   SgHashTable* ht;
12862   SgObject key_scm;
12863   SgObject key;
12864   SG_ENTER_SUBR("hashtable-delete!");
12865   if (SG_ARGC != 2)
12866     Sg_WrongNumberOfArgumentsViolation(
12867      SG_INTERN("hashtable-delete!"), 2, SG_ARGC, SG_NIL);
12868   ht_scm = SG_ARGREF(0);
12869   if (!SG_HASHTABLE_P(ht_scm))
12870     Sg_WrongTypeOfArgumentViolation(
12871        sg__rc_cgen9166.d9486[553], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12872   ht = SG_HASHTABLE(ht_scm);
12873   key_scm = SG_ARGREF(1);
12874   key = (key_scm);
12875   {
12876 
12877 #line 2654 "./lib_core.stub"
12878 if (SG_IMMUTABLE_HASHTABLE_P(ht)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[552],SG_MAKE_STRING("attemp to modify an immutable hashtable"),ht);}}}
12879 
12880 #line 2655 "./lib_core.stub"
12881 Sg_HashTableDelete(ht,key);
12882 SG_RETURN(SG_UNDEF);
12883   }
12884 }
12885 static SG_DEFINE_SUBR(core_hashtable_deleteX__STUB, 2, 0,core_hashtable_deleteX, SG_FALSE, NULL);
12886 
core_hashtable_containsP(SgObject * SG_FP,int SG_ARGC,void * data_)12887 static SgObject core_hashtable_containsP(SgObject *SG_FP, int SG_ARGC, void *data_)
12888 {
12889   SgObject ht_scm;
12890   SgHashTable* ht;
12891   SgObject key_scm;
12892   SgObject key;
12893   SG_ENTER_SUBR("hashtable-contains?");
12894   if (SG_ARGC != 2)
12895     Sg_WrongNumberOfArgumentsViolation(
12896      SG_INTERN("hashtable-contains?"), 2, SG_ARGC, SG_NIL);
12897   ht_scm = SG_ARGREF(0);
12898   if (!SG_HASHTABLE_P(ht_scm))
12899     Sg_WrongTypeOfArgumentViolation(
12900        sg__rc_cgen9166.d9486[554], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12901   ht = SG_HASHTABLE(ht_scm);
12902   key_scm = SG_ARGREF(1);
12903   key = (key_scm);
12904   {
12905 {
12906 int SG_RESULT = (int)FALSE;
12907 
12908 #line 2659 "./lib_core.stub"
12909 SG_RESULT=((Sg_HashTableRef(ht,key,NULL))!=(NULL));
12910 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
12911 }
12912   }
12913 }
12914 static SG_DEFINE_SUBR(core_hashtable_containsP__STUB, 2, 0,core_hashtable_containsP, SG_FALSE, NULL);
12915 
core_hashtable_copy(SgObject * SG_FP,int SG_ARGC,void * data_)12916 static SgObject core_hashtable_copy(SgObject *SG_FP, int SG_ARGC, void *data_)
12917 {
12918   SgObject ht_scm;
12919   SgHashTable* ht;
12920   SgObject mutableP_scm;
12921   int mutableP;
12922   SG_ENTER_SUBR("hashtable-copy");
12923   if ((SG_ARGC > 2 &&
12924       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12925       SG_ARGC < 1)
12926     Sg_WrongNumberOfArgumentsBetweenViolation(
12927      SG_INTERN("hashtable-copy"), 1, 2, SG_ARGC, SG_NIL);
12928   ht_scm = SG_ARGREF(0);
12929   if (!SG_HASHTABLE_P(ht_scm))
12930     Sg_WrongTypeOfArgumentViolation(
12931        sg__rc_cgen9166.d9486[555], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12932   ht = SG_HASHTABLE(ht_scm);
12933   if (SG_ARGC > 1+1) {
12934     mutableP_scm = SG_ARGREF(1);
12935   } else {
12936     mutableP_scm = SG_FALSE;
12937   }
12938   if (!SG_FALSEP(mutableP_scm) && !SG_BOOLP(mutableP_scm))
12939     Sg_WrongTypeOfArgumentViolation(
12940        sg__rc_cgen9166.d9486[555], SG_MAKE_STRING("boolean"), mutableP_scm, SG_NIL);
12941   mutableP = SG_BOOL_VALUE(mutableP_scm);
12942   {
12943 {
12944 SgObject SG_RESULT = (SgObject)NULL;
12945 
12946 #line 2663 "./lib_core.stub"
12947 SG_RESULT=(Sg_HashTableCopy(ht,mutableP));
12948 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
12949 }
12950   }
12951 }
12952 static SG_DEFINE_SUBR(core_hashtable_copy__STUB, 1, 2,core_hashtable_copy, SG_FALSE, NULL);
12953 
core_hashtable_clearX(SgObject * SG_FP,int SG_ARGC,void * data_)12954 static SgObject core_hashtable_clearX(SgObject *SG_FP, int SG_ARGC, void *data_)
12955 {
12956   SgObject ht_scm;
12957   SgHashTable* ht;
12958   SgObject k_scm;
12959   long k;
12960   SG_ENTER_SUBR("hashtable-clear!");
12961   if ((SG_ARGC > 2 &&
12962       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
12963       SG_ARGC < 1)
12964     Sg_WrongNumberOfArgumentsBetweenViolation(
12965      SG_INTERN("hashtable-clear!"), 1, 2, SG_ARGC, SG_NIL);
12966   ht_scm = SG_ARGREF(0);
12967   if (!SG_HASHTABLE_P(ht_scm))
12968     Sg_WrongTypeOfArgumentViolation(
12969        sg__rc_cgen9166.d9486[556], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
12970   ht = SG_HASHTABLE(ht_scm);
12971   if (SG_ARGC > 1+1) {
12972     k_scm = SG_ARGREF(1);
12973   } else {
12974     k_scm = SG_MAKE_INT(-1);
12975   }
12976   if (!SG_INTP(k_scm) && !SG_INTP(k_scm))
12977     Sg_WrongTypeOfArgumentViolation(
12978        sg__rc_cgen9166.d9486[556], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
12979   k = SG_INT_VALUE(k_scm);
12980   {
12981 
12982 #line 2667 "./lib_core.stub"
12983 if (SG_IMMUTABLE_HASHTABLE_P(ht)){{{Sg_AssertionViolation(sg__rc_cgen9166.d9486[557],SG_MAKE_STRING("attemp to modify an immutable hashtable"),ht);}}}
12984 
12985 #line 2668 "./lib_core.stub"
12986 Sg_HashCoreClear(SG_HASHTABLE_CORE(ht),k);
12987 SG_RETURN(SG_UNDEF);
12988   }
12989 }
12990 static SG_DEFINE_SUBR(core_hashtable_clearX__STUB, 1, 2,core_hashtable_clearX, SG_FALSE, NULL);
12991 
core_hashtable_keys(SgObject * SG_FP,int SG_ARGC,void * data_)12992 static SgObject core_hashtable_keys(SgObject *SG_FP, int SG_ARGC, void *data_)
12993 {
12994   SgObject ht_scm;
12995   SgHashTable* ht;
12996   SG_ENTER_SUBR("hashtable-keys");
12997   if (SG_ARGC != 1)
12998     Sg_WrongNumberOfArgumentsViolation(
12999      SG_INTERN("hashtable-keys"), 1, SG_ARGC, SG_NIL);
13000   ht_scm = SG_ARGREF(0);
13001   if (!SG_HASHTABLE_P(ht_scm))
13002     Sg_WrongTypeOfArgumentViolation(
13003        sg__rc_cgen9166.d9486[558], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
13004   ht = SG_HASHTABLE(ht_scm);
13005   {
13006 {
13007 SgObject SG_RESULT = (SgObject)NULL;
13008 
13009 #line 2671 "./lib_core.stub"
13010 {SgHashIter itr;SgObject r=
13011 Sg_MakeVector((SG_HASHTABLE_CORE(ht))->entryCount,SG_UNDEF);SgObject v;int i=0;
13012 #line 2675 "./lib_core.stub"
13013 Sg_HashIterInit(ht,(&(itr)));
13014 while ((Sg_HashIterNext((&(itr)),(&(v)),NULL))!=(NULL)){
13015 SG_VECTOR_ELEMENT(r,(i)++)=(v);}
13016 SG_RESULT=(r);}
13017 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13018 }
13019   }
13020 }
13021 static SG_DEFINE_SUBR(core_hashtable_keys__STUB, 1, 0,core_hashtable_keys, SG_FALSE, NULL);
13022 
core_hashtable_entries(SgObject * SG_FP,int SG_ARGC,void * data_)13023 static SgObject core_hashtable_entries(SgObject *SG_FP, int SG_ARGC, void *data_)
13024 {
13025   SgObject ht_scm;
13026   SgHashTable* ht;
13027   SG_ENTER_SUBR("hashtable-entries");
13028   if (SG_ARGC != 1)
13029     Sg_WrongNumberOfArgumentsViolation(
13030      SG_INTERN("hashtable-entries"), 1, SG_ARGC, SG_NIL);
13031   ht_scm = SG_ARGREF(0);
13032   if (!SG_HASHTABLE_P(ht_scm))
13033     Sg_WrongTypeOfArgumentViolation(
13034        sg__rc_cgen9166.d9486[559], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
13035   ht = SG_HASHTABLE(ht_scm);
13036   {
13037 {
13038 SgObject SG_RESULT = (SgObject)NULL;
13039 
13040 #line 2681 "./lib_core.stub"
13041 {SgHashIter itr;SgObject rk=
13042 Sg_MakeVector((SG_HASHTABLE_CORE(ht))->entryCount,SG_UNDEF);SgObject rv=
13043 Sg_MakeVector((SG_HASHTABLE_CORE(ht))->entryCount,SG_UNDEF);SgObject v;SgObject k;int i=0;
13044 #line 2687 "./lib_core.stub"
13045 Sg_HashIterInit(ht,(&(itr)));
13046 while ((Sg_HashIterNext((&(itr)),(&(k)),(&(v))))!=(NULL)){
13047 SG_VECTOR_ELEMENT(rk,i)=(k);
13048 SG_VECTOR_ELEMENT(rv,(i)++)=(v);}
13049 SG_RESULT=(Sg_Values2(rk,rv));}
13050 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13051 }
13052   }
13053 }
13054 static SG_DEFINE_SUBR(core_hashtable_entries__STUB, 1, 0,core_hashtable_entries, SG_FALSE, NULL);
13055 
core_hashtable_mutableP(SgObject * SG_FP,int SG_ARGC,void * data_)13056 static SgObject core_hashtable_mutableP(SgObject *SG_FP, int SG_ARGC, void *data_)
13057 {
13058   SgObject ht_scm;
13059   SgHashTable* ht;
13060   SG_ENTER_SUBR("hashtable-mutable?");
13061   if (SG_ARGC != 1)
13062     Sg_WrongNumberOfArgumentsViolation(
13063      SG_INTERN("hashtable-mutable?"), 1, SG_ARGC, SG_NIL);
13064   ht_scm = SG_ARGREF(0);
13065   if (!SG_HASHTABLE_P(ht_scm))
13066     Sg_WrongTypeOfArgumentViolation(
13067        sg__rc_cgen9166.d9486[560], SG_MAKE_STRING("hashtable"), ht_scm, SG_NIL);
13068   ht = SG_HASHTABLE(ht_scm);
13069   {
13070 {
13071 int SG_RESULT = (int)FALSE;
13072 
13073 #line 2695 "./lib_core.stub"
13074 SG_RESULT=((!(SG_IMMUTABLE_HASHTABLE_P(ht))));
13075 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13076 }
13077   }
13078 }
13079 static SG_DEFINE_SUBR(core_hashtable_mutableP__STUB, 1, 0,core_hashtable_mutableP, SG_FALSE, NULL);
13080 
core_string_hash(SgObject * SG_FP,int SG_ARGC,void * data_)13081 static SgObject core_string_hash(SgObject *SG_FP, int SG_ARGC, void *data_)
13082 {
13083   SgObject o_scm;
13084   SgString* o;
13085   SgObject bound_scm;
13086   SgObject bound;
13087   SgObject start_scm;
13088   long start;
13089   SgObject end_scm;
13090   long end;
13091   SG_ENTER_SUBR("string-hash");
13092   if ((SG_ARGC > 4 &&
13093       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
13094       SG_ARGC < 1)
13095     Sg_WrongNumberOfArgumentsBetweenViolation(
13096      SG_INTERN("string-hash"), 1, 4, SG_ARGC, SG_NIL);
13097   o_scm = SG_ARGREF(0);
13098   if (!SG_STRINGP(o_scm))
13099     Sg_WrongTypeOfArgumentViolation(
13100        sg__rc_cgen9166.d9486[561], SG_MAKE_STRING("string"), o_scm, SG_NIL);
13101   o = SG_STRING(o_scm);
13102   if (SG_ARGC > 1+1) {
13103     bound_scm = SG_ARGREF(1);
13104   } else {
13105     bound_scm = SG_UNBOUND;
13106   }
13107   bound = (bound_scm);
13108   if (SG_ARGC > 2+1) {
13109     start_scm = SG_ARGREF(2);
13110   } else {
13111     start_scm = SG_MAKE_INT(0);
13112   }
13113   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
13114     Sg_WrongTypeOfArgumentViolation(
13115        sg__rc_cgen9166.d9486[561], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
13116   start = SG_INT_VALUE(start_scm);
13117   if (SG_ARGC > 3+1) {
13118     end_scm = SG_ARGREF(3);
13119   } else {
13120     end_scm = SG_MAKE_INT(-1);
13121   }
13122   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
13123     Sg_WrongTypeOfArgumentViolation(
13124        sg__rc_cgen9166.d9486[561], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
13125   end = SG_INT_VALUE(end_scm);
13126   {
13127 {
13128 long SG_RESULT = (long)0;
13129 
13130 #line 2705 "./lib_core.stub"
13131 {long modulo=0;
13132 if (SG_UNBOUNDP(bound)){modulo=(((uint32_t )(SG_INT_MAX)));}else if(
13133 SG_INTP(bound)){modulo=(SG_INT_VALUE(bound));}else if(
13134 SG_BIGNUMP(bound)){
13135 modulo=(Sg_BignumToUI(SG_BIGNUM(bound),SG_CLAMP_BOTH,NULL));}
13136 if ((modulo)==(0)){{
13137 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[562],SG_MAKE_STRING("argument out of domain"),bound);}}}
13138 #line 2714 "./lib_core.stub"
13139 SG_RESULT=(Sg_StringHash(Sg_MaybeSubstring(o,start,end),modulo));}
13140 SG_RETURN(SG_MAKE_INT(SG_RESULT));
13141 }
13142   }
13143 }
13144 static SG_DEFINE_SUBR(core_string_hash__STUB, 1, 4,core_string_hash, SG_FALSE, NULL);
13145 
core_string_ci_hash(SgObject * SG_FP,int SG_ARGC,void * data_)13146 static SgObject core_string_ci_hash(SgObject *SG_FP, int SG_ARGC, void *data_)
13147 {
13148   SgObject o_scm;
13149   SgString* o;
13150   SgObject bound_scm;
13151   SgObject bound;
13152   SgObject start_scm;
13153   long start;
13154   SgObject end_scm;
13155   long end;
13156   SG_ENTER_SUBR("string-ci-hash");
13157   if ((SG_ARGC > 4 &&
13158       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
13159       SG_ARGC < 1)
13160     Sg_WrongNumberOfArgumentsBetweenViolation(
13161      SG_INTERN("string-ci-hash"), 1, 4, SG_ARGC, SG_NIL);
13162   o_scm = SG_ARGREF(0);
13163   if (!SG_STRINGP(o_scm))
13164     Sg_WrongTypeOfArgumentViolation(
13165        sg__rc_cgen9166.d9486[563], SG_MAKE_STRING("string"), o_scm, SG_NIL);
13166   o = SG_STRING(o_scm);
13167   if (SG_ARGC > 1+1) {
13168     bound_scm = SG_ARGREF(1);
13169   } else {
13170     bound_scm = SG_UNBOUND;
13171   }
13172   bound = (bound_scm);
13173   if (SG_ARGC > 2+1) {
13174     start_scm = SG_ARGREF(2);
13175   } else {
13176     start_scm = SG_MAKE_INT(0);
13177   }
13178   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
13179     Sg_WrongTypeOfArgumentViolation(
13180        sg__rc_cgen9166.d9486[563], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
13181   start = SG_INT_VALUE(start_scm);
13182   if (SG_ARGC > 3+1) {
13183     end_scm = SG_ARGREF(3);
13184   } else {
13185     end_scm = SG_MAKE_INT(-1);
13186   }
13187   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
13188     Sg_WrongTypeOfArgumentViolation(
13189        sg__rc_cgen9166.d9486[563], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
13190   end = SG_INT_VALUE(end_scm);
13191   {
13192 {
13193 long SG_RESULT = (long)0;
13194 
13195 #line 2719 "./lib_core.stub"
13196 {long modulo=0;
13197 if (SG_UNBOUNDP(bound)){modulo=(((uint32_t )(SG_INT_MAX)));}else if(
13198 SG_INTP(bound)){modulo=(SG_INT_VALUE(bound));}else if(
13199 SG_BIGNUMP(bound)){
13200 modulo=(Sg_BignumToUI(SG_BIGNUM(bound),SG_CLAMP_BOTH,NULL));}
13201 if ((modulo)==(0)){{
13202 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[562],SG_MAKE_STRING("argument out of domain"),bound);}}}
13203 #line 2728 "./lib_core.stub"
13204 SG_RESULT=(Sg_StringHash(Sg_StringFoldCase(Sg_MaybeSubstring(o,start,end)),modulo));}
13205 SG_RETURN(SG_MAKE_INT(SG_RESULT));
13206 }
13207   }
13208 }
13209 static SG_DEFINE_SUBR(core_string_ci_hash__STUB, 1, 4,core_string_ci_hash, SG_FALSE, NULL);
13210 
core_symbol_hash(SgObject * SG_FP,int SG_ARGC,void * data_)13211 static SgObject core_symbol_hash(SgObject *SG_FP, int SG_ARGC, void *data_)
13212 {
13213   SgObject o_scm;
13214   SgSymbol* o;
13215   SgObject ignore_scm;
13216   SgObject ignore;
13217   SG_ENTER_SUBR("symbol-hash");
13218   if ((SG_ARGC > 2 &&
13219       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
13220       SG_ARGC < 1)
13221     Sg_WrongNumberOfArgumentsBetweenViolation(
13222      SG_INTERN("symbol-hash"), 1, 2, SG_ARGC, SG_NIL);
13223   o_scm = SG_ARGREF(0);
13224   if (!SG_SYMBOLP(o_scm))
13225     Sg_WrongTypeOfArgumentViolation(
13226        sg__rc_cgen9166.d9486[564], SG_MAKE_STRING("symbol"), o_scm, SG_NIL);
13227   o = SG_SYMBOL(o_scm);
13228   if (SG_ARGC > 1+1) {
13229     ignore_scm = SG_ARGREF(1);
13230   } else {
13231     ignore_scm = SG_UNBOUND;
13232   }
13233   ignore = (ignore_scm);
13234   {
13235 {
13236 SgObject SG_RESULT = (SgObject)NULL;
13237 
13238 #line 2732 "./lib_core.stub"
13239 SG_RESULT=(Sg_MakeIntegerU(Sg_EqHash(o,0)));
13240 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13241 }
13242   }
13243 }
13244 static SG_DEFINE_SUBR(core_symbol_hash__STUB, 1, 2,core_symbol_hash, SG_FALSE, NULL);
13245 
core_eval(SgObject * SG_FP,int SG_ARGC,void * data_)13246 static SgObject core_eval(SgObject *SG_FP, int SG_ARGC, void *data_)
13247 {
13248   SgObject sexp_scm;
13249   SgObject sexp;
13250   SgObject env_scm;
13251   SgObject env;
13252   SG_ENTER_SUBR("eval");
13253   if (SG_ARGC != 2)
13254     Sg_WrongNumberOfArgumentsViolation(
13255      SG_INTERN("eval"), 2, SG_ARGC, SG_NIL);
13256   sexp_scm = SG_ARGREF(0);
13257   sexp = (sexp_scm);
13258   env_scm = SG_ARGREF(1);
13259   env = (env_scm);
13260   {
13261 {
13262 SgObject SG_RESULT = (SgObject)NULL;
13263 SG_RESULT=(Sg_VMEval(sexp,env));
13264 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13265 }
13266   }
13267 }
13268 static SG_DEFINE_SUBR(core_eval__STUB, 2, 0,core_eval, SG_FALSE, NULL);
13269 
core_environment(SgObject * SG_FP,int SG_ARGC,void * data_)13270 static SgObject core_environment(SgObject *SG_FP, int SG_ARGC, void *data_)
13271 {
13272   SgObject spec_scm;
13273   SgObject spec;
13274   SG_ENTER_SUBR("environment");
13275   if (SG_ARGC < 0)
13276     Sg_WrongNumberOfArgumentsAtLeastViolation(
13277      SG_INTERN("environment"), 0, SG_ARGC, SG_NIL);
13278   spec_scm = SG_ARGREF(SG_ARGC-1);
13279   spec = (spec_scm);
13280   {
13281 {
13282 SgObject SG_RESULT = (SgObject)NULL;
13283 
13284 #line 2739 "./lib_core.stub"
13285 SG_RESULT=(Sg_VMEnvironment(Sg_MakeEvalLibrary(),spec));
13286 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13287 }
13288   }
13289 }
13290 static SG_DEFINE_SUBR(core_environment__STUB, 0, 1,core_environment, SG_FALSE, NULL);
13291 
core_set_carX(SgObject * SG_FP,int SG_ARGC,void * data_)13292 static SgObject core_set_carX(SgObject *SG_FP, int SG_ARGC, void *data_)
13293 {
13294   SgObject o_scm;
13295   SgPair* o;
13296   SgObject v_scm;
13297   SgObject v;
13298   SG_ENTER_SUBR("set-car!");
13299   if (SG_ARGC != 2)
13300     Sg_WrongNumberOfArgumentsViolation(
13301      SG_INTERN("set-car!"), 2, SG_ARGC, SG_NIL);
13302   o_scm = SG_ARGREF(0);
13303   if (!SG_PAIRP(o_scm))
13304     Sg_WrongTypeOfArgumentViolation(
13305        sg__rc_cgen9166.d9486[567], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
13306   o = SG_PAIR(o_scm);
13307   v_scm = SG_ARGREF(1);
13308   v = (v_scm);
13309   {
13310 
13311 #line 2743 "./lib_core.stub"
13312 if (Sg_ConstantLiteralP(o)){{
13313 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[568],SG_MAKE_STRING("attempt to modify constant literal"),o);}}}
13314 
13315 #line 2745 "./lib_core.stub"
13316 SG_SET_CAR(o,v);
13317 SG_RETURN(SG_UNDEF);
13318   }
13319 }
13320 static SG_DEFINE_SUBR(core_set_carX__STUB, 2, 0,core_set_carX, SG_MAKE_INT(SET_CAR), NULL);
13321 
core_set_cdrX(SgObject * SG_FP,int SG_ARGC,void * data_)13322 static SgObject core_set_cdrX(SgObject *SG_FP, int SG_ARGC, void *data_)
13323 {
13324   SgObject o_scm;
13325   SgPair* o;
13326   SgObject v_scm;
13327   SgObject v;
13328   SG_ENTER_SUBR("set-cdr!");
13329   if (SG_ARGC != 2)
13330     Sg_WrongNumberOfArgumentsViolation(
13331      SG_INTERN("set-cdr!"), 2, SG_ARGC, SG_NIL);
13332   o_scm = SG_ARGREF(0);
13333   if (!SG_PAIRP(o_scm))
13334     Sg_WrongTypeOfArgumentViolation(
13335        sg__rc_cgen9166.d9486[570], SG_MAKE_STRING("pair"), o_scm, SG_NIL);
13336   o = SG_PAIR(o_scm);
13337   v_scm = SG_ARGREF(1);
13338   v = (v_scm);
13339   {
13340 
13341 #line 2748 "./lib_core.stub"
13342 if (Sg_ConstantLiteralP(o)){{
13343 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[571],SG_MAKE_STRING("attempt to modify constant literal"),o);}}}
13344 
13345 #line 2750 "./lib_core.stub"
13346 SG_SET_CDR(o,v);
13347 SG_RETURN(SG_UNDEF);
13348   }
13349 }
13350 static SG_DEFINE_SUBR(core_set_cdrX__STUB, 2, 0,core_set_cdrX, SG_MAKE_INT(SET_CDR), NULL);
13351 
core_string_setX(SgObject * SG_FP,int SG_ARGC,void * data_)13352 static SgObject core_string_setX(SgObject *SG_FP, int SG_ARGC, void *data_)
13353 {
13354   SgObject s_scm;
13355   SgString* s;
13356   SgObject k_scm;
13357   long k;
13358   SgObject c_scm;
13359   SgChar c;
13360   SG_ENTER_SUBR("string-set!");
13361   if (SG_ARGC != 3)
13362     Sg_WrongNumberOfArgumentsViolation(
13363      SG_INTERN("string-set!"), 3, SG_ARGC, SG_NIL);
13364   s_scm = SG_ARGREF(0);
13365   if (!SG_STRINGP(s_scm))
13366     Sg_WrongTypeOfArgumentViolation(
13367        sg__rc_cgen9166.d9486[573], SG_MAKE_STRING("string"), s_scm, SG_NIL);
13368   s = SG_STRING(s_scm);
13369   k_scm = SG_ARGREF(1);
13370   if (!SG_INTP(k_scm))
13371     Sg_WrongTypeOfArgumentViolation(
13372        sg__rc_cgen9166.d9486[573], SG_MAKE_STRING("fixnum"), k_scm, SG_NIL);
13373   k = SG_INT_VALUE(k_scm);
13374   c_scm = SG_ARGREF(2);
13375   if (!SG_CHARP(c_scm))
13376     Sg_WrongTypeOfArgumentViolation(
13377        sg__rc_cgen9166.d9486[573], SG_MAKE_STRING("character"), c_scm, SG_NIL);
13378   c = SG_CHAR_VALUE(c_scm);
13379   {
13380 Sg_StringSet(s,k,c);
13381 SG_RETURN(SG_UNDEF);
13382   }
13383 }
13384 static SG_DEFINE_SUBR(core_string_setX__STUB, 3, 0,core_string_setX, SG_FALSE, NULL);
13385 
core_string_fillX(SgObject * SG_FP,int SG_ARGC,void * data_)13386 static SgObject core_string_fillX(SgObject *SG_FP, int SG_ARGC, void *data_)
13387 {
13388   SgObject s_scm;
13389   SgString* s;
13390   SgObject c_scm;
13391   SgChar c;
13392   SgObject start_scm;
13393   long start;
13394   SgObject end_scm;
13395   long end;
13396   SG_ENTER_SUBR("string-fill!");
13397   if ((SG_ARGC > 4 &&
13398       !SG_NULLP(SG_ARGREF(SG_ARGC-1))) ||
13399       SG_ARGC < 2)
13400     Sg_WrongNumberOfArgumentsBetweenViolation(
13401      SG_INTERN("string-fill!"), 2, 4, SG_ARGC, SG_NIL);
13402   s_scm = SG_ARGREF(0);
13403   if (!SG_STRINGP(s_scm))
13404     Sg_WrongTypeOfArgumentViolation(
13405        sg__rc_cgen9166.d9486[574], SG_MAKE_STRING("string"), s_scm, SG_NIL);
13406   s = SG_STRING(s_scm);
13407   c_scm = SG_ARGREF(1);
13408   if (!SG_CHARP(c_scm))
13409     Sg_WrongTypeOfArgumentViolation(
13410        sg__rc_cgen9166.d9486[574], SG_MAKE_STRING("character"), c_scm, SG_NIL);
13411   c = SG_CHAR_VALUE(c_scm);
13412   if (SG_ARGC > 2+1) {
13413     start_scm = SG_ARGREF(2);
13414   } else {
13415     start_scm = SG_MAKE_INT(0);
13416   }
13417   if (!SG_INTP(start_scm) && !SG_INTP(start_scm))
13418     Sg_WrongTypeOfArgumentViolation(
13419        sg__rc_cgen9166.d9486[574], SG_MAKE_STRING("fixnum"), start_scm, SG_NIL);
13420   start = SG_INT_VALUE(start_scm);
13421   if (SG_ARGC > 3+1) {
13422     end_scm = SG_ARGREF(3);
13423   } else {
13424     end_scm = SG_MAKE_INT(-1);
13425   }
13426   if (!SG_INTP(end_scm) && !SG_INTP(end_scm))
13427     Sg_WrongTypeOfArgumentViolation(
13428        sg__rc_cgen9166.d9486[574], SG_MAKE_STRING("fixnum"), end_scm, SG_NIL);
13429   end = SG_INT_VALUE(end_scm);
13430   {
13431 
13432 #line 2760 "./lib_core.stub"
13433 if (SG_IMMUTABLE_STRINGP(s)){{
13434 {Sg_AssertionViolation(sg__rc_cgen9166.d9486[575],SG_MAKE_STRING("attempted to modify an immutable string"),s);}}}
13435 
13436 #line 2764 "./lib_core.stub"
13437 Sg_StringFill(s,c,start,end);
13438 SG_RETURN(SG_UNDEF);
13439   }
13440 }
13441 static SG_DEFINE_SUBR(core_string_fillX__STUB, 2, 3,core_string_fillX, SG_FALSE, NULL);
13442 
core__25recordP(SgObject * SG_FP,int SG_ARGC,void * data_)13443 static SgObject core__25recordP(SgObject *SG_FP, int SG_ARGC, void *data_)
13444 {
13445   SgObject o_scm;
13446   SgObject o;
13447   SG_ENTER_SUBR("%record?");
13448   if (SG_ARGC != 1)
13449     Sg_WrongNumberOfArgumentsViolation(
13450      SG_INTERN("%record?"), 1, SG_ARGC, SG_NIL);
13451   o_scm = SG_ARGREF(0);
13452   o = (o_scm);
13453   {
13454 {
13455 int SG_RESULT = (int)FALSE;
13456 SG_RESULT=(Sg_RecordP(o));
13457 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13458 }
13459   }
13460 }
13461 static SG_DEFINE_SUBR(core__25recordP__STUB, 1, 0,core__25recordP, SG_FALSE, NULL);
13462 
core_condition(SgObject * SG_FP,int SG_ARGC,void * data_)13463 static SgObject core_condition(SgObject *SG_FP, int SG_ARGC, void *data_)
13464 {
13465   SgObject components_scm;
13466   SgObject components;
13467   SG_ENTER_SUBR("condition");
13468   if (SG_ARGC < 0)
13469     Sg_WrongNumberOfArgumentsAtLeastViolation(
13470      SG_INTERN("condition"), 0, SG_ARGC, SG_NIL);
13471   components_scm = SG_ARGREF(SG_ARGC-1);
13472   components = (components_scm);
13473   {
13474 {
13475 SgObject SG_RESULT = (SgObject)NULL;
13476 SG_RESULT=(Sg_Condition(components));
13477 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13478 }
13479   }
13480 }
13481 static SG_DEFINE_SUBR(core_condition__STUB, 0, 1,core_condition, SG_FALSE, NULL);
13482 
core_simple_conditions(SgObject * SG_FP,int SG_ARGC,void * data_)13483 static SgObject core_simple_conditions(SgObject *SG_FP, int SG_ARGC, void *data_)
13484 {
13485   SgObject obj_scm;
13486   SgObject obj;
13487   SG_ENTER_SUBR("simple-conditions");
13488   if (SG_ARGC != 1)
13489     Sg_WrongNumberOfArgumentsViolation(
13490      SG_INTERN("simple-conditions"), 1, SG_ARGC, SG_NIL);
13491   obj_scm = SG_ARGREF(0);
13492   obj = (obj_scm);
13493   {
13494 {
13495 SgObject SG_RESULT = (SgObject)NULL;
13496 SG_RESULT=(Sg_SimpleConditions(obj));
13497 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13498 }
13499   }
13500 }
13501 static SG_DEFINE_SUBR(core_simple_conditions__STUB, 1, 0,core_simple_conditions, SG_FALSE, NULL);
13502 
core_compound_condition_component(SgObject * SG_FP,int SG_ARGC,void * data_)13503 static SgObject core_compound_condition_component(SgObject *SG_FP, int SG_ARGC, void *data_)
13504 {
13505   SgObject obj_scm;
13506   SgObject obj;
13507   SG_ENTER_SUBR("compound-condition-component");
13508   if (SG_ARGC != 1)
13509     Sg_WrongNumberOfArgumentsViolation(
13510      SG_INTERN("compound-condition-component"), 1, SG_ARGC, SG_NIL);
13511   obj_scm = SG_ARGREF(0);
13512   obj = (obj_scm);
13513   {
13514 {
13515 SgObject SG_RESULT = (SgObject)NULL;
13516 SG_RESULT=(Sg_CompoundConditionComponent(obj));
13517 SG_RETURN(SG_OBJ_SAFE(SG_RESULT));
13518 }
13519   }
13520 }
13521 static SG_DEFINE_SUBR(core_compound_condition_component__STUB, 1, 0,core_compound_condition_component, SG_FALSE, NULL);
13522 
core_compound_conditionP(SgObject * SG_FP,int SG_ARGC,void * data_)13523 static SgObject core_compound_conditionP(SgObject *SG_FP, int SG_ARGC, void *data_)
13524 {
13525   SgObject obj_scm;
13526   SgObject obj;
13527   SG_ENTER_SUBR("compound-condition?");
13528   if (SG_ARGC != 1)
13529     Sg_WrongNumberOfArgumentsViolation(
13530      SG_INTERN("compound-condition?"), 1, SG_ARGC, SG_NIL);
13531   obj_scm = SG_ARGREF(0);
13532   obj = (obj_scm);
13533   {
13534 {
13535 int SG_RESULT = (int)FALSE;
13536 SG_RESULT=(Sg_CompoundConditionP(obj));
13537 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13538 }
13539   }
13540 }
13541 static SG_DEFINE_SUBR(core_compound_conditionP__STUB, 1, 0,core_compound_conditionP, SG_FALSE, NULL);
13542 
core_simple_conditionP(SgObject * SG_FP,int SG_ARGC,void * data_)13543 static SgObject core_simple_conditionP(SgObject *SG_FP, int SG_ARGC, void *data_)
13544 {
13545   SgObject obj_scm;
13546   SgObject obj;
13547   SG_ENTER_SUBR("simple-condition?");
13548   if (SG_ARGC != 1)
13549     Sg_WrongNumberOfArgumentsViolation(
13550      SG_INTERN("simple-condition?"), 1, SG_ARGC, SG_NIL);
13551   obj_scm = SG_ARGREF(0);
13552   obj = (obj_scm);
13553   {
13554 {
13555 int SG_RESULT = (int)FALSE;
13556 SG_RESULT=(Sg_SimpleConditionP(obj));
13557 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13558 }
13559   }
13560 }
13561 static SG_DEFINE_SUBR(core_simple_conditionP__STUB, 1, 0,core_simple_conditionP, SG_FALSE, NULL);
13562 
core_conditionP(SgObject * SG_FP,int SG_ARGC,void * data_)13563 static SgObject core_conditionP(SgObject *SG_FP, int SG_ARGC, void *data_)
13564 {
13565   SgObject obj_scm;
13566   SgObject obj;
13567   SG_ENTER_SUBR("condition?");
13568   if (SG_ARGC != 1)
13569     Sg_WrongNumberOfArgumentsViolation(
13570      SG_INTERN("condition?"), 1, SG_ARGC, SG_NIL);
13571   obj_scm = SG_ARGREF(0);
13572   obj = (obj_scm);
13573   {
13574 {
13575 int SG_RESULT = (int)FALSE;
13576 SG_RESULT=(Sg_ConditionP(obj));
13577 SG_RETURN(SG_MAKE_BOOL(SG_RESULT));
13578 }
13579   }
13580 }
13581 static SG_DEFINE_SUBR(core_conditionP__STUB, 1, 0,core_conditionP, SG_FALSE, NULL);
13582 
Sg__Init_core()13583 void Sg__Init_core () {
13584   SgLibrary *lib = SG_LIBRARY(Sg_FindLibrary(SG_INTERN("(core)"), TRUE));
13585   sg__rc_cgen9166.d9486[0] = SG_MAKE_STRING("boolean?");
13586   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[0]), &core_booleanP__STUB);
13587   SG_PROCEDURE_NAME(&core_booleanP__STUB) = sg__rc_cgen9166.d9486[0];
13588   SG_PROCEDURE_TRANSPARENT(&core_booleanP__STUB) = SG_PROC_TRANSPARENT;
13589   sg__rc_cgen9166.d9486[1] = SG_MAKE_STRING("pair?");
13590   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[1]), &core_pairP__STUB);
13591   SG_PROCEDURE_NAME(&core_pairP__STUB) = sg__rc_cgen9166.d9486[1];
13592   SG_PROCEDURE_TRANSPARENT(&core_pairP__STUB) = SG_PROC_TRANSPARENT;
13593   sg__rc_cgen9166.d9486[2] = SG_MAKE_STRING("symbol?");
13594   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[2]), &core_symbolP__STUB);
13595   SG_PROCEDURE_NAME(&core_symbolP__STUB) = sg__rc_cgen9166.d9486[2];
13596   SG_PROCEDURE_TRANSPARENT(&core_symbolP__STUB) = SG_PROC_TRANSPARENT;
13597   sg__rc_cgen9166.d9486[3] = SG_MAKE_STRING("number?");
13598   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[3]), &core_numberP__STUB);
13599   SG_PROCEDURE_NAME(&core_numberP__STUB) = sg__rc_cgen9166.d9486[3];
13600   SG_PROCEDURE_TRANSPARENT(&core_numberP__STUB) = SG_PROC_TRANSPARENT;
13601   sg__rc_cgen9166.d9486[4] = SG_MAKE_STRING("char?");
13602   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[4]), &core_charP__STUB);
13603   SG_PROCEDURE_NAME(&core_charP__STUB) = sg__rc_cgen9166.d9486[4];
13604   SG_PROCEDURE_TRANSPARENT(&core_charP__STUB) = SG_PROC_TRANSPARENT;
13605   sg__rc_cgen9166.d9486[5] = SG_MAKE_STRING("string?");
13606   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[5]), &core_stringP__STUB);
13607   SG_PROCEDURE_NAME(&core_stringP__STUB) = sg__rc_cgen9166.d9486[5];
13608   SG_PROCEDURE_TRANSPARENT(&core_stringP__STUB) = SG_PROC_TRANSPARENT;
13609   sg__rc_cgen9166.d9486[6] = SG_MAKE_STRING("vector?");
13610   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[6]), &core_vectorP__STUB);
13611   SG_PROCEDURE_NAME(&core_vectorP__STUB) = sg__rc_cgen9166.d9486[6];
13612   SG_PROCEDURE_TRANSPARENT(&core_vectorP__STUB) = SG_PROC_TRANSPARENT;
13613   sg__rc_cgen9166.d9486[7] = SG_MAKE_STRING("procedure?");
13614   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[7]), &core_procedureP__STUB);
13615   SG_PROCEDURE_NAME(&core_procedureP__STUB) = sg__rc_cgen9166.d9486[7];
13616   SG_PROCEDURE_TRANSPARENT(&core_procedureP__STUB) = SG_PROC_TRANSPARENT;
13617   sg__rc_cgen9166.d9486[8] = SG_MAKE_STRING("null?");
13618   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[8]), &core_nullP__STUB);
13619   SG_PROCEDURE_NAME(&core_nullP__STUB) = sg__rc_cgen9166.d9486[8];
13620   SG_PROCEDURE_TRANSPARENT(&core_nullP__STUB) = SG_PROC_TRANSPARENT;
13621   sg__rc_cgen9166.d9486[9] = SG_MAKE_STRING("complex?");
13622   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[9]), &core_complexP__STUB);
13623   SG_PROCEDURE_NAME(&core_complexP__STUB) = sg__rc_cgen9166.d9486[9];
13624   SG_PROCEDURE_TRANSPARENT(&core_complexP__STUB) = SG_PROC_TRANSPARENT;
13625   sg__rc_cgen9166.d9486[10] = SG_MAKE_STRING("real?");
13626   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[10]), &core_realP__STUB);
13627   SG_PROCEDURE_NAME(&core_realP__STUB) = sg__rc_cgen9166.d9486[10];
13628   SG_PROCEDURE_TRANSPARENT(&core_realP__STUB) = SG_PROC_TRANSPARENT;
13629   sg__rc_cgen9166.d9486[11] = SG_MAKE_STRING("rational?");
13630   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[11]), &core_rationalP__STUB);
13631   SG_PROCEDURE_NAME(&core_rationalP__STUB) = sg__rc_cgen9166.d9486[11];
13632   SG_PROCEDURE_TRANSPARENT(&core_rationalP__STUB) = SG_PROC_TRANSPARENT;
13633   sg__rc_cgen9166.d9486[12] = SG_MAKE_STRING("integer?");
13634   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[12]), &core_integerP__STUB);
13635   SG_PROCEDURE_NAME(&core_integerP__STUB) = sg__rc_cgen9166.d9486[12];
13636   SG_PROCEDURE_TRANSPARENT(&core_integerP__STUB) = SG_PROC_TRANSPARENT;
13637   sg__rc_cgen9166.d9486[13] = SG_MAKE_STRING("real-valued?");
13638   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[13]), &core_real_valuedP__STUB);
13639   SG_PROCEDURE_NAME(&core_real_valuedP__STUB) = sg__rc_cgen9166.d9486[13];
13640   SG_PROCEDURE_TRANSPARENT(&core_real_valuedP__STUB) = SG_PROC_TRANSPARENT;
13641   sg__rc_cgen9166.d9486[14] = SG_MAKE_STRING("rational-valued?");
13642   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[14]), &core_rational_valuedP__STUB);
13643   SG_PROCEDURE_NAME(&core_rational_valuedP__STUB) = sg__rc_cgen9166.d9486[14];
13644   SG_PROCEDURE_TRANSPARENT(&core_rational_valuedP__STUB) = SG_PROC_TRANSPARENT;
13645   sg__rc_cgen9166.d9486[15] = SG_MAKE_STRING("integer-valued?");
13646   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[15]), &core_integer_valuedP__STUB);
13647   SG_PROCEDURE_NAME(&core_integer_valuedP__STUB) = sg__rc_cgen9166.d9486[15];
13648   SG_PROCEDURE_TRANSPARENT(&core_integer_valuedP__STUB) = SG_PROC_TRANSPARENT;
13649   sg__rc_cgen9166.d9486[16] = SG_MAKE_STRING("exact?");
13650   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[16]), &core_exactP__STUB);
13651   SG_PROCEDURE_NAME(&core_exactP__STUB) = sg__rc_cgen9166.d9486[16];
13652   SG_PROCEDURE_TRANSPARENT(&core_exactP__STUB) = SG_PROC_TRANSPARENT;
13653   sg__rc_cgen9166.d9486[17] = SG_MAKE_STRING("inexact?");
13654   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[17]), &core_inexactP__STUB);
13655   SG_PROCEDURE_NAME(&core_inexactP__STUB) = sg__rc_cgen9166.d9486[17];
13656   SG_PROCEDURE_TRANSPARENT(&core_inexactP__STUB) = SG_PROC_TRANSPARENT;
13657   sg__rc_cgen9166.d9486[18] = SG_MAKE_STRING("inexact");
13658   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[18]), &core_inexact__STUB);
13659   SG_PROCEDURE_NAME(&core_inexact__STUB) = sg__rc_cgen9166.d9486[18];
13660   SG_PROCEDURE_TRANSPARENT(&core_inexact__STUB) = SG_PROC_TRANSPARENT;
13661   sg__rc_cgen9166.d9486[19] = SG_MAKE_STRING("exact");
13662   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[19]), &core_exact__STUB);
13663   SG_PROCEDURE_NAME(&core_exact__STUB) = sg__rc_cgen9166.d9486[19];
13664   SG_PROCEDURE_TRANSPARENT(&core_exact__STUB) = SG_PROC_TRANSPARENT;
13665   sg__rc_cgen9166.d9486[20] = SG_MAKE_STRING("=");
13666   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[20]), &core__3d__STUB);
13667   SG_PROCEDURE_NAME(&core__3d__STUB) = sg__rc_cgen9166.d9486[20];
13668   SG_PROCEDURE_TRANSPARENT(&core__3d__STUB) = SG_PROC_TRANSPARENT;
13669   sg__rc_cgen9166.d9486[21] = SG_MAKE_STRING("<");
13670   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[21]), &core__LT__STUB);
13671   SG_PROCEDURE_NAME(&core__LT__STUB) = sg__rc_cgen9166.d9486[21];
13672   SG_PROCEDURE_TRANSPARENT(&core__LT__STUB) = SG_PROC_TRANSPARENT;
13673   sg__rc_cgen9166.d9486[22] = SG_MAKE_STRING("<=");
13674   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[22]), &core__LT_3d__STUB);
13675   SG_PROCEDURE_NAME(&core__LT_3d__STUB) = sg__rc_cgen9166.d9486[22];
13676   SG_PROCEDURE_TRANSPARENT(&core__LT_3d__STUB) = SG_PROC_TRANSPARENT;
13677   sg__rc_cgen9166.d9486[23] = SG_MAKE_STRING(">");
13678   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[23]), &core__GT__STUB);
13679   SG_PROCEDURE_NAME(&core__GT__STUB) = sg__rc_cgen9166.d9486[23];
13680   SG_PROCEDURE_TRANSPARENT(&core__GT__STUB) = SG_PROC_TRANSPARENT;
13681   sg__rc_cgen9166.d9486[24] = SG_MAKE_STRING(">=");
13682   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[24]), &core__GT_3d__STUB);
13683   SG_PROCEDURE_NAME(&core__GT_3d__STUB) = sg__rc_cgen9166.d9486[24];
13684   SG_PROCEDURE_TRANSPARENT(&core__GT_3d__STUB) = SG_PROC_TRANSPARENT;
13685   sg__rc_cgen9166.d9486[25] = SG_MAKE_STRING("zero?");
13686   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[25]), &core_zeroP__STUB);
13687   SG_PROCEDURE_NAME(&core_zeroP__STUB) = sg__rc_cgen9166.d9486[25];
13688   SG_PROCEDURE_TRANSPARENT(&core_zeroP__STUB) = SG_PROC_TRANSPARENT;
13689   sg__rc_cgen9166.d9486[26] = SG_MAKE_STRING("positive?");
13690   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[26]), &core_positiveP__STUB);
13691   SG_PROCEDURE_NAME(&core_positiveP__STUB) = sg__rc_cgen9166.d9486[26];
13692   SG_PROCEDURE_TRANSPARENT(&core_positiveP__STUB) = SG_PROC_TRANSPARENT;
13693   sg__rc_cgen9166.d9486[27] = SG_MAKE_STRING("negative?");
13694   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[27]), &core_negativeP__STUB);
13695   SG_PROCEDURE_NAME(&core_negativeP__STUB) = sg__rc_cgen9166.d9486[27];
13696   SG_PROCEDURE_TRANSPARENT(&core_negativeP__STUB) = SG_PROC_TRANSPARENT;
13697   sg__rc_cgen9166.d9486[28] = SG_MAKE_STRING("odd?");
13698   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[28]), &core_oddP__STUB);
13699   SG_PROCEDURE_NAME(&core_oddP__STUB) = sg__rc_cgen9166.d9486[28];
13700   SG_PROCEDURE_TRANSPARENT(&core_oddP__STUB) = SG_PROC_TRANSPARENT;
13701   sg__rc_cgen9166.d9486[29] = SG_MAKE_STRING("even?");
13702   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[29]), &core_evenP__STUB);
13703   SG_PROCEDURE_NAME(&core_evenP__STUB) = sg__rc_cgen9166.d9486[29];
13704   SG_PROCEDURE_TRANSPARENT(&core_evenP__STUB) = SG_PROC_TRANSPARENT;
13705   sg__rc_cgen9166.d9486[30] = SG_MAKE_STRING("finite?");
13706   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[30]), &core_finiteP__STUB);
13707   SG_PROCEDURE_NAME(&core_finiteP__STUB) = sg__rc_cgen9166.d9486[30];
13708   sg__rc_cgen9166.d9486[31] = SG_MAKE_STRING("infinite?");
13709   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[31]), &core_infiniteP__STUB);
13710   SG_PROCEDURE_NAME(&core_infiniteP__STUB) = sg__rc_cgen9166.d9486[31];
13711   sg__rc_cgen9166.d9486[32] = SG_MAKE_STRING("nan?");
13712   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[32]), &core_nanP__STUB);
13713   SG_PROCEDURE_NAME(&core_nanP__STUB) = sg__rc_cgen9166.d9486[32];
13714   sg__rc_cgen9166.d9486[33] = SG_MAKE_STRING("max");
13715   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[33]), &core_max__STUB);
13716   SG_PROCEDURE_NAME(&core_max__STUB) = sg__rc_cgen9166.d9486[33];
13717   SG_PROCEDURE_TRANSPARENT(&core_max__STUB) = SG_PROC_TRANSPARENT;
13718   sg__rc_cgen9166.d9486[34] = SG_MAKE_STRING("min");
13719   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[34]), &core_min__STUB);
13720   SG_PROCEDURE_NAME(&core_min__STUB) = sg__rc_cgen9166.d9486[34];
13721   SG_PROCEDURE_TRANSPARENT(&core_min__STUB) = SG_PROC_TRANSPARENT;
13722   sg__rc_cgen9166.d9486[35] = SG_MAKE_STRING("+");
13723   sg__rc_cgen9166.d9486[36] = Sg_Intern(sg__rc_cgen9166.d9486[35]); /* + */
13724   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[35]), &core__2b__STUB);
13725   SG_PROCEDURE_NAME(&core__2b__STUB) = sg__rc_cgen9166.d9486[35];
13726   SG_PROCEDURE_TRANSPARENT(&core__2b__STUB) = SG_PROC_TRANSPARENT;
13727   sg__rc_cgen9166.d9486[37] = SG_MAKE_STRING("*");
13728   sg__rc_cgen9166.d9486[38] = Sg_Intern(sg__rc_cgen9166.d9486[37]); /* * */
13729   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[37]), &core__2a__STUB);
13730   SG_PROCEDURE_NAME(&core__2a__STUB) = sg__rc_cgen9166.d9486[37];
13731   SG_PROCEDURE_TRANSPARENT(&core__2a__STUB) = SG_PROC_TRANSPARENT;
13732   sg__rc_cgen9166.d9486[39] = SG_MAKE_STRING("-");
13733   sg__rc_cgen9166.d9486[40] = Sg_Intern(sg__rc_cgen9166.d9486[39]); /* - */
13734   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[39]), &core____STUB);
13735   SG_PROCEDURE_NAME(&core____STUB) = sg__rc_cgen9166.d9486[39];
13736   SG_PROCEDURE_TRANSPARENT(&core____STUB) = SG_PROC_TRANSPARENT;
13737   sg__rc_cgen9166.d9486[41] = SG_MAKE_STRING("/");
13738   sg__rc_cgen9166.d9486[42] = Sg_Intern(sg__rc_cgen9166.d9486[41]); /* / */
13739   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[41]), &core__2f__STUB);
13740   SG_PROCEDURE_NAME(&core__2f__STUB) = sg__rc_cgen9166.d9486[41];
13741   SG_PROCEDURE_TRANSPARENT(&core__2f__STUB) = SG_PROC_TRANSPARENT;
13742   sg__rc_cgen9166.d9486[43] = SG_MAKE_STRING("abs");
13743   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[43]), &core_abs__STUB);
13744   SG_PROCEDURE_NAME(&core_abs__STUB) = sg__rc_cgen9166.d9486[43];
13745   SG_PROCEDURE_TRANSPARENT(&core_abs__STUB) = SG_PROC_TRANSPARENT;
13746   sg__rc_cgen9166.d9486[44] = SG_MAKE_STRING("numerator");
13747   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[44]), &core_numerator__STUB);
13748   SG_PROCEDURE_NAME(&core_numerator__STUB) = sg__rc_cgen9166.d9486[44];
13749   SG_PROCEDURE_TRANSPARENT(&core_numerator__STUB) = SG_PROC_TRANSPARENT;
13750   sg__rc_cgen9166.d9486[45] = SG_MAKE_STRING("denominator");
13751   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[45]), &core_denominator__STUB);
13752   SG_PROCEDURE_NAME(&core_denominator__STUB) = sg__rc_cgen9166.d9486[45];
13753   SG_PROCEDURE_TRANSPARENT(&core_denominator__STUB) = SG_PROC_TRANSPARENT;
13754   sg__rc_cgen9166.d9486[46] = SG_MAKE_STRING("floor");
13755   sg__rc_cgen9166.d9486[47] = Sg_Intern(sg__rc_cgen9166.d9486[46]); /* floor */
13756   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[46]), &core_floor__STUB);
13757   SG_PROCEDURE_NAME(&core_floor__STUB) = sg__rc_cgen9166.d9486[46];
13758   SG_PROCEDURE_TRANSPARENT(&core_floor__STUB) = SG_PROC_TRANSPARENT;
13759   sg__rc_cgen9166.d9486[48] = SG_MAKE_STRING("ceiling");
13760   sg__rc_cgen9166.d9486[49] = Sg_Intern(sg__rc_cgen9166.d9486[48]); /* ceiling */
13761   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[48]), &core_ceiling__STUB);
13762   SG_PROCEDURE_NAME(&core_ceiling__STUB) = sg__rc_cgen9166.d9486[48];
13763   SG_PROCEDURE_TRANSPARENT(&core_ceiling__STUB) = SG_PROC_TRANSPARENT;
13764   sg__rc_cgen9166.d9486[50] = SG_MAKE_STRING("truncate");
13765   sg__rc_cgen9166.d9486[51] = Sg_Intern(sg__rc_cgen9166.d9486[50]); /* truncate */
13766   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[50]), &core_truncate__STUB);
13767   SG_PROCEDURE_NAME(&core_truncate__STUB) = sg__rc_cgen9166.d9486[50];
13768   SG_PROCEDURE_TRANSPARENT(&core_truncate__STUB) = SG_PROC_TRANSPARENT;
13769   sg__rc_cgen9166.d9486[52] = SG_MAKE_STRING("round");
13770   sg__rc_cgen9166.d9486[53] = Sg_Intern(sg__rc_cgen9166.d9486[52]); /* round */
13771   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[52]), &core_round__STUB);
13772   SG_PROCEDURE_NAME(&core_round__STUB) = sg__rc_cgen9166.d9486[52];
13773   SG_PROCEDURE_TRANSPARENT(&core_round__STUB) = SG_PROC_TRANSPARENT;
13774   sg__rc_cgen9166.d9486[54] = SG_MAKE_STRING("div");
13775   sg__rc_cgen9166.d9486[55] = Sg_Intern(sg__rc_cgen9166.d9486[54]); /* div */
13776   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[54]), &core_div__STUB);
13777   SG_PROCEDURE_NAME(&core_div__STUB) = sg__rc_cgen9166.d9486[54];
13778   SG_PROCEDURE_TRANSPARENT(&core_div__STUB) = SG_PROC_TRANSPARENT;
13779   sg__rc_cgen9166.d9486[56] = SG_MAKE_STRING("mod");
13780   sg__rc_cgen9166.d9486[57] = Sg_Intern(sg__rc_cgen9166.d9486[56]); /* mod */
13781   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[56]), &core_mod__STUB);
13782   SG_PROCEDURE_NAME(&core_mod__STUB) = sg__rc_cgen9166.d9486[56];
13783   SG_PROCEDURE_TRANSPARENT(&core_mod__STUB) = SG_PROC_TRANSPARENT;
13784   sg__rc_cgen9166.d9486[58] = SG_MAKE_STRING("div0");
13785   sg__rc_cgen9166.d9486[59] = Sg_Intern(sg__rc_cgen9166.d9486[58]); /* div0 */
13786   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[58]), &core_div0__STUB);
13787   SG_PROCEDURE_NAME(&core_div0__STUB) = sg__rc_cgen9166.d9486[58];
13788   SG_PROCEDURE_TRANSPARENT(&core_div0__STUB) = SG_PROC_TRANSPARENT;
13789   sg__rc_cgen9166.d9486[60] = SG_MAKE_STRING("mod0");
13790   sg__rc_cgen9166.d9486[61] = Sg_Intern(sg__rc_cgen9166.d9486[60]); /* mod0 */
13791   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[60]), &core_mod0__STUB);
13792   SG_PROCEDURE_NAME(&core_mod0__STUB) = sg__rc_cgen9166.d9486[60];
13793   SG_PROCEDURE_TRANSPARENT(&core_mod0__STUB) = SG_PROC_TRANSPARENT;
13794   sg__rc_cgen9166.d9486[62] = SG_MAKE_STRING("%gcd");
13795   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[62]), &core__25gcd__STUB);
13796   SG_PROCEDURE_NAME(&core__25gcd__STUB) = sg__rc_cgen9166.d9486[62];
13797   SG_PROCEDURE_TRANSPARENT(&core__25gcd__STUB) = SG_PROC_TRANSPARENT;
13798   sg__rc_cgen9166.d9486[63] = SG_MAKE_STRING("exp");
13799   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[63]), &core_exp__STUB);
13800   SG_PROCEDURE_NAME(&core_exp__STUB) = sg__rc_cgen9166.d9486[63];
13801   SG_PROCEDURE_TRANSPARENT(&core_exp__STUB) = SG_PROC_TRANSPARENT;
13802   sg__rc_cgen9166.d9486[64] = SG_MAKE_STRING("expt");
13803   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[64]), &core_expt__STUB);
13804   SG_PROCEDURE_NAME(&core_expt__STUB) = sg__rc_cgen9166.d9486[64];
13805   SG_PROCEDURE_TRANSPARENT(&core_expt__STUB) = SG_PROC_TRANSPARENT;
13806   sg__rc_cgen9166.d9486[65] = SG_MAKE_STRING("log");
13807   sg__rc_cgen9166.d9486[66] = Sg_Intern(sg__rc_cgen9166.d9486[65]); /* log */
13808   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[65]), &core_log__STUB);
13809   SG_PROCEDURE_NAME(&core_log__STUB) = sg__rc_cgen9166.d9486[65];
13810   SG_PROCEDURE_TRANSPARENT(&core_log__STUB) = SG_PROC_TRANSPARENT;
13811   sg__rc_cgen9166.d9486[67] = SG_MAKE_STRING("make-rectangular");
13812   sg__rc_cgen9166.d9486[68] = Sg_Intern(sg__rc_cgen9166.d9486[67]); /* make-rectangular */
13813   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[67]), &core_make_rectangular__STUB);
13814   SG_PROCEDURE_NAME(&core_make_rectangular__STUB) = sg__rc_cgen9166.d9486[67];
13815   SG_PROCEDURE_TRANSPARENT(&core_make_rectangular__STUB) = SG_PROC_TRANSPARENT;
13816   sg__rc_cgen9166.d9486[69] = SG_MAKE_STRING("make-polar");
13817   sg__rc_cgen9166.d9486[70] = Sg_Intern(sg__rc_cgen9166.d9486[69]); /* make-polar */
13818   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[69]), &core_make_polar__STUB);
13819   SG_PROCEDURE_NAME(&core_make_polar__STUB) = sg__rc_cgen9166.d9486[69];
13820   SG_PROCEDURE_TRANSPARENT(&core_make_polar__STUB) = SG_PROC_TRANSPARENT;
13821   sg__rc_cgen9166.d9486[71] = SG_MAKE_STRING("real-part");
13822   sg__rc_cgen9166.d9486[72] = Sg_Intern(sg__rc_cgen9166.d9486[71]); /* real-part */
13823   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[71]), &core_real_part__STUB);
13824   SG_PROCEDURE_NAME(&core_real_part__STUB) = sg__rc_cgen9166.d9486[71];
13825   SG_PROCEDURE_TRANSPARENT(&core_real_part__STUB) = SG_PROC_TRANSPARENT;
13826   sg__rc_cgen9166.d9486[73] = SG_MAKE_STRING("imag-part");
13827   sg__rc_cgen9166.d9486[74] = Sg_Intern(sg__rc_cgen9166.d9486[73]); /* imag-part */
13828   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[73]), &core_imag_part__STUB);
13829   SG_PROCEDURE_NAME(&core_imag_part__STUB) = sg__rc_cgen9166.d9486[73];
13830   SG_PROCEDURE_TRANSPARENT(&core_imag_part__STUB) = SG_PROC_TRANSPARENT;
13831   sg__rc_cgen9166.d9486[75] = SG_MAKE_STRING("magnitude");
13832   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[75]), &core_magnitude__STUB);
13833   SG_PROCEDURE_NAME(&core_magnitude__STUB) = sg__rc_cgen9166.d9486[75];
13834   SG_PROCEDURE_TRANSPARENT(&core_magnitude__STUB) = SG_PROC_TRANSPARENT;
13835   sg__rc_cgen9166.d9486[76] = SG_MAKE_STRING("angle");
13836   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[76]), &core_angle__STUB);
13837   SG_PROCEDURE_NAME(&core_angle__STUB) = sg__rc_cgen9166.d9486[76];
13838   SG_PROCEDURE_TRANSPARENT(&core_angle__STUB) = SG_PROC_TRANSPARENT;
13839   sg__rc_cgen9166.d9486[77] = SG_MAKE_STRING("sin");
13840   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[77]), &core_sin__STUB);
13841   SG_PROCEDURE_NAME(&core_sin__STUB) = sg__rc_cgen9166.d9486[77];
13842   SG_PROCEDURE_TRANSPARENT(&core_sin__STUB) = SG_PROC_TRANSPARENT;
13843   sg__rc_cgen9166.d9486[78] = SG_MAKE_STRING("cos");
13844   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[78]), &core_cos__STUB);
13845   SG_PROCEDURE_NAME(&core_cos__STUB) = sg__rc_cgen9166.d9486[78];
13846   SG_PROCEDURE_TRANSPARENT(&core_cos__STUB) = SG_PROC_TRANSPARENT;
13847   sg__rc_cgen9166.d9486[79] = SG_MAKE_STRING("tan");
13848   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[79]), &core_tan__STUB);
13849   SG_PROCEDURE_NAME(&core_tan__STUB) = sg__rc_cgen9166.d9486[79];
13850   SG_PROCEDURE_TRANSPARENT(&core_tan__STUB) = SG_PROC_TRANSPARENT;
13851   sg__rc_cgen9166.d9486[80] = SG_MAKE_STRING("asin");
13852   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[80]), &core_asin__STUB);
13853   SG_PROCEDURE_NAME(&core_asin__STUB) = sg__rc_cgen9166.d9486[80];
13854   SG_PROCEDURE_TRANSPARENT(&core_asin__STUB) = SG_PROC_TRANSPARENT;
13855   sg__rc_cgen9166.d9486[81] = SG_MAKE_STRING("acos");
13856   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[81]), &core_acos__STUB);
13857   SG_PROCEDURE_NAME(&core_acos__STUB) = sg__rc_cgen9166.d9486[81];
13858   SG_PROCEDURE_TRANSPARENT(&core_acos__STUB) = SG_PROC_TRANSPARENT;
13859   sg__rc_cgen9166.d9486[82] = SG_MAKE_STRING("atan");
13860   sg__rc_cgen9166.d9486[83] = Sg_Intern(sg__rc_cgen9166.d9486[82]); /* atan */
13861   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[82]), &core_atan__STUB);
13862   SG_PROCEDURE_NAME(&core_atan__STUB) = sg__rc_cgen9166.d9486[82];
13863   SG_PROCEDURE_TRANSPARENT(&core_atan__STUB) = SG_PROC_TRANSPARENT;
13864   sg__rc_cgen9166.d9486[84] = SG_MAKE_STRING("sqrt");
13865   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[84]), &core_sqrt__STUB);
13866   SG_PROCEDURE_NAME(&core_sqrt__STUB) = sg__rc_cgen9166.d9486[84];
13867   SG_PROCEDURE_TRANSPARENT(&core_sqrt__STUB) = SG_PROC_TRANSPARENT;
13868   sg__rc_cgen9166.d9486[85] = SG_MAKE_STRING("exact-integer-sqrt");
13869   sg__rc_cgen9166.d9486[86] = Sg_Intern(sg__rc_cgen9166.d9486[85]); /* exact-integer-sqrt */
13870   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[85]), &core_exact_integer_sqrt__STUB);
13871   SG_PROCEDURE_NAME(&core_exact_integer_sqrt__STUB) = sg__rc_cgen9166.d9486[85];
13872   SG_PROCEDURE_TRANSPARENT(&core_exact_integer_sqrt__STUB) = SG_PROC_TRANSPARENT;
13873   sg__rc_cgen9166.d9486[87] = SG_MAKE_STRING("rationalize");
13874   sg__rc_cgen9166.d9486[88] = Sg_Intern(sg__rc_cgen9166.d9486[87]); /* rationalize */
13875   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[87]), &core_rationalize__STUB);
13876   SG_PROCEDURE_NAME(&core_rationalize__STUB) = sg__rc_cgen9166.d9486[87];
13877   SG_PROCEDURE_TRANSPARENT(&core_rationalize__STUB) = SG_PROC_TRANSPARENT;
13878   sg__rc_cgen9166.d9486[89] = SG_MAKE_STRING("quotient");
13879   sg__rc_cgen9166.d9486[90] = Sg_Intern(sg__rc_cgen9166.d9486[89]); /* quotient */
13880   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[89]), &core_quotient__STUB);
13881   SG_PROCEDURE_NAME(&core_quotient__STUB) = sg__rc_cgen9166.d9486[89];
13882   SG_PROCEDURE_TRANSPARENT(&core_quotient__STUB) = SG_PROC_TRANSPARENT;
13883   sg__rc_cgen9166.d9486[91] = SG_MAKE_STRING("remainder");
13884   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[91]), &core_remainder__STUB);
13885   SG_PROCEDURE_NAME(&core_remainder__STUB) = sg__rc_cgen9166.d9486[91];
13886   SG_PROCEDURE_TRANSPARENT(&core_remainder__STUB) = SG_PROC_TRANSPARENT;
13887   sg__rc_cgen9166.d9486[92] = SG_MAKE_STRING("modulo");
13888   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[92]), &core_modulo__STUB);
13889   SG_PROCEDURE_NAME(&core_modulo__STUB) = sg__rc_cgen9166.d9486[92];
13890   SG_PROCEDURE_TRANSPARENT(&core_modulo__STUB) = SG_PROC_TRANSPARENT;
13891   sg__rc_cgen9166.d9486[93] = SG_MAKE_STRING("integer-length");
13892   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[93]), &core_integer_length__STUB);
13893   SG_PROCEDURE_NAME(&core_integer_length__STUB) = sg__rc_cgen9166.d9486[93];
13894   SG_PROCEDURE_TRANSPARENT(&core_integer_length__STUB) = SG_PROC_TRANSPARENT;
13895   sg__rc_cgen9166.d9486[94] = SG_MAKE_STRING("number->string");
13896   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[94]), &core_number_TOstring__STUB);
13897   SG_PROCEDURE_NAME(&core_number_TOstring__STUB) = sg__rc_cgen9166.d9486[94];
13898   SG_PROCEDURE_TRANSPARENT(&core_number_TOstring__STUB) = SG_PROC_TRANSPARENT;
13899   sg__rc_cgen9166.d9486[95] = SG_MAKE_STRING("string->number");
13900   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[95]), &core_string_TOnumber__STUB);
13901   SG_PROCEDURE_NAME(&core_string_TOnumber__STUB) = sg__rc_cgen9166.d9486[95];
13902   SG_PROCEDURE_TRANSPARENT(&core_string_TOnumber__STUB) = SG_PROC_TRANSPARENT;
13903   sg__rc_cgen9166.d9486[96] = SG_MAKE_STRING("not");
13904   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[96]), &core_not__STUB);
13905   SG_PROCEDURE_NAME(&core_not__STUB) = sg__rc_cgen9166.d9486[96];
13906   SG_PROCEDURE_TRANSPARENT(&core_not__STUB) = SG_PROC_TRANSPARENT;
13907   sg__rc_cgen9166.d9486[97] = SG_MAKE_STRING("boolean=?");
13908   sg__rc_cgen9166.d9486[98] = Sg_Intern(sg__rc_cgen9166.d9486[97]); /* boolean=? */
13909   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[97]), &core_boolean_3dP__STUB);
13910   SG_PROCEDURE_NAME(&core_boolean_3dP__STUB) = sg__rc_cgen9166.d9486[97];
13911   SG_PROCEDURE_TRANSPARENT(&core_boolean_3dP__STUB) = SG_PROC_TRANSPARENT;
13912   sg__rc_cgen9166.d9486[99] = SG_MAKE_STRING("cons");
13913   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[99]), &core_cons__STUB);
13914   SG_PROCEDURE_NAME(&core_cons__STUB) = sg__rc_cgen9166.d9486[99];
13915   SG_PROCEDURE_TRANSPARENT(&core_cons__STUB) = SG_PROC_NO_SIDE_EFFECT;
13916   sg__rc_cgen9166.d9486[100] = SG_MAKE_STRING("car");
13917   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[100]), &core_car__STUB);
13918   SG_PROCEDURE_NAME(&core_car__STUB) = sg__rc_cgen9166.d9486[100];
13919   SG_PROCEDURE_TRANSPARENT(&core_car__STUB) = SG_PROC_TRANSPARENT;
13920   SG_PROCEDURE_NAME(&core_set_carX__STUB) = sg__rc_cgen9166.d9486[567];
13921   Sg_SetterSet(SG_PROCEDURE(&core_car__STUB), SG_PROCEDURE(&core_set_carX__STUB), TRUE);
13922   sg__rc_cgen9166.d9486[101] = SG_MAKE_STRING("cdr");
13923   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[101]), &core_cdr__STUB);
13924   SG_PROCEDURE_NAME(&core_cdr__STUB) = sg__rc_cgen9166.d9486[101];
13925   SG_PROCEDURE_TRANSPARENT(&core_cdr__STUB) = SG_PROC_TRANSPARENT;
13926   SG_PROCEDURE_NAME(&core_set_cdrX__STUB) = sg__rc_cgen9166.d9486[570];
13927   Sg_SetterSet(SG_PROCEDURE(&core_cdr__STUB), SG_PROCEDURE(&core_set_cdrX__STUB), TRUE);
13928   sg__rc_cgen9166.d9486[102] = SG_MAKE_STRING("caar");
13929   sg__rc_cgen9166.d9486[103] = SG_MAKE_STRING("(setter caar)");
13930   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[102]), &core_caar__STUB);
13931   SG_PROCEDURE_NAME(&core_caar__STUB) = sg__rc_cgen9166.d9486[102];
13932   SG_PROCEDURE_TRANSPARENT(&core_caar__STUB) = SG_PROC_TRANSPARENT;
13933   SG_PROCEDURE_NAME(&core_caar_SETTER__STUB) = sg__rc_cgen9166.d9486[103];
13934   Sg_SetterSet(SG_PROCEDURE(&core_caar__STUB), SG_PROCEDURE(&core_caar_SETTER__STUB), TRUE);
13935   sg__rc_cgen9166.d9486[104] = SG_MAKE_STRING("cadr");
13936   sg__rc_cgen9166.d9486[105] = SG_MAKE_STRING("(setter cadr)");
13937   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[104]), &core_cadr__STUB);
13938   SG_PROCEDURE_NAME(&core_cadr__STUB) = sg__rc_cgen9166.d9486[104];
13939   SG_PROCEDURE_TRANSPARENT(&core_cadr__STUB) = SG_PROC_TRANSPARENT;
13940   SG_PROCEDURE_NAME(&core_cadr_SETTER__STUB) = sg__rc_cgen9166.d9486[105];
13941   Sg_SetterSet(SG_PROCEDURE(&core_cadr__STUB), SG_PROCEDURE(&core_cadr_SETTER__STUB), TRUE);
13942   sg__rc_cgen9166.d9486[106] = SG_MAKE_STRING("cdar");
13943   sg__rc_cgen9166.d9486[107] = SG_MAKE_STRING("(setter cdar)");
13944   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[106]), &core_cdar__STUB);
13945   SG_PROCEDURE_NAME(&core_cdar__STUB) = sg__rc_cgen9166.d9486[106];
13946   SG_PROCEDURE_TRANSPARENT(&core_cdar__STUB) = SG_PROC_TRANSPARENT;
13947   SG_PROCEDURE_NAME(&core_cdar_SETTER__STUB) = sg__rc_cgen9166.d9486[107];
13948   Sg_SetterSet(SG_PROCEDURE(&core_cdar__STUB), SG_PROCEDURE(&core_cdar_SETTER__STUB), TRUE);
13949   sg__rc_cgen9166.d9486[108] = SG_MAKE_STRING("cddr");
13950   sg__rc_cgen9166.d9486[109] = SG_MAKE_STRING("(setter cddr)");
13951   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[108]), &core_cddr__STUB);
13952   SG_PROCEDURE_NAME(&core_cddr__STUB) = sg__rc_cgen9166.d9486[108];
13953   SG_PROCEDURE_TRANSPARENT(&core_cddr__STUB) = SG_PROC_TRANSPARENT;
13954   SG_PROCEDURE_NAME(&core_cddr_SETTER__STUB) = sg__rc_cgen9166.d9486[109];
13955   Sg_SetterSet(SG_PROCEDURE(&core_cddr__STUB), SG_PROCEDURE(&core_cddr_SETTER__STUB), TRUE);
13956   sg__rc_cgen9166.d9486[110] = SG_MAKE_STRING("caaar");
13957   sg__rc_cgen9166.d9486[111] = SG_MAKE_STRING("(setter caaar)");
13958   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[110]), &core_caaar__STUB);
13959   SG_PROCEDURE_NAME(&core_caaar__STUB) = sg__rc_cgen9166.d9486[110];
13960   SG_PROCEDURE_TRANSPARENT(&core_caaar__STUB) = SG_PROC_TRANSPARENT;
13961   SG_PROCEDURE_NAME(&core_caaar_SETTER__STUB) = sg__rc_cgen9166.d9486[111];
13962   Sg_SetterSet(SG_PROCEDURE(&core_caaar__STUB), SG_PROCEDURE(&core_caaar_SETTER__STUB), TRUE);
13963   sg__rc_cgen9166.d9486[112] = SG_MAKE_STRING("caadr");
13964   sg__rc_cgen9166.d9486[113] = SG_MAKE_STRING("(setter caadr)");
13965   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[112]), &core_caadr__STUB);
13966   SG_PROCEDURE_NAME(&core_caadr__STUB) = sg__rc_cgen9166.d9486[112];
13967   SG_PROCEDURE_TRANSPARENT(&core_caadr__STUB) = SG_PROC_TRANSPARENT;
13968   SG_PROCEDURE_NAME(&core_caadr_SETTER__STUB) = sg__rc_cgen9166.d9486[113];
13969   Sg_SetterSet(SG_PROCEDURE(&core_caadr__STUB), SG_PROCEDURE(&core_caadr_SETTER__STUB), TRUE);
13970   sg__rc_cgen9166.d9486[114] = SG_MAKE_STRING("cadar");
13971   sg__rc_cgen9166.d9486[115] = SG_MAKE_STRING("(setter cadar)");
13972   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[114]), &core_cadar__STUB);
13973   SG_PROCEDURE_NAME(&core_cadar__STUB) = sg__rc_cgen9166.d9486[114];
13974   SG_PROCEDURE_TRANSPARENT(&core_cadar__STUB) = SG_PROC_TRANSPARENT;
13975   SG_PROCEDURE_NAME(&core_cadar_SETTER__STUB) = sg__rc_cgen9166.d9486[115];
13976   Sg_SetterSet(SG_PROCEDURE(&core_cadar__STUB), SG_PROCEDURE(&core_cadar_SETTER__STUB), TRUE);
13977   sg__rc_cgen9166.d9486[116] = SG_MAKE_STRING("caddr");
13978   sg__rc_cgen9166.d9486[117] = SG_MAKE_STRING("(setter caddr)");
13979   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[116]), &core_caddr__STUB);
13980   SG_PROCEDURE_NAME(&core_caddr__STUB) = sg__rc_cgen9166.d9486[116];
13981   SG_PROCEDURE_TRANSPARENT(&core_caddr__STUB) = SG_PROC_TRANSPARENT;
13982   SG_PROCEDURE_NAME(&core_caddr_SETTER__STUB) = sg__rc_cgen9166.d9486[117];
13983   Sg_SetterSet(SG_PROCEDURE(&core_caddr__STUB), SG_PROCEDURE(&core_caddr_SETTER__STUB), TRUE);
13984   sg__rc_cgen9166.d9486[118] = SG_MAKE_STRING("cdaar");
13985   sg__rc_cgen9166.d9486[119] = SG_MAKE_STRING("(setter cdaar)");
13986   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[118]), &core_cdaar__STUB);
13987   SG_PROCEDURE_NAME(&core_cdaar__STUB) = sg__rc_cgen9166.d9486[118];
13988   SG_PROCEDURE_TRANSPARENT(&core_cdaar__STUB) = SG_PROC_TRANSPARENT;
13989   SG_PROCEDURE_NAME(&core_cdaar_SETTER__STUB) = sg__rc_cgen9166.d9486[119];
13990   Sg_SetterSet(SG_PROCEDURE(&core_cdaar__STUB), SG_PROCEDURE(&core_cdaar_SETTER__STUB), TRUE);
13991   sg__rc_cgen9166.d9486[120] = SG_MAKE_STRING("cdadr");
13992   sg__rc_cgen9166.d9486[121] = SG_MAKE_STRING("(setter cdadr)");
13993   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[120]), &core_cdadr__STUB);
13994   SG_PROCEDURE_NAME(&core_cdadr__STUB) = sg__rc_cgen9166.d9486[120];
13995   SG_PROCEDURE_TRANSPARENT(&core_cdadr__STUB) = SG_PROC_TRANSPARENT;
13996   SG_PROCEDURE_NAME(&core_cdadr_SETTER__STUB) = sg__rc_cgen9166.d9486[121];
13997   Sg_SetterSet(SG_PROCEDURE(&core_cdadr__STUB), SG_PROCEDURE(&core_cdadr_SETTER__STUB), TRUE);
13998   sg__rc_cgen9166.d9486[122] = SG_MAKE_STRING("cddar");
13999   sg__rc_cgen9166.d9486[123] = SG_MAKE_STRING("(setter cddar)");
14000   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[122]), &core_cddar__STUB);
14001   SG_PROCEDURE_NAME(&core_cddar__STUB) = sg__rc_cgen9166.d9486[122];
14002   SG_PROCEDURE_TRANSPARENT(&core_cddar__STUB) = SG_PROC_TRANSPARENT;
14003   SG_PROCEDURE_NAME(&core_cddar_SETTER__STUB) = sg__rc_cgen9166.d9486[123];
14004   Sg_SetterSet(SG_PROCEDURE(&core_cddar__STUB), SG_PROCEDURE(&core_cddar_SETTER__STUB), TRUE);
14005   sg__rc_cgen9166.d9486[124] = SG_MAKE_STRING("cdddr");
14006   sg__rc_cgen9166.d9486[125] = SG_MAKE_STRING("(setter cdddr)");
14007   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[124]), &core_cdddr__STUB);
14008   SG_PROCEDURE_NAME(&core_cdddr__STUB) = sg__rc_cgen9166.d9486[124];
14009   SG_PROCEDURE_TRANSPARENT(&core_cdddr__STUB) = SG_PROC_TRANSPARENT;
14010   SG_PROCEDURE_NAME(&core_cdddr_SETTER__STUB) = sg__rc_cgen9166.d9486[125];
14011   Sg_SetterSet(SG_PROCEDURE(&core_cdddr__STUB), SG_PROCEDURE(&core_cdddr_SETTER__STUB), TRUE);
14012   sg__rc_cgen9166.d9486[126] = SG_MAKE_STRING("caaaar");
14013   sg__rc_cgen9166.d9486[127] = SG_MAKE_STRING("(setter caaaar)");
14014   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[126]), &core_caaaar__STUB);
14015   SG_PROCEDURE_NAME(&core_caaaar__STUB) = sg__rc_cgen9166.d9486[126];
14016   SG_PROCEDURE_TRANSPARENT(&core_caaaar__STUB) = SG_PROC_TRANSPARENT;
14017   SG_PROCEDURE_NAME(&core_caaaar_SETTER__STUB) = sg__rc_cgen9166.d9486[127];
14018   Sg_SetterSet(SG_PROCEDURE(&core_caaaar__STUB), SG_PROCEDURE(&core_caaaar_SETTER__STUB), TRUE);
14019   sg__rc_cgen9166.d9486[128] = SG_MAKE_STRING("caaadr");
14020   sg__rc_cgen9166.d9486[129] = SG_MAKE_STRING("(setter caaadr)");
14021   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[128]), &core_caaadr__STUB);
14022   SG_PROCEDURE_NAME(&core_caaadr__STUB) = sg__rc_cgen9166.d9486[128];
14023   SG_PROCEDURE_TRANSPARENT(&core_caaadr__STUB) = SG_PROC_TRANSPARENT;
14024   SG_PROCEDURE_NAME(&core_caaadr_SETTER__STUB) = sg__rc_cgen9166.d9486[129];
14025   Sg_SetterSet(SG_PROCEDURE(&core_caaadr__STUB), SG_PROCEDURE(&core_caaadr_SETTER__STUB), TRUE);
14026   sg__rc_cgen9166.d9486[130] = SG_MAKE_STRING("caadar");
14027   sg__rc_cgen9166.d9486[131] = SG_MAKE_STRING("(setter caadar)");
14028   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[130]), &core_caadar__STUB);
14029   SG_PROCEDURE_NAME(&core_caadar__STUB) = sg__rc_cgen9166.d9486[130];
14030   SG_PROCEDURE_TRANSPARENT(&core_caadar__STUB) = SG_PROC_TRANSPARENT;
14031   SG_PROCEDURE_NAME(&core_caadar_SETTER__STUB) = sg__rc_cgen9166.d9486[131];
14032   Sg_SetterSet(SG_PROCEDURE(&core_caadar__STUB), SG_PROCEDURE(&core_caadar_SETTER__STUB), TRUE);
14033   sg__rc_cgen9166.d9486[132] = SG_MAKE_STRING("caaddr");
14034   sg__rc_cgen9166.d9486[133] = SG_MAKE_STRING("(setter caaddr)");
14035   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[132]), &core_caaddr__STUB);
14036   SG_PROCEDURE_NAME(&core_caaddr__STUB) = sg__rc_cgen9166.d9486[132];
14037   SG_PROCEDURE_TRANSPARENT(&core_caaddr__STUB) = SG_PROC_TRANSPARENT;
14038   SG_PROCEDURE_NAME(&core_caaddr_SETTER__STUB) = sg__rc_cgen9166.d9486[133];
14039   Sg_SetterSet(SG_PROCEDURE(&core_caaddr__STUB), SG_PROCEDURE(&core_caaddr_SETTER__STUB), TRUE);
14040   sg__rc_cgen9166.d9486[134] = SG_MAKE_STRING("cadaar");
14041   sg__rc_cgen9166.d9486[135] = SG_MAKE_STRING("(setter cadaar)");
14042   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[134]), &core_cadaar__STUB);
14043   SG_PROCEDURE_NAME(&core_cadaar__STUB) = sg__rc_cgen9166.d9486[134];
14044   SG_PROCEDURE_TRANSPARENT(&core_cadaar__STUB) = SG_PROC_TRANSPARENT;
14045   SG_PROCEDURE_NAME(&core_cadaar_SETTER__STUB) = sg__rc_cgen9166.d9486[135];
14046   Sg_SetterSet(SG_PROCEDURE(&core_cadaar__STUB), SG_PROCEDURE(&core_cadaar_SETTER__STUB), TRUE);
14047   sg__rc_cgen9166.d9486[136] = SG_MAKE_STRING("cadadr");
14048   sg__rc_cgen9166.d9486[137] = SG_MAKE_STRING("(setter cadadr)");
14049   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[136]), &core_cadadr__STUB);
14050   SG_PROCEDURE_NAME(&core_cadadr__STUB) = sg__rc_cgen9166.d9486[136];
14051   SG_PROCEDURE_TRANSPARENT(&core_cadadr__STUB) = SG_PROC_TRANSPARENT;
14052   SG_PROCEDURE_NAME(&core_cadadr_SETTER__STUB) = sg__rc_cgen9166.d9486[137];
14053   Sg_SetterSet(SG_PROCEDURE(&core_cadadr__STUB), SG_PROCEDURE(&core_cadadr_SETTER__STUB), TRUE);
14054   sg__rc_cgen9166.d9486[138] = SG_MAKE_STRING("caddar");
14055   sg__rc_cgen9166.d9486[139] = SG_MAKE_STRING("(setter caddar)");
14056   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[138]), &core_caddar__STUB);
14057   SG_PROCEDURE_NAME(&core_caddar__STUB) = sg__rc_cgen9166.d9486[138];
14058   SG_PROCEDURE_TRANSPARENT(&core_caddar__STUB) = SG_PROC_TRANSPARENT;
14059   SG_PROCEDURE_NAME(&core_caddar_SETTER__STUB) = sg__rc_cgen9166.d9486[139];
14060   Sg_SetterSet(SG_PROCEDURE(&core_caddar__STUB), SG_PROCEDURE(&core_caddar_SETTER__STUB), TRUE);
14061   sg__rc_cgen9166.d9486[140] = SG_MAKE_STRING("cadddr");
14062   sg__rc_cgen9166.d9486[141] = SG_MAKE_STRING("(setter cadddr)");
14063   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[140]), &core_cadddr__STUB);
14064   SG_PROCEDURE_NAME(&core_cadddr__STUB) = sg__rc_cgen9166.d9486[140];
14065   SG_PROCEDURE_TRANSPARENT(&core_cadddr__STUB) = SG_PROC_TRANSPARENT;
14066   SG_PROCEDURE_NAME(&core_cadddr_SETTER__STUB) = sg__rc_cgen9166.d9486[141];
14067   Sg_SetterSet(SG_PROCEDURE(&core_cadddr__STUB), SG_PROCEDURE(&core_cadddr_SETTER__STUB), TRUE);
14068   sg__rc_cgen9166.d9486[142] = SG_MAKE_STRING("cdaaar");
14069   sg__rc_cgen9166.d9486[143] = SG_MAKE_STRING("(setter cdaaar)");
14070   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[142]), &core_cdaaar__STUB);
14071   SG_PROCEDURE_NAME(&core_cdaaar__STUB) = sg__rc_cgen9166.d9486[142];
14072   SG_PROCEDURE_TRANSPARENT(&core_cdaaar__STUB) = SG_PROC_TRANSPARENT;
14073   SG_PROCEDURE_NAME(&core_cdaaar_SETTER__STUB) = sg__rc_cgen9166.d9486[143];
14074   Sg_SetterSet(SG_PROCEDURE(&core_cdaaar__STUB), SG_PROCEDURE(&core_cdaaar_SETTER__STUB), TRUE);
14075   sg__rc_cgen9166.d9486[144] = SG_MAKE_STRING("cdaadr");
14076   sg__rc_cgen9166.d9486[145] = SG_MAKE_STRING("(setter cdaadr)");
14077   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[144]), &core_cdaadr__STUB);
14078   SG_PROCEDURE_NAME(&core_cdaadr__STUB) = sg__rc_cgen9166.d9486[144];
14079   SG_PROCEDURE_TRANSPARENT(&core_cdaadr__STUB) = SG_PROC_TRANSPARENT;
14080   SG_PROCEDURE_NAME(&core_cdaadr_SETTER__STUB) = sg__rc_cgen9166.d9486[145];
14081   Sg_SetterSet(SG_PROCEDURE(&core_cdaadr__STUB), SG_PROCEDURE(&core_cdaadr_SETTER__STUB), TRUE);
14082   sg__rc_cgen9166.d9486[146] = SG_MAKE_STRING("cdadar");
14083   sg__rc_cgen9166.d9486[147] = SG_MAKE_STRING("(setter cdadar)");
14084   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[146]), &core_cdadar__STUB);
14085   SG_PROCEDURE_NAME(&core_cdadar__STUB) = sg__rc_cgen9166.d9486[146];
14086   SG_PROCEDURE_TRANSPARENT(&core_cdadar__STUB) = SG_PROC_TRANSPARENT;
14087   SG_PROCEDURE_NAME(&core_cdadar_SETTER__STUB) = sg__rc_cgen9166.d9486[147];
14088   Sg_SetterSet(SG_PROCEDURE(&core_cdadar__STUB), SG_PROCEDURE(&core_cdadar_SETTER__STUB), TRUE);
14089   sg__rc_cgen9166.d9486[148] = SG_MAKE_STRING("cdaddr");
14090   sg__rc_cgen9166.d9486[149] = SG_MAKE_STRING("(setter cdaddr)");
14091   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[148]), &core_cdaddr__STUB);
14092   SG_PROCEDURE_NAME(&core_cdaddr__STUB) = sg__rc_cgen9166.d9486[148];
14093   SG_PROCEDURE_TRANSPARENT(&core_cdaddr__STUB) = SG_PROC_TRANSPARENT;
14094   SG_PROCEDURE_NAME(&core_cdaddr_SETTER__STUB) = sg__rc_cgen9166.d9486[149];
14095   Sg_SetterSet(SG_PROCEDURE(&core_cdaddr__STUB), SG_PROCEDURE(&core_cdaddr_SETTER__STUB), TRUE);
14096   sg__rc_cgen9166.d9486[150] = SG_MAKE_STRING("cddaar");
14097   sg__rc_cgen9166.d9486[151] = SG_MAKE_STRING("(setter cddaar)");
14098   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[150]), &core_cddaar__STUB);
14099   SG_PROCEDURE_NAME(&core_cddaar__STUB) = sg__rc_cgen9166.d9486[150];
14100   SG_PROCEDURE_TRANSPARENT(&core_cddaar__STUB) = SG_PROC_TRANSPARENT;
14101   SG_PROCEDURE_NAME(&core_cddaar_SETTER__STUB) = sg__rc_cgen9166.d9486[151];
14102   Sg_SetterSet(SG_PROCEDURE(&core_cddaar__STUB), SG_PROCEDURE(&core_cddaar_SETTER__STUB), TRUE);
14103   sg__rc_cgen9166.d9486[152] = SG_MAKE_STRING("cddadr");
14104   sg__rc_cgen9166.d9486[153] = SG_MAKE_STRING("(setter cddadr)");
14105   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[152]), &core_cddadr__STUB);
14106   SG_PROCEDURE_NAME(&core_cddadr__STUB) = sg__rc_cgen9166.d9486[152];
14107   SG_PROCEDURE_TRANSPARENT(&core_cddadr__STUB) = SG_PROC_TRANSPARENT;
14108   SG_PROCEDURE_NAME(&core_cddadr_SETTER__STUB) = sg__rc_cgen9166.d9486[153];
14109   Sg_SetterSet(SG_PROCEDURE(&core_cddadr__STUB), SG_PROCEDURE(&core_cddadr_SETTER__STUB), TRUE);
14110   sg__rc_cgen9166.d9486[154] = SG_MAKE_STRING("cdddar");
14111   sg__rc_cgen9166.d9486[155] = SG_MAKE_STRING("(setter cdddar)");
14112   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[154]), &core_cdddar__STUB);
14113   SG_PROCEDURE_NAME(&core_cdddar__STUB) = sg__rc_cgen9166.d9486[154];
14114   SG_PROCEDURE_TRANSPARENT(&core_cdddar__STUB) = SG_PROC_TRANSPARENT;
14115   SG_PROCEDURE_NAME(&core_cdddar_SETTER__STUB) = sg__rc_cgen9166.d9486[155];
14116   Sg_SetterSet(SG_PROCEDURE(&core_cdddar__STUB), SG_PROCEDURE(&core_cdddar_SETTER__STUB), TRUE);
14117   sg__rc_cgen9166.d9486[156] = SG_MAKE_STRING("cddddr");
14118   sg__rc_cgen9166.d9486[157] = SG_MAKE_STRING("(setter cddddr)");
14119   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[156]), &core_cddddr__STUB);
14120   SG_PROCEDURE_NAME(&core_cddddr__STUB) = sg__rc_cgen9166.d9486[156];
14121   SG_PROCEDURE_TRANSPARENT(&core_cddddr__STUB) = SG_PROC_TRANSPARENT;
14122   SG_PROCEDURE_NAME(&core_cddddr_SETTER__STUB) = sg__rc_cgen9166.d9486[157];
14123   Sg_SetterSet(SG_PROCEDURE(&core_cddddr__STUB), SG_PROCEDURE(&core_cddddr_SETTER__STUB), TRUE);
14124   sg__rc_cgen9166.d9486[158] = SG_MAKE_STRING("list?");
14125   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[158]), &core_listP__STUB);
14126   SG_PROCEDURE_NAME(&core_listP__STUB) = sg__rc_cgen9166.d9486[158];
14127   SG_PROCEDURE_TRANSPARENT(&core_listP__STUB) = SG_PROC_TRANSPARENT;
14128   sg__rc_cgen9166.d9486[159] = SG_MAKE_STRING("list");
14129   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[159]), &core_list__STUB);
14130   SG_PROCEDURE_NAME(&core_list__STUB) = sg__rc_cgen9166.d9486[159];
14131   SG_PROCEDURE_TRANSPARENT(&core_list__STUB) = SG_PROC_NO_SIDE_EFFECT;
14132   sg__rc_cgen9166.d9486[160] = SG_MAKE_STRING("length");
14133   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[160]), &core_length__STUB);
14134   SG_PROCEDURE_NAME(&core_length__STUB) = sg__rc_cgen9166.d9486[160];
14135   SG_PROCEDURE_TRANSPARENT(&core_length__STUB) = SG_PROC_TRANSPARENT;
14136   sg__rc_cgen9166.d9486[161] = SG_MAKE_STRING("append");
14137   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[161]), &core_append__STUB);
14138   SG_PROCEDURE_NAME(&core_append__STUB) = sg__rc_cgen9166.d9486[161];
14139   SG_PROCEDURE_TRANSPARENT(&core_append__STUB) = SG_PROC_NO_SIDE_EFFECT;
14140   sg__rc_cgen9166.d9486[162] = SG_MAKE_STRING("reverse");
14141   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[162]), &core_reverse__STUB);
14142   SG_PROCEDURE_NAME(&core_reverse__STUB) = sg__rc_cgen9166.d9486[162];
14143   SG_PROCEDURE_TRANSPARENT(&core_reverse__STUB) = SG_PROC_NO_SIDE_EFFECT;
14144   sg__rc_cgen9166.d9486[163] = SG_MAKE_STRING("list-tail");
14145   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[163]), &core_list_tail__STUB);
14146   SG_PROCEDURE_NAME(&core_list_tail__STUB) = sg__rc_cgen9166.d9486[163];
14147   SG_PROCEDURE_TRANSPARENT(&core_list_tail__STUB) = SG_PROC_TRANSPARENT;
14148   sg__rc_cgen9166.d9486[164] = SG_MAKE_STRING("list-set!");
14149   sg__rc_cgen9166.d9486[165] = Sg_Intern(sg__rc_cgen9166.d9486[164]); /* list-set! */
14150   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[164]), &core_list_setX__STUB);
14151   SG_PROCEDURE_NAME(&core_list_setX__STUB) = sg__rc_cgen9166.d9486[164];
14152   sg__rc_cgen9166.d9486[166] = SG_MAKE_STRING("list-ref");
14153   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[166]), &core_list_ref__STUB);
14154   SG_PROCEDURE_NAME(&core_list_ref__STUB) = sg__rc_cgen9166.d9486[166];
14155   SG_PROCEDURE_TRANSPARENT(&core_list_ref__STUB) = SG_PROC_TRANSPARENT;
14156   SG_PROCEDURE_NAME(&core_list_setX__STUB) = sg__rc_cgen9166.d9486[164];
14157   Sg_SetterSet(SG_PROCEDURE(&core_list_ref__STUB), SG_PROCEDURE(&core_list_setX__STUB), TRUE);
14158   sg__rc_cgen9166.d9486[167] = SG_MAKE_STRING("last-pair");
14159   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[167]), &core_last_pair__STUB);
14160   SG_PROCEDURE_NAME(&core_last_pair__STUB) = sg__rc_cgen9166.d9486[167];
14161   SG_PROCEDURE_TRANSPARENT(&core_last_pair__STUB) = SG_PROC_TRANSPARENT;
14162   sg__rc_cgen9166.d9486[168] = SG_MAKE_STRING("symbol->string");
14163   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[168]), &core_symbol_TOstring__STUB);
14164   SG_PROCEDURE_NAME(&core_symbol_TOstring__STUB) = sg__rc_cgen9166.d9486[168];
14165   SG_PROCEDURE_TRANSPARENT(&core_symbol_TOstring__STUB) = SG_PROC_TRANSPARENT;
14166   sg__rc_cgen9166.d9486[169] = SG_MAKE_STRING("symbol=?");
14167   sg__rc_cgen9166.d9486[170] = Sg_Intern(sg__rc_cgen9166.d9486[169]); /* symbol=? */
14168   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[169]), &core_symbol_3dP__STUB);
14169   SG_PROCEDURE_NAME(&core_symbol_3dP__STUB) = sg__rc_cgen9166.d9486[169];
14170   SG_PROCEDURE_TRANSPARENT(&core_symbol_3dP__STUB) = SG_PROC_TRANSPARENT;
14171   sg__rc_cgen9166.d9486[171] = SG_MAKE_STRING("string->symbol");
14172   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[171]), &core_string_TOsymbol__STUB);
14173   SG_PROCEDURE_NAME(&core_string_TOsymbol__STUB) = sg__rc_cgen9166.d9486[171];
14174   SG_PROCEDURE_TRANSPARENT(&core_string_TOsymbol__STUB) = SG_PROC_TRANSPARENT;
14175   sg__rc_cgen9166.d9486[172] = SG_MAKE_STRING("char->integer");
14176   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[172]), &core_char_TOinteger__STUB);
14177   SG_PROCEDURE_NAME(&core_char_TOinteger__STUB) = sg__rc_cgen9166.d9486[172];
14178   SG_PROCEDURE_TRANSPARENT(&core_char_TOinteger__STUB) = SG_PROC_TRANSPARENT;
14179   sg__rc_cgen9166.d9486[173] = SG_MAKE_STRING("integer->char");
14180   sg__rc_cgen9166.d9486[174] = Sg_Intern(sg__rc_cgen9166.d9486[173]); /* integer->char */
14181   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[173]), &core_integer_TOchar__STUB);
14182   SG_PROCEDURE_NAME(&core_integer_TOchar__STUB) = sg__rc_cgen9166.d9486[173];
14183   SG_PROCEDURE_TRANSPARENT(&core_integer_TOchar__STUB) = SG_PROC_TRANSPARENT;
14184   sg__rc_cgen9166.d9486[175] = SG_MAKE_STRING("char=?");
14185   sg__rc_cgen9166.d9486[176] = Sg_Intern(sg__rc_cgen9166.d9486[175]); /* char=? */
14186   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[175]), &core_char_3dP__STUB);
14187   SG_PROCEDURE_NAME(&core_char_3dP__STUB) = sg__rc_cgen9166.d9486[175];
14188   SG_PROCEDURE_TRANSPARENT(&core_char_3dP__STUB) = SG_PROC_TRANSPARENT;
14189   sg__rc_cgen9166.d9486[177] = SG_MAKE_STRING("char<?");
14190   sg__rc_cgen9166.d9486[178] = Sg_Intern(sg__rc_cgen9166.d9486[177]); /* char<? */
14191   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[177]), &core_char_LTP__STUB);
14192   SG_PROCEDURE_NAME(&core_char_LTP__STUB) = sg__rc_cgen9166.d9486[177];
14193   SG_PROCEDURE_TRANSPARENT(&core_char_LTP__STUB) = SG_PROC_TRANSPARENT;
14194   sg__rc_cgen9166.d9486[179] = SG_MAKE_STRING("char>?");
14195   sg__rc_cgen9166.d9486[180] = Sg_Intern(sg__rc_cgen9166.d9486[179]); /* char>? */
14196   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[179]), &core_char_GTP__STUB);
14197   SG_PROCEDURE_NAME(&core_char_GTP__STUB) = sg__rc_cgen9166.d9486[179];
14198   SG_PROCEDURE_TRANSPARENT(&core_char_GTP__STUB) = SG_PROC_TRANSPARENT;
14199   sg__rc_cgen9166.d9486[181] = SG_MAKE_STRING("char<=?");
14200   sg__rc_cgen9166.d9486[182] = Sg_Intern(sg__rc_cgen9166.d9486[181]); /* char<=? */
14201   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[181]), &core_char_LT_3dP__STUB);
14202   SG_PROCEDURE_NAME(&core_char_LT_3dP__STUB) = sg__rc_cgen9166.d9486[181];
14203   SG_PROCEDURE_TRANSPARENT(&core_char_LT_3dP__STUB) = SG_PROC_TRANSPARENT;
14204   sg__rc_cgen9166.d9486[183] = SG_MAKE_STRING("char>=?");
14205   sg__rc_cgen9166.d9486[184] = Sg_Intern(sg__rc_cgen9166.d9486[183]); /* char>=? */
14206   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[183]), &core_char_GT_3dP__STUB);
14207   SG_PROCEDURE_NAME(&core_char_GT_3dP__STUB) = sg__rc_cgen9166.d9486[183];
14208   SG_PROCEDURE_TRANSPARENT(&core_char_GT_3dP__STUB) = SG_PROC_TRANSPARENT;
14209   sg__rc_cgen9166.d9486[185] = SG_MAKE_STRING("make-string");
14210   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[185]), &core_make_string__STUB);
14211   SG_PROCEDURE_NAME(&core_make_string__STUB) = sg__rc_cgen9166.d9486[185];
14212   sg__rc_cgen9166.d9486[186] = SG_MAKE_STRING("string");
14213   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[186]), &core_string__STUB);
14214   SG_PROCEDURE_NAME(&core_string__STUB) = sg__rc_cgen9166.d9486[186];
14215   SG_PROCEDURE_TRANSPARENT(&core_string__STUB) = SG_PROC_NO_SIDE_EFFECT;
14216   sg__rc_cgen9166.d9486[187] = SG_MAKE_STRING("string-length");
14217   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[187]), &core_string_length__STUB);
14218   SG_PROCEDURE_NAME(&core_string_length__STUB) = sg__rc_cgen9166.d9486[187];
14219   SG_PROCEDURE_TRANSPARENT(&core_string_length__STUB) = SG_PROC_TRANSPARENT;
14220   sg__rc_cgen9166.d9486[188] = SG_MAKE_STRING("string-ref");
14221   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[188]), &core_string_ref__STUB);
14222   SG_PROCEDURE_NAME(&core_string_ref__STUB) = sg__rc_cgen9166.d9486[188];
14223   SG_PROCEDURE_TRANSPARENT(&core_string_ref__STUB) = SG_PROC_TRANSPARENT;
14224   SG_PROCEDURE_NAME(&core_string_setX__STUB) = sg__rc_cgen9166.d9486[573];
14225   Sg_SetterSet(SG_PROCEDURE(&core_string_ref__STUB), SG_PROCEDURE(&core_string_setX__STUB), TRUE);
14226   sg__rc_cgen9166.d9486[189] = SG_MAKE_STRING("string=?");
14227   sg__rc_cgen9166.d9486[190] = Sg_Intern(sg__rc_cgen9166.d9486[189]); /* string=? */
14228   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[189]), &core_string_3dP__STUB);
14229   SG_PROCEDURE_NAME(&core_string_3dP__STUB) = sg__rc_cgen9166.d9486[189];
14230   SG_PROCEDURE_TRANSPARENT(&core_string_3dP__STUB) = SG_PROC_TRANSPARENT;
14231   sg__rc_cgen9166.d9486[191] = SG_MAKE_STRING("string<?");
14232   sg__rc_cgen9166.d9486[192] = Sg_Intern(sg__rc_cgen9166.d9486[191]); /* string<? */
14233   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[191]), &core_string_LTP__STUB);
14234   SG_PROCEDURE_NAME(&core_string_LTP__STUB) = sg__rc_cgen9166.d9486[191];
14235   SG_PROCEDURE_TRANSPARENT(&core_string_LTP__STUB) = SG_PROC_TRANSPARENT;
14236   sg__rc_cgen9166.d9486[193] = SG_MAKE_STRING("string>?");
14237   sg__rc_cgen9166.d9486[194] = Sg_Intern(sg__rc_cgen9166.d9486[193]); /* string>? */
14238   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[193]), &core_string_GTP__STUB);
14239   SG_PROCEDURE_NAME(&core_string_GTP__STUB) = sg__rc_cgen9166.d9486[193];
14240   SG_PROCEDURE_TRANSPARENT(&core_string_GTP__STUB) = SG_PROC_TRANSPARENT;
14241   sg__rc_cgen9166.d9486[195] = SG_MAKE_STRING("string<=?");
14242   sg__rc_cgen9166.d9486[196] = Sg_Intern(sg__rc_cgen9166.d9486[195]); /* string<=? */
14243   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[195]), &core_string_LT_3dP__STUB);
14244   SG_PROCEDURE_NAME(&core_string_LT_3dP__STUB) = sg__rc_cgen9166.d9486[195];
14245   SG_PROCEDURE_TRANSPARENT(&core_string_LT_3dP__STUB) = SG_PROC_TRANSPARENT;
14246   sg__rc_cgen9166.d9486[197] = SG_MAKE_STRING("string>=?");
14247   sg__rc_cgen9166.d9486[198] = Sg_Intern(sg__rc_cgen9166.d9486[197]); /* string>=? */
14248   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[197]), &core_string_GT_3dP__STUB);
14249   SG_PROCEDURE_NAME(&core_string_GT_3dP__STUB) = sg__rc_cgen9166.d9486[197];
14250   SG_PROCEDURE_TRANSPARENT(&core_string_GT_3dP__STUB) = SG_PROC_TRANSPARENT;
14251   sg__rc_cgen9166.d9486[199] = SG_MAKE_STRING("substring");
14252   sg__rc_cgen9166.d9486[200] = Sg_Intern(sg__rc_cgen9166.d9486[199]); /* substring */
14253   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[199]), &core_substring__STUB);
14254   SG_PROCEDURE_NAME(&core_substring__STUB) = sg__rc_cgen9166.d9486[199];
14255   SG_PROCEDURE_TRANSPARENT(&core_substring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14256   sg__rc_cgen9166.d9486[201] = SG_MAKE_STRING("string-append");
14257   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[201]), &core_string_append__STUB);
14258   SG_PROCEDURE_NAME(&core_string_append__STUB) = sg__rc_cgen9166.d9486[201];
14259   SG_PROCEDURE_TRANSPARENT(&core_string_append__STUB) = SG_PROC_NO_SIDE_EFFECT;
14260   sg__rc_cgen9166.d9486[202] = SG_MAKE_STRING("string->list");
14261   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[202]), &core_string_TOlist__STUB);
14262   SG_PROCEDURE_NAME(&core_string_TOlist__STUB) = sg__rc_cgen9166.d9486[202];
14263   SG_PROCEDURE_TRANSPARENT(&core_string_TOlist__STUB) = SG_PROC_NO_SIDE_EFFECT;
14264   sg__rc_cgen9166.d9486[203] = SG_MAKE_STRING("list->string");
14265   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[203]), &core_list_TOstring__STUB);
14266   SG_PROCEDURE_NAME(&core_list_TOstring__STUB) = sg__rc_cgen9166.d9486[203];
14267   SG_PROCEDURE_TRANSPARENT(&core_list_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14268   sg__rc_cgen9166.d9486[204] = SG_MAKE_STRING("string-copy");
14269   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[204]), &core_string_copy__STUB);
14270   SG_PROCEDURE_NAME(&core_string_copy__STUB) = sg__rc_cgen9166.d9486[204];
14271   SG_PROCEDURE_TRANSPARENT(&core_string_copy__STUB) = SG_PROC_NO_SIDE_EFFECT;
14272   sg__rc_cgen9166.d9486[205] = SG_MAKE_STRING("make-vector");
14273   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[205]), &core_make_vector__STUB);
14274   SG_PROCEDURE_NAME(&core_make_vector__STUB) = sg__rc_cgen9166.d9486[205];
14275   SG_PROCEDURE_TRANSPARENT(&core_make_vector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14276   sg__rc_cgen9166.d9486[206] = SG_MAKE_STRING("vector");
14277   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[206]), &core_vector__STUB);
14278   SG_PROCEDURE_NAME(&core_vector__STUB) = sg__rc_cgen9166.d9486[206];
14279   SG_PROCEDURE_TRANSPARENT(&core_vector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14280   sg__rc_cgen9166.d9486[207] = SG_MAKE_STRING("vector-length");
14281   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[207]), &core_vector_length__STUB);
14282   SG_PROCEDURE_NAME(&core_vector_length__STUB) = sg__rc_cgen9166.d9486[207];
14283   SG_PROCEDURE_TRANSPARENT(&core_vector_length__STUB) = SG_PROC_TRANSPARENT;
14284   sg__rc_cgen9166.d9486[208] = SG_MAKE_STRING("vector-ref");
14285   sg__rc_cgen9166.d9486[209] = Sg_Intern(sg__rc_cgen9166.d9486[208]); /* vector-ref */
14286   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[208]), &core_vector_ref__STUB);
14287   SG_PROCEDURE_NAME(&core_vector_ref__STUB) = sg__rc_cgen9166.d9486[208];
14288   SG_PROCEDURE_TRANSPARENT(&core_vector_ref__STUB) = SG_PROC_TRANSPARENT;
14289   SG_PROCEDURE_NAME(&core_vector_setX__STUB) = sg__rc_cgen9166.d9486[210];
14290   Sg_SetterSet(SG_PROCEDURE(&core_vector_ref__STUB), SG_PROCEDURE(&core_vector_setX__STUB), TRUE);
14291   sg__rc_cgen9166.d9486[210] = SG_MAKE_STRING("vector-set!");
14292   sg__rc_cgen9166.d9486[212] = SG_MAKE_STRING("vector-set");
14293   sg__rc_cgen9166.d9486[211] = Sg_Intern(sg__rc_cgen9166.d9486[212]); /* vector-set */
14294   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[210]), &core_vector_setX__STUB);
14295   SG_PROCEDURE_NAME(&core_vector_setX__STUB) = sg__rc_cgen9166.d9486[210];
14296   sg__rc_cgen9166.d9486[213] = SG_MAKE_STRING("vector->list");
14297   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[213]), &core_vector_TOlist__STUB);
14298   SG_PROCEDURE_NAME(&core_vector_TOlist__STUB) = sg__rc_cgen9166.d9486[213];
14299   SG_PROCEDURE_TRANSPARENT(&core_vector_TOlist__STUB) = SG_PROC_NO_SIDE_EFFECT;
14300   sg__rc_cgen9166.d9486[214] = SG_MAKE_STRING("list->vector");
14301   sg__rc_cgen9166.d9486[215] = Sg_Intern(sg__rc_cgen9166.d9486[214]); /* list->vector */
14302   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[214]), &core_list_TOvector__STUB);
14303   SG_PROCEDURE_NAME(&core_list_TOvector__STUB) = sg__rc_cgen9166.d9486[214];
14304   SG_PROCEDURE_TRANSPARENT(&core_list_TOvector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14305   sg__rc_cgen9166.d9486[216] = SG_MAKE_STRING("vector-fill!");
14306   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[216]), &core_vector_fillX__STUB);
14307   SG_PROCEDURE_NAME(&core_vector_fillX__STUB) = sg__rc_cgen9166.d9486[216];
14308   sg__rc_cgen9166.d9486[217] = SG_MAKE_STRING("assertion-violation");
14309   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[217]), &core_assertion_violation__STUB);
14310   SG_PROCEDURE_NAME(&core_assertion_violation__STUB) = sg__rc_cgen9166.d9486[217];
14311   sg__rc_cgen9166.d9486[218] = SG_MAKE_STRING("error");
14312   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[218]), &core_error__STUB);
14313   SG_PROCEDURE_NAME(&core_error__STUB) = sg__rc_cgen9166.d9486[218];
14314   sg__rc_cgen9166.d9486[219] = SG_MAKE_STRING("scheme-error");
14315   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[219]), &core_scheme_error__STUB);
14316   SG_PROCEDURE_NAME(&core_scheme_error__STUB) = sg__rc_cgen9166.d9486[219];
14317   sg__rc_cgen9166.d9486[220] = SG_MAKE_STRING("syntax-error");
14318   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[220]), &core_syntax_error__STUB);
14319   SG_PROCEDURE_NAME(&core_syntax_error__STUB) = sg__rc_cgen9166.d9486[220];
14320   sg__rc_cgen9166.d9486[221] = SG_MAKE_STRING("apply");
14321   sg__rc_cgen9166.d9486[222] = Sg_Intern(sg__rc_cgen9166.d9486[221]); /* apply */
14322   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[221]), &core_apply__STUB);
14323   SG_PROCEDURE_NAME(&core_apply__STUB) = sg__rc_cgen9166.d9486[221];
14324   SG_PROCEDURE_TRANSPARENT(&core_apply__STUB) = SG_PROC_NO_SIDE_EFFECT;
14325   sg__rc_cgen9166.d9486[223] = SG_MAKE_STRING("call/cc");
14326   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[223]), &core_call_2fcc__STUB);
14327   SG_PROCEDURE_NAME(&core_call_2fcc__STUB) = sg__rc_cgen9166.d9486[223];
14328   sg__rc_cgen9166.d9486[224] = SG_MAKE_STRING("call-with-current-continuation");
14329   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[224]), &core_call_with_current_continuation__STUB);
14330   SG_PROCEDURE_NAME(&core_call_with_current_continuation__STUB) = sg__rc_cgen9166.d9486[224];
14331   sg__rc_cgen9166.d9486[225] = SG_MAKE_STRING("values");
14332   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[225]), &core_values__STUB);
14333   SG_PROCEDURE_NAME(&core_values__STUB) = sg__rc_cgen9166.d9486[225];
14334   SG_PROCEDURE_TRANSPARENT(&core_values__STUB) = SG_PROC_TRANSPARENT;
14335   sg__rc_cgen9166.d9486[226] = SG_MAKE_STRING("dynamic-wind");
14336   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[226]), &core_dynamic_wind__STUB);
14337   SG_PROCEDURE_NAME(&core_dynamic_wind__STUB) = sg__rc_cgen9166.d9486[226];
14338   sg__rc_cgen9166.d9486[227] = SG_MAKE_STRING("char-upcase");
14339   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[227]), &core_char_upcase__STUB);
14340   SG_PROCEDURE_NAME(&core_char_upcase__STUB) = sg__rc_cgen9166.d9486[227];
14341   SG_PROCEDURE_TRANSPARENT(&core_char_upcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14342   sg__rc_cgen9166.d9486[228] = SG_MAKE_STRING("char-downcase");
14343   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[228]), &core_char_downcase__STUB);
14344   SG_PROCEDURE_NAME(&core_char_downcase__STUB) = sg__rc_cgen9166.d9486[228];
14345   SG_PROCEDURE_TRANSPARENT(&core_char_downcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14346   sg__rc_cgen9166.d9486[229] = SG_MAKE_STRING("char-titlecase");
14347   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[229]), &core_char_titlecase__STUB);
14348   SG_PROCEDURE_NAME(&core_char_titlecase__STUB) = sg__rc_cgen9166.d9486[229];
14349   SG_PROCEDURE_TRANSPARENT(&core_char_titlecase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14350   sg__rc_cgen9166.d9486[230] = SG_MAKE_STRING("char-foldcase");
14351   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[230]), &core_char_foldcase__STUB);
14352   SG_PROCEDURE_NAME(&core_char_foldcase__STUB) = sg__rc_cgen9166.d9486[230];
14353   SG_PROCEDURE_TRANSPARENT(&core_char_foldcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14354   sg__rc_cgen9166.d9486[231] = SG_MAKE_STRING("char-general-category");
14355   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[231]), &core_char_general_category__STUB);
14356   SG_PROCEDURE_NAME(&core_char_general_category__STUB) = sg__rc_cgen9166.d9486[231];
14357   SG_PROCEDURE_TRANSPARENT(&core_char_general_category__STUB) = SG_PROC_NO_SIDE_EFFECT;
14358   sg__rc_cgen9166.d9486[232] = SG_MAKE_STRING("char-alphabetic?");
14359   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[232]), &core_char_alphabeticP__STUB);
14360   SG_PROCEDURE_NAME(&core_char_alphabeticP__STUB) = sg__rc_cgen9166.d9486[232];
14361   SG_PROCEDURE_TRANSPARENT(&core_char_alphabeticP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14362   sg__rc_cgen9166.d9486[233] = SG_MAKE_STRING("char-numeric?");
14363   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[233]), &core_char_numericP__STUB);
14364   SG_PROCEDURE_NAME(&core_char_numericP__STUB) = sg__rc_cgen9166.d9486[233];
14365   SG_PROCEDURE_TRANSPARENT(&core_char_numericP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14366   sg__rc_cgen9166.d9486[234] = SG_MAKE_STRING("char-whitespace?");
14367   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[234]), &core_char_whitespaceP__STUB);
14368   SG_PROCEDURE_NAME(&core_char_whitespaceP__STUB) = sg__rc_cgen9166.d9486[234];
14369   SG_PROCEDURE_TRANSPARENT(&core_char_whitespaceP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14370   sg__rc_cgen9166.d9486[235] = SG_MAKE_STRING("char-upper-case?");
14371   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[235]), &core_char_upper_caseP__STUB);
14372   SG_PROCEDURE_NAME(&core_char_upper_caseP__STUB) = sg__rc_cgen9166.d9486[235];
14373   SG_PROCEDURE_TRANSPARENT(&core_char_upper_caseP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14374   sg__rc_cgen9166.d9486[236] = SG_MAKE_STRING("char-lower-case?");
14375   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[236]), &core_char_lower_caseP__STUB);
14376   SG_PROCEDURE_NAME(&core_char_lower_caseP__STUB) = sg__rc_cgen9166.d9486[236];
14377   SG_PROCEDURE_TRANSPARENT(&core_char_lower_caseP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14378   sg__rc_cgen9166.d9486[237] = SG_MAKE_STRING("char-title-case?");
14379   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[237]), &core_char_title_caseP__STUB);
14380   SG_PROCEDURE_NAME(&core_char_title_caseP__STUB) = sg__rc_cgen9166.d9486[237];
14381   SG_PROCEDURE_TRANSPARENT(&core_char_title_caseP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14382   sg__rc_cgen9166.d9486[238] = SG_MAKE_STRING("string-upcase");
14383   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[238]), &core_string_upcase__STUB);
14384   SG_PROCEDURE_NAME(&core_string_upcase__STUB) = sg__rc_cgen9166.d9486[238];
14385   SG_PROCEDURE_TRANSPARENT(&core_string_upcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14386   sg__rc_cgen9166.d9486[239] = SG_MAKE_STRING("string-downcase");
14387   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[239]), &core_string_downcase__STUB);
14388   SG_PROCEDURE_NAME(&core_string_downcase__STUB) = sg__rc_cgen9166.d9486[239];
14389   SG_PROCEDURE_TRANSPARENT(&core_string_downcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14390   sg__rc_cgen9166.d9486[240] = SG_MAKE_STRING("string-titlecase");
14391   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[240]), &core_string_titlecase__STUB);
14392   SG_PROCEDURE_NAME(&core_string_titlecase__STUB) = sg__rc_cgen9166.d9486[240];
14393   SG_PROCEDURE_TRANSPARENT(&core_string_titlecase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14394   sg__rc_cgen9166.d9486[241] = SG_MAKE_STRING("string-foldcase");
14395   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[241]), &core_string_foldcase__STUB);
14396   SG_PROCEDURE_NAME(&core_string_foldcase__STUB) = sg__rc_cgen9166.d9486[241];
14397   SG_PROCEDURE_TRANSPARENT(&core_string_foldcase__STUB) = SG_PROC_NO_SIDE_EFFECT;
14398   sg__rc_cgen9166.d9486[242] = SG_MAKE_STRING("string-normalize-nfd");
14399   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[242]), &core_string_normalize_nfd__STUB);
14400   SG_PROCEDURE_NAME(&core_string_normalize_nfd__STUB) = sg__rc_cgen9166.d9486[242];
14401   SG_PROCEDURE_TRANSPARENT(&core_string_normalize_nfd__STUB) = SG_PROC_NO_SIDE_EFFECT;
14402   sg__rc_cgen9166.d9486[243] = SG_MAKE_STRING("string-normalize-nfkd");
14403   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[243]), &core_string_normalize_nfkd__STUB);
14404   SG_PROCEDURE_NAME(&core_string_normalize_nfkd__STUB) = sg__rc_cgen9166.d9486[243];
14405   SG_PROCEDURE_TRANSPARENT(&core_string_normalize_nfkd__STUB) = SG_PROC_NO_SIDE_EFFECT;
14406   sg__rc_cgen9166.d9486[244] = SG_MAKE_STRING("string-normalize-nfc");
14407   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[244]), &core_string_normalize_nfc__STUB);
14408   SG_PROCEDURE_NAME(&core_string_normalize_nfc__STUB) = sg__rc_cgen9166.d9486[244];
14409   SG_PROCEDURE_TRANSPARENT(&core_string_normalize_nfc__STUB) = SG_PROC_NO_SIDE_EFFECT;
14410   sg__rc_cgen9166.d9486[245] = SG_MAKE_STRING("string-normalize-nfkc");
14411   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[245]), &core_string_normalize_nfkc__STUB);
14412   SG_PROCEDURE_NAME(&core_string_normalize_nfkc__STUB) = sg__rc_cgen9166.d9486[245];
14413   SG_PROCEDURE_TRANSPARENT(&core_string_normalize_nfkc__STUB) = SG_PROC_NO_SIDE_EFFECT;
14414   sg__rc_cgen9166.d9486[246] = SG_MAKE_STRING("native-endianness");
14415   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[246]), &core_native_endianness__STUB);
14416   SG_PROCEDURE_NAME(&core_native_endianness__STUB) = sg__rc_cgen9166.d9486[246];
14417   SG_PROCEDURE_TRANSPARENT(&core_native_endianness__STUB) = SG_PROC_NO_SIDE_EFFECT;
14418   sg__rc_cgen9166.d9486[247] = SG_MAKE_STRING("bytevector=?");
14419   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[247]), &core_bytevector_3dP__STUB);
14420   SG_PROCEDURE_NAME(&core_bytevector_3dP__STUB) = sg__rc_cgen9166.d9486[247];
14421   SG_PROCEDURE_TRANSPARENT(&core_bytevector_3dP__STUB) = SG_PROC_TRANSPARENT;
14422   sg__rc_cgen9166.d9486[248] = SG_MAKE_STRING("bytevector-copy");
14423   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[248]), &core_bytevector_copy__STUB);
14424   SG_PROCEDURE_NAME(&core_bytevector_copy__STUB) = sg__rc_cgen9166.d9486[248];
14425   SG_PROCEDURE_TRANSPARENT(&core_bytevector_copy__STUB) = SG_PROC_NO_SIDE_EFFECT;
14426   sg__rc_cgen9166.d9486[249] = SG_MAKE_STRING("bytevector-copy!");
14427   sg__rc_cgen9166.d9486[250] = Sg_Intern(sg__rc_cgen9166.d9486[249]); /* bytevector-copy! */
14428   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[249]), &core_bytevector_copyX__STUB);
14429   SG_PROCEDURE_NAME(&core_bytevector_copyX__STUB) = sg__rc_cgen9166.d9486[249];
14430   sg__rc_cgen9166.d9486[251] = SG_MAKE_STRING("make-bytevector");
14431   sg__rc_cgen9166.d9486[252] = Sg_Intern(sg__rc_cgen9166.d9486[251]); /* make-bytevector */
14432   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[251]), &core_make_bytevector__STUB);
14433   SG_PROCEDURE_NAME(&core_make_bytevector__STUB) = sg__rc_cgen9166.d9486[251];
14434   SG_PROCEDURE_TRANSPARENT(&core_make_bytevector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14435   sg__rc_cgen9166.d9486[253] = SG_MAKE_STRING("bytevector?");
14436   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[253]), &core_bytevectorP__STUB);
14437   SG_PROCEDURE_NAME(&core_bytevectorP__STUB) = sg__rc_cgen9166.d9486[253];
14438   SG_PROCEDURE_TRANSPARENT(&core_bytevectorP__STUB) = SG_PROC_TRANSPARENT;
14439   sg__rc_cgen9166.d9486[254] = SG_MAKE_STRING("bytevector-length");
14440   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[254]), &core_bytevector_length__STUB);
14441   SG_PROCEDURE_NAME(&core_bytevector_length__STUB) = sg__rc_cgen9166.d9486[254];
14442   SG_PROCEDURE_TRANSPARENT(&core_bytevector_length__STUB) = SG_PROC_TRANSPARENT;
14443   sg__rc_cgen9166.d9486[255] = SG_MAKE_STRING("bytevector-fill!");
14444   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[255]), &core_bytevector_fillX__STUB);
14445   SG_PROCEDURE_NAME(&core_bytevector_fillX__STUB) = sg__rc_cgen9166.d9486[255];
14446   sg__rc_cgen9166.d9486[256] = SG_MAKE_STRING("u8-list->bytevector");
14447   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[256]), &core_u8_list_TObytevector__STUB);
14448   SG_PROCEDURE_NAME(&core_u8_list_TObytevector__STUB) = sg__rc_cgen9166.d9486[256];
14449   SG_PROCEDURE_TRANSPARENT(&core_u8_list_TObytevector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14450   sg__rc_cgen9166.d9486[257] = SG_MAKE_STRING("bytevector->u8-list");
14451   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[257]), &core_bytevector_TOu8_list__STUB);
14452   SG_PROCEDURE_NAME(&core_bytevector_TOu8_list__STUB) = sg__rc_cgen9166.d9486[257];
14453   SG_PROCEDURE_TRANSPARENT(&core_bytevector_TOu8_list__STUB) = SG_PROC_NO_SIDE_EFFECT;
14454   sg__rc_cgen9166.d9486[258] = SG_MAKE_STRING("bytevector-u8-ref");
14455   sg__rc_cgen9166.d9486[259] = Sg_Intern(sg__rc_cgen9166.d9486[258]); /* bytevector-u8-ref */
14456   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[258]), &core_bytevector_u8_ref__STUB);
14457   SG_PROCEDURE_NAME(&core_bytevector_u8_ref__STUB) = sg__rc_cgen9166.d9486[258];
14458   SG_PROCEDURE_TRANSPARENT(&core_bytevector_u8_ref__STUB) = SG_PROC_TRANSPARENT;
14459   SG_PROCEDURE_NAME(&core_bytevector_u8_setX__STUB) = sg__rc_cgen9166.d9486[260];
14460   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_u8_ref__STUB), SG_PROCEDURE(&core_bytevector_u8_setX__STUB), TRUE);
14461   sg__rc_cgen9166.d9486[260] = SG_MAKE_STRING("bytevector-u8-set!");
14462   sg__rc_cgen9166.d9486[261] = Sg_Intern(sg__rc_cgen9166.d9486[260]); /* bytevector-u8-set! */
14463   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[260]), &core_bytevector_u8_setX__STUB);
14464   SG_PROCEDURE_NAME(&core_bytevector_u8_setX__STUB) = sg__rc_cgen9166.d9486[260];
14465   sg__rc_cgen9166.d9486[262] = SG_MAKE_STRING("bytevector-s8-ref");
14466   sg__rc_cgen9166.d9486[263] = Sg_Intern(sg__rc_cgen9166.d9486[262]); /* bytevector-s8-ref */
14467   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[262]), &core_bytevector_s8_ref__STUB);
14468   SG_PROCEDURE_NAME(&core_bytevector_s8_ref__STUB) = sg__rc_cgen9166.d9486[262];
14469   SG_PROCEDURE_TRANSPARENT(&core_bytevector_s8_ref__STUB) = SG_PROC_TRANSPARENT;
14470   SG_PROCEDURE_NAME(&core_bytevector_s8_setX__STUB) = sg__rc_cgen9166.d9486[264];
14471   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_s8_ref__STUB), SG_PROCEDURE(&core_bytevector_s8_setX__STUB), TRUE);
14472   sg__rc_cgen9166.d9486[264] = SG_MAKE_STRING("bytevector-s8-set!");
14473   sg__rc_cgen9166.d9486[265] = Sg_Intern(sg__rc_cgen9166.d9486[264]); /* bytevector-s8-set! */
14474   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[264]), &core_bytevector_s8_setX__STUB);
14475   SG_PROCEDURE_NAME(&core_bytevector_s8_setX__STUB) = sg__rc_cgen9166.d9486[264];
14476   sg__rc_cgen9166.d9486[266] = SG_MAKE_STRING("bytevector-u16-native-ref");
14477   sg__rc_cgen9166.d9486[267] = Sg_Intern(sg__rc_cgen9166.d9486[266]); /* bytevector-u16-native-ref */
14478   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[266]), &core_bytevector_u16_native_ref__STUB);
14479   SG_PROCEDURE_NAME(&core_bytevector_u16_native_ref__STUB) = sg__rc_cgen9166.d9486[266];
14480   SG_PROCEDURE_TRANSPARENT(&core_bytevector_u16_native_ref__STUB) = SG_PROC_TRANSPARENT;
14481   SG_PROCEDURE_NAME(&core_bytevector_u16_native_setX__STUB) = sg__rc_cgen9166.d9486[268];
14482   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_u16_native_ref__STUB), SG_PROCEDURE(&core_bytevector_u16_native_setX__STUB), TRUE);
14483   sg__rc_cgen9166.d9486[268] = SG_MAKE_STRING("bytevector-u16-native-set!");
14484   sg__rc_cgen9166.d9486[269] = Sg_Intern(sg__rc_cgen9166.d9486[268]); /* bytevector-u16-native-set! */
14485   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[268]), &core_bytevector_u16_native_setX__STUB);
14486   SG_PROCEDURE_NAME(&core_bytevector_u16_native_setX__STUB) = sg__rc_cgen9166.d9486[268];
14487   sg__rc_cgen9166.d9486[270] = SG_MAKE_STRING("bytevector-u16-ref");
14488   sg__rc_cgen9166.d9486[271] = Sg_Intern(sg__rc_cgen9166.d9486[270]); /* bytevector-u16-ref */
14489   sg__rc_cgen9166.d9486[273] = SG_MAKE_STRING("little");
14490   sg__rc_cgen9166.d9486[272] = Sg_Intern(sg__rc_cgen9166.d9486[273]); /* little */
14491   sg__rc_cgen9166.d9486[275] = SG_MAKE_STRING("big");
14492   sg__rc_cgen9166.d9486[274] = Sg_Intern(sg__rc_cgen9166.d9486[275]); /* big */
14493   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[270]), &core_bytevector_u16_ref__STUB);
14494   SG_PROCEDURE_NAME(&core_bytevector_u16_ref__STUB) = sg__rc_cgen9166.d9486[270];
14495   SG_PROCEDURE_TRANSPARENT(&core_bytevector_u16_ref__STUB) = SG_PROC_TRANSPARENT;
14496   sg__rc_cgen9166.d9486[276] = SG_MAKE_STRING("bytevector-u16-set!");
14497   sg__rc_cgen9166.d9486[277] = Sg_Intern(sg__rc_cgen9166.d9486[276]); /* bytevector-u16-set! */
14498   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[276]), &core_bytevector_u16_setX__STUB);
14499   SG_PROCEDURE_NAME(&core_bytevector_u16_setX__STUB) = sg__rc_cgen9166.d9486[276];
14500   sg__rc_cgen9166.d9486[278] = SG_MAKE_STRING("bytevector-s16-native-ref");
14501   sg__rc_cgen9166.d9486[279] = Sg_Intern(sg__rc_cgen9166.d9486[278]); /* bytevector-s16-native-ref */
14502   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[278]), &core_bytevector_s16_native_ref__STUB);
14503   SG_PROCEDURE_NAME(&core_bytevector_s16_native_ref__STUB) = sg__rc_cgen9166.d9486[278];
14504   SG_PROCEDURE_TRANSPARENT(&core_bytevector_s16_native_ref__STUB) = SG_PROC_TRANSPARENT;
14505   SG_PROCEDURE_NAME(&core_bytevector_s16_native_setX__STUB) = sg__rc_cgen9166.d9486[280];
14506   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_s16_native_ref__STUB), SG_PROCEDURE(&core_bytevector_s16_native_setX__STUB), TRUE);
14507   sg__rc_cgen9166.d9486[280] = SG_MAKE_STRING("bytevector-s16-native-set!");
14508   sg__rc_cgen9166.d9486[281] = Sg_Intern(sg__rc_cgen9166.d9486[280]); /* bytevector-s16-native-set! */
14509   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[280]), &core_bytevector_s16_native_setX__STUB);
14510   SG_PROCEDURE_NAME(&core_bytevector_s16_native_setX__STUB) = sg__rc_cgen9166.d9486[280];
14511   sg__rc_cgen9166.d9486[282] = SG_MAKE_STRING("bytevector-s16-ref");
14512   sg__rc_cgen9166.d9486[283] = Sg_Intern(sg__rc_cgen9166.d9486[282]); /* bytevector-s16-ref */
14513   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[282]), &core_bytevector_s16_ref__STUB);
14514   SG_PROCEDURE_NAME(&core_bytevector_s16_ref__STUB) = sg__rc_cgen9166.d9486[282];
14515   SG_PROCEDURE_TRANSPARENT(&core_bytevector_s16_ref__STUB) = SG_PROC_TRANSPARENT;
14516   sg__rc_cgen9166.d9486[284] = SG_MAKE_STRING("bytevector-s16-set!");
14517   sg__rc_cgen9166.d9486[285] = Sg_Intern(sg__rc_cgen9166.d9486[284]); /* bytevector-s16-set! */
14518   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[284]), &core_bytevector_s16_setX__STUB);
14519   SG_PROCEDURE_NAME(&core_bytevector_s16_setX__STUB) = sg__rc_cgen9166.d9486[284];
14520   sg__rc_cgen9166.d9486[286] = SG_MAKE_STRING("bytevector-u32-native-ref");
14521   sg__rc_cgen9166.d9486[287] = Sg_Intern(sg__rc_cgen9166.d9486[286]); /* bytevector-u32-native-ref */
14522   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[286]), &core_bytevector_u32_native_ref__STUB);
14523   SG_PROCEDURE_NAME(&core_bytevector_u32_native_ref__STUB) = sg__rc_cgen9166.d9486[286];
14524   SG_PROCEDURE_TRANSPARENT(&core_bytevector_u32_native_ref__STUB) = SG_PROC_TRANSPARENT;
14525   SG_PROCEDURE_NAME(&core_bytevector_u32_native_setX__STUB) = sg__rc_cgen9166.d9486[288];
14526   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_u32_native_ref__STUB), SG_PROCEDURE(&core_bytevector_u32_native_setX__STUB), TRUE);
14527   sg__rc_cgen9166.d9486[288] = SG_MAKE_STRING("bytevector-u32-native-set!");
14528   sg__rc_cgen9166.d9486[289] = Sg_Intern(sg__rc_cgen9166.d9486[288]); /* bytevector-u32-native-set! */
14529   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[288]), &core_bytevector_u32_native_setX__STUB);
14530   SG_PROCEDURE_NAME(&core_bytevector_u32_native_setX__STUB) = sg__rc_cgen9166.d9486[288];
14531   sg__rc_cgen9166.d9486[290] = SG_MAKE_STRING("bytevector-u32-ref");
14532   sg__rc_cgen9166.d9486[291] = Sg_Intern(sg__rc_cgen9166.d9486[290]); /* bytevector-u32-ref */
14533   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[290]), &core_bytevector_u32_ref__STUB);
14534   SG_PROCEDURE_NAME(&core_bytevector_u32_ref__STUB) = sg__rc_cgen9166.d9486[290];
14535   SG_PROCEDURE_TRANSPARENT(&core_bytevector_u32_ref__STUB) = SG_PROC_TRANSPARENT;
14536   sg__rc_cgen9166.d9486[292] = SG_MAKE_STRING("bytevector-u32-set!");
14537   sg__rc_cgen9166.d9486[293] = Sg_Intern(sg__rc_cgen9166.d9486[292]); /* bytevector-u32-set! */
14538   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[292]), &core_bytevector_u32_setX__STUB);
14539   SG_PROCEDURE_NAME(&core_bytevector_u32_setX__STUB) = sg__rc_cgen9166.d9486[292];
14540   sg__rc_cgen9166.d9486[294] = SG_MAKE_STRING("bytevector-s32-native-ref");
14541   sg__rc_cgen9166.d9486[295] = Sg_Intern(sg__rc_cgen9166.d9486[294]); /* bytevector-s32-native-ref */
14542   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[294]), &core_bytevector_s32_native_ref__STUB);
14543   SG_PROCEDURE_NAME(&core_bytevector_s32_native_ref__STUB) = sg__rc_cgen9166.d9486[294];
14544   SG_PROCEDURE_TRANSPARENT(&core_bytevector_s32_native_ref__STUB) = SG_PROC_TRANSPARENT;
14545   SG_PROCEDURE_NAME(&core_bytevector_s32_native_setX__STUB) = sg__rc_cgen9166.d9486[296];
14546   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_s32_native_ref__STUB), SG_PROCEDURE(&core_bytevector_s32_native_setX__STUB), TRUE);
14547   sg__rc_cgen9166.d9486[296] = SG_MAKE_STRING("bytevector-s32-native-set!");
14548   sg__rc_cgen9166.d9486[297] = Sg_Intern(sg__rc_cgen9166.d9486[296]); /* bytevector-s32-native-set! */
14549   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[296]), &core_bytevector_s32_native_setX__STUB);
14550   SG_PROCEDURE_NAME(&core_bytevector_s32_native_setX__STUB) = sg__rc_cgen9166.d9486[296];
14551   sg__rc_cgen9166.d9486[298] = SG_MAKE_STRING("bytevector-s32-ref");
14552   sg__rc_cgen9166.d9486[299] = Sg_Intern(sg__rc_cgen9166.d9486[298]); /* bytevector-s32-ref */
14553   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[298]), &core_bytevector_s32_ref__STUB);
14554   SG_PROCEDURE_NAME(&core_bytevector_s32_ref__STUB) = sg__rc_cgen9166.d9486[298];
14555   SG_PROCEDURE_TRANSPARENT(&core_bytevector_s32_ref__STUB) = SG_PROC_TRANSPARENT;
14556   sg__rc_cgen9166.d9486[300] = SG_MAKE_STRING("bytevector-s32-set!");
14557   sg__rc_cgen9166.d9486[301] = Sg_Intern(sg__rc_cgen9166.d9486[300]); /* bytevector-s32-set! */
14558   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[300]), &core_bytevector_s32_setX__STUB);
14559   SG_PROCEDURE_NAME(&core_bytevector_s32_setX__STUB) = sg__rc_cgen9166.d9486[300];
14560   sg__rc_cgen9166.d9486[302] = SG_MAKE_STRING("bytevector-u64-native-ref");
14561   sg__rc_cgen9166.d9486[303] = Sg_Intern(sg__rc_cgen9166.d9486[302]); /* bytevector-u64-native-ref */
14562   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[302]), &core_bytevector_u64_native_ref__STUB);
14563   SG_PROCEDURE_NAME(&core_bytevector_u64_native_ref__STUB) = sg__rc_cgen9166.d9486[302];
14564   SG_PROCEDURE_TRANSPARENT(&core_bytevector_u64_native_ref__STUB) = SG_PROC_TRANSPARENT;
14565   SG_PROCEDURE_NAME(&core_bytevector_u64_native_setX__STUB) = sg__rc_cgen9166.d9486[304];
14566   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_u64_native_ref__STUB), SG_PROCEDURE(&core_bytevector_u64_native_setX__STUB), TRUE);
14567   sg__rc_cgen9166.d9486[304] = SG_MAKE_STRING("bytevector-u64-native-set!");
14568   sg__rc_cgen9166.d9486[305] = Sg_Intern(sg__rc_cgen9166.d9486[304]); /* bytevector-u64-native-set! */
14569   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[304]), &core_bytevector_u64_native_setX__STUB);
14570   SG_PROCEDURE_NAME(&core_bytevector_u64_native_setX__STUB) = sg__rc_cgen9166.d9486[304];
14571   sg__rc_cgen9166.d9486[306] = SG_MAKE_STRING("bytevector-u64-ref");
14572   sg__rc_cgen9166.d9486[307] = Sg_Intern(sg__rc_cgen9166.d9486[306]); /* bytevector-u64-ref */
14573   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[306]), &core_bytevector_u64_ref__STUB);
14574   SG_PROCEDURE_NAME(&core_bytevector_u64_ref__STUB) = sg__rc_cgen9166.d9486[306];
14575   SG_PROCEDURE_TRANSPARENT(&core_bytevector_u64_ref__STUB) = SG_PROC_TRANSPARENT;
14576   sg__rc_cgen9166.d9486[308] = SG_MAKE_STRING("bytevector-u64-set!");
14577   sg__rc_cgen9166.d9486[309] = Sg_Intern(sg__rc_cgen9166.d9486[308]); /* bytevector-u64-set! */
14578   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[308]), &core_bytevector_u64_setX__STUB);
14579   SG_PROCEDURE_NAME(&core_bytevector_u64_setX__STUB) = sg__rc_cgen9166.d9486[308];
14580   sg__rc_cgen9166.d9486[310] = SG_MAKE_STRING("bytevector-s64-native-ref");
14581   sg__rc_cgen9166.d9486[311] = Sg_Intern(sg__rc_cgen9166.d9486[310]); /* bytevector-s64-native-ref */
14582   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[310]), &core_bytevector_s64_native_ref__STUB);
14583   SG_PROCEDURE_NAME(&core_bytevector_s64_native_ref__STUB) = sg__rc_cgen9166.d9486[310];
14584   SG_PROCEDURE_TRANSPARENT(&core_bytevector_s64_native_ref__STUB) = SG_PROC_TRANSPARENT;
14585   SG_PROCEDURE_NAME(&core_bytevector_s64_native_setX__STUB) = sg__rc_cgen9166.d9486[312];
14586   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_s64_native_ref__STUB), SG_PROCEDURE(&core_bytevector_s64_native_setX__STUB), TRUE);
14587   sg__rc_cgen9166.d9486[312] = SG_MAKE_STRING("bytevector-s64-native-set!");
14588   sg__rc_cgen9166.d9486[313] = Sg_Intern(sg__rc_cgen9166.d9486[312]); /* bytevector-s64-native-set! */
14589   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[312]), &core_bytevector_s64_native_setX__STUB);
14590   SG_PROCEDURE_NAME(&core_bytevector_s64_native_setX__STUB) = sg__rc_cgen9166.d9486[312];
14591   sg__rc_cgen9166.d9486[314] = SG_MAKE_STRING("bytevector-s64-ref");
14592   sg__rc_cgen9166.d9486[315] = Sg_Intern(sg__rc_cgen9166.d9486[314]); /* bytevector-s64-ref */
14593   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[314]), &core_bytevector_s64_ref__STUB);
14594   SG_PROCEDURE_NAME(&core_bytevector_s64_ref__STUB) = sg__rc_cgen9166.d9486[314];
14595   SG_PROCEDURE_TRANSPARENT(&core_bytevector_s64_ref__STUB) = SG_PROC_TRANSPARENT;
14596   sg__rc_cgen9166.d9486[316] = SG_MAKE_STRING("bytevector-s64-set!");
14597   sg__rc_cgen9166.d9486[317] = Sg_Intern(sg__rc_cgen9166.d9486[316]); /* bytevector-s64-set! */
14598   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[316]), &core_bytevector_s64_setX__STUB);
14599   SG_PROCEDURE_NAME(&core_bytevector_s64_setX__STUB) = sg__rc_cgen9166.d9486[316];
14600   sg__rc_cgen9166.d9486[318] = SG_MAKE_STRING("bytevector-ieee-single-native-ref");
14601   sg__rc_cgen9166.d9486[319] = Sg_Intern(sg__rc_cgen9166.d9486[318]); /* bytevector-ieee-single-native-ref */
14602   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[318]), &core_bytevector_ieee_single_native_ref__STUB);
14603   SG_PROCEDURE_NAME(&core_bytevector_ieee_single_native_ref__STUB) = sg__rc_cgen9166.d9486[318];
14604   SG_PROCEDURE_TRANSPARENT(&core_bytevector_ieee_single_native_ref__STUB) = SG_PROC_TRANSPARENT;
14605   SG_PROCEDURE_NAME(&core_bytevector_ieee_single_native_setX__STUB) = sg__rc_cgen9166.d9486[322];
14606   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_ieee_single_native_ref__STUB), SG_PROCEDURE(&core_bytevector_ieee_single_native_setX__STUB), TRUE);
14607   sg__rc_cgen9166.d9486[320] = SG_MAKE_STRING("bytevector-ieee-single-ref");
14608   sg__rc_cgen9166.d9486[321] = Sg_Intern(sg__rc_cgen9166.d9486[320]); /* bytevector-ieee-single-ref */
14609   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[320]), &core_bytevector_ieee_single_ref__STUB);
14610   SG_PROCEDURE_NAME(&core_bytevector_ieee_single_ref__STUB) = sg__rc_cgen9166.d9486[320];
14611   SG_PROCEDURE_TRANSPARENT(&core_bytevector_ieee_single_ref__STUB) = SG_PROC_TRANSPARENT;
14612   sg__rc_cgen9166.d9486[322] = SG_MAKE_STRING("bytevector-ieee-single-native-set!");
14613   sg__rc_cgen9166.d9486[323] = Sg_Intern(sg__rc_cgen9166.d9486[322]); /* bytevector-ieee-single-native-set! */
14614   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[322]), &core_bytevector_ieee_single_native_setX__STUB);
14615   SG_PROCEDURE_NAME(&core_bytevector_ieee_single_native_setX__STUB) = sg__rc_cgen9166.d9486[322];
14616   sg__rc_cgen9166.d9486[324] = SG_MAKE_STRING("bytevector-ieee-single-set!");
14617   sg__rc_cgen9166.d9486[325] = Sg_Intern(sg__rc_cgen9166.d9486[324]); /* bytevector-ieee-single-set! */
14618   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[324]), &core_bytevector_ieee_single_setX__STUB);
14619   SG_PROCEDURE_NAME(&core_bytevector_ieee_single_setX__STUB) = sg__rc_cgen9166.d9486[324];
14620   sg__rc_cgen9166.d9486[326] = SG_MAKE_STRING("bytevector-ieee-double-native-ref");
14621   sg__rc_cgen9166.d9486[327] = Sg_Intern(sg__rc_cgen9166.d9486[326]); /* bytevector-ieee-double-native-ref */
14622   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[326]), &core_bytevector_ieee_double_native_ref__STUB);
14623   SG_PROCEDURE_NAME(&core_bytevector_ieee_double_native_ref__STUB) = sg__rc_cgen9166.d9486[326];
14624   SG_PROCEDURE_TRANSPARENT(&core_bytevector_ieee_double_native_ref__STUB) = SG_PROC_TRANSPARENT;
14625   SG_PROCEDURE_NAME(&core_bytevector_ieee_double_native_setX__STUB) = sg__rc_cgen9166.d9486[330];
14626   Sg_SetterSet(SG_PROCEDURE(&core_bytevector_ieee_double_native_ref__STUB), SG_PROCEDURE(&core_bytevector_ieee_double_native_setX__STUB), TRUE);
14627   sg__rc_cgen9166.d9486[328] = SG_MAKE_STRING("bytevector-ieee-double-ref");
14628   sg__rc_cgen9166.d9486[329] = Sg_Intern(sg__rc_cgen9166.d9486[328]); /* bytevector-ieee-double-ref */
14629   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[328]), &core_bytevector_ieee_double_ref__STUB);
14630   SG_PROCEDURE_NAME(&core_bytevector_ieee_double_ref__STUB) = sg__rc_cgen9166.d9486[328];
14631   SG_PROCEDURE_TRANSPARENT(&core_bytevector_ieee_double_ref__STUB) = SG_PROC_TRANSPARENT;
14632   sg__rc_cgen9166.d9486[330] = SG_MAKE_STRING("bytevector-ieee-double-native-set!");
14633   sg__rc_cgen9166.d9486[331] = Sg_Intern(sg__rc_cgen9166.d9486[330]); /* bytevector-ieee-double-native-set! */
14634   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[330]), &core_bytevector_ieee_double_native_setX__STUB);
14635   SG_PROCEDURE_NAME(&core_bytevector_ieee_double_native_setX__STUB) = sg__rc_cgen9166.d9486[330];
14636   sg__rc_cgen9166.d9486[332] = SG_MAKE_STRING("bytevector-ieee-double-set!");
14637   sg__rc_cgen9166.d9486[333] = Sg_Intern(sg__rc_cgen9166.d9486[332]); /* bytevector-ieee-double-set! */
14638   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[332]), &core_bytevector_ieee_double_setX__STUB);
14639   SG_PROCEDURE_NAME(&core_bytevector_ieee_double_setX__STUB) = sg__rc_cgen9166.d9486[332];
14640   sg__rc_cgen9166.d9486[334] = SG_MAKE_STRING("utf8->string");
14641   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[334]), &core_utf8_TOstring__STUB);
14642   SG_PROCEDURE_NAME(&core_utf8_TOstring__STUB) = sg__rc_cgen9166.d9486[334];
14643   SG_PROCEDURE_TRANSPARENT(&core_utf8_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14644   sg__rc_cgen9166.d9486[335] = SG_MAKE_STRING("string->utf8");
14645   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[335]), &core_string_TOutf8__STUB);
14646   SG_PROCEDURE_NAME(&core_string_TOutf8__STUB) = sg__rc_cgen9166.d9486[335];
14647   SG_PROCEDURE_TRANSPARENT(&core_string_TOutf8__STUB) = SG_PROC_NO_SIDE_EFFECT;
14648   sg__rc_cgen9166.d9486[336] = SG_MAKE_STRING("utf16->string");
14649   sg__rc_cgen9166.d9486[337] = Sg_Intern(sg__rc_cgen9166.d9486[336]); /* utf16->string */
14650   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[336]), &core_utf16_TOstring__STUB);
14651   SG_PROCEDURE_NAME(&core_utf16_TOstring__STUB) = sg__rc_cgen9166.d9486[336];
14652   SG_PROCEDURE_TRANSPARENT(&core_utf16_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14653   sg__rc_cgen9166.d9486[338] = SG_MAKE_STRING("string->utf16");
14654   sg__rc_cgen9166.d9486[339] = Sg_Intern(sg__rc_cgen9166.d9486[338]); /* string->utf16 */
14655   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[338]), &core_string_TOutf16__STUB);
14656   SG_PROCEDURE_NAME(&core_string_TOutf16__STUB) = sg__rc_cgen9166.d9486[338];
14657   SG_PROCEDURE_TRANSPARENT(&core_string_TOutf16__STUB) = SG_PROC_NO_SIDE_EFFECT;
14658   sg__rc_cgen9166.d9486[340] = SG_MAKE_STRING("string->utf32");
14659   sg__rc_cgen9166.d9486[341] = Sg_Intern(sg__rc_cgen9166.d9486[340]); /* string->utf32 */
14660   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[340]), &core_string_TOutf32__STUB);
14661   SG_PROCEDURE_NAME(&core_string_TOutf32__STUB) = sg__rc_cgen9166.d9486[340];
14662   SG_PROCEDURE_TRANSPARENT(&core_string_TOutf32__STUB) = SG_PROC_NO_SIDE_EFFECT;
14663   sg__rc_cgen9166.d9486[342] = SG_MAKE_STRING("utf32->string");
14664   sg__rc_cgen9166.d9486[343] = Sg_Intern(sg__rc_cgen9166.d9486[342]); /* utf32->string */
14665   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[342]), &core_utf32_TOstring__STUB);
14666   SG_PROCEDURE_NAME(&core_utf32_TOstring__STUB) = sg__rc_cgen9166.d9486[342];
14667   SG_PROCEDURE_TRANSPARENT(&core_utf32_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14668   sg__rc_cgen9166.d9486[344] = SG_MAKE_STRING("memq");
14669   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[344]), &core_memq__STUB);
14670   SG_PROCEDURE_NAME(&core_memq__STUB) = sg__rc_cgen9166.d9486[344];
14671   SG_PROCEDURE_TRANSPARENT(&core_memq__STUB) = SG_PROC_TRANSPARENT;
14672   sg__rc_cgen9166.d9486[345] = SG_MAKE_STRING("memv");
14673   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[345]), &core_memv__STUB);
14674   SG_PROCEDURE_NAME(&core_memv__STUB) = sg__rc_cgen9166.d9486[345];
14675   SG_PROCEDURE_TRANSPARENT(&core_memv__STUB) = SG_PROC_TRANSPARENT;
14676   sg__rc_cgen9166.d9486[346] = SG_MAKE_STRING("assq");
14677   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[346]), &core_assq__STUB);
14678   SG_PROCEDURE_NAME(&core_assq__STUB) = sg__rc_cgen9166.d9486[346];
14679   SG_PROCEDURE_TRANSPARENT(&core_assq__STUB) = SG_PROC_TRANSPARENT;
14680   sg__rc_cgen9166.d9486[347] = SG_MAKE_STRING("assv");
14681   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[347]), &core_assv__STUB);
14682   SG_PROCEDURE_NAME(&core_assv__STUB) = sg__rc_cgen9166.d9486[347];
14683   SG_PROCEDURE_TRANSPARENT(&core_assv__STUB) = SG_PROC_TRANSPARENT;
14684   sg__rc_cgen9166.d9486[348] = SG_MAKE_STRING("cons*");
14685   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[348]), &core_cons_2a__STUB);
14686   SG_PROCEDURE_NAME(&core_cons_2a__STUB) = sg__rc_cgen9166.d9486[348];
14687   SG_PROCEDURE_TRANSPARENT(&core_cons_2a__STUB) = SG_PROC_NO_SIDE_EFFECT;
14688   sg__rc_cgen9166.d9486[349] = SG_MAKE_STRING("buffer-mode?");
14689   sg__rc_cgen9166.d9486[351] = SG_MAKE_STRING("none");
14690   sg__rc_cgen9166.d9486[350] = Sg_Intern(sg__rc_cgen9166.d9486[351]); /* none */
14691   sg__rc_cgen9166.d9486[353] = SG_MAKE_STRING("line");
14692   sg__rc_cgen9166.d9486[352] = Sg_Intern(sg__rc_cgen9166.d9486[353]); /* line */
14693   sg__rc_cgen9166.d9486[355] = SG_MAKE_STRING("block");
14694   sg__rc_cgen9166.d9486[354] = Sg_Intern(sg__rc_cgen9166.d9486[355]); /* block */
14695   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[349]), &core_buffer_modeP__STUB);
14696   SG_PROCEDURE_NAME(&core_buffer_modeP__STUB) = sg__rc_cgen9166.d9486[349];
14697   SG_PROCEDURE_TRANSPARENT(&core_buffer_modeP__STUB) = SG_PROC_TRANSPARENT;
14698   sg__rc_cgen9166.d9486[356] = SG_MAKE_STRING("latin-1-codec");
14699   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[356]), &core_latin_1_codec__STUB);
14700   SG_PROCEDURE_NAME(&core_latin_1_codec__STUB) = sg__rc_cgen9166.d9486[356];
14701   SG_PROCEDURE_TRANSPARENT(&core_latin_1_codec__STUB) = SG_PROC_NO_SIDE_EFFECT;
14702   sg__rc_cgen9166.d9486[357] = SG_MAKE_STRING("utf-8-codec");
14703   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[357]), &core_utf_8_codec__STUB);
14704   SG_PROCEDURE_NAME(&core_utf_8_codec__STUB) = sg__rc_cgen9166.d9486[357];
14705   SG_PROCEDURE_TRANSPARENT(&core_utf_8_codec__STUB) = SG_PROC_NO_SIDE_EFFECT;
14706   sg__rc_cgen9166.d9486[358] = SG_MAKE_STRING("utf-16-codec");
14707   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[358]), &core_utf_16_codec__STUB);
14708   SG_PROCEDURE_NAME(&core_utf_16_codec__STUB) = sg__rc_cgen9166.d9486[358];
14709   SG_PROCEDURE_TRANSPARENT(&core_utf_16_codec__STUB) = SG_PROC_NO_SIDE_EFFECT;
14710   sg__rc_cgen9166.d9486[359] = SG_MAKE_STRING("native-eol-style");
14711   sg__rc_cgen9166.d9486[360] = Sg_Intern(sg__rc_cgen9166.d9486[359]); /* native-eol-style */
14712   sg__rc_cgen9166.d9486[362] = SG_MAKE_STRING("crlf");
14713   sg__rc_cgen9166.d9486[361] = Sg_Intern(sg__rc_cgen9166.d9486[362]); /* crlf */
14714   sg__rc_cgen9166.d9486[364] = SG_MAKE_STRING("crnel");
14715   sg__rc_cgen9166.d9486[363] = Sg_Intern(sg__rc_cgen9166.d9486[364]); /* crnel */
14716   sg__rc_cgen9166.d9486[366] = SG_MAKE_STRING("nel");
14717   sg__rc_cgen9166.d9486[365] = Sg_Intern(sg__rc_cgen9166.d9486[366]); /* nel */
14718   sg__rc_cgen9166.d9486[368] = SG_MAKE_STRING("ls");
14719   sg__rc_cgen9166.d9486[367] = Sg_Intern(sg__rc_cgen9166.d9486[368]); /* ls */
14720   sg__rc_cgen9166.d9486[370] = SG_MAKE_STRING("cr");
14721   sg__rc_cgen9166.d9486[369] = Sg_Intern(sg__rc_cgen9166.d9486[370]); /* cr */
14722   sg__rc_cgen9166.d9486[372] = SG_MAKE_STRING("lf");
14723   sg__rc_cgen9166.d9486[371] = Sg_Intern(sg__rc_cgen9166.d9486[372]); /* lf */
14724   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[359]), &core_native_eol_style__STUB);
14725   SG_PROCEDURE_NAME(&core_native_eol_style__STUB) = sg__rc_cgen9166.d9486[359];
14726   SG_PROCEDURE_TRANSPARENT(&core_native_eol_style__STUB) = SG_PROC_NO_SIDE_EFFECT;
14727   sg__rc_cgen9166.d9486[373] = SG_MAKE_STRING("make-transcoder");
14728   sg__rc_cgen9166.d9486[374] = Sg_Intern(sg__rc_cgen9166.d9486[373]); /* make-transcoder */
14729   sg__rc_cgen9166.d9486[376] = SG_MAKE_STRING("ignore");
14730   sg__rc_cgen9166.d9486[375] = Sg_Intern(sg__rc_cgen9166.d9486[376]); /* ignore */
14731   sg__rc_cgen9166.d9486[378] = SG_MAKE_STRING("raise");
14732   sg__rc_cgen9166.d9486[377] = Sg_Intern(sg__rc_cgen9166.d9486[378]); /* raise */
14733   sg__rc_cgen9166.d9486[380] = SG_MAKE_STRING("replace");
14734   sg__rc_cgen9166.d9486[379] = Sg_Intern(sg__rc_cgen9166.d9486[380]); /* replace */
14735   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[373]), &core_make_transcoder__STUB);
14736   SG_PROCEDURE_NAME(&core_make_transcoder__STUB) = sg__rc_cgen9166.d9486[373];
14737   SG_PROCEDURE_TRANSPARENT(&core_make_transcoder__STUB) = SG_PROC_NO_SIDE_EFFECT;
14738   sg__rc_cgen9166.d9486[381] = SG_MAKE_STRING("native-transcoder");
14739   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[381]), &core_native_transcoder__STUB);
14740   SG_PROCEDURE_NAME(&core_native_transcoder__STUB) = sg__rc_cgen9166.d9486[381];
14741   SG_PROCEDURE_TRANSPARENT(&core_native_transcoder__STUB) = SG_PROC_NO_SIDE_EFFECT;
14742   sg__rc_cgen9166.d9486[382] = SG_MAKE_STRING("transcoder-codec");
14743   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[382]), &core_transcoder_codec__STUB);
14744   SG_PROCEDURE_NAME(&core_transcoder_codec__STUB) = sg__rc_cgen9166.d9486[382];
14745   SG_PROCEDURE_TRANSPARENT(&core_transcoder_codec__STUB) = SG_PROC_NO_SIDE_EFFECT;
14746   sg__rc_cgen9166.d9486[383] = SG_MAKE_STRING("transcoder-eol-style");
14747   sg__rc_cgen9166.d9486[384] = Sg_Intern(sg__rc_cgen9166.d9486[383]); /* transcoder-eol-style */
14748   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[383]), &core_transcoder_eol_style__STUB);
14749   SG_PROCEDURE_NAME(&core_transcoder_eol_style__STUB) = sg__rc_cgen9166.d9486[383];
14750   SG_PROCEDURE_TRANSPARENT(&core_transcoder_eol_style__STUB) = SG_PROC_NO_SIDE_EFFECT;
14751   sg__rc_cgen9166.d9486[385] = SG_MAKE_STRING("transcoder-error-handling-mode");
14752   sg__rc_cgen9166.d9486[386] = Sg_Intern(sg__rc_cgen9166.d9486[385]); /* transcoder-error-handling-mode */
14753   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[385]), &core_transcoder_error_handling_mode__STUB);
14754   SG_PROCEDURE_NAME(&core_transcoder_error_handling_mode__STUB) = sg__rc_cgen9166.d9486[385];
14755   SG_PROCEDURE_TRANSPARENT(&core_transcoder_error_handling_mode__STUB) = SG_PROC_NO_SIDE_EFFECT;
14756   sg__rc_cgen9166.d9486[387] = SG_MAKE_STRING("bytevector->string");
14757   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[387]), &core_bytevector_TOstring__STUB);
14758   SG_PROCEDURE_NAME(&core_bytevector_TOstring__STUB) = sg__rc_cgen9166.d9486[387];
14759   SG_PROCEDURE_TRANSPARENT(&core_bytevector_TOstring__STUB) = SG_PROC_NO_SIDE_EFFECT;
14760   sg__rc_cgen9166.d9486[388] = SG_MAKE_STRING("string->bytevector");
14761   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[388]), &core_string_TObytevector__STUB);
14762   SG_PROCEDURE_NAME(&core_string_TObytevector__STUB) = sg__rc_cgen9166.d9486[388];
14763   SG_PROCEDURE_TRANSPARENT(&core_string_TObytevector__STUB) = SG_PROC_NO_SIDE_EFFECT;
14764   sg__rc_cgen9166.d9486[389] = SG_MAKE_STRING("eof-object");
14765   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[389]), &core_eof_object__STUB);
14766   SG_PROCEDURE_NAME(&core_eof_object__STUB) = sg__rc_cgen9166.d9486[389];
14767   SG_PROCEDURE_TRANSPARENT(&core_eof_object__STUB) = SG_PROC_NO_SIDE_EFFECT;
14768   sg__rc_cgen9166.d9486[390] = SG_MAKE_STRING("eof-object?");
14769   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[390]), &core_eof_objectP__STUB);
14770   SG_PROCEDURE_NAME(&core_eof_objectP__STUB) = sg__rc_cgen9166.d9486[390];
14771   SG_PROCEDURE_TRANSPARENT(&core_eof_objectP__STUB) = SG_PROC_TRANSPARENT;
14772   sg__rc_cgen9166.d9486[391] = SG_MAKE_STRING("port?");
14773   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[391]), &core_portP__STUB);
14774   SG_PROCEDURE_NAME(&core_portP__STUB) = sg__rc_cgen9166.d9486[391];
14775   SG_PROCEDURE_TRANSPARENT(&core_portP__STUB) = SG_PROC_TRANSPARENT;
14776   sg__rc_cgen9166.d9486[392] = SG_MAKE_STRING("port-transcoder");
14777   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[392]), &core_port_transcoder__STUB);
14778   SG_PROCEDURE_NAME(&core_port_transcoder__STUB) = sg__rc_cgen9166.d9486[392];
14779   SG_PROCEDURE_TRANSPARENT(&core_port_transcoder__STUB) = SG_PROC_NO_SIDE_EFFECT;
14780   sg__rc_cgen9166.d9486[393] = SG_MAKE_STRING("textual-port?");
14781   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[393]), &core_textual_portP__STUB);
14782   SG_PROCEDURE_NAME(&core_textual_portP__STUB) = sg__rc_cgen9166.d9486[393];
14783   SG_PROCEDURE_TRANSPARENT(&core_textual_portP__STUB) = SG_PROC_TRANSPARENT;
14784   sg__rc_cgen9166.d9486[394] = SG_MAKE_STRING("binary-port?");
14785   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[394]), &core_binary_portP__STUB);
14786   SG_PROCEDURE_NAME(&core_binary_portP__STUB) = sg__rc_cgen9166.d9486[394];
14787   SG_PROCEDURE_TRANSPARENT(&core_binary_portP__STUB) = SG_PROC_TRANSPARENT;
14788   sg__rc_cgen9166.d9486[395] = SG_MAKE_STRING("transcoded-port");
14789   sg__rc_cgen9166.d9486[396] = Sg_Intern(sg__rc_cgen9166.d9486[395]); /* transcoded-port */
14790   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[395]), &core_transcoded_port__STUB);
14791   SG_PROCEDURE_NAME(&core_transcoded_port__STUB) = sg__rc_cgen9166.d9486[395];
14792   sg__rc_cgen9166.d9486[397] = SG_MAKE_STRING("port-has-port-position?");
14793   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[397]), &core_port_has_port_positionP__STUB);
14794   SG_PROCEDURE_NAME(&core_port_has_port_positionP__STUB) = sg__rc_cgen9166.d9486[397];
14795   SG_PROCEDURE_TRANSPARENT(&core_port_has_port_positionP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14796   sg__rc_cgen9166.d9486[398] = SG_MAKE_STRING("port-has-set-port-position!?");
14797   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[398]), &core_port_has_set_port_positionXP__STUB);
14798   SG_PROCEDURE_NAME(&core_port_has_set_port_positionXP__STUB) = sg__rc_cgen9166.d9486[398];
14799   SG_PROCEDURE_TRANSPARENT(&core_port_has_set_port_positionXP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14800   sg__rc_cgen9166.d9486[399] = SG_MAKE_STRING("port-position");
14801   sg__rc_cgen9166.d9486[400] = Sg_Intern(sg__rc_cgen9166.d9486[399]); /* port-position */
14802   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[399]), &core_port_position__STUB);
14803   SG_PROCEDURE_NAME(&core_port_position__STUB) = sg__rc_cgen9166.d9486[399];
14804   SG_PROCEDURE_TRANSPARENT(&core_port_position__STUB) = SG_PROC_NO_SIDE_EFFECT;
14805   sg__rc_cgen9166.d9486[401] = SG_MAKE_STRING("set-port-position!");
14806   sg__rc_cgen9166.d9486[402] = Sg_Intern(sg__rc_cgen9166.d9486[401]); /* set-port-position! */
14807   sg__rc_cgen9166.d9486[404] = SG_MAKE_STRING("end");
14808   sg__rc_cgen9166.d9486[403] = Sg_Intern(sg__rc_cgen9166.d9486[404]); /* end */
14809   sg__rc_cgen9166.d9486[406] = SG_MAKE_STRING("current");
14810   sg__rc_cgen9166.d9486[405] = Sg_Intern(sg__rc_cgen9166.d9486[406]); /* current */
14811   sg__rc_cgen9166.d9486[408] = SG_MAKE_STRING("begin");
14812   sg__rc_cgen9166.d9486[407] = Sg_Intern(sg__rc_cgen9166.d9486[408]); /* begin */
14813   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[401]), &core_set_port_positionX__STUB);
14814   SG_PROCEDURE_NAME(&core_set_port_positionX__STUB) = sg__rc_cgen9166.d9486[401];
14815   sg__rc_cgen9166.d9486[409] = SG_MAKE_STRING("close-port");
14816   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[409]), &core_close_port__STUB);
14817   SG_PROCEDURE_NAME(&core_close_port__STUB) = sg__rc_cgen9166.d9486[409];
14818   sg__rc_cgen9166.d9486[410] = SG_MAKE_STRING("input-port?");
14819   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[410]), &core_input_portP__STUB);
14820   SG_PROCEDURE_NAME(&core_input_portP__STUB) = sg__rc_cgen9166.d9486[410];
14821   SG_PROCEDURE_TRANSPARENT(&core_input_portP__STUB) = SG_PROC_TRANSPARENT;
14822   sg__rc_cgen9166.d9486[411] = SG_MAKE_STRING("port-eof?");
14823   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[411]), &core_port_eofP__STUB);
14824   SG_PROCEDURE_NAME(&core_port_eofP__STUB) = sg__rc_cgen9166.d9486[411];
14825   SG_PROCEDURE_TRANSPARENT(&core_port_eofP__STUB) = SG_PROC_NO_SIDE_EFFECT;
14826   sg__rc_cgen9166.d9486[412] = SG_MAKE_STRING("open-file-input-port");
14827   sg__rc_cgen9166.d9486[413] = Sg_Intern(sg__rc_cgen9166.d9486[412]); /* open-file-input-port */
14828   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[412]), &core_open_file_input_port__STUB);
14829   SG_PROCEDURE_NAME(&core_open_file_input_port__STUB) = sg__rc_cgen9166.d9486[412];
14830   sg__rc_cgen9166.d9486[414] = SG_MAKE_STRING("open-bytevector-input-port");
14831   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[414]), &core_open_bytevector_input_port__STUB);
14832   SG_PROCEDURE_NAME(&core_open_bytevector_input_port__STUB) = sg__rc_cgen9166.d9486[414];
14833   sg__rc_cgen9166.d9486[415] = SG_MAKE_STRING("open-string-input-port");
14834   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[415]), &core_open_string_input_port__STUB);
14835   SG_PROCEDURE_NAME(&core_open_string_input_port__STUB) = sg__rc_cgen9166.d9486[415];
14836   sg__rc_cgen9166.d9486[416] = SG_MAKE_STRING("standard-input-port");
14837   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[416]), &core_standard_input_port__STUB);
14838   SG_PROCEDURE_NAME(&core_standard_input_port__STUB) = sg__rc_cgen9166.d9486[416];
14839   sg__rc_cgen9166.d9486[417] = SG_MAKE_STRING("current-input-port");
14840   sg__rc_cgen9166.d9486[418] = Sg_Intern(sg__rc_cgen9166.d9486[417]); /* current-input-port */
14841   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[417]), &core_current_input_port__STUB);
14842   SG_PROCEDURE_NAME(&core_current_input_port__STUB) = sg__rc_cgen9166.d9486[417];
14843   sg__rc_cgen9166.d9486[419] = SG_MAKE_STRING("make-custom-binary-input-port");
14844   sg__rc_cgen9166.d9486[420] = Sg_Intern(sg__rc_cgen9166.d9486[419]); /* make-custom-binary-input-port */
14845   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[419]), &core_make_custom_binary_input_port__STUB);
14846   SG_PROCEDURE_NAME(&core_make_custom_binary_input_port__STUB) = sg__rc_cgen9166.d9486[419];
14847   sg__rc_cgen9166.d9486[421] = SG_MAKE_STRING("make-custom-textual-input-port");
14848   sg__rc_cgen9166.d9486[422] = Sg_Intern(sg__rc_cgen9166.d9486[421]); /* make-custom-textual-input-port */
14849   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[421]), &core_make_custom_textual_input_port__STUB);
14850   SG_PROCEDURE_NAME(&core_make_custom_textual_input_port__STUB) = sg__rc_cgen9166.d9486[421];
14851   sg__rc_cgen9166.d9486[423] = SG_MAKE_STRING("get-u8");
14852   sg__rc_cgen9166.d9486[424] = Sg_Intern(sg__rc_cgen9166.d9486[423]); /* get-u8 */
14853   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[423]), &core_get_u8__STUB);
14854   SG_PROCEDURE_NAME(&core_get_u8__STUB) = sg__rc_cgen9166.d9486[423];
14855   sg__rc_cgen9166.d9486[425] = SG_MAKE_STRING("lookahead-u8");
14856   sg__rc_cgen9166.d9486[426] = Sg_Intern(sg__rc_cgen9166.d9486[425]); /* lookahead-u8 */
14857   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[425]), &core_lookahead_u8__STUB);
14858   SG_PROCEDURE_NAME(&core_lookahead_u8__STUB) = sg__rc_cgen9166.d9486[425];
14859   sg__rc_cgen9166.d9486[427] = SG_MAKE_STRING("get-bytevector-n");
14860   sg__rc_cgen9166.d9486[428] = Sg_Intern(sg__rc_cgen9166.d9486[427]); /* get-bytevector-n */
14861   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[427]), &core_get_bytevector_n__STUB);
14862   SG_PROCEDURE_NAME(&core_get_bytevector_n__STUB) = sg__rc_cgen9166.d9486[427];
14863   sg__rc_cgen9166.d9486[429] = SG_MAKE_STRING("get-bytevector-n!");
14864   sg__rc_cgen9166.d9486[430] = Sg_Intern(sg__rc_cgen9166.d9486[429]); /* get-bytevector-n! */
14865   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[429]), &core_get_bytevector_nX__STUB);
14866   SG_PROCEDURE_NAME(&core_get_bytevector_nX__STUB) = sg__rc_cgen9166.d9486[429];
14867   sg__rc_cgen9166.d9486[431] = SG_MAKE_STRING("get-bytevector-some");
14868   sg__rc_cgen9166.d9486[432] = Sg_Intern(sg__rc_cgen9166.d9486[431]); /* get-bytevector-some */
14869   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[431]), &core_get_bytevector_some__STUB);
14870   SG_PROCEDURE_NAME(&core_get_bytevector_some__STUB) = sg__rc_cgen9166.d9486[431];
14871   sg__rc_cgen9166.d9486[433] = SG_MAKE_STRING("get-bytevector-all");
14872   sg__rc_cgen9166.d9486[434] = Sg_Intern(sg__rc_cgen9166.d9486[433]); /* get-bytevector-all */
14873   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[433]), &core_get_bytevector_all__STUB);
14874   SG_PROCEDURE_NAME(&core_get_bytevector_all__STUB) = sg__rc_cgen9166.d9486[433];
14875   sg__rc_cgen9166.d9486[435] = SG_MAKE_STRING("get-char");
14876   sg__rc_cgen9166.d9486[436] = Sg_Intern(sg__rc_cgen9166.d9486[435]); /* get-char */
14877   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[435]), &core_get_char__STUB);
14878   SG_PROCEDURE_NAME(&core_get_char__STUB) = sg__rc_cgen9166.d9486[435];
14879   sg__rc_cgen9166.d9486[437] = SG_MAKE_STRING("lookahead-char");
14880   sg__rc_cgen9166.d9486[438] = Sg_Intern(sg__rc_cgen9166.d9486[437]); /* lookahead-char */
14881   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[437]), &core_lookahead_char__STUB);
14882   SG_PROCEDURE_NAME(&core_lookahead_char__STUB) = sg__rc_cgen9166.d9486[437];
14883   sg__rc_cgen9166.d9486[439] = SG_MAKE_STRING("get-string-n");
14884   sg__rc_cgen9166.d9486[440] = Sg_Intern(sg__rc_cgen9166.d9486[439]); /* get-string-n */
14885   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[439]), &core_get_string_n__STUB);
14886   SG_PROCEDURE_NAME(&core_get_string_n__STUB) = sg__rc_cgen9166.d9486[439];
14887   sg__rc_cgen9166.d9486[441] = SG_MAKE_STRING("get-string-n!");
14888   sg__rc_cgen9166.d9486[442] = Sg_Intern(sg__rc_cgen9166.d9486[441]); /* get-string-n! */
14889   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[441]), &core_get_string_nX__STUB);
14890   SG_PROCEDURE_NAME(&core_get_string_nX__STUB) = sg__rc_cgen9166.d9486[441];
14891   sg__rc_cgen9166.d9486[443] = SG_MAKE_STRING("get-string-all");
14892   sg__rc_cgen9166.d9486[444] = Sg_Intern(sg__rc_cgen9166.d9486[443]); /* get-string-all */
14893   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[443]), &core_get_string_all__STUB);
14894   SG_PROCEDURE_NAME(&core_get_string_all__STUB) = sg__rc_cgen9166.d9486[443];
14895   sg__rc_cgen9166.d9486[445] = SG_MAKE_STRING("get-line");
14896   sg__rc_cgen9166.d9486[446] = Sg_Intern(sg__rc_cgen9166.d9486[445]); /* get-line */
14897   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[445]), &core_get_line__STUB);
14898   SG_PROCEDURE_NAME(&core_get_line__STUB) = sg__rc_cgen9166.d9486[445];
14899   sg__rc_cgen9166.d9486[447] = SG_MAKE_STRING("get-datum");
14900   sg__rc_cgen9166.d9486[449] = SG_MAKE_STRING("get-dutum");
14901   sg__rc_cgen9166.d9486[448] = Sg_Intern(sg__rc_cgen9166.d9486[449]); /* get-dutum */
14902   sg__rc_cgen9166.d9486[450] = Sg_Intern(sg__rc_cgen9166.d9486[447]); /* get-datum */
14903   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[447]), &core_get_datum__STUB);
14904   SG_PROCEDURE_NAME(&core_get_datum__STUB) = sg__rc_cgen9166.d9486[447];
14905   sg__rc_cgen9166.d9486[451] = SG_MAKE_STRING("output-port?");
14906   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[451]), &core_output_portP__STUB);
14907   SG_PROCEDURE_NAME(&core_output_portP__STUB) = sg__rc_cgen9166.d9486[451];
14908   SG_PROCEDURE_TRANSPARENT(&core_output_portP__STUB) = SG_PROC_TRANSPARENT;
14909   sg__rc_cgen9166.d9486[452] = SG_MAKE_STRING("flush-output-port");
14910   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[452]), &core_flush_output_port__STUB);
14911   SG_PROCEDURE_NAME(&core_flush_output_port__STUB) = sg__rc_cgen9166.d9486[452];
14912   sg__rc_cgen9166.d9486[453] = SG_MAKE_STRING("output-port-buffer-mode");
14913   sg__rc_cgen9166.d9486[454] = Sg_Intern(sg__rc_cgen9166.d9486[453]); /* output-port-buffer-mode */
14914   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[453]), &core_output_port_buffer_mode__STUB);
14915   SG_PROCEDURE_NAME(&core_output_port_buffer_mode__STUB) = sg__rc_cgen9166.d9486[453];
14916   sg__rc_cgen9166.d9486[456] = SG_MAKE_STRING("members");
14917   sg__rc_cgen9166.d9486[455] = Sg_Intern(sg__rc_cgen9166.d9486[456]); /* members */
14918   sg__rc_cgen9166.d9486[458] = SG_MAKE_STRING("open-file-output-port");
14919   sg__rc_cgen9166.d9486[457] = Sg_Intern(sg__rc_cgen9166.d9486[458]); /* open-file-output-port */
14920   sg__rc_cgen9166.d9486[460] = SG_MAKE_STRING("no-create");
14921   sg__rc_cgen9166.d9486[459] = Sg_Intern(sg__rc_cgen9166.d9486[460]); /* no-create */
14922   sg__rc_cgen9166.d9486[462] = SG_MAKE_STRING("no-truncate");
14923   sg__rc_cgen9166.d9486[461] = Sg_Intern(sg__rc_cgen9166.d9486[462]); /* no-truncate */
14924   sg__rc_cgen9166.d9486[464] = SG_MAKE_STRING("no-fail");
14925   sg__rc_cgen9166.d9486[463] = Sg_Intern(sg__rc_cgen9166.d9486[464]); /* no-fail */
14926   sg__rc_cgen9166.d9486[465] = Sg_Intern(sg__rc_cgen9166.d9486[161]); /* append */
14927   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[458]), &core_open_file_output_port__STUB);
14928   SG_PROCEDURE_NAME(&core_open_file_output_port__STUB) = sg__rc_cgen9166.d9486[458];
14929   sg__rc_cgen9166.d9486[466] = SG_MAKE_STRING("standard-output-port");
14930   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[466]), &core_standard_output_port__STUB);
14931   SG_PROCEDURE_NAME(&core_standard_output_port__STUB) = sg__rc_cgen9166.d9486[466];
14932   sg__rc_cgen9166.d9486[467] = SG_MAKE_STRING("standard-error-port");
14933   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[467]), &core_standard_error_port__STUB);
14934   SG_PROCEDURE_NAME(&core_standard_error_port__STUB) = sg__rc_cgen9166.d9486[467];
14935   sg__rc_cgen9166.d9486[468] = SG_MAKE_STRING("current-output-port");
14936   sg__rc_cgen9166.d9486[469] = Sg_Intern(sg__rc_cgen9166.d9486[468]); /* current-output-port */
14937   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[468]), &core_current_output_port__STUB);
14938   SG_PROCEDURE_NAME(&core_current_output_port__STUB) = sg__rc_cgen9166.d9486[468];
14939   sg__rc_cgen9166.d9486[470] = SG_MAKE_STRING("current-error-port");
14940   sg__rc_cgen9166.d9486[471] = Sg_Intern(sg__rc_cgen9166.d9486[470]); /* current-error-port */
14941   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[470]), &core_current_error_port__STUB);
14942   SG_PROCEDURE_NAME(&core_current_error_port__STUB) = sg__rc_cgen9166.d9486[470];
14943   sg__rc_cgen9166.d9486[472] = SG_MAKE_STRING("make-custom-binary-output-port");
14944   sg__rc_cgen9166.d9486[473] = Sg_Intern(sg__rc_cgen9166.d9486[472]); /* make-custom-binary-output-port */
14945   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[472]), &core_make_custom_binary_output_port__STUB);
14946   SG_PROCEDURE_NAME(&core_make_custom_binary_output_port__STUB) = sg__rc_cgen9166.d9486[472];
14947   sg__rc_cgen9166.d9486[474] = SG_MAKE_STRING("make-custom-textual-output-port");
14948   sg__rc_cgen9166.d9486[475] = Sg_Intern(sg__rc_cgen9166.d9486[474]); /* make-custom-textual-output-port */
14949   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[474]), &core_make_custom_textual_output_port__STUB);
14950   SG_PROCEDURE_NAME(&core_make_custom_textual_output_port__STUB) = sg__rc_cgen9166.d9486[474];
14951   sg__rc_cgen9166.d9486[476] = SG_MAKE_STRING("put-u8");
14952   sg__rc_cgen9166.d9486[477] = Sg_Intern(sg__rc_cgen9166.d9486[476]); /* put-u8 */
14953   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[476]), &core_put_u8__STUB);
14954   SG_PROCEDURE_NAME(&core_put_u8__STUB) = sg__rc_cgen9166.d9486[476];
14955   sg__rc_cgen9166.d9486[478] = SG_MAKE_STRING("put-bytevector");
14956   sg__rc_cgen9166.d9486[479] = Sg_Intern(sg__rc_cgen9166.d9486[478]); /* put-bytevector */
14957   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[478]), &core_put_bytevector__STUB);
14958   SG_PROCEDURE_NAME(&core_put_bytevector__STUB) = sg__rc_cgen9166.d9486[478];
14959   sg__rc_cgen9166.d9486[480] = SG_MAKE_STRING("put-char");
14960   sg__rc_cgen9166.d9486[481] = Sg_Intern(sg__rc_cgen9166.d9486[480]); /* put-char */
14961   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[480]), &core_put_char__STUB);
14962   SG_PROCEDURE_NAME(&core_put_char__STUB) = sg__rc_cgen9166.d9486[480];
14963   sg__rc_cgen9166.d9486[482] = SG_MAKE_STRING("put-string");
14964   sg__rc_cgen9166.d9486[483] = Sg_Intern(sg__rc_cgen9166.d9486[482]); /* put-string */
14965   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[482]), &core_put_string__STUB);
14966   SG_PROCEDURE_NAME(&core_put_string__STUB) = sg__rc_cgen9166.d9486[482];
14967   sg__rc_cgen9166.d9486[484] = SG_MAKE_STRING("put-datum");
14968   sg__rc_cgen9166.d9486[485] = Sg_Intern(sg__rc_cgen9166.d9486[484]); /* put-datum */
14969   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[484]), &core_put_datum__STUB);
14970   SG_PROCEDURE_NAME(&core_put_datum__STUB) = sg__rc_cgen9166.d9486[484];
14971   sg__rc_cgen9166.d9486[486] = SG_MAKE_STRING("open-file-input/output-port");
14972   sg__rc_cgen9166.d9486[487] = Sg_Intern(sg__rc_cgen9166.d9486[486]); /* open-file-input/output-port */
14973   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[486]), &core_open_file_input_2foutput_port__STUB);
14974   SG_PROCEDURE_NAME(&core_open_file_input_2foutput_port__STUB) = sg__rc_cgen9166.d9486[486];
14975   sg__rc_cgen9166.d9486[488] = SG_MAKE_STRING("make-custom-binary-input/output-port");
14976   sg__rc_cgen9166.d9486[489] = Sg_Intern(sg__rc_cgen9166.d9486[488]); /* make-custom-binary-input/output-port */
14977   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[488]), &core_make_custom_binary_input_2foutput_port__STUB);
14978   SG_PROCEDURE_NAME(&core_make_custom_binary_input_2foutput_port__STUB) = sg__rc_cgen9166.d9486[488];
14979   sg__rc_cgen9166.d9486[490] = SG_MAKE_STRING("make-custom-textual-input/output-port");
14980   sg__rc_cgen9166.d9486[491] = Sg_Intern(sg__rc_cgen9166.d9486[490]); /* make-custom-textual-input/output-port */
14981   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[490]), &core_make_custom_textual_input_2foutput_port__STUB);
14982   SG_PROCEDURE_NAME(&core_make_custom_textual_input_2foutput_port__STUB) = sg__rc_cgen9166.d9486[490];
14983   sg__rc_cgen9166.d9486[492] = SG_MAKE_STRING("close-input-port");
14984   sg__rc_cgen9166.d9486[493] = Sg_Intern(sg__rc_cgen9166.d9486[492]); /* close-input-port */
14985   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[492]), &core_close_input_port__STUB);
14986   SG_PROCEDURE_NAME(&core_close_input_port__STUB) = sg__rc_cgen9166.d9486[492];
14987   sg__rc_cgen9166.d9486[494] = SG_MAKE_STRING("close-output-port");
14988   sg__rc_cgen9166.d9486[495] = Sg_Intern(sg__rc_cgen9166.d9486[494]); /* close-output-port */
14989   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[494]), &core_close_output_port__STUB);
14990   SG_PROCEDURE_NAME(&core_close_output_port__STUB) = sg__rc_cgen9166.d9486[494];
14991   sg__rc_cgen9166.d9486[496] = SG_MAKE_STRING("read-char");
14992   sg__rc_cgen9166.d9486[497] = Sg_Intern(sg__rc_cgen9166.d9486[496]); /* read-char */
14993   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[496]), &core_read_char__STUB);
14994   SG_PROCEDURE_NAME(&core_read_char__STUB) = sg__rc_cgen9166.d9486[496];
14995   sg__rc_cgen9166.d9486[498] = SG_MAKE_STRING("peek-char");
14996   sg__rc_cgen9166.d9486[499] = Sg_Intern(sg__rc_cgen9166.d9486[498]); /* peek-char */
14997   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[498]), &core_peek_char__STUB);
14998   SG_PROCEDURE_NAME(&core_peek_char__STUB) = sg__rc_cgen9166.d9486[498];
14999   sg__rc_cgen9166.d9486[501] = SG_MAKE_STRING("source-info?");
15000   sg__rc_cgen9166.d9486[500] = Sg_MakeKeyword(SG_STRING(sg__rc_cgen9166.d9486[501])); /* source-info? */
15001   sg__rc_cgen9166.d9486[503] = SG_MAKE_STRING("read-shared?");
15002   sg__rc_cgen9166.d9486[502] = Sg_MakeKeyword(SG_STRING(sg__rc_cgen9166.d9486[503])); /* read-shared? */
15003   sg__rc_cgen9166.d9486[504] = SG_MAKE_STRING("read");
15004   sg__rc_cgen9166.d9486[505] = Sg_Intern(sg__rc_cgen9166.d9486[504]); /* read */
15005   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[504]), &core_read__STUB);
15006   SG_PROCEDURE_NAME(&core_read__STUB) = sg__rc_cgen9166.d9486[504];
15007   sg__rc_cgen9166.d9486[506] = SG_MAKE_STRING("write-char");
15008   sg__rc_cgen9166.d9486[507] = Sg_Intern(sg__rc_cgen9166.d9486[506]); /* write-char */
15009   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[506]), &core_write_char__STUB);
15010   SG_PROCEDURE_NAME(&core_write_char__STUB) = sg__rc_cgen9166.d9486[506];
15011   sg__rc_cgen9166.d9486[508] = SG_MAKE_STRING("newline");
15012   sg__rc_cgen9166.d9486[509] = Sg_Intern(sg__rc_cgen9166.d9486[508]); /* newline */
15013   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[508]), &core_newline__STUB);
15014   SG_PROCEDURE_NAME(&core_newline__STUB) = sg__rc_cgen9166.d9486[508];
15015   sg__rc_cgen9166.d9486[510] = SG_MAKE_STRING("display");
15016   sg__rc_cgen9166.d9486[511] = Sg_Intern(sg__rc_cgen9166.d9486[510]); /* display */
15017   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[510]), &core_display__STUB);
15018   SG_PROCEDURE_NAME(&core_display__STUB) = sg__rc_cgen9166.d9486[510];
15019   sg__rc_cgen9166.d9486[512] = SG_MAKE_STRING("write");
15020   sg__rc_cgen9166.d9486[513] = Sg_Intern(sg__rc_cgen9166.d9486[512]); /* write */
15021   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[512]), &core_write__STUB);
15022   SG_PROCEDURE_NAME(&core_write__STUB) = sg__rc_cgen9166.d9486[512];
15023   sg__rc_cgen9166.d9486[514] = SG_MAKE_STRING("file-exists?");
15024   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[514]), &core_file_existsP__STUB);
15025   SG_PROCEDURE_NAME(&core_file_existsP__STUB) = sg__rc_cgen9166.d9486[514];
15026   SG_PROCEDURE_TRANSPARENT(&core_file_existsP__STUB) = SG_PROC_NO_SIDE_EFFECT;
15027   sg__rc_cgen9166.d9486[515] = SG_MAKE_STRING("delete-file");
15028   sg__rc_cgen9166.d9486[516] = Sg_Intern(sg__rc_cgen9166.d9486[515]); /* delete-file */
15029   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[515]), &core_delete_file__STUB);
15030   SG_PROCEDURE_NAME(&core_delete_file__STUB) = sg__rc_cgen9166.d9486[515];
15031   sg__rc_cgen9166.d9486[517] = SG_MAKE_STRING("exit");
15032   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[517]), &core_exit__STUB);
15033   SG_PROCEDURE_NAME(&core_exit__STUB) = sg__rc_cgen9166.d9486[517];
15034   sg__rc_cgen9166.d9486[518] = SG_MAKE_STRING("bitwise-not");
15035   sg__rc_cgen9166.d9486[519] = Sg_Intern(sg__rc_cgen9166.d9486[518]); /* bitwise-not */
15036   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[518]), &core_bitwise_not__STUB);
15037   SG_PROCEDURE_NAME(&core_bitwise_not__STUB) = sg__rc_cgen9166.d9486[518];
15038   SG_PROCEDURE_TRANSPARENT(&core_bitwise_not__STUB) = SG_PROC_TRANSPARENT;
15039   sg__rc_cgen9166.d9486[520] = SG_MAKE_STRING("bitwise-and");
15040   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[520]), &core_bitwise_and__STUB);
15041   SG_PROCEDURE_NAME(&core_bitwise_and__STUB) = sg__rc_cgen9166.d9486[520];
15042   SG_PROCEDURE_TRANSPARENT(&core_bitwise_and__STUB) = SG_PROC_TRANSPARENT;
15043   sg__rc_cgen9166.d9486[521] = SG_MAKE_STRING("bitwise-ior");
15044   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[521]), &core_bitwise_ior__STUB);
15045   SG_PROCEDURE_NAME(&core_bitwise_ior__STUB) = sg__rc_cgen9166.d9486[521];
15046   SG_PROCEDURE_TRANSPARENT(&core_bitwise_ior__STUB) = SG_PROC_TRANSPARENT;
15047   sg__rc_cgen9166.d9486[522] = SG_MAKE_STRING("bitwise-xor");
15048   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[522]), &core_bitwise_xor__STUB);
15049   SG_PROCEDURE_NAME(&core_bitwise_xor__STUB) = sg__rc_cgen9166.d9486[522];
15050   SG_PROCEDURE_TRANSPARENT(&core_bitwise_xor__STUB) = SG_PROC_TRANSPARENT;
15051   sg__rc_cgen9166.d9486[523] = SG_MAKE_STRING("bitwise-if");
15052   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[523]), &core_bitwise_if__STUB);
15053   SG_PROCEDURE_NAME(&core_bitwise_if__STUB) = sg__rc_cgen9166.d9486[523];
15054   SG_PROCEDURE_TRANSPARENT(&core_bitwise_if__STUB) = SG_PROC_TRANSPARENT;
15055   sg__rc_cgen9166.d9486[524] = SG_MAKE_STRING("bitwise-bit-count");
15056   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[524]), &core_bitwise_bit_count__STUB);
15057   SG_PROCEDURE_NAME(&core_bitwise_bit_count__STUB) = sg__rc_cgen9166.d9486[524];
15058   SG_PROCEDURE_TRANSPARENT(&core_bitwise_bit_count__STUB) = SG_PROC_TRANSPARENT;
15059   sg__rc_cgen9166.d9486[525] = SG_MAKE_STRING("bitwise-length");
15060   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[525]), &core_bitwise_length__STUB);
15061   SG_PROCEDURE_NAME(&core_bitwise_length__STUB) = sg__rc_cgen9166.d9486[525];
15062   SG_PROCEDURE_TRANSPARENT(&core_bitwise_length__STUB) = SG_PROC_TRANSPARENT;
15063   sg__rc_cgen9166.d9486[526] = SG_MAKE_STRING("bitwise-first-bit-set");
15064   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[526]), &core_bitwise_first_bit_set__STUB);
15065   SG_PROCEDURE_NAME(&core_bitwise_first_bit_set__STUB) = sg__rc_cgen9166.d9486[526];
15066   SG_PROCEDURE_TRANSPARENT(&core_bitwise_first_bit_set__STUB) = SG_PROC_TRANSPARENT;
15067   sg__rc_cgen9166.d9486[527] = SG_MAKE_STRING("bitwise-bit-set?");
15068   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[527]), &core_bitwise_bit_setP__STUB);
15069   SG_PROCEDURE_NAME(&core_bitwise_bit_setP__STUB) = sg__rc_cgen9166.d9486[527];
15070   SG_PROCEDURE_TRANSPARENT(&core_bitwise_bit_setP__STUB) = SG_PROC_TRANSPARENT;
15071   sg__rc_cgen9166.d9486[528] = SG_MAKE_STRING("bitwise-copy-bit");
15072   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[528]), &core_bitwise_copy_bit__STUB);
15073   SG_PROCEDURE_NAME(&core_bitwise_copy_bit__STUB) = sg__rc_cgen9166.d9486[528];
15074   SG_PROCEDURE_TRANSPARENT(&core_bitwise_copy_bit__STUB) = SG_PROC_TRANSPARENT;
15075   sg__rc_cgen9166.d9486[529] = SG_MAKE_STRING("bitwise-bit-field");
15076   sg__rc_cgen9166.d9486[530] = Sg_Intern(sg__rc_cgen9166.d9486[529]); /* bitwise-bit-field */
15077   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[529]), &core_bitwise_bit_field__STUB);
15078   SG_PROCEDURE_NAME(&core_bitwise_bit_field__STUB) = sg__rc_cgen9166.d9486[529];
15079   SG_PROCEDURE_TRANSPARENT(&core_bitwise_bit_field__STUB) = SG_PROC_TRANSPARENT;
15080   sg__rc_cgen9166.d9486[531] = SG_MAKE_STRING("bitwise-copy-bit-field");
15081   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[531]), &core_bitwise_copy_bit_field__STUB);
15082   SG_PROCEDURE_NAME(&core_bitwise_copy_bit_field__STUB) = sg__rc_cgen9166.d9486[531];
15083   SG_PROCEDURE_TRANSPARENT(&core_bitwise_copy_bit_field__STUB) = SG_PROC_TRANSPARENT;
15084   sg__rc_cgen9166.d9486[532] = SG_MAKE_STRING("bitwise-arithmetic-shift");
15085   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[532]), &core_bitwise_arithmetic_shift__STUB);
15086   SG_PROCEDURE_NAME(&core_bitwise_arithmetic_shift__STUB) = sg__rc_cgen9166.d9486[532];
15087   SG_PROCEDURE_TRANSPARENT(&core_bitwise_arithmetic_shift__STUB) = SG_PROC_TRANSPARENT;
15088   sg__rc_cgen9166.d9486[533] = SG_MAKE_STRING("bitwise-arithmetic-shift-left");
15089   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[533]), &core_bitwise_arithmetic_shift_left__STUB);
15090   SG_PROCEDURE_NAME(&core_bitwise_arithmetic_shift_left__STUB) = sg__rc_cgen9166.d9486[533];
15091   SG_PROCEDURE_TRANSPARENT(&core_bitwise_arithmetic_shift_left__STUB) = SG_PROC_TRANSPARENT;
15092   sg__rc_cgen9166.d9486[534] = SG_MAKE_STRING("bitwise-arithmetic-shift-right");
15093   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[534]), &core_bitwise_arithmetic_shift_right__STUB);
15094   SG_PROCEDURE_NAME(&core_bitwise_arithmetic_shift_right__STUB) = sg__rc_cgen9166.d9486[534];
15095   SG_PROCEDURE_TRANSPARENT(&core_bitwise_arithmetic_shift_right__STUB) = SG_PROC_TRANSPARENT;
15096   sg__rc_cgen9166.d9486[535] = SG_MAKE_STRING("identifier?");
15097   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[535]), &core_identifierP__STUB);
15098   SG_PROCEDURE_NAME(&core_identifierP__STUB) = sg__rc_cgen9166.d9486[535];
15099   SG_PROCEDURE_TRANSPARENT(&core_identifierP__STUB) = SG_PROC_TRANSPARENT;
15100   sg__rc_cgen9166.d9486[537] = SG_MAKE_STRING("make-hashtable");
15101   sg__rc_cgen9166.d9486[536] = Sg_Intern(sg__rc_cgen9166.d9486[537]); /* make-hashtable */
15102   sg__rc_cgen9166.d9486[539] = SG_MAKE_STRING("both");
15103   sg__rc_cgen9166.d9486[538] = Sg_Intern(sg__rc_cgen9166.d9486[539]); /* both */
15104   sg__rc_cgen9166.d9486[541] = SG_MAKE_STRING("value");
15105   sg__rc_cgen9166.d9486[540] = Sg_Intern(sg__rc_cgen9166.d9486[541]); /* value */
15106   sg__rc_cgen9166.d9486[543] = SG_MAKE_STRING("key");
15107   sg__rc_cgen9166.d9486[542] = Sg_Intern(sg__rc_cgen9166.d9486[543]); /* key */
15108   sg__rc_cgen9166.d9486[544] = SG_MAKE_STRING("make-eq-hashtable");
15109   sg__rc_cgen9166.d9486[545] = Sg_Intern(sg__rc_cgen9166.d9486[544]); /* make-eq-hashtable */
15110   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[544]), &core_make_eq_hashtable__STUB);
15111   SG_PROCEDURE_NAME(&core_make_eq_hashtable__STUB) = sg__rc_cgen9166.d9486[544];
15112   SG_PROCEDURE_TRANSPARENT(&core_make_eq_hashtable__STUB) = SG_PROC_NO_SIDE_EFFECT;
15113   sg__rc_cgen9166.d9486[546] = SG_MAKE_STRING("make-eqv-hashtable");
15114   sg__rc_cgen9166.d9486[547] = Sg_Intern(sg__rc_cgen9166.d9486[546]); /* make-eqv-hashtable */
15115   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[546]), &core_make_eqv_hashtable__STUB);
15116   SG_PROCEDURE_NAME(&core_make_eqv_hashtable__STUB) = sg__rc_cgen9166.d9486[546];
15117   SG_PROCEDURE_TRANSPARENT(&core_make_eqv_hashtable__STUB) = SG_PROC_NO_SIDE_EFFECT;
15118   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[537]), &core_make_hashtable__STUB);
15119   SG_PROCEDURE_NAME(&core_make_hashtable__STUB) = sg__rc_cgen9166.d9486[537];
15120   SG_PROCEDURE_TRANSPARENT(&core_make_hashtable__STUB) = SG_PROC_NO_SIDE_EFFECT;
15121   sg__rc_cgen9166.d9486[548] = SG_MAKE_STRING("hashtable?");
15122   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[548]), &core_hashtableP__STUB);
15123   SG_PROCEDURE_NAME(&core_hashtableP__STUB) = sg__rc_cgen9166.d9486[548];
15124   SG_PROCEDURE_TRANSPARENT(&core_hashtableP__STUB) = SG_PROC_TRANSPARENT;
15125   sg__rc_cgen9166.d9486[549] = SG_MAKE_STRING("hashtable-size");
15126   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[549]), &core_hashtable_size__STUB);
15127   SG_PROCEDURE_NAME(&core_hashtable_size__STUB) = sg__rc_cgen9166.d9486[549];
15128   sg__rc_cgen9166.d9486[550] = SG_MAKE_STRING("hashtable-ref");
15129   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[550]), &core_hashtable_ref__STUB);
15130   SG_PROCEDURE_NAME(&core_hashtable_ref__STUB) = sg__rc_cgen9166.d9486[550];
15131   SG_PROCEDURE_TRANSPARENT(&core_hashtable_ref__STUB) = SG_PROC_NO_SIDE_EFFECT;
15132   SG_PROCEDURE_NAME(&core_hashtable_setX__STUB) = sg__rc_cgen9166.d9486[551];
15133   Sg_SetterSet(SG_PROCEDURE(&core_hashtable_ref__STUB), SG_PROCEDURE(&core_hashtable_setX__STUB), TRUE);
15134   sg__rc_cgen9166.d9486[551] = SG_MAKE_STRING("hashtable-set!");
15135   sg__rc_cgen9166.d9486[552] = Sg_Intern(sg__rc_cgen9166.d9486[551]); /* hashtable-set! */
15136   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[551]), &core_hashtable_setX__STUB);
15137   SG_PROCEDURE_NAME(&core_hashtable_setX__STUB) = sg__rc_cgen9166.d9486[551];
15138   sg__rc_cgen9166.d9486[553] = SG_MAKE_STRING("hashtable-delete!");
15139   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[553]), &core_hashtable_deleteX__STUB);
15140   SG_PROCEDURE_NAME(&core_hashtable_deleteX__STUB) = sg__rc_cgen9166.d9486[553];
15141   sg__rc_cgen9166.d9486[554] = SG_MAKE_STRING("hashtable-contains?");
15142   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[554]), &core_hashtable_containsP__STUB);
15143   SG_PROCEDURE_NAME(&core_hashtable_containsP__STUB) = sg__rc_cgen9166.d9486[554];
15144   SG_PROCEDURE_TRANSPARENT(&core_hashtable_containsP__STUB) = SG_PROC_NO_SIDE_EFFECT;
15145   sg__rc_cgen9166.d9486[555] = SG_MAKE_STRING("hashtable-copy");
15146   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[555]), &core_hashtable_copy__STUB);
15147   SG_PROCEDURE_NAME(&core_hashtable_copy__STUB) = sg__rc_cgen9166.d9486[555];
15148   sg__rc_cgen9166.d9486[556] = SG_MAKE_STRING("hashtable-clear!");
15149   sg__rc_cgen9166.d9486[557] = Sg_Intern(sg__rc_cgen9166.d9486[556]); /* hashtable-clear! */
15150   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[556]), &core_hashtable_clearX__STUB);
15151   SG_PROCEDURE_NAME(&core_hashtable_clearX__STUB) = sg__rc_cgen9166.d9486[556];
15152   sg__rc_cgen9166.d9486[558] = SG_MAKE_STRING("hashtable-keys");
15153   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[558]), &core_hashtable_keys__STUB);
15154   SG_PROCEDURE_NAME(&core_hashtable_keys__STUB) = sg__rc_cgen9166.d9486[558];
15155   SG_PROCEDURE_TRANSPARENT(&core_hashtable_keys__STUB) = SG_PROC_NO_SIDE_EFFECT;
15156   sg__rc_cgen9166.d9486[559] = SG_MAKE_STRING("hashtable-entries");
15157   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[559]), &core_hashtable_entries__STUB);
15158   SG_PROCEDURE_NAME(&core_hashtable_entries__STUB) = sg__rc_cgen9166.d9486[559];
15159   SG_PROCEDURE_TRANSPARENT(&core_hashtable_entries__STUB) = SG_PROC_NO_SIDE_EFFECT;
15160   sg__rc_cgen9166.d9486[560] = SG_MAKE_STRING("hashtable-mutable?");
15161   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[560]), &core_hashtable_mutableP__STUB);
15162   SG_PROCEDURE_NAME(&core_hashtable_mutableP__STUB) = sg__rc_cgen9166.d9486[560];
15163   SG_PROCEDURE_TRANSPARENT(&core_hashtable_mutableP__STUB) = SG_PROC_TRANSPARENT;
15164   sg__rc_cgen9166.d9486[561] = SG_MAKE_STRING("string-hash");
15165   sg__rc_cgen9166.d9486[562] = Sg_Intern(sg__rc_cgen9166.d9486[561]); /* string-hash */
15166   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[561]), &core_string_hash__STUB);
15167   SG_PROCEDURE_NAME(&core_string_hash__STUB) = sg__rc_cgen9166.d9486[561];
15168   SG_PROCEDURE_TRANSPARENT(&core_string_hash__STUB) = SG_PROC_NO_SIDE_EFFECT;
15169   sg__rc_cgen9166.d9486[563] = SG_MAKE_STRING("string-ci-hash");
15170   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[563]), &core_string_ci_hash__STUB);
15171   SG_PROCEDURE_NAME(&core_string_ci_hash__STUB) = sg__rc_cgen9166.d9486[563];
15172   SG_PROCEDURE_TRANSPARENT(&core_string_ci_hash__STUB) = SG_PROC_NO_SIDE_EFFECT;
15173   sg__rc_cgen9166.d9486[564] = SG_MAKE_STRING("symbol-hash");
15174   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[564]), &core_symbol_hash__STUB);
15175   SG_PROCEDURE_NAME(&core_symbol_hash__STUB) = sg__rc_cgen9166.d9486[564];
15176   SG_PROCEDURE_TRANSPARENT(&core_symbol_hash__STUB) = SG_PROC_NO_SIDE_EFFECT;
15177   sg__rc_cgen9166.d9486[565] = SG_MAKE_STRING("eval");
15178   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[565]), &core_eval__STUB);
15179   SG_PROCEDURE_NAME(&core_eval__STUB) = sg__rc_cgen9166.d9486[565];
15180   sg__rc_cgen9166.d9486[566] = SG_MAKE_STRING("environment");
15181   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[566]), &core_environment__STUB);
15182   SG_PROCEDURE_NAME(&core_environment__STUB) = sg__rc_cgen9166.d9486[566];
15183   sg__rc_cgen9166.d9486[567] = SG_MAKE_STRING("set-car!");
15184   sg__rc_cgen9166.d9486[569] = SG_MAKE_STRING("set-car");
15185   sg__rc_cgen9166.d9486[568] = Sg_Intern(sg__rc_cgen9166.d9486[569]); /* set-car */
15186   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[567]), &core_set_carX__STUB);
15187   SG_PROCEDURE_NAME(&core_set_carX__STUB) = sg__rc_cgen9166.d9486[567];
15188   sg__rc_cgen9166.d9486[570] = SG_MAKE_STRING("set-cdr!");
15189   sg__rc_cgen9166.d9486[572] = SG_MAKE_STRING("set-cdr");
15190   sg__rc_cgen9166.d9486[571] = Sg_Intern(sg__rc_cgen9166.d9486[572]); /* set-cdr */
15191   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[570]), &core_set_cdrX__STUB);
15192   SG_PROCEDURE_NAME(&core_set_cdrX__STUB) = sg__rc_cgen9166.d9486[570];
15193   sg__rc_cgen9166.d9486[573] = SG_MAKE_STRING("string-set!");
15194   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[573]), &core_string_setX__STUB);
15195   SG_PROCEDURE_NAME(&core_string_setX__STUB) = sg__rc_cgen9166.d9486[573];
15196   sg__rc_cgen9166.d9486[574] = SG_MAKE_STRING("string-fill!");
15197   sg__rc_cgen9166.d9486[575] = Sg_Intern(sg__rc_cgen9166.d9486[573]); /* string-set! */
15198   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[574]), &core_string_fillX__STUB);
15199   SG_PROCEDURE_NAME(&core_string_fillX__STUB) = sg__rc_cgen9166.d9486[574];
15200   sg__rc_cgen9166.d9486[576] = SG_MAKE_STRING("%record?");
15201   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[576]), &core__25recordP__STUB);
15202   SG_PROCEDURE_NAME(&core__25recordP__STUB) = sg__rc_cgen9166.d9486[576];
15203   SG_PROCEDURE_TRANSPARENT(&core__25recordP__STUB) = SG_PROC_TRANSPARENT;
15204   sg__rc_cgen9166.d9486[577] = SG_MAKE_STRING("condition");
15205   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[577]), &core_condition__STUB);
15206   SG_PROCEDURE_NAME(&core_condition__STUB) = sg__rc_cgen9166.d9486[577];
15207   sg__rc_cgen9166.d9486[578] = SG_MAKE_STRING("simple-conditions");
15208   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[578]), &core_simple_conditions__STUB);
15209   SG_PROCEDURE_NAME(&core_simple_conditions__STUB) = sg__rc_cgen9166.d9486[578];
15210   sg__rc_cgen9166.d9486[579] = SG_MAKE_STRING("compound-condition-component");
15211   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[579]), &core_compound_condition_component__STUB);
15212   SG_PROCEDURE_NAME(&core_compound_condition_component__STUB) = sg__rc_cgen9166.d9486[579];
15213   sg__rc_cgen9166.d9486[580] = SG_MAKE_STRING("compound-condition?");
15214   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[580]), &core_compound_conditionP__STUB);
15215   SG_PROCEDURE_NAME(&core_compound_conditionP__STUB) = sg__rc_cgen9166.d9486[580];
15216   SG_PROCEDURE_TRANSPARENT(&core_compound_conditionP__STUB) = SG_PROC_TRANSPARENT;
15217   sg__rc_cgen9166.d9486[581] = SG_MAKE_STRING("simple-condition?");
15218   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[581]), &core_simple_conditionP__STUB);
15219   SG_PROCEDURE_NAME(&core_simple_conditionP__STUB) = sg__rc_cgen9166.d9486[581];
15220   SG_PROCEDURE_TRANSPARENT(&core_simple_conditionP__STUB) = SG_PROC_TRANSPARENT;
15221   sg__rc_cgen9166.d9486[582] = SG_MAKE_STRING("condition?");
15222   Sg_InsertBinding(lib, Sg_Intern(sg__rc_cgen9166.d9486[582]), &core_conditionP__STUB);
15223   SG_PROCEDURE_NAME(&core_conditionP__STUB) = sg__rc_cgen9166.d9486[582];
15224   SG_PROCEDURE_TRANSPARENT(&core_conditionP__STUB) = SG_PROC_TRANSPARENT;
15225 }
15226