1 /* Generated from srfi-4.scm by the CHICKEN compiler
2 http://www.call-cc.org
3 Version 5.3.0rc4 ((HEAD detached at 5.3.0rc4)) (rev b6cbb1ba)
4 linux-unix-gnu-x86-64 [ 64bit dload ptables ]
5 command line: srfi-4.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file srfi-4.c -emit-import-library srfi-4
6 unit: srfi-4
7 uses: extras expand library
8 */
9 #include "chicken.h"
10
11 #define C_copy_subvector(to, from, start_to, start_from, bytes) \
12 (C_memcpy((C_char *)C_data_pointer(to) + C_unfix(start_to), (C_char *)C_data_pointer(from) + C_unfix(start_from), C_unfix(bytes)), \
13 C_SCHEME_UNDEFINED)
14
15 static C_PTABLE_ENTRY *create_ptable(void);
16 C_noret_decl(C_extras_toplevel)
17 C_externimport void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret;
18 C_noret_decl(C_expand_toplevel)
19 C_externimport void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret;
20 C_noret_decl(C_library_toplevel)
21 C_externimport void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret;
22
23 static C_TLS C_word lf[277];
24 static double C_possibly_force_alignment;
25 static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0,0};
26 static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0,0};
27 static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0};
28 static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0};
29 static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0};
30 static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0};
31 static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0};
32 static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0};
33 static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0};
34 static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0};
35 static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0,0};
36 static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0,0};
37 static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0};
38 static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0};
39 static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0};
40 static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0};
41 static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0};
42 static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0};
43 static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0};
44 static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,45,115,101,116,33,32,120,32,105,32,121,41,0,0,0};
45 static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,16),40,101,120,116,45,102,114,101,101,32,98,118,50,50,55,41};
46 static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,32),40,97,108,108,111,99,32,108,111,99,32,101,108,101,109,45,115,105,122,101,32,101,108,101,109,115,32,101,120,116,63,41};
47 static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,32),40,115,114,102,105,45,52,35,114,101,108,101,97,115,101,45,110,117,109,98,101,114,45,118,101,99,116,111,114,32,118,41};
48 static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,50,55,52,41,0,0,0,0,0};
49 static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,33),40,115,114,102,105,45,52,35,109,97,107,101,45,117,56,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
50 static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,51,48,56,41,0,0,0,0,0};
51 static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,33),40,115,114,102,105,45,52,35,109,97,107,101,45,115,56,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
52 static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,51,52,50,41,0,0,0,0,0};
53 static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,117,49,54,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
54 static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,51,55,54,41,0,0,0,0,0};
55 static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,115,49,54,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
56 static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,49,48,41,0,0,0,0,0};
57 static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,117,51,50,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
58 static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,52,52,41,0,0,0,0,0};
59 static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,117,54,52,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
60 static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,52,55,56,41,0,0,0,0,0};
61 static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,115,51,50,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
62 static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,49,50,41,0,0,0,0,0};
63 static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,115,54,52,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
64 static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,52,55,41,0,0,0,0,0};
65 static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,102,51,50,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
66 static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,11),40,100,111,108,111,111,112,53,56,51,41,0,0,0,0,0};
67 static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,34),40,115,114,102,105,45,52,35,109,97,107,101,45,102,54,52,118,101,99,116,111,114,32,108,101,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
68 static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,49,56,32,112,32,105,41,0};
69 static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,108,105,115,116,45,62,117,56,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0,0};
70 static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,51,49,32,112,32,105,41,0};
71 static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,27),40,115,114,102,105,45,52,35,108,105,115,116,45,62,115,56,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0,0};
72 static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,52,52,32,112,32,105,41,0};
73 static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,117,49,54,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0};
74 static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,53,55,32,112,32,105,41,0};
75 static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,115,49,54,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0};
76 static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,55,48,32,112,32,105,41,0};
77 static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,117,51,50,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0};
78 static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,56,51,32,112,32,105,41,0};
79 static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,115,51,50,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0};
80 static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,54,57,54,32,112,32,105,41,0};
81 static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,117,54,52,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0};
82 static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,55,48,57,32,112,32,105,41,0};
83 static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,115,54,52,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0};
84 static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,55,50,50,32,112,32,105,41,0};
85 static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,102,51,50,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0};
86 static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,55,51,53,32,112,32,105,41,0};
87 static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,28),40,115,114,102,105,45,52,35,108,105,115,116,45,62,102,54,52,118,101,99,116,111,114,32,108,115,116,41,0,0,0,0};
88 static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,22),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,32,46,32,120,115,41,0,0};
89 static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,22),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,32,46,32,120,115,41,0,0};
90 static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,32,46,32,120,115,41,0};
91 static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,32,46,32,120,115,41,0};
92 static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,32,46,32,120,115,41,0};
93 static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,32,46,32,120,115,41,0};
94 static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,32,46,32,120,115,41,0};
95 static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,32,46,32,120,115,41,0};
96 static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,32,46,32,120,115,41,0};
97 static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,23),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,32,46,32,120,115,41,0};
98 static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
99 static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,25),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0,0};
100 static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
101 static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,25),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0,0};
102 static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
103 static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0};
104 static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
105 static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0};
106 static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
107 static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0};
108 static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
109 static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0};
110 static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
111 static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0};
112 static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
113 static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0};
114 static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
115 static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0};
116 static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41};
117 static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0};
118 static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,20),40,115,114,102,105,45,52,35,117,56,118,101,99,116,111,114,63,32,120,41,0,0,0,0};
119 static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,20),40,115,114,102,105,45,52,35,115,56,118,101,99,116,111,114,63,32,120,41,0,0,0,0};
120 static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,117,49,54,118,101,99,116,111,114,63,32,120,41,0,0,0};
121 static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,115,49,54,118,101,99,116,111,114,63,32,120,41,0,0,0};
122 static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,117,51,50,118,101,99,116,111,114,63,32,120,41,0,0,0};
123 static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,115,51,50,118,101,99,116,111,114,63,32,120,41,0,0,0};
124 static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,117,54,52,118,101,99,116,111,114,63,32,120,41,0,0,0};
125 static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,115,54,52,118,101,99,116,111,114,63,32,120,41,0,0,0};
126 static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,102,51,50,118,101,99,116,111,114,63,32,120,41,0,0,0};
127 static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,21),40,115,114,102,105,45,52,35,102,54,52,118,101,99,116,111,114,63,32,120,41,0,0,0};
128 static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,10),40,102,95,51,54,50,49,32,118,41,0,0,0,0,0,0};
129 static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,112,97,99,107,45,99,111,112,121,32,116,97,103,32,108,111,99,41,0,0,0,0,0,0};
130 static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,12),40,102,95,51,54,51,57,32,115,116,114,41,0,0,0,0};
131 static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,26),40,115,114,102,105,45,52,35,117,110,112,97,99,107,32,116,97,103,32,115,122,32,108,111,99,41,0,0,0,0,0,0};
132 static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,12),40,102,95,51,54,54,57,32,115,116,114,41,0,0,0,0};
133 static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,117,110,112,97,99,107,45,99,111,112,121,32,116,97,103,32,115,122,32,108,111,99,41,0};
134 static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,16),40,102,53,50,56,56,32,118,56,55,52,53,50,56,55,41};
135 static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,16),40,102,53,50,56,49,32,118,56,55,52,53,50,56,48,41};
136 static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,16),40,102,53,50,55,52,32,118,56,55,52,53,50,55,51,41};
137 static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,16),40,102,53,50,54,55,32,118,56,55,52,53,50,54,54,41};
138 static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,16),40,102,53,50,54,48,32,118,56,55,52,53,50,53,57,41};
139 static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,16),40,102,53,50,53,51,32,118,56,55,52,53,50,53,50,41};
140 static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,16),40,102,53,50,52,54,32,118,56,55,52,53,50,52,53,41};
141 static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,16),40,102,53,50,51,57,32,118,56,55,52,53,50,51,56,41};
142 static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,16),40,102,53,50,51,50,32,118,56,55,52,53,50,51,49,41};
143 static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,16),40,102,53,50,50,53,32,118,56,55,52,53,50,50,52,41};
144 static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,8),40,103,57,54,49,32,99,41};
145 static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,32,112,111,114,116,41};
146 static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,117,115,101,114,45,112,114,105,110,116,45,104,111,111,107,32,120,32,114,101,97,100,97,98,108,101,32,112,111,114,116,41,0};
147 static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,38),40,115,114,102,105,45,52,35,115,117,98,110,118,101,99,116,111,114,32,118,32,116,32,101,115,32,102,114,111,109,32,116,111,32,108,111,99,41,0,0};
148 static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,30),40,115,114,102,105,45,52,35,115,117,98,117,56,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0,0};
149 static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,117,49,54,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0};
150 static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,117,51,50,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0};
151 static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,117,54,52,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0};
152 static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,30),40,115,114,102,105,45,52,35,115,117,98,115,56,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0,0};
153 static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,115,49,54,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0};
154 static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,115,51,50,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0};
155 static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,115,54,52,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0};
156 static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,102,51,50,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0};
157 static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,31),40,115,114,102,105,45,52,35,115,117,98,102,54,52,118,101,99,116,111,114,32,118,32,102,114,111,109,32,116,111,41,0};
158 static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,32),40,115,114,102,105,45,52,35,119,114,105,116,101,45,117,56,118,101,99,116,111,114,32,118,32,46,32,114,101,115,116,41};
159 static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,37),40,115,114,102,105,45,52,35,114,101,97,100,45,117,56,118,101,99,116,111,114,33,32,110,32,100,101,115,116,32,46,32,114,101,115,116,41,0,0,0};
160 static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,29),40,115,114,102,105,45,52,35,114,101,97,100,45,117,56,118,101,99,116,111,114,32,46,32,114,101,115,116,41,0,0,0};
161 static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,11),40,97,52,52,53,52,32,120,32,105,41,0,0,0,0,0};
162 static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,11),40,97,52,52,53,55,32,120,32,105,41,0,0,0,0,0};
163 static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,11),40,97,52,52,54,48,32,120,32,105,41,0,0,0,0,0};
164 static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,11),40,97,52,52,54,51,32,120,32,105,41,0,0,0,0,0};
165 static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,11),40,97,52,52,54,54,32,120,32,105,41,0,0,0,0,0};
166 static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,11),40,97,52,52,54,57,32,120,32,105,41,0,0,0,0,0};
167 static C_char C_TLS li142[] C_aligned={C_lihdr(0,0,11),40,97,52,52,55,50,32,120,32,105,41,0,0,0,0,0};
168 static C_char C_TLS li143[] C_aligned={C_lihdr(0,0,11),40,97,52,52,55,53,32,120,32,105,41,0,0,0,0,0};
169 static C_char C_TLS li144[] C_aligned={C_lihdr(0,0,11),40,97,52,52,55,56,32,120,32,105,41,0,0,0,0,0};
170 static C_char C_TLS li145[] C_aligned={C_lihdr(0,0,11),40,97,52,52,56,49,32,120,32,105,41,0,0,0,0,0};
171 static C_char C_TLS li146[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
172
173
174 #define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend
stub228(C_word C_buf,C_word C_a0)175 C_regparm static C_word C_fcall stub228(C_word C_buf,C_word C_a0){
176 C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
177 C_word bv=(C_word )(C_a0);
178 C_free((void *)C_block_item(bv, 1));
179 C_ret:
180 #undef return
181
182 return C_r;}
183
184 #define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend
stub222(C_word C_buf,C_word C_a0)185 C_regparm static C_word C_fcall stub222(C_word C_buf,C_word C_a0){
186 C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
187 size_t bytes=(size_t )(size_t)C_num_to_uint64(C_a0);
188 if (bytes > C_HEADER_SIZE_MASK) C_return(C_SCHEME_FALSE);
189 C_word *buf = (C_word *)C_malloc(bytes + sizeof(C_header));
190 if(buf == NULL) C_return(C_SCHEME_FALSE);
191 C_block_header_init(buf, C_make_header(C_BYTEVECTOR_TYPE, bytes));
192 C_return(buf);
193 C_ret:
194 #undef return
195
196 return C_r;}
197
198 C_noret_decl(f5225)
199 static void C_ccall f5225(C_word c,C_word *av) C_noret;
200 C_noret_decl(f5232)
201 static void C_ccall f5232(C_word c,C_word *av) C_noret;
202 C_noret_decl(f5239)
203 static void C_ccall f5239(C_word c,C_word *av) C_noret;
204 C_noret_decl(f5246)
205 static void C_ccall f5246(C_word c,C_word *av) C_noret;
206 C_noret_decl(f5253)
207 static void C_ccall f5253(C_word c,C_word *av) C_noret;
208 C_noret_decl(f5260)
209 static void C_ccall f5260(C_word c,C_word *av) C_noret;
210 C_noret_decl(f5267)
211 static void C_ccall f5267(C_word c,C_word *av) C_noret;
212 C_noret_decl(f5274)
213 static void C_ccall f5274(C_word c,C_word *av) C_noret;
214 C_noret_decl(f5281)
215 static void C_ccall f5281(C_word c,C_word *av) C_noret;
216 C_noret_decl(f5288)
217 static void C_ccall f5288(C_word c,C_word *av) C_noret;
218 C_noret_decl(f_1513)
219 static void C_ccall f_1513(C_word c,C_word *av) C_noret;
220 C_noret_decl(f_1516)
221 static void C_ccall f_1516(C_word c,C_word *av) C_noret;
222 C_noret_decl(f_1519)
223 static void C_ccall f_1519(C_word c,C_word *av) C_noret;
224 C_noret_decl(f_1521)
225 static void C_ccall f_1521(C_word c,C_word *av) C_noret;
226 C_noret_decl(f_1524)
227 static void C_ccall f_1524(C_word c,C_word *av) C_noret;
228 C_noret_decl(f_1527)
229 static void C_ccall f_1527(C_word c,C_word *av) C_noret;
230 C_noret_decl(f_1530)
231 static void C_ccall f_1530(C_word c,C_word *av) C_noret;
232 C_noret_decl(f_1533)
233 static void C_ccall f_1533(C_word c,C_word *av) C_noret;
234 C_noret_decl(f_1536)
235 static void C_ccall f_1536(C_word c,C_word *av) C_noret;
236 C_noret_decl(f_1539)
237 static void C_ccall f_1539(C_word c,C_word *av) C_noret;
238 C_noret_decl(f_1542)
239 static void C_ccall f_1542(C_word c,C_word *av) C_noret;
240 C_noret_decl(f_1545)
241 static void C_ccall f_1545(C_word c,C_word *av) C_noret;
242 C_noret_decl(f_1548)
243 static void C_ccall f_1548(C_word c,C_word *av) C_noret;
244 C_noret_decl(f_1551)
245 static void C_ccall f_1551(C_word c,C_word *av) C_noret;
246 C_noret_decl(f_1554)
247 static void C_ccall f_1554(C_word c,C_word *av) C_noret;
248 C_noret_decl(f_1557)
249 static void C_ccall f_1557(C_word c,C_word *av) C_noret;
250 C_noret_decl(f_1560)
251 static void C_ccall f_1560(C_word c,C_word *av) C_noret;
252 C_noret_decl(f_1563)
253 static void C_ccall f_1563(C_word c,C_word *av) C_noret;
254 C_noret_decl(f_1566)
255 static void C_ccall f_1566(C_word c,C_word *av) C_noret;
256 C_noret_decl(f_1569)
257 static void C_ccall f_1569(C_word c,C_word *av) C_noret;
258 C_noret_decl(f_1572)
259 static void C_ccall f_1572(C_word c,C_word *av) C_noret;
260 C_noret_decl(f_1575)
261 static void C_ccall f_1575(C_word c,C_word *av) C_noret;
262 C_noret_decl(f_1578)
263 static void C_ccall f_1578(C_word c,C_word *av) C_noret;
264 C_noret_decl(f_1583)
265 static void C_ccall f_1583(C_word c,C_word *av) C_noret;
266 C_noret_decl(f_1587)
267 static void C_ccall f_1587(C_word c,C_word *av) C_noret;
268 C_noret_decl(f_1591)
269 static void C_ccall f_1591(C_word c,C_word *av) C_noret;
270 C_noret_decl(f_1595)
271 static void C_ccall f_1595(C_word c,C_word *av) C_noret;
272 C_noret_decl(f_1599)
273 static void C_ccall f_1599(C_word c,C_word *av) C_noret;
274 C_noret_decl(f_1603)
275 static void C_ccall f_1603(C_word c,C_word *av) C_noret;
276 C_noret_decl(f_1607)
277 static void C_ccall f_1607(C_word c,C_word *av) C_noret;
278 C_noret_decl(f_1611)
279 static void C_ccall f_1611(C_word c,C_word *av) C_noret;
280 C_noret_decl(f_1615)
281 static void C_ccall f_1615(C_word c,C_word *av) C_noret;
282 C_noret_decl(f_1619)
283 static void C_ccall f_1619(C_word c,C_word *av) C_noret;
284 C_noret_decl(f_1627)
285 static void C_ccall f_1627(C_word c,C_word *av) C_noret;
286 C_noret_decl(f_1629)
287 static void C_fcall f_1629(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
288 C_noret_decl(f_1633)
289 static void C_ccall f_1633(C_word c,C_word *av) C_noret;
290 C_noret_decl(f_1636)
291 static void C_ccall f_1636(C_word c,C_word *av) C_noret;
292 C_noret_decl(f_1642)
293 static void C_ccall f_1642(C_word c,C_word *av) C_noret;
294 C_noret_decl(f_1657)
295 static void C_ccall f_1657(C_word c,C_word *av) C_noret;
296 C_noret_decl(f_1668)
297 static void C_ccall f_1668(C_word c,C_word *av) C_noret;
298 C_noret_decl(f_1675)
299 static void C_ccall f_1675(C_word c,C_word *av) C_noret;
300 C_noret_decl(f_1683)
301 static void C_ccall f_1683(C_word c,C_word *av) C_noret;
302 C_noret_decl(f_1708)
303 static void C_ccall f_1708(C_word c,C_word *av) C_noret;
304 C_noret_decl(f_1719)
305 static void C_ccall f_1719(C_word c,C_word *av) C_noret;
306 C_noret_decl(f_1738)
307 static void C_ccall f_1738(C_word c,C_word *av) C_noret;
308 C_noret_decl(f_1743)
309 static C_word C_fcall f_1743(C_word t0,C_word t1);
310 C_noret_decl(f_1761)
311 static void C_ccall f_1761(C_word c,C_word *av) C_noret;
312 C_noret_decl(f_1799)
313 static void C_ccall f_1799(C_word c,C_word *av) C_noret;
314 C_noret_decl(f_1824)
315 static void C_ccall f_1824(C_word c,C_word *av) C_noret;
316 C_noret_decl(f_1835)
317 static void C_ccall f_1835(C_word c,C_word *av) C_noret;
318 C_noret_decl(f_1854)
319 static void C_ccall f_1854(C_word c,C_word *av) C_noret;
320 C_noret_decl(f_1859)
321 static C_word C_fcall f_1859(C_word t0,C_word t1);
322 C_noret_decl(f_1877)
323 static void C_ccall f_1877(C_word c,C_word *av) C_noret;
324 C_noret_decl(f_1915)
325 static void C_ccall f_1915(C_word c,C_word *av) C_noret;
326 C_noret_decl(f_1940)
327 static void C_ccall f_1940(C_word c,C_word *av) C_noret;
328 C_noret_decl(f_1951)
329 static void C_ccall f_1951(C_word c,C_word *av) C_noret;
330 C_noret_decl(f_1970)
331 static void C_ccall f_1970(C_word c,C_word *av) C_noret;
332 C_noret_decl(f_1975)
333 static C_word C_fcall f_1975(C_word t0,C_word t1);
334 C_noret_decl(f_1993)
335 static void C_ccall f_1993(C_word c,C_word *av) C_noret;
336 C_noret_decl(f_2031)
337 static void C_ccall f_2031(C_word c,C_word *av) C_noret;
338 C_noret_decl(f_2056)
339 static void C_ccall f_2056(C_word c,C_word *av) C_noret;
340 C_noret_decl(f_2067)
341 static void C_ccall f_2067(C_word c,C_word *av) C_noret;
342 C_noret_decl(f_2096)
343 static void C_ccall f_2096(C_word c,C_word *av) C_noret;
344 C_noret_decl(f_2101)
345 static C_word C_fcall f_2101(C_word t0,C_word t1);
346 C_noret_decl(f_2119)
347 static void C_ccall f_2119(C_word c,C_word *av) C_noret;
348 C_noret_decl(f_2157)
349 static void C_ccall f_2157(C_word c,C_word *av) C_noret;
350 C_noret_decl(f_2182)
351 static void C_ccall f_2182(C_word c,C_word *av) C_noret;
352 C_noret_decl(f_2193)
353 static void C_ccall f_2193(C_word c,C_word *av) C_noret;
354 C_noret_decl(f_2212)
355 static void C_ccall f_2212(C_word c,C_word *av) C_noret;
356 C_noret_decl(f_2217)
357 static C_word C_fcall f_2217(C_word t0,C_word t1);
358 C_noret_decl(f_2235)
359 static void C_ccall f_2235(C_word c,C_word *av) C_noret;
360 C_noret_decl(f_2273)
361 static void C_ccall f_2273(C_word c,C_word *av) C_noret;
362 C_noret_decl(f_2298)
363 static void C_ccall f_2298(C_word c,C_word *av) C_noret;
364 C_noret_decl(f_2309)
365 static void C_ccall f_2309(C_word c,C_word *av) C_noret;
366 C_noret_decl(f_2328)
367 static void C_ccall f_2328(C_word c,C_word *av) C_noret;
368 C_noret_decl(f_2333)
369 static C_word C_fcall f_2333(C_word t0,C_word t1);
370 C_noret_decl(f_2351)
371 static void C_ccall f_2351(C_word c,C_word *av) C_noret;
372 C_noret_decl(f_2389)
373 static void C_ccall f_2389(C_word c,C_word *av) C_noret;
374 C_noret_decl(f_2414)
375 static void C_ccall f_2414(C_word c,C_word *av) C_noret;
376 C_noret_decl(f_2425)
377 static void C_ccall f_2425(C_word c,C_word *av) C_noret;
378 C_noret_decl(f_2454)
379 static void C_ccall f_2454(C_word c,C_word *av) C_noret;
380 C_noret_decl(f_2459)
381 static C_word C_fcall f_2459(C_word t0,C_word t1);
382 C_noret_decl(f_2477)
383 static void C_ccall f_2477(C_word c,C_word *av) C_noret;
384 C_noret_decl(f_2515)
385 static void C_ccall f_2515(C_word c,C_word *av) C_noret;
386 C_noret_decl(f_2540)
387 static void C_ccall f_2540(C_word c,C_word *av) C_noret;
388 C_noret_decl(f_2551)
389 static void C_ccall f_2551(C_word c,C_word *av) C_noret;
390 C_noret_decl(f_2580)
391 static void C_ccall f_2580(C_word c,C_word *av) C_noret;
392 C_noret_decl(f_2585)
393 static C_word C_fcall f_2585(C_word t0,C_word t1);
394 C_noret_decl(f_2603)
395 static void C_ccall f_2603(C_word c,C_word *av) C_noret;
396 C_noret_decl(f_2641)
397 static void C_ccall f_2641(C_word c,C_word *av) C_noret;
398 C_noret_decl(f_2666)
399 static void C_ccall f_2666(C_word c,C_word *av) C_noret;
400 C_noret_decl(f_2687)
401 static void C_ccall f_2687(C_word c,C_word *av) C_noret;
402 C_noret_decl(f_2690)
403 static void C_fcall f_2690(C_word t0,C_word t1) C_noret;
404 C_noret_decl(f_2695)
405 static C_word C_fcall f_2695(C_word t0,C_word t1);
406 C_noret_decl(f_2714)
407 static void C_ccall f_2714(C_word c,C_word *av) C_noret;
408 C_noret_decl(f_2752)
409 static void C_ccall f_2752(C_word c,C_word *av) C_noret;
410 C_noret_decl(f_2777)
411 static void C_ccall f_2777(C_word c,C_word *av) C_noret;
412 C_noret_decl(f_2798)
413 static void C_ccall f_2798(C_word c,C_word *av) C_noret;
414 C_noret_decl(f_2801)
415 static void C_fcall f_2801(C_word t0,C_word t1) C_noret;
416 C_noret_decl(f_2806)
417 static C_word C_fcall f_2806(C_word t0,C_word t1);
418 C_noret_decl(f_2825)
419 static void C_ccall f_2825(C_word c,C_word *av) C_noret;
420 C_noret_decl(f_2863)
421 static void C_ccall f_2863(C_word c,C_word *av) C_noret;
422 C_noret_decl(f_2870)
423 static void C_ccall f_2870(C_word c,C_word *av) C_noret;
424 C_noret_decl(f_2875)
425 static void C_fcall f_2875(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
426 C_noret_decl(f_2882)
427 static void C_ccall f_2882(C_word c,C_word *av) C_noret;
428 C_noret_decl(f_2899)
429 static void C_ccall f_2899(C_word c,C_word *av) C_noret;
430 C_noret_decl(f_2906)
431 static void C_ccall f_2906(C_word c,C_word *av) C_noret;
432 C_noret_decl(f_2911)
433 static void C_fcall f_2911(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
434 C_noret_decl(f_2918)
435 static void C_ccall f_2918(C_word c,C_word *av) C_noret;
436 C_noret_decl(f_2935)
437 static void C_ccall f_2935(C_word c,C_word *av) C_noret;
438 C_noret_decl(f_2942)
439 static void C_ccall f_2942(C_word c,C_word *av) C_noret;
440 C_noret_decl(f_2947)
441 static void C_fcall f_2947(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
442 C_noret_decl(f_2954)
443 static void C_ccall f_2954(C_word c,C_word *av) C_noret;
444 C_noret_decl(f_2971)
445 static void C_ccall f_2971(C_word c,C_word *av) C_noret;
446 C_noret_decl(f_2978)
447 static void C_ccall f_2978(C_word c,C_word *av) C_noret;
448 C_noret_decl(f_2983)
449 static void C_fcall f_2983(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
450 C_noret_decl(f_2990)
451 static void C_ccall f_2990(C_word c,C_word *av) C_noret;
452 C_noret_decl(f_3007)
453 static void C_ccall f_3007(C_word c,C_word *av) C_noret;
454 C_noret_decl(f_3014)
455 static void C_ccall f_3014(C_word c,C_word *av) C_noret;
456 C_noret_decl(f_3019)
457 static void C_fcall f_3019(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
458 C_noret_decl(f_3026)
459 static void C_ccall f_3026(C_word c,C_word *av) C_noret;
460 C_noret_decl(f_3043)
461 static void C_ccall f_3043(C_word c,C_word *av) C_noret;
462 C_noret_decl(f_3050)
463 static void C_ccall f_3050(C_word c,C_word *av) C_noret;
464 C_noret_decl(f_3055)
465 static void C_fcall f_3055(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
466 C_noret_decl(f_3062)
467 static void C_ccall f_3062(C_word c,C_word *av) C_noret;
468 C_noret_decl(f_3079)
469 static void C_ccall f_3079(C_word c,C_word *av) C_noret;
470 C_noret_decl(f_3086)
471 static void C_ccall f_3086(C_word c,C_word *av) C_noret;
472 C_noret_decl(f_3091)
473 static void C_fcall f_3091(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
474 C_noret_decl(f_3098)
475 static void C_ccall f_3098(C_word c,C_word *av) C_noret;
476 C_noret_decl(f_3115)
477 static void C_ccall f_3115(C_word c,C_word *av) C_noret;
478 C_noret_decl(f_3122)
479 static void C_ccall f_3122(C_word c,C_word *av) C_noret;
480 C_noret_decl(f_3127)
481 static void C_fcall f_3127(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
482 C_noret_decl(f_3134)
483 static void C_ccall f_3134(C_word c,C_word *av) C_noret;
484 C_noret_decl(f_3151)
485 static void C_ccall f_3151(C_word c,C_word *av) C_noret;
486 C_noret_decl(f_3158)
487 static void C_ccall f_3158(C_word c,C_word *av) C_noret;
488 C_noret_decl(f_3163)
489 static void C_fcall f_3163(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
490 C_noret_decl(f_3170)
491 static void C_ccall f_3170(C_word c,C_word *av) C_noret;
492 C_noret_decl(f_3187)
493 static void C_ccall f_3187(C_word c,C_word *av) C_noret;
494 C_noret_decl(f_3194)
495 static void C_ccall f_3194(C_word c,C_word *av) C_noret;
496 C_noret_decl(f_3199)
497 static void C_fcall f_3199(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
498 C_noret_decl(f_3206)
499 static void C_ccall f_3206(C_word c,C_word *av) C_noret;
500 C_noret_decl(f_3223)
501 static void C_ccall f_3223(C_word c,C_word *av) C_noret;
502 C_noret_decl(f_3229)
503 static void C_ccall f_3229(C_word c,C_word *av) C_noret;
504 C_noret_decl(f_3235)
505 static void C_ccall f_3235(C_word c,C_word *av) C_noret;
506 C_noret_decl(f_3241)
507 static void C_ccall f_3241(C_word c,C_word *av) C_noret;
508 C_noret_decl(f_3247)
509 static void C_ccall f_3247(C_word c,C_word *av) C_noret;
510 C_noret_decl(f_3253)
511 static void C_ccall f_3253(C_word c,C_word *av) C_noret;
512 C_noret_decl(f_3259)
513 static void C_ccall f_3259(C_word c,C_word *av) C_noret;
514 C_noret_decl(f_3265)
515 static void C_ccall f_3265(C_word c,C_word *av) C_noret;
516 C_noret_decl(f_3271)
517 static void C_ccall f_3271(C_word c,C_word *av) C_noret;
518 C_noret_decl(f_3277)
519 static void C_ccall f_3277(C_word c,C_word *av) C_noret;
520 C_noret_decl(f_3283)
521 static void C_ccall f_3283(C_word c,C_word *av) C_noret;
522 C_noret_decl(f_3292)
523 static void C_fcall f_3292(C_word t0,C_word t1,C_word t2) C_noret;
524 C_noret_decl(f_3307)
525 static void C_ccall f_3307(C_word c,C_word *av) C_noret;
526 C_noret_decl(f_3313)
527 static void C_ccall f_3313(C_word c,C_word *av) C_noret;
528 C_noret_decl(f_3322)
529 static void C_fcall f_3322(C_word t0,C_word t1,C_word t2) C_noret;
530 C_noret_decl(f_3337)
531 static void C_ccall f_3337(C_word c,C_word *av) C_noret;
532 C_noret_decl(f_3343)
533 static void C_ccall f_3343(C_word c,C_word *av) C_noret;
534 C_noret_decl(f_3352)
535 static void C_fcall f_3352(C_word t0,C_word t1,C_word t2) C_noret;
536 C_noret_decl(f_3367)
537 static void C_ccall f_3367(C_word c,C_word *av) C_noret;
538 C_noret_decl(f_3373)
539 static void C_ccall f_3373(C_word c,C_word *av) C_noret;
540 C_noret_decl(f_3382)
541 static void C_fcall f_3382(C_word t0,C_word t1,C_word t2) C_noret;
542 C_noret_decl(f_3397)
543 static void C_ccall f_3397(C_word c,C_word *av) C_noret;
544 C_noret_decl(f_3403)
545 static void C_ccall f_3403(C_word c,C_word *av) C_noret;
546 C_noret_decl(f_3412)
547 static void C_fcall f_3412(C_word t0,C_word t1,C_word t2) C_noret;
548 C_noret_decl(f_3426)
549 static void C_ccall f_3426(C_word c,C_word *av) C_noret;
550 C_noret_decl(f_3432)
551 static void C_ccall f_3432(C_word c,C_word *av) C_noret;
552 C_noret_decl(f_3441)
553 static void C_fcall f_3441(C_word t0,C_word t1,C_word t2) C_noret;
554 C_noret_decl(f_3455)
555 static void C_ccall f_3455(C_word c,C_word *av) C_noret;
556 C_noret_decl(f_3461)
557 static void C_ccall f_3461(C_word c,C_word *av) C_noret;
558 C_noret_decl(f_3470)
559 static void C_fcall f_3470(C_word t0,C_word t1,C_word t2) C_noret;
560 C_noret_decl(f_3484)
561 static void C_ccall f_3484(C_word c,C_word *av) C_noret;
562 C_noret_decl(f_3490)
563 static void C_ccall f_3490(C_word c,C_word *av) C_noret;
564 C_noret_decl(f_3499)
565 static void C_fcall f_3499(C_word t0,C_word t1,C_word t2) C_noret;
566 C_noret_decl(f_3513)
567 static void C_ccall f_3513(C_word c,C_word *av) C_noret;
568 C_noret_decl(f_3519)
569 static void C_ccall f_3519(C_word c,C_word *av) C_noret;
570 C_noret_decl(f_3528)
571 static void C_fcall f_3528(C_word t0,C_word t1,C_word t2) C_noret;
572 C_noret_decl(f_3542)
573 static void C_ccall f_3542(C_word c,C_word *av) C_noret;
574 C_noret_decl(f_3548)
575 static void C_ccall f_3548(C_word c,C_word *av) C_noret;
576 C_noret_decl(f_3557)
577 static void C_fcall f_3557(C_word t0,C_word t1,C_word t2) C_noret;
578 C_noret_decl(f_3571)
579 static void C_ccall f_3571(C_word c,C_word *av) C_noret;
580 C_noret_decl(f_3577)
581 static void C_ccall f_3577(C_word c,C_word *av) C_noret;
582 C_noret_decl(f_3580)
583 static void C_ccall f_3580(C_word c,C_word *av) C_noret;
584 C_noret_decl(f_3583)
585 static void C_ccall f_3583(C_word c,C_word *av) C_noret;
586 C_noret_decl(f_3586)
587 static void C_ccall f_3586(C_word c,C_word *av) C_noret;
588 C_noret_decl(f_3589)
589 static void C_ccall f_3589(C_word c,C_word *av) C_noret;
590 C_noret_decl(f_3592)
591 static void C_ccall f_3592(C_word c,C_word *av) C_noret;
592 C_noret_decl(f_3595)
593 static void C_ccall f_3595(C_word c,C_word *av) C_noret;
594 C_noret_decl(f_3598)
595 static void C_ccall f_3598(C_word c,C_word *av) C_noret;
596 C_noret_decl(f_3601)
597 static void C_ccall f_3601(C_word c,C_word *av) C_noret;
598 C_noret_decl(f_3604)
599 static void C_ccall f_3604(C_word c,C_word *av) C_noret;
600 C_noret_decl(f_3619)
601 static void C_fcall f_3619(C_word t0,C_word t1,C_word t2) C_noret;
602 C_noret_decl(f_3621)
603 static void C_ccall f_3621(C_word c,C_word *av) C_noret;
604 C_noret_decl(f_3631)
605 static void C_ccall f_3631(C_word c,C_word *av) C_noret;
606 C_noret_decl(f_3637)
607 static void C_fcall f_3637(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
608 C_noret_decl(f_3639)
609 static void C_ccall f_3639(C_word c,C_word *av) C_noret;
610 C_noret_decl(f_3667)
611 static void C_fcall f_3667(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
612 C_noret_decl(f_3669)
613 static void C_ccall f_3669(C_word c,C_word *av) C_noret;
614 C_noret_decl(f_3679)
615 static void C_ccall f_3679(C_word c,C_word *av) C_noret;
616 C_noret_decl(f_3743)
617 static void C_ccall f_3743(C_word c,C_word *av) C_noret;
618 C_noret_decl(f_3747)
619 static void C_ccall f_3747(C_word c,C_word *av) C_noret;
620 C_noret_decl(f_3751)
621 static void C_ccall f_3751(C_word c,C_word *av) C_noret;
622 C_noret_decl(f_3755)
623 static void C_ccall f_3755(C_word c,C_word *av) C_noret;
624 C_noret_decl(f_3759)
625 static void C_ccall f_3759(C_word c,C_word *av) C_noret;
626 C_noret_decl(f_3763)
627 static void C_ccall f_3763(C_word c,C_word *av) C_noret;
628 C_noret_decl(f_3767)
629 static void C_ccall f_3767(C_word c,C_word *av) C_noret;
630 C_noret_decl(f_3771)
631 static void C_ccall f_3771(C_word c,C_word *av) C_noret;
632 C_noret_decl(f_3775)
633 static void C_ccall f_3775(C_word c,C_word *av) C_noret;
634 C_noret_decl(f_3779)
635 static void C_ccall f_3779(C_word c,C_word *av) C_noret;
636 C_noret_decl(f_3783)
637 static void C_ccall f_3783(C_word c,C_word *av) C_noret;
638 C_noret_decl(f_3787)
639 static void C_ccall f_3787(C_word c,C_word *av) C_noret;
640 C_noret_decl(f_3791)
641 static void C_ccall f_3791(C_word c,C_word *av) C_noret;
642 C_noret_decl(f_3795)
643 static void C_ccall f_3795(C_word c,C_word *av) C_noret;
644 C_noret_decl(f_3799)
645 static void C_ccall f_3799(C_word c,C_word *av) C_noret;
646 C_noret_decl(f_3803)
647 static void C_ccall f_3803(C_word c,C_word *av) C_noret;
648 C_noret_decl(f_3807)
649 static void C_ccall f_3807(C_word c,C_word *av) C_noret;
650 C_noret_decl(f_3811)
651 static void C_ccall f_3811(C_word c,C_word *av) C_noret;
652 C_noret_decl(f_3815)
653 static void C_ccall f_3815(C_word c,C_word *av) C_noret;
654 C_noret_decl(f_3819)
655 static void C_ccall f_3819(C_word c,C_word *av) C_noret;
656 C_noret_decl(f_3823)
657 static void C_ccall f_3823(C_word c,C_word *av) C_noret;
658 C_noret_decl(f_3827)
659 static void C_ccall f_3827(C_word c,C_word *av) C_noret;
660 C_noret_decl(f_3831)
661 static void C_ccall f_3831(C_word c,C_word *av) C_noret;
662 C_noret_decl(f_3835)
663 static void C_ccall f_3835(C_word c,C_word *av) C_noret;
664 C_noret_decl(f_3839)
665 static void C_ccall f_3839(C_word c,C_word *av) C_noret;
666 C_noret_decl(f_3843)
667 static void C_ccall f_3843(C_word c,C_word *av) C_noret;
668 C_noret_decl(f_3847)
669 static void C_ccall f_3847(C_word c,C_word *av) C_noret;
670 C_noret_decl(f_3851)
671 static void C_ccall f_3851(C_word c,C_word *av) C_noret;
672 C_noret_decl(f_3855)
673 static void C_ccall f_3855(C_word c,C_word *av) C_noret;
674 C_noret_decl(f_3859)
675 static void C_ccall f_3859(C_word c,C_word *av) C_noret;
676 C_noret_decl(f_3864)
677 static void C_ccall f_3864(C_word c,C_word *av) C_noret;
678 C_noret_decl(f_3873)
679 static void C_ccall f_3873(C_word c,C_word *av) C_noret;
680 C_noret_decl(f_3892)
681 static void C_fcall f_3892(C_word t0,C_word t1,C_word t2) C_noret;
682 C_noret_decl(f_3903)
683 static void C_ccall f_3903(C_word c,C_word *av) C_noret;
684 C_noret_decl(f_3924)
685 static void C_ccall f_3924(C_word c,C_word *av) C_noret;
686 C_noret_decl(f_3936)
687 static void C_ccall f_3936(C_word c,C_word *av) C_noret;
688 C_noret_decl(f_3939)
689 static void C_ccall f_3939(C_word c,C_word *av) C_noret;
690 C_noret_decl(f_3949)
691 static void C_ccall f_3949(C_word c,C_word *av) C_noret;
692 C_noret_decl(f_3998)
693 static void C_fcall f_3998(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
694 C_noret_decl(f_4013)
695 static void C_ccall f_4013(C_word c,C_word *av) C_noret;
696 C_noret_decl(f_4032)
697 static void C_ccall f_4032(C_word c,C_word *av) C_noret;
698 C_noret_decl(f_4037)
699 static void C_ccall f_4037(C_word c,C_word *av) C_noret;
700 C_noret_decl(f_4056)
701 static void C_ccall f_4056(C_word c,C_word *av) C_noret;
702 C_noret_decl(f_4062)
703 static void C_ccall f_4062(C_word c,C_word *av) C_noret;
704 C_noret_decl(f_4083)
705 static void C_ccall f_4083(C_word c,C_word *av) C_noret;
706 C_noret_decl(f_4089)
707 static void C_ccall f_4089(C_word c,C_word *av) C_noret;
708 C_noret_decl(f_4095)
709 static void C_ccall f_4095(C_word c,C_word *av) C_noret;
710 C_noret_decl(f_4101)
711 static void C_ccall f_4101(C_word c,C_word *av) C_noret;
712 C_noret_decl(f_4107)
713 static void C_ccall f_4107(C_word c,C_word *av) C_noret;
714 C_noret_decl(f_4113)
715 static void C_ccall f_4113(C_word c,C_word *av) C_noret;
716 C_noret_decl(f_4119)
717 static void C_ccall f_4119(C_word c,C_word *av) C_noret;
718 C_noret_decl(f_4125)
719 static void C_ccall f_4125(C_word c,C_word *av) C_noret;
720 C_noret_decl(f_4131)
721 static void C_ccall f_4131(C_word c,C_word *av) C_noret;
722 C_noret_decl(f_4137)
723 static void C_ccall f_4137(C_word c,C_word *av) C_noret;
724 C_noret_decl(f_4143)
725 static void C_ccall f_4143(C_word c,C_word *av) C_noret;
726 C_noret_decl(f_4173)
727 static void C_ccall f_4173(C_word c,C_word *av) C_noret;
728 C_noret_decl(f_4192)
729 static void C_ccall f_4192(C_word c,C_word *av) C_noret;
730 C_noret_decl(f_4195)
731 static void C_ccall f_4195(C_word c,C_word *av) C_noret;
732 C_noret_decl(f_4208)
733 static void C_fcall f_4208(C_word t0,C_word t1) C_noret;
734 C_noret_decl(f_4218)
735 static void C_ccall f_4218(C_word c,C_word *av) C_noret;
736 C_noret_decl(f_4243)
737 static void C_ccall f_4243(C_word c,C_word *av) C_noret;
738 C_noret_decl(f_4312)
739 static void C_ccall f_4312(C_word c,C_word *av) C_noret;
740 C_noret_decl(f_4331)
741 static void C_ccall f_4331(C_word c,C_word *av) C_noret;
742 C_noret_decl(f_4337)
743 static void C_ccall f_4337(C_word c,C_word *av) C_noret;
744 C_noret_decl(f_4392)
745 static void C_ccall f_4392(C_word c,C_word *av) C_noret;
746 C_noret_decl(f_4411)
747 static void C_ccall f_4411(C_word c,C_word *av) C_noret;
748 C_noret_decl(f_4414)
749 static void C_ccall f_4414(C_word c,C_word *av) C_noret;
750 C_noret_decl(f_4453)
751 static void C_ccall f_4453(C_word c,C_word *av) C_noret;
752 C_noret_decl(f_4455)
753 static void C_ccall f_4455(C_word c,C_word *av) C_noret;
754 C_noret_decl(f_4458)
755 static void C_ccall f_4458(C_word c,C_word *av) C_noret;
756 C_noret_decl(f_4461)
757 static void C_ccall f_4461(C_word c,C_word *av) C_noret;
758 C_noret_decl(f_4464)
759 static void C_ccall f_4464(C_word c,C_word *av) C_noret;
760 C_noret_decl(f_4467)
761 static void C_ccall f_4467(C_word c,C_word *av) C_noret;
762 C_noret_decl(f_4470)
763 static void C_ccall f_4470(C_word c,C_word *av) C_noret;
764 C_noret_decl(f_4473)
765 static void C_ccall f_4473(C_word c,C_word *av) C_noret;
766 C_noret_decl(f_4476)
767 static void C_ccall f_4476(C_word c,C_word *av) C_noret;
768 C_noret_decl(f_4479)
769 static void C_ccall f_4479(C_word c,C_word *av) C_noret;
770 C_noret_decl(f_4482)
771 static void C_ccall f_4482(C_word c,C_word *av) C_noret;
772 C_noret_decl(C_srfi_2d4_toplevel)
773 C_externexport void C_ccall C_srfi_2d4_toplevel(C_word c,C_word *av) C_noret;
774
775 C_noret_decl(trf_1629)
776 static void C_ccall trf_1629(C_word c,C_word *av) C_noret;
trf_1629(C_word c,C_word * av)777 static void C_ccall trf_1629(C_word c,C_word *av){
778 C_word t0=av[4];
779 C_word t1=av[3];
780 C_word t2=av[2];
781 C_word t3=av[1];
782 C_word t4=av[0];
783 f_1629(t0,t1,t2,t3,t4);}
784
785 C_noret_decl(trf_2690)
786 static void C_ccall trf_2690(C_word c,C_word *av) C_noret;
trf_2690(C_word c,C_word * av)787 static void C_ccall trf_2690(C_word c,C_word *av){
788 C_word t0=av[1];
789 C_word t1=av[0];
790 f_2690(t0,t1);}
791
792 C_noret_decl(trf_2801)
793 static void C_ccall trf_2801(C_word c,C_word *av) C_noret;
trf_2801(C_word c,C_word * av)794 static void C_ccall trf_2801(C_word c,C_word *av){
795 C_word t0=av[1];
796 C_word t1=av[0];
797 f_2801(t0,t1);}
798
799 C_noret_decl(trf_2875)
800 static void C_ccall trf_2875(C_word c,C_word *av) C_noret;
trf_2875(C_word c,C_word * av)801 static void C_ccall trf_2875(C_word c,C_word *av){
802 C_word t0=av[3];
803 C_word t1=av[2];
804 C_word t2=av[1];
805 C_word t3=av[0];
806 f_2875(t0,t1,t2,t3);}
807
808 C_noret_decl(trf_2911)
809 static void C_ccall trf_2911(C_word c,C_word *av) C_noret;
trf_2911(C_word c,C_word * av)810 static void C_ccall trf_2911(C_word c,C_word *av){
811 C_word t0=av[3];
812 C_word t1=av[2];
813 C_word t2=av[1];
814 C_word t3=av[0];
815 f_2911(t0,t1,t2,t3);}
816
817 C_noret_decl(trf_2947)
818 static void C_ccall trf_2947(C_word c,C_word *av) C_noret;
trf_2947(C_word c,C_word * av)819 static void C_ccall trf_2947(C_word c,C_word *av){
820 C_word t0=av[3];
821 C_word t1=av[2];
822 C_word t2=av[1];
823 C_word t3=av[0];
824 f_2947(t0,t1,t2,t3);}
825
826 C_noret_decl(trf_2983)
827 static void C_ccall trf_2983(C_word c,C_word *av) C_noret;
trf_2983(C_word c,C_word * av)828 static void C_ccall trf_2983(C_word c,C_word *av){
829 C_word t0=av[3];
830 C_word t1=av[2];
831 C_word t2=av[1];
832 C_word t3=av[0];
833 f_2983(t0,t1,t2,t3);}
834
835 C_noret_decl(trf_3019)
836 static void C_ccall trf_3019(C_word c,C_word *av) C_noret;
trf_3019(C_word c,C_word * av)837 static void C_ccall trf_3019(C_word c,C_word *av){
838 C_word t0=av[3];
839 C_word t1=av[2];
840 C_word t2=av[1];
841 C_word t3=av[0];
842 f_3019(t0,t1,t2,t3);}
843
844 C_noret_decl(trf_3055)
845 static void C_ccall trf_3055(C_word c,C_word *av) C_noret;
trf_3055(C_word c,C_word * av)846 static void C_ccall trf_3055(C_word c,C_word *av){
847 C_word t0=av[3];
848 C_word t1=av[2];
849 C_word t2=av[1];
850 C_word t3=av[0];
851 f_3055(t0,t1,t2,t3);}
852
853 C_noret_decl(trf_3091)
854 static void C_ccall trf_3091(C_word c,C_word *av) C_noret;
trf_3091(C_word c,C_word * av)855 static void C_ccall trf_3091(C_word c,C_word *av){
856 C_word t0=av[3];
857 C_word t1=av[2];
858 C_word t2=av[1];
859 C_word t3=av[0];
860 f_3091(t0,t1,t2,t3);}
861
862 C_noret_decl(trf_3127)
863 static void C_ccall trf_3127(C_word c,C_word *av) C_noret;
trf_3127(C_word c,C_word * av)864 static void C_ccall trf_3127(C_word c,C_word *av){
865 C_word t0=av[3];
866 C_word t1=av[2];
867 C_word t2=av[1];
868 C_word t3=av[0];
869 f_3127(t0,t1,t2,t3);}
870
871 C_noret_decl(trf_3163)
872 static void C_ccall trf_3163(C_word c,C_word *av) C_noret;
trf_3163(C_word c,C_word * av)873 static void C_ccall trf_3163(C_word c,C_word *av){
874 C_word t0=av[3];
875 C_word t1=av[2];
876 C_word t2=av[1];
877 C_word t3=av[0];
878 f_3163(t0,t1,t2,t3);}
879
880 C_noret_decl(trf_3199)
881 static void C_ccall trf_3199(C_word c,C_word *av) C_noret;
trf_3199(C_word c,C_word * av)882 static void C_ccall trf_3199(C_word c,C_word *av){
883 C_word t0=av[3];
884 C_word t1=av[2];
885 C_word t2=av[1];
886 C_word t3=av[0];
887 f_3199(t0,t1,t2,t3);}
888
889 C_noret_decl(trf_3292)
890 static void C_ccall trf_3292(C_word c,C_word *av) C_noret;
trf_3292(C_word c,C_word * av)891 static void C_ccall trf_3292(C_word c,C_word *av){
892 C_word t0=av[2];
893 C_word t1=av[1];
894 C_word t2=av[0];
895 f_3292(t0,t1,t2);}
896
897 C_noret_decl(trf_3322)
898 static void C_ccall trf_3322(C_word c,C_word *av) C_noret;
trf_3322(C_word c,C_word * av)899 static void C_ccall trf_3322(C_word c,C_word *av){
900 C_word t0=av[2];
901 C_word t1=av[1];
902 C_word t2=av[0];
903 f_3322(t0,t1,t2);}
904
905 C_noret_decl(trf_3352)
906 static void C_ccall trf_3352(C_word c,C_word *av) C_noret;
trf_3352(C_word c,C_word * av)907 static void C_ccall trf_3352(C_word c,C_word *av){
908 C_word t0=av[2];
909 C_word t1=av[1];
910 C_word t2=av[0];
911 f_3352(t0,t1,t2);}
912
913 C_noret_decl(trf_3382)
914 static void C_ccall trf_3382(C_word c,C_word *av) C_noret;
trf_3382(C_word c,C_word * av)915 static void C_ccall trf_3382(C_word c,C_word *av){
916 C_word t0=av[2];
917 C_word t1=av[1];
918 C_word t2=av[0];
919 f_3382(t0,t1,t2);}
920
921 C_noret_decl(trf_3412)
922 static void C_ccall trf_3412(C_word c,C_word *av) C_noret;
trf_3412(C_word c,C_word * av)923 static void C_ccall trf_3412(C_word c,C_word *av){
924 C_word t0=av[2];
925 C_word t1=av[1];
926 C_word t2=av[0];
927 f_3412(t0,t1,t2);}
928
929 C_noret_decl(trf_3441)
930 static void C_ccall trf_3441(C_word c,C_word *av) C_noret;
trf_3441(C_word c,C_word * av)931 static void C_ccall trf_3441(C_word c,C_word *av){
932 C_word t0=av[2];
933 C_word t1=av[1];
934 C_word t2=av[0];
935 f_3441(t0,t1,t2);}
936
937 C_noret_decl(trf_3470)
938 static void C_ccall trf_3470(C_word c,C_word *av) C_noret;
trf_3470(C_word c,C_word * av)939 static void C_ccall trf_3470(C_word c,C_word *av){
940 C_word t0=av[2];
941 C_word t1=av[1];
942 C_word t2=av[0];
943 f_3470(t0,t1,t2);}
944
945 C_noret_decl(trf_3499)
946 static void C_ccall trf_3499(C_word c,C_word *av) C_noret;
trf_3499(C_word c,C_word * av)947 static void C_ccall trf_3499(C_word c,C_word *av){
948 C_word t0=av[2];
949 C_word t1=av[1];
950 C_word t2=av[0];
951 f_3499(t0,t1,t2);}
952
953 C_noret_decl(trf_3528)
954 static void C_ccall trf_3528(C_word c,C_word *av) C_noret;
trf_3528(C_word c,C_word * av)955 static void C_ccall trf_3528(C_word c,C_word *av){
956 C_word t0=av[2];
957 C_word t1=av[1];
958 C_word t2=av[0];
959 f_3528(t0,t1,t2);}
960
961 C_noret_decl(trf_3557)
962 static void C_ccall trf_3557(C_word c,C_word *av) C_noret;
trf_3557(C_word c,C_word * av)963 static void C_ccall trf_3557(C_word c,C_word *av){
964 C_word t0=av[2];
965 C_word t1=av[1];
966 C_word t2=av[0];
967 f_3557(t0,t1,t2);}
968
969 C_noret_decl(trf_3619)
970 static void C_ccall trf_3619(C_word c,C_word *av) C_noret;
trf_3619(C_word c,C_word * av)971 static void C_ccall trf_3619(C_word c,C_word *av){
972 C_word t0=av[2];
973 C_word t1=av[1];
974 C_word t2=av[0];
975 f_3619(t0,t1,t2);}
976
977 C_noret_decl(trf_3637)
978 static void C_ccall trf_3637(C_word c,C_word *av) C_noret;
trf_3637(C_word c,C_word * av)979 static void C_ccall trf_3637(C_word c,C_word *av){
980 C_word t0=av[3];
981 C_word t1=av[2];
982 C_word t2=av[1];
983 C_word t3=av[0];
984 f_3637(t0,t1,t2,t3);}
985
986 C_noret_decl(trf_3667)
987 static void C_ccall trf_3667(C_word c,C_word *av) C_noret;
trf_3667(C_word c,C_word * av)988 static void C_ccall trf_3667(C_word c,C_word *av){
989 C_word t0=av[3];
990 C_word t1=av[2];
991 C_word t2=av[1];
992 C_word t3=av[0];
993 f_3667(t0,t1,t2,t3);}
994
995 C_noret_decl(trf_3892)
996 static void C_ccall trf_3892(C_word c,C_word *av) C_noret;
trf_3892(C_word c,C_word * av)997 static void C_ccall trf_3892(C_word c,C_word *av){
998 C_word t0=av[2];
999 C_word t1=av[1];
1000 C_word t2=av[0];
1001 f_3892(t0,t1,t2);}
1002
1003 C_noret_decl(trf_3998)
1004 static void C_ccall trf_3998(C_word c,C_word *av) C_noret;
trf_3998(C_word c,C_word * av)1005 static void C_ccall trf_3998(C_word c,C_word *av){
1006 C_word t0=av[6];
1007 C_word t1=av[5];
1008 C_word t2=av[4];
1009 C_word t3=av[3];
1010 C_word t4=av[2];
1011 C_word t5=av[1];
1012 C_word t6=av[0];
1013 f_3998(t0,t1,t2,t3,t4,t5,t6);}
1014
1015 C_noret_decl(trf_4208)
1016 static void C_ccall trf_4208(C_word c,C_word *av) C_noret;
trf_4208(C_word c,C_word * av)1017 static void C_ccall trf_4208(C_word c,C_word *av){
1018 C_word t0=av[1];
1019 C_word t1=av[0];
1020 f_4208(t0,t1);}
1021
1022 /* f5225 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5225(C_word c,C_word * av)1023 static void C_ccall f5225(C_word c,C_word *av){
1024 C_word tmp;
1025 C_word t0=av[0];
1026 C_word t1=av[1];
1027 C_word t2=av[2];
1028 C_word t3;
1029 C_word t4;
1030 C_word *a;
1031 if(c!=3) C_bad_argc_2(c,3,t0);
1032 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1033 C_save_and_reclaim((void *)f5225,c,av);}
1034 t3=C_i_check_structure_2(t2,lf[76],lf[154]);
1035 t4=t1;{
1036 C_word *av2=av;
1037 av2[0]=t4;
1038 av2[1]=C_slot(t2,C_fix(1));
1039 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1040
1041 /* f5232 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5232(C_word c,C_word * av)1042 static void C_ccall f5232(C_word c,C_word *av){
1043 C_word tmp;
1044 C_word t0=av[0];
1045 C_word t1=av[1];
1046 C_word t2=av[2];
1047 C_word t3;
1048 C_word t4;
1049 C_word *a;
1050 if(c!=3) C_bad_argc_2(c,3,t0);
1051 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1052 C_save_and_reclaim((void *)f5232,c,av);}
1053 t3=C_i_check_structure_2(t2,lf[73],lf[152]);
1054 t4=t1;{
1055 C_word *av2=av;
1056 av2[0]=t4;
1057 av2[1]=C_slot(t2,C_fix(1));
1058 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1059
1060 /* f5239 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5239(C_word c,C_word * av)1061 static void C_ccall f5239(C_word c,C_word *av){
1062 C_word tmp;
1063 C_word t0=av[0];
1064 C_word t1=av[1];
1065 C_word t2=av[2];
1066 C_word t3;
1067 C_word t4;
1068 C_word *a;
1069 if(c!=3) C_bad_argc_2(c,3,t0);
1070 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1071 C_save_and_reclaim((void *)f5239,c,av);}
1072 t3=C_i_check_structure_2(t2,lf[70],lf[150]);
1073 t4=t1;{
1074 C_word *av2=av;
1075 av2[0]=t4;
1076 av2[1]=C_slot(t2,C_fix(1));
1077 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1078
1079 /* f5246 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5246(C_word c,C_word * av)1080 static void C_ccall f5246(C_word c,C_word *av){
1081 C_word tmp;
1082 C_word t0=av[0];
1083 C_word t1=av[1];
1084 C_word t2=av[2];
1085 C_word t3;
1086 C_word t4;
1087 C_word *a;
1088 if(c!=3) C_bad_argc_2(c,3,t0);
1089 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1090 C_save_and_reclaim((void *)f5246,c,av);}
1091 t3=C_i_check_structure_2(t2,lf[63],lf[148]);
1092 t4=t1;{
1093 C_word *av2=av;
1094 av2[0]=t4;
1095 av2[1]=C_slot(t2,C_fix(1));
1096 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1097
1098 /* f5253 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5253(C_word c,C_word * av)1099 static void C_ccall f5253(C_word c,C_word *av){
1100 C_word tmp;
1101 C_word t0=av[0];
1102 C_word t1=av[1];
1103 C_word t2=av[2];
1104 C_word t3;
1105 C_word t4;
1106 C_word *a;
1107 if(c!=3) C_bad_argc_2(c,3,t0);
1108 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1109 C_save_and_reclaim((void *)f5253,c,av);}
1110 t3=C_i_check_structure_2(t2,lf[67],lf[146]);
1111 t4=t1;{
1112 C_word *av2=av;
1113 av2[0]=t4;
1114 av2[1]=C_slot(t2,C_fix(1));
1115 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1116
1117 /* f5260 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5260(C_word c,C_word * av)1118 static void C_ccall f5260(C_word c,C_word *av){
1119 C_word tmp;
1120 C_word t0=av[0];
1121 C_word t1=av[1];
1122 C_word t2=av[2];
1123 C_word t3;
1124 C_word t4;
1125 C_word *a;
1126 if(c!=3) C_bad_argc_2(c,3,t0);
1127 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1128 C_save_and_reclaim((void *)f5260,c,av);}
1129 t3=C_i_check_structure_2(t2,lf[59],lf[144]);
1130 t4=t1;{
1131 C_word *av2=av;
1132 av2[0]=t4;
1133 av2[1]=C_slot(t2,C_fix(1));
1134 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1135
1136 /* f5267 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5267(C_word c,C_word * av)1137 static void C_ccall f5267(C_word c,C_word *av){
1138 C_word tmp;
1139 C_word t0=av[0];
1140 C_word t1=av[1];
1141 C_word t2=av[2];
1142 C_word t3;
1143 C_word t4;
1144 C_word *a;
1145 if(c!=3) C_bad_argc_2(c,3,t0);
1146 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1147 C_save_and_reclaim((void *)f5267,c,av);}
1148 t3=C_i_check_structure_2(t2,lf[55],lf[142]);
1149 t4=t1;{
1150 C_word *av2=av;
1151 av2[0]=t4;
1152 av2[1]=C_slot(t2,C_fix(1));
1153 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1154
1155 /* f5274 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5274(C_word c,C_word * av)1156 static void C_ccall f5274(C_word c,C_word *av){
1157 C_word tmp;
1158 C_word t0=av[0];
1159 C_word t1=av[1];
1160 C_word t2=av[2];
1161 C_word t3;
1162 C_word t4;
1163 C_word *a;
1164 if(c!=3) C_bad_argc_2(c,3,t0);
1165 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1166 C_save_and_reclaim((void *)f5274,c,av);}
1167 t3=C_i_check_structure_2(t2,lf[52],lf[140]);
1168 t4=t1;{
1169 C_word *av2=av;
1170 av2[0]=t4;
1171 av2[1]=C_slot(t2,C_fix(1));
1172 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1173
1174 /* f5281 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5281(C_word c,C_word * av)1175 static void C_ccall f5281(C_word c,C_word *av){
1176 C_word tmp;
1177 C_word t0=av[0];
1178 C_word t1=av[1];
1179 C_word t2=av[2];
1180 C_word t3;
1181 C_word t4;
1182 C_word *a;
1183 if(c!=3) C_bad_argc_2(c,3,t0);
1184 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1185 C_save_and_reclaim((void *)f5281,c,av);}
1186 t3=C_i_check_structure_2(t2,lf[49],lf[138]);
1187 t4=t1;{
1188 C_word *av2=av;
1189 av2[0]=t4;
1190 av2[1]=C_slot(t2,C_fix(1));
1191 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1192
1193 /* f5288 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f5288(C_word c,C_word * av)1194 static void C_ccall f5288(C_word c,C_word *av){
1195 C_word tmp;
1196 C_word t0=av[0];
1197 C_word t1=av[1];
1198 C_word t2=av[2];
1199 C_word t3;
1200 C_word t4;
1201 C_word *a;
1202 if(c!=3) C_bad_argc_2(c,3,t0);
1203 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1204 C_save_and_reclaim((void *)f5288,c,av);}
1205 t3=C_i_check_structure_2(t2,lf[43],lf[136]);
1206 t4=t1;{
1207 C_word *av2=av;
1208 av2[0]=t4;
1209 av2[1]=C_slot(t2,C_fix(1));
1210 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
1211
1212 /* k1511 */
f_1513(C_word c,C_word * av)1213 static void C_ccall f_1513(C_word c,C_word *av){
1214 C_word tmp;
1215 C_word t0=av[0];
1216 C_word t1=av[1];
1217 C_word t2;
1218 C_word t3;
1219 C_word *a;
1220 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
1221 C_save_and_reclaim((void *)f_1513,c,av);}
1222 a=C_alloc(3);
1223 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1516,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
1224 C_word *av2=av;
1225 av2[0]=C_SCHEME_UNDEFINED;
1226 av2[1]=t2;
1227 C_extras_toplevel(2,av2);}}
1228
1229 /* k1514 in k1511 */
f_1516(C_word c,C_word * av)1230 static void C_ccall f_1516(C_word c,C_word *av){
1231 C_word tmp;
1232 C_word t0=av[0];
1233 C_word t1=av[1];
1234 C_word t2;
1235 C_word t3;
1236 C_word t4;
1237 C_word t5;
1238 C_word *a;
1239 if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
1240 C_save_and_reclaim((void *)f_1516,c,av);}
1241 a=C_alloc(19);
1242 t2=C_a_i_provide(&a,1,lf[0]);
1243 t3=C_a_i_provide(&a,1,lf[1]);
1244 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1519,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
1245 C_word *av2=av;
1246 av2[0]=C_SCHEME_UNDEFINED;
1247 av2[1]=t4;
1248 C_library_toplevel(2,av2);}}
1249
1250 /* k1517 in k1514 in k1511 */
f_1519(C_word c,C_word * av)1251 static void C_ccall f_1519(C_word c,C_word *av){
1252 C_word tmp;
1253 C_word t0=av[0];
1254 C_word t1=av[1];
1255 C_word t2;
1256 C_word t3;
1257 C_word t4;
1258 C_word t5;
1259 C_word t6;
1260 C_word t7;
1261 C_word t8;
1262 C_word t9;
1263 C_word t10;
1264 C_word t11;
1265 C_word t12;
1266 C_word t13;
1267 C_word t14;
1268 C_word t15;
1269 C_word t16;
1270 C_word t17;
1271 C_word t18;
1272 C_word t19;
1273 C_word t20;
1274 C_word t21;
1275 C_word t22;
1276 C_word t23;
1277 C_word t24;
1278 C_word *a;
1279 if(C_unlikely(!C_demand(C_calculate_demand(66,c,5)))){
1280 C_save_and_reclaim((void *)f_1519,c,av);}
1281 a=C_alloc(66);
1282 t2=C_mutate((C_word*)lf[2]+1 /* (set! srfi-4#u8vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1521,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
1283 t3=C_mutate((C_word*)lf[3]+1 /* (set! srfi-4#s8vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1524,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
1284 t4=C_mutate((C_word*)lf[4]+1 /* (set! srfi-4#u16vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1527,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp));
1285 t5=C_mutate((C_word*)lf[5]+1 /* (set! srfi-4#s16vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1530,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp));
1286 t6=C_mutate((C_word*)lf[6]+1 /* (set! srfi-4#u32vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1533,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp));
1287 t7=C_mutate((C_word*)lf[7]+1 /* (set! srfi-4#s32vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1536,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp));
1288 t8=C_mutate((C_word*)lf[8]+1 /* (set! srfi-4#u64vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1539,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp));
1289 t9=C_mutate((C_word*)lf[9]+1 /* (set! srfi-4#s64vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1542,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp));
1290 t10=C_mutate((C_word*)lf[10]+1 /* (set! srfi-4#f32vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1545,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
1291 t11=C_mutate((C_word*)lf[11]+1 /* (set! srfi-4#f64vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1548,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
1292 t12=C_mutate((C_word*)lf[12]+1 /* (set! srfi-4#u8vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1551,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp));
1293 t13=C_mutate((C_word*)lf[13]+1 /* (set! srfi-4#s8vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1554,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp));
1294 t14=C_mutate((C_word*)lf[14]+1 /* (set! srfi-4#u16vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1557,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp));
1295 t15=C_mutate((C_word*)lf[15]+1 /* (set! srfi-4#s16vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1560,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp));
1296 t16=C_mutate((C_word*)lf[16]+1 /* (set! srfi-4#u32vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1563,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp));
1297 t17=C_mutate((C_word*)lf[17]+1 /* (set! srfi-4#s32vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1566,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp));
1298 t18=C_mutate((C_word*)lf[18]+1 /* (set! srfi-4#u64vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1569,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp));
1299 t19=C_mutate((C_word*)lf[19]+1 /* (set! srfi-4#s64vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1572,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp));
1300 t20=C_mutate((C_word*)lf[20]+1 /* (set! srfi-4#f32vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1575,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp));
1301 t21=C_mutate((C_word*)lf[21]+1 /* (set! srfi-4#f64vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1578,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp));
1302 t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1583,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1303 t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4482,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp);
1304 /* srfi-4.scm:187: chicken.base#getter-with-setter */
1305 t24=*((C_word*)lf[266]+1);{
1306 C_word *av2;
1307 if(c >= 5) {
1308 av2=av;
1309 } else {
1310 av2=C_alloc(5);
1311 }
1312 av2[0]=t24;
1313 av2[1]=t22;
1314 av2[2]=t23;
1315 av2[3]=*((C_word*)lf[12]+1);
1316 av2[4]=lf[276];
1317 ((C_proc)(void*)(*((C_word*)t24+1)))(5,av2);}}
1318
1319 /* srfi-4#u8vector-length in k1517 in k1514 in k1511 */
f_1521(C_word c,C_word * av)1320 static void C_ccall f_1521(C_word c,C_word *av){
1321 C_word tmp;
1322 C_word t0=av[0];
1323 C_word t1=av[1];
1324 C_word t2=av[2];
1325 C_word t3;
1326 C_word *a;
1327 if(c!=3) C_bad_argc_2(c,3,t0);
1328 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1329 C_save_and_reclaim((void *)f_1521,c,av);}
1330 t3=t1;{
1331 C_word *av2=av;
1332 av2[0]=t3;
1333 av2[1]=C_i_u8vector_length(t2);
1334 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1335
1336 /* srfi-4#s8vector-length in k1517 in k1514 in k1511 */
f_1524(C_word c,C_word * av)1337 static void C_ccall f_1524(C_word c,C_word *av){
1338 C_word tmp;
1339 C_word t0=av[0];
1340 C_word t1=av[1];
1341 C_word t2=av[2];
1342 C_word t3;
1343 C_word *a;
1344 if(c!=3) C_bad_argc_2(c,3,t0);
1345 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1346 C_save_and_reclaim((void *)f_1524,c,av);}
1347 t3=t1;{
1348 C_word *av2=av;
1349 av2[0]=t3;
1350 av2[1]=C_i_s8vector_length(t2);
1351 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1352
1353 /* srfi-4#u16vector-length in k1517 in k1514 in k1511 */
f_1527(C_word c,C_word * av)1354 static void C_ccall f_1527(C_word c,C_word *av){
1355 C_word tmp;
1356 C_word t0=av[0];
1357 C_word t1=av[1];
1358 C_word t2=av[2];
1359 C_word t3;
1360 C_word *a;
1361 if(c!=3) C_bad_argc_2(c,3,t0);
1362 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1363 C_save_and_reclaim((void *)f_1527,c,av);}
1364 t3=t1;{
1365 C_word *av2=av;
1366 av2[0]=t3;
1367 av2[1]=C_i_u16vector_length(t2);
1368 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1369
1370 /* srfi-4#s16vector-length in k1517 in k1514 in k1511 */
f_1530(C_word c,C_word * av)1371 static void C_ccall f_1530(C_word c,C_word *av){
1372 C_word tmp;
1373 C_word t0=av[0];
1374 C_word t1=av[1];
1375 C_word t2=av[2];
1376 C_word t3;
1377 C_word *a;
1378 if(c!=3) C_bad_argc_2(c,3,t0);
1379 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1380 C_save_and_reclaim((void *)f_1530,c,av);}
1381 t3=t1;{
1382 C_word *av2=av;
1383 av2[0]=t3;
1384 av2[1]=C_i_s16vector_length(t2);
1385 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1386
1387 /* srfi-4#u32vector-length in k1517 in k1514 in k1511 */
f_1533(C_word c,C_word * av)1388 static void C_ccall f_1533(C_word c,C_word *av){
1389 C_word tmp;
1390 C_word t0=av[0];
1391 C_word t1=av[1];
1392 C_word t2=av[2];
1393 C_word t3;
1394 C_word *a;
1395 if(c!=3) C_bad_argc_2(c,3,t0);
1396 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1397 C_save_and_reclaim((void *)f_1533,c,av);}
1398 t3=t1;{
1399 C_word *av2=av;
1400 av2[0]=t3;
1401 av2[1]=C_i_u32vector_length(t2);
1402 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1403
1404 /* srfi-4#s32vector-length in k1517 in k1514 in k1511 */
f_1536(C_word c,C_word * av)1405 static void C_ccall f_1536(C_word c,C_word *av){
1406 C_word tmp;
1407 C_word t0=av[0];
1408 C_word t1=av[1];
1409 C_word t2=av[2];
1410 C_word t3;
1411 C_word *a;
1412 if(c!=3) C_bad_argc_2(c,3,t0);
1413 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1414 C_save_and_reclaim((void *)f_1536,c,av);}
1415 t3=t1;{
1416 C_word *av2=av;
1417 av2[0]=t3;
1418 av2[1]=C_i_s32vector_length(t2);
1419 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1420
1421 /* srfi-4#u64vector-length in k1517 in k1514 in k1511 */
f_1539(C_word c,C_word * av)1422 static void C_ccall f_1539(C_word c,C_word *av){
1423 C_word tmp;
1424 C_word t0=av[0];
1425 C_word t1=av[1];
1426 C_word t2=av[2];
1427 C_word t3;
1428 C_word *a;
1429 if(c!=3) C_bad_argc_2(c,3,t0);
1430 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1431 C_save_and_reclaim((void *)f_1539,c,av);}
1432 t3=t1;{
1433 C_word *av2=av;
1434 av2[0]=t3;
1435 av2[1]=C_i_u64vector_length(t2);
1436 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1437
1438 /* srfi-4#s64vector-length in k1517 in k1514 in k1511 */
f_1542(C_word c,C_word * av)1439 static void C_ccall f_1542(C_word c,C_word *av){
1440 C_word tmp;
1441 C_word t0=av[0];
1442 C_word t1=av[1];
1443 C_word t2=av[2];
1444 C_word t3;
1445 C_word *a;
1446 if(c!=3) C_bad_argc_2(c,3,t0);
1447 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1448 C_save_and_reclaim((void *)f_1542,c,av);}
1449 t3=t1;{
1450 C_word *av2=av;
1451 av2[0]=t3;
1452 av2[1]=C_i_s64vector_length(t2);
1453 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1454
1455 /* srfi-4#f32vector-length in k1517 in k1514 in k1511 */
f_1545(C_word c,C_word * av)1456 static void C_ccall f_1545(C_word c,C_word *av){
1457 C_word tmp;
1458 C_word t0=av[0];
1459 C_word t1=av[1];
1460 C_word t2=av[2];
1461 C_word t3;
1462 C_word *a;
1463 if(c!=3) C_bad_argc_2(c,3,t0);
1464 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1465 C_save_and_reclaim((void *)f_1545,c,av);}
1466 t3=t1;{
1467 C_word *av2=av;
1468 av2[0]=t3;
1469 av2[1]=C_i_f32vector_length(t2);
1470 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1471
1472 /* srfi-4#f64vector-length in k1517 in k1514 in k1511 */
f_1548(C_word c,C_word * av)1473 static void C_ccall f_1548(C_word c,C_word *av){
1474 C_word tmp;
1475 C_word t0=av[0];
1476 C_word t1=av[1];
1477 C_word t2=av[2];
1478 C_word t3;
1479 C_word *a;
1480 if(c!=3) C_bad_argc_2(c,3,t0);
1481 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1482 C_save_and_reclaim((void *)f_1548,c,av);}
1483 t3=t1;{
1484 C_word *av2=av;
1485 av2[0]=t3;
1486 av2[1]=C_i_f64vector_length(t2);
1487 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
1488
1489 /* srfi-4#u8vector-set! in k1517 in k1514 in k1511 */
f_1551(C_word c,C_word * av)1490 static void C_ccall f_1551(C_word c,C_word *av){
1491 C_word tmp;
1492 C_word t0=av[0];
1493 C_word t1=av[1];
1494 C_word t2=av[2];
1495 C_word t3=av[3];
1496 C_word t4=av[4];
1497 C_word t5;
1498 C_word *a;
1499 if(c!=5) C_bad_argc_2(c,5,t0);
1500 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1501 C_save_and_reclaim((void *)f_1551,c,av);}
1502 t5=t1;{
1503 C_word *av2=av;
1504 av2[0]=t5;
1505 av2[1]=C_i_u8vector_set(t2,t3,t4);
1506 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1507
1508 /* srfi-4#s8vector-set! in k1517 in k1514 in k1511 */
f_1554(C_word c,C_word * av)1509 static void C_ccall f_1554(C_word c,C_word *av){
1510 C_word tmp;
1511 C_word t0=av[0];
1512 C_word t1=av[1];
1513 C_word t2=av[2];
1514 C_word t3=av[3];
1515 C_word t4=av[4];
1516 C_word t5;
1517 C_word *a;
1518 if(c!=5) C_bad_argc_2(c,5,t0);
1519 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1520 C_save_and_reclaim((void *)f_1554,c,av);}
1521 t5=t1;{
1522 C_word *av2=av;
1523 av2[0]=t5;
1524 av2[1]=C_i_s8vector_set(t2,t3,t4);
1525 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1526
1527 /* srfi-4#u16vector-set! in k1517 in k1514 in k1511 */
f_1557(C_word c,C_word * av)1528 static void C_ccall f_1557(C_word c,C_word *av){
1529 C_word tmp;
1530 C_word t0=av[0];
1531 C_word t1=av[1];
1532 C_word t2=av[2];
1533 C_word t3=av[3];
1534 C_word t4=av[4];
1535 C_word t5;
1536 C_word *a;
1537 if(c!=5) C_bad_argc_2(c,5,t0);
1538 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1539 C_save_and_reclaim((void *)f_1557,c,av);}
1540 t5=t1;{
1541 C_word *av2=av;
1542 av2[0]=t5;
1543 av2[1]=C_i_u16vector_set(t2,t3,t4);
1544 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1545
1546 /* srfi-4#s16vector-set! in k1517 in k1514 in k1511 */
f_1560(C_word c,C_word * av)1547 static void C_ccall f_1560(C_word c,C_word *av){
1548 C_word tmp;
1549 C_word t0=av[0];
1550 C_word t1=av[1];
1551 C_word t2=av[2];
1552 C_word t3=av[3];
1553 C_word t4=av[4];
1554 C_word t5;
1555 C_word *a;
1556 if(c!=5) C_bad_argc_2(c,5,t0);
1557 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1558 C_save_and_reclaim((void *)f_1560,c,av);}
1559 t5=t1;{
1560 C_word *av2=av;
1561 av2[0]=t5;
1562 av2[1]=C_i_s16vector_set(t2,t3,t4);
1563 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1564
1565 /* srfi-4#u32vector-set! in k1517 in k1514 in k1511 */
f_1563(C_word c,C_word * av)1566 static void C_ccall f_1563(C_word c,C_word *av){
1567 C_word tmp;
1568 C_word t0=av[0];
1569 C_word t1=av[1];
1570 C_word t2=av[2];
1571 C_word t3=av[3];
1572 C_word t4=av[4];
1573 C_word t5;
1574 C_word *a;
1575 if(c!=5) C_bad_argc_2(c,5,t0);
1576 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1577 C_save_and_reclaim((void *)f_1563,c,av);}
1578 t5=t1;{
1579 C_word *av2=av;
1580 av2[0]=t5;
1581 av2[1]=C_i_u32vector_set(t2,t3,t4);
1582 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1583
1584 /* srfi-4#s32vector-set! in k1517 in k1514 in k1511 */
f_1566(C_word c,C_word * av)1585 static void C_ccall f_1566(C_word c,C_word *av){
1586 C_word tmp;
1587 C_word t0=av[0];
1588 C_word t1=av[1];
1589 C_word t2=av[2];
1590 C_word t3=av[3];
1591 C_word t4=av[4];
1592 C_word t5;
1593 C_word *a;
1594 if(c!=5) C_bad_argc_2(c,5,t0);
1595 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1596 C_save_and_reclaim((void *)f_1566,c,av);}
1597 t5=t1;{
1598 C_word *av2=av;
1599 av2[0]=t5;
1600 av2[1]=C_i_s32vector_set(t2,t3,t4);
1601 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1602
1603 /* srfi-4#u64vector-set! in k1517 in k1514 in k1511 */
f_1569(C_word c,C_word * av)1604 static void C_ccall f_1569(C_word c,C_word *av){
1605 C_word tmp;
1606 C_word t0=av[0];
1607 C_word t1=av[1];
1608 C_word t2=av[2];
1609 C_word t3=av[3];
1610 C_word t4=av[4];
1611 C_word t5;
1612 C_word *a;
1613 if(c!=5) C_bad_argc_2(c,5,t0);
1614 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1615 C_save_and_reclaim((void *)f_1569,c,av);}
1616 t5=t1;{
1617 C_word *av2=av;
1618 av2[0]=t5;
1619 av2[1]=C_i_u64vector_set(t2,t3,t4);
1620 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1621
1622 /* srfi-4#s64vector-set! in k1517 in k1514 in k1511 */
f_1572(C_word c,C_word * av)1623 static void C_ccall f_1572(C_word c,C_word *av){
1624 C_word tmp;
1625 C_word t0=av[0];
1626 C_word t1=av[1];
1627 C_word t2=av[2];
1628 C_word t3=av[3];
1629 C_word t4=av[4];
1630 C_word t5;
1631 C_word *a;
1632 if(c!=5) C_bad_argc_2(c,5,t0);
1633 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1634 C_save_and_reclaim((void *)f_1572,c,av);}
1635 t5=t1;{
1636 C_word *av2=av;
1637 av2[0]=t5;
1638 av2[1]=C_i_s64vector_set(t2,t3,t4);
1639 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1640
1641 /* srfi-4#f32vector-set! in k1517 in k1514 in k1511 */
f_1575(C_word c,C_word * av)1642 static void C_ccall f_1575(C_word c,C_word *av){
1643 C_word tmp;
1644 C_word t0=av[0];
1645 C_word t1=av[1];
1646 C_word t2=av[2];
1647 C_word t3=av[3];
1648 C_word t4=av[4];
1649 C_word t5;
1650 C_word *a;
1651 if(c!=5) C_bad_argc_2(c,5,t0);
1652 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1653 C_save_and_reclaim((void *)f_1575,c,av);}
1654 t5=t1;{
1655 C_word *av2=av;
1656 av2[0]=t5;
1657 av2[1]=C_i_f32vector_set(t2,t3,t4);
1658 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1659
1660 /* srfi-4#f64vector-set! in k1517 in k1514 in k1511 */
f_1578(C_word c,C_word * av)1661 static void C_ccall f_1578(C_word c,C_word *av){
1662 C_word tmp;
1663 C_word t0=av[0];
1664 C_word t1=av[1];
1665 C_word t2=av[2];
1666 C_word t3=av[3];
1667 C_word t4=av[4];
1668 C_word t5;
1669 C_word *a;
1670 if(c!=5) C_bad_argc_2(c,5,t0);
1671 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
1672 C_save_and_reclaim((void *)f_1578,c,av);}
1673 t5=t1;{
1674 C_word *av2=av;
1675 av2[0]=t5;
1676 av2[1]=C_i_f64vector_set(t2,t3,t4);
1677 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
1678
1679 /* k1581 in k1517 in k1514 in k1511 */
f_1583(C_word c,C_word * av)1680 static void C_ccall f_1583(C_word c,C_word *av){
1681 C_word tmp;
1682 C_word t0=av[0];
1683 C_word t1=av[1];
1684 C_word t2;
1685 C_word t3;
1686 C_word t4;
1687 C_word t5;
1688 C_word *a;
1689 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
1690 C_save_and_reclaim((void *)f_1583,c,av);}
1691 a=C_alloc(6);
1692 t2=C_mutate((C_word*)lf[22]+1 /* (set! srfi-4#u8vector-ref ...) */,t1);
1693 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1587,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1694 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4479,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp);
1695 /* srfi-4.scm:193: chicken.base#getter-with-setter */
1696 t5=*((C_word*)lf[266]+1);{
1697 C_word *av2;
1698 if(c >= 5) {
1699 av2=av;
1700 } else {
1701 av2=C_alloc(5);
1702 }
1703 av2[0]=t5;
1704 av2[1]=t3;
1705 av2[2]=t4;
1706 av2[3]=*((C_word*)lf[13]+1);
1707 av2[4]=lf[275];
1708 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
1709
1710 /* k1585 in k1581 in k1517 in k1514 in k1511 */
f_1587(C_word c,C_word * av)1711 static void C_ccall f_1587(C_word c,C_word *av){
1712 C_word tmp;
1713 C_word t0=av[0];
1714 C_word t1=av[1];
1715 C_word t2;
1716 C_word t3;
1717 C_word t4;
1718 C_word t5;
1719 C_word *a;
1720 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
1721 C_save_and_reclaim((void *)f_1587,c,av);}
1722 a=C_alloc(6);
1723 t2=C_mutate((C_word*)lf[23]+1 /* (set! srfi-4#s8vector-ref ...) */,t1);
1724 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1591,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1725 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4476,a[2]=((C_word)li143),tmp=(C_word)a,a+=3,tmp);
1726 /* srfi-4.scm:199: chicken.base#getter-with-setter */
1727 t5=*((C_word*)lf[266]+1);{
1728 C_word *av2;
1729 if(c >= 5) {
1730 av2=av;
1731 } else {
1732 av2=C_alloc(5);
1733 }
1734 av2[0]=t5;
1735 av2[1]=t3;
1736 av2[2]=t4;
1737 av2[3]=*((C_word*)lf[14]+1);
1738 av2[4]=lf[274];
1739 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
1740
1741 /* k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1591(C_word c,C_word * av)1742 static void C_ccall f_1591(C_word c,C_word *av){
1743 C_word tmp;
1744 C_word t0=av[0];
1745 C_word t1=av[1];
1746 C_word t2;
1747 C_word t3;
1748 C_word t4;
1749 C_word t5;
1750 C_word *a;
1751 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
1752 C_save_and_reclaim((void *)f_1591,c,av);}
1753 a=C_alloc(6);
1754 t2=C_mutate((C_word*)lf[24]+1 /* (set! srfi-4#u16vector-ref ...) */,t1);
1755 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1595,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1756 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4473,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp);
1757 /* srfi-4.scm:205: chicken.base#getter-with-setter */
1758 t5=*((C_word*)lf[266]+1);{
1759 C_word *av2;
1760 if(c >= 5) {
1761 av2=av;
1762 } else {
1763 av2=C_alloc(5);
1764 }
1765 av2[0]=t5;
1766 av2[1]=t3;
1767 av2[2]=t4;
1768 av2[3]=*((C_word*)lf[15]+1);
1769 av2[4]=lf[273];
1770 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
1771
1772 /* k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1595(C_word c,C_word * av)1773 static void C_ccall f_1595(C_word c,C_word *av){
1774 C_word tmp;
1775 C_word t0=av[0];
1776 C_word t1=av[1];
1777 C_word t2;
1778 C_word t3;
1779 C_word t4;
1780 C_word t5;
1781 C_word *a;
1782 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
1783 C_save_and_reclaim((void *)f_1595,c,av);}
1784 a=C_alloc(6);
1785 t2=C_mutate((C_word*)lf[25]+1 /* (set! srfi-4#s16vector-ref ...) */,t1);
1786 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1599,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1787 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4470,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp);
1788 /* srfi-4.scm:211: chicken.base#getter-with-setter */
1789 t5=*((C_word*)lf[266]+1);{
1790 C_word *av2;
1791 if(c >= 5) {
1792 av2=av;
1793 } else {
1794 av2=C_alloc(5);
1795 }
1796 av2[0]=t5;
1797 av2[1]=t3;
1798 av2[2]=t4;
1799 av2[3]=*((C_word*)lf[16]+1);
1800 av2[4]=lf[272];
1801 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
1802
1803 /* k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1599(C_word c,C_word * av)1804 static void C_ccall f_1599(C_word c,C_word *av){
1805 C_word tmp;
1806 C_word t0=av[0];
1807 C_word t1=av[1];
1808 C_word t2;
1809 C_word t3;
1810 C_word t4;
1811 C_word t5;
1812 C_word *a;
1813 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
1814 C_save_and_reclaim((void *)f_1599,c,av);}
1815 a=C_alloc(6);
1816 t2=C_mutate((C_word*)lf[26]+1 /* (set! srfi-4#u32vector-ref ...) */,t1);
1817 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1603,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1818 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4467,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp);
1819 /* srfi-4.scm:217: chicken.base#getter-with-setter */
1820 t5=*((C_word*)lf[266]+1);{
1821 C_word *av2;
1822 if(c >= 5) {
1823 av2=av;
1824 } else {
1825 av2=C_alloc(5);
1826 }
1827 av2[0]=t5;
1828 av2[1]=t3;
1829 av2[2]=t4;
1830 av2[3]=*((C_word*)lf[17]+1);
1831 av2[4]=lf[271];
1832 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
1833
1834 /* k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1603(C_word c,C_word * av)1835 static void C_ccall f_1603(C_word c,C_word *av){
1836 C_word tmp;
1837 C_word t0=av[0];
1838 C_word t1=av[1];
1839 C_word t2;
1840 C_word t3;
1841 C_word t4;
1842 C_word t5;
1843 C_word *a;
1844 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
1845 C_save_and_reclaim((void *)f_1603,c,av);}
1846 a=C_alloc(6);
1847 t2=C_mutate((C_word*)lf[27]+1 /* (set! srfi-4#s32vector-ref ...) */,t1);
1848 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1607,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1849 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4464,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp);
1850 /* srfi-4.scm:223: chicken.base#getter-with-setter */
1851 t5=*((C_word*)lf[266]+1);{
1852 C_word *av2;
1853 if(c >= 5) {
1854 av2=av;
1855 } else {
1856 av2=C_alloc(5);
1857 }
1858 av2[0]=t5;
1859 av2[1]=t3;
1860 av2[2]=t4;
1861 av2[3]=*((C_word*)lf[18]+1);
1862 av2[4]=lf[270];
1863 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
1864
1865 /* k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1607(C_word c,C_word * av)1866 static void C_ccall f_1607(C_word c,C_word *av){
1867 C_word tmp;
1868 C_word t0=av[0];
1869 C_word t1=av[1];
1870 C_word t2;
1871 C_word t3;
1872 C_word t4;
1873 C_word t5;
1874 C_word *a;
1875 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
1876 C_save_and_reclaim((void *)f_1607,c,av);}
1877 a=C_alloc(6);
1878 t2=C_mutate((C_word*)lf[28]+1 /* (set! srfi-4#u64vector-ref ...) */,t1);
1879 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1611,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1880 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4461,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp);
1881 /* srfi-4.scm:229: chicken.base#getter-with-setter */
1882 t5=*((C_word*)lf[266]+1);{
1883 C_word *av2;
1884 if(c >= 5) {
1885 av2=av;
1886 } else {
1887 av2=C_alloc(5);
1888 }
1889 av2[0]=t5;
1890 av2[1]=t3;
1891 av2[2]=t4;
1892 av2[3]=*((C_word*)lf[19]+1);
1893 av2[4]=lf[269];
1894 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
1895
1896 /* k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1611(C_word c,C_word * av)1897 static void C_ccall f_1611(C_word c,C_word *av){
1898 C_word tmp;
1899 C_word t0=av[0];
1900 C_word t1=av[1];
1901 C_word t2;
1902 C_word t3;
1903 C_word t4;
1904 C_word t5;
1905 C_word *a;
1906 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
1907 C_save_and_reclaim((void *)f_1611,c,av);}
1908 a=C_alloc(6);
1909 t2=C_mutate((C_word*)lf[29]+1 /* (set! srfi-4#s64vector-ref ...) */,t1);
1910 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1615,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1911 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4458,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp);
1912 /* srfi-4.scm:235: chicken.base#getter-with-setter */
1913 t5=*((C_word*)lf[266]+1);{
1914 C_word *av2;
1915 if(c >= 5) {
1916 av2=av;
1917 } else {
1918 av2=C_alloc(5);
1919 }
1920 av2[0]=t5;
1921 av2[1]=t3;
1922 av2[2]=t4;
1923 av2[3]=*((C_word*)lf[20]+1);
1924 av2[4]=lf[268];
1925 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
1926
1927 /* k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1615(C_word c,C_word * av)1928 static void C_ccall f_1615(C_word c,C_word *av){
1929 C_word tmp;
1930 C_word t0=av[0];
1931 C_word t1=av[1];
1932 C_word t2;
1933 C_word t3;
1934 C_word t4;
1935 C_word t5;
1936 C_word *a;
1937 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
1938 C_save_and_reclaim((void *)f_1615,c,av);}
1939 a=C_alloc(6);
1940 t2=C_mutate((C_word*)lf[30]+1 /* (set! srfi-4#f32vector-ref ...) */,t1);
1941 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1619,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1942 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4455,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp);
1943 /* srfi-4.scm:241: chicken.base#getter-with-setter */
1944 t5=*((C_word*)lf[266]+1);{
1945 C_word *av2;
1946 if(c >= 5) {
1947 av2=av;
1948 } else {
1949 av2=C_alloc(5);
1950 }
1951 av2[0]=t5;
1952 av2[1]=t3;
1953 av2[2]=t4;
1954 av2[3]=*((C_word*)lf[21]+1);
1955 av2[4]=lf[267];
1956 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}
1957
1958 /* k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1619(C_word c,C_word * av)1959 static void C_ccall f_1619(C_word c,C_word *av){
1960 C_word tmp;
1961 C_word t0=av[0];
1962 C_word t1=av[1];
1963 C_word t2;
1964 C_word t3;
1965 C_word t4;
1966 C_word t5;
1967 C_word t6;
1968 C_word t7;
1969 C_word t8;
1970 C_word t9;
1971 C_word t10;
1972 C_word t11;
1973 C_word t12;
1974 C_word t13;
1975 C_word t14;
1976 C_word t15;
1977 C_word t16;
1978 C_word t17;
1979 C_word t18;
1980 C_word t19;
1981 C_word t20;
1982 C_word t21;
1983 C_word t22;
1984 C_word t23;
1985 C_word t24;
1986 C_word t25;
1987 C_word t26;
1988 C_word t27;
1989 C_word t28;
1990 C_word t29;
1991 C_word t30;
1992 C_word t31;
1993 C_word t32;
1994 C_word t33;
1995 C_word t34;
1996 C_word t35;
1997 C_word t36;
1998 C_word t37;
1999 C_word t38;
2000 C_word t39;
2001 C_word t40;
2002 C_word t41;
2003 C_word t42;
2004 C_word t43;
2005 C_word t44;
2006 C_word t45;
2007 C_word t46;
2008 C_word t47;
2009 C_word t48;
2010 C_word t49;
2011 C_word t50;
2012 C_word t51;
2013 C_word t52;
2014 C_word t53;
2015 C_word t54;
2016 C_word t55;
2017 C_word t56;
2018 C_word t57;
2019 C_word t58;
2020 C_word t59;
2021 C_word t60;
2022 C_word t61;
2023 C_word t62;
2024 C_word t63;
2025 C_word t64;
2026 C_word t65;
2027 C_word t66;
2028 C_word t67;
2029 C_word t68;
2030 C_word t69;
2031 C_word t70;
2032 C_word t71;
2033 C_word t72;
2034 C_word t73;
2035 C_word t74;
2036 C_word t75;
2037 C_word t76;
2038 C_word t77;
2039 C_word t78;
2040 C_word t79;
2041 C_word t80;
2042 C_word t81;
2043 C_word t82;
2044 C_word t83;
2045 C_word t84;
2046 C_word t85;
2047 C_word t86;
2048 C_word t87;
2049 C_word t88;
2050 C_word t89;
2051 C_word t90;
2052 C_word t91;
2053 C_word *a;
2054 if(C_unlikely(!C_demand(C_calculate_demand(231,c,6)))){
2055 C_save_and_reclaim((void *)f_1619,c,av);}
2056 a=C_alloc(231);
2057 t2=C_mutate((C_word*)lf[31]+1 /* (set! srfi-4#f64vector-ref ...) */,t1);
2058 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1627,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp);
2059 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1629,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp);
2060 t5=C_mutate((C_word*)lf[38]+1 /* (set! srfi-4#release-number-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1668,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp));
2061 t6=C_mutate((C_word*)lf[42]+1 /* (set! srfi-4#make-u8vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1683,a[2]=t3,a[3]=t4,a[4]=((C_word)li24),tmp=(C_word)a,a+=5,tmp));
2062 t7=C_mutate((C_word*)lf[48]+1 /* (set! srfi-4#make-s8vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1799,a[2]=t3,a[3]=t4,a[4]=((C_word)li26),tmp=(C_word)a,a+=5,tmp));
2063 t8=C_mutate((C_word*)lf[51]+1 /* (set! srfi-4#make-u16vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1915,a[2]=t3,a[3]=t4,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp));
2064 t9=C_mutate((C_word*)lf[54]+1 /* (set! srfi-4#make-s16vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2031,a[2]=t3,a[3]=t4,a[4]=((C_word)li30),tmp=(C_word)a,a+=5,tmp));
2065 t10=C_mutate((C_word*)lf[58]+1 /* (set! srfi-4#make-u32vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2157,a[2]=t3,a[3]=t4,a[4]=((C_word)li32),tmp=(C_word)a,a+=5,tmp));
2066 t11=C_mutate((C_word*)lf[62]+1 /* (set! srfi-4#make-u64vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2273,a[2]=t3,a[3]=t4,a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp));
2067 t12=C_mutate((C_word*)lf[66]+1 /* (set! srfi-4#make-s32vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2389,a[2]=t3,a[3]=t4,a[4]=((C_word)li36),tmp=(C_word)a,a+=5,tmp));
2068 t13=C_mutate((C_word*)lf[69]+1 /* (set! srfi-4#make-s64vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2515,a[2]=t3,a[3]=t4,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp));
2069 t14=C_mutate((C_word*)lf[72]+1 /* (set! srfi-4#make-f32vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2641,a[2]=t3,a[3]=t4,a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp));
2070 t15=C_mutate((C_word*)lf[75]+1 /* (set! srfi-4#make-f64vector ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2752,a[2]=t3,a[3]=t4,a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp));
2071 t16=*((C_word*)lf[42]+1);
2072 t17=C_mutate((C_word*)lf[78]+1 /* (set! srfi-4#list->u8vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2863,a[2]=t16,a[3]=((C_word)li44),tmp=(C_word)a,a+=4,tmp));
2073 t18=*((C_word*)lf[48]+1);
2074 t19=C_mutate((C_word*)lf[80]+1 /* (set! srfi-4#list->s8vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2899,a[2]=t18,a[3]=((C_word)li46),tmp=(C_word)a,a+=4,tmp));
2075 t20=*((C_word*)lf[51]+1);
2076 t21=C_mutate((C_word*)lf[81]+1 /* (set! srfi-4#list->u16vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2935,a[2]=t20,a[3]=((C_word)li48),tmp=(C_word)a,a+=4,tmp));
2077 t22=*((C_word*)lf[54]+1);
2078 t23=C_mutate((C_word*)lf[82]+1 /* (set! srfi-4#list->s16vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2971,a[2]=t22,a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp));
2079 t24=*((C_word*)lf[58]+1);
2080 t25=C_mutate((C_word*)lf[83]+1 /* (set! srfi-4#list->u32vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3007,a[2]=t24,a[3]=((C_word)li52),tmp=(C_word)a,a+=4,tmp));
2081 t26=*((C_word*)lf[66]+1);
2082 t27=C_mutate((C_word*)lf[84]+1 /* (set! srfi-4#list->s32vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3043,a[2]=t26,a[3]=((C_word)li54),tmp=(C_word)a,a+=4,tmp));
2083 t28=*((C_word*)lf[62]+1);
2084 t29=C_mutate((C_word*)lf[85]+1 /* (set! srfi-4#list->u64vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3079,a[2]=t28,a[3]=((C_word)li56),tmp=(C_word)a,a+=4,tmp));
2085 t30=*((C_word*)lf[69]+1);
2086 t31=C_mutate((C_word*)lf[86]+1 /* (set! srfi-4#list->s64vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3115,a[2]=t30,a[3]=((C_word)li58),tmp=(C_word)a,a+=4,tmp));
2087 t32=*((C_word*)lf[72]+1);
2088 t33=C_mutate((C_word*)lf[87]+1 /* (set! srfi-4#list->f32vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3151,a[2]=t32,a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp));
2089 t34=*((C_word*)lf[75]+1);
2090 t35=C_mutate((C_word*)lf[88]+1 /* (set! srfi-4#list->f64vector ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3187,a[2]=t34,a[3]=((C_word)li62),tmp=(C_word)a,a+=4,tmp));
2091 t36=C_mutate((C_word*)lf[89]+1 /* (set! srfi-4#u8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3223,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp));
2092 t37=C_mutate((C_word*)lf[90]+1 /* (set! srfi-4#s8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3229,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp));
2093 t38=C_mutate((C_word*)lf[91]+1 /* (set! srfi-4#u16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3235,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp));
2094 t39=C_mutate((C_word*)lf[92]+1 /* (set! srfi-4#s16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3241,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp));
2095 t40=C_mutate((C_word*)lf[93]+1 /* (set! srfi-4#u32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3247,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp));
2096 t41=C_mutate((C_word*)lf[94]+1 /* (set! srfi-4#s32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3253,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp));
2097 t42=C_mutate((C_word*)lf[95]+1 /* (set! srfi-4#u64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3259,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp));
2098 t43=C_mutate((C_word*)lf[96]+1 /* (set! srfi-4#s64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3265,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp));
2099 t44=C_mutate((C_word*)lf[97]+1 /* (set! srfi-4#f32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3271,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp));
2100 t45=C_mutate((C_word*)lf[98]+1 /* (set! srfi-4#f64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3277,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp));
2101 t46=C_mutate((C_word*)lf[99]+1 /* (set! srfi-4#u8vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3283,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp));
2102 t47=C_mutate((C_word*)lf[101]+1 /* (set! srfi-4#s8vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3313,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp));
2103 t48=C_mutate((C_word*)lf[103]+1 /* (set! srfi-4#u16vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3343,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp));
2104 t49=C_mutate((C_word*)lf[105]+1 /* (set! srfi-4#s16vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3373,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp));
2105 t50=C_mutate((C_word*)lf[107]+1 /* (set! srfi-4#u32vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3403,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp));
2106 t51=C_mutate((C_word*)lf[109]+1 /* (set! srfi-4#s32vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3432,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp));
2107 t52=C_mutate((C_word*)lf[111]+1 /* (set! srfi-4#u64vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3461,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp));
2108 t53=C_mutate((C_word*)lf[113]+1 /* (set! srfi-4#s64vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3490,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp));
2109 t54=C_mutate((C_word*)lf[115]+1 /* (set! srfi-4#f32vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3519,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp));
2110 t55=C_mutate((C_word*)lf[117]+1 /* (set! srfi-4#f64vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3548,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp));
2111 t56=C_mutate((C_word*)lf[119]+1 /* (set! srfi-4#u8vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3577,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp));
2112 t57=C_mutate((C_word*)lf[120]+1 /* (set! srfi-4#s8vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3580,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp));
2113 t58=C_mutate((C_word*)lf[121]+1 /* (set! srfi-4#u16vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3583,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp));
2114 t59=C_mutate((C_word*)lf[122]+1 /* (set! srfi-4#s16vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3586,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp));
2115 t60=C_mutate((C_word*)lf[123]+1 /* (set! srfi-4#u32vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3589,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp));
2116 t61=C_mutate((C_word*)lf[124]+1 /* (set! srfi-4#s32vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3592,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp));
2117 t62=C_mutate((C_word*)lf[125]+1 /* (set! srfi-4#u64vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3595,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp));
2118 t63=C_mutate((C_word*)lf[126]+1 /* (set! srfi-4#s64vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3598,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp));
2119 t64=C_mutate((C_word*)lf[127]+1 /* (set! srfi-4#f32vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3601,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp));
2120 t65=C_mutate((C_word*)lf[128]+1 /* (set! srfi-4#f64vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3604,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp));
2121 t66=C_mutate((C_word*)lf[41]+1 /* (set! srfi-4#number-vector? ...) */,*((C_word*)lf[129]+1));
2122 t67=C_mutate(&lf[130] /* (set! srfi-4#pack-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3619,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp));
2123 t68=C_mutate(&lf[132] /* (set! srfi-4#unpack ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3637,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp));
2124 t69=C_mutate(&lf[134] /* (set! srfi-4#unpack-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3667,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp));
2125 t70=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5288,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp);
2126 t71=C_mutate((C_word*)lf[137]+1 /* (set! srfi-4#u8vector->blob/shared ...) */,t70);
2127 t72=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5281,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp);
2128 t73=C_mutate((C_word*)lf[139]+1 /* (set! srfi-4#s8vector->blob/shared ...) */,t72);
2129 t74=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5274,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp);
2130 t75=C_mutate((C_word*)lf[141]+1 /* (set! srfi-4#u16vector->blob/shared ...) */,t74);
2131 t76=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5267,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp);
2132 t77=C_mutate((C_word*)lf[143]+1 /* (set! srfi-4#s16vector->blob/shared ...) */,t76);
2133 t78=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5260,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp);
2134 t79=C_mutate((C_word*)lf[145]+1 /* (set! srfi-4#u32vector->blob/shared ...) */,t78);
2135 t80=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5253,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp);
2136 t81=C_mutate((C_word*)lf[147]+1 /* (set! srfi-4#s32vector->blob/shared ...) */,t80);
2137 t82=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5246,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp);
2138 t83=C_mutate((C_word*)lf[149]+1 /* (set! srfi-4#u64vector->blob/shared ...) */,t82);
2139 t84=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5239,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp);
2140 t85=C_mutate((C_word*)lf[151]+1 /* (set! srfi-4#s64vector->blob/shared ...) */,t84);
2141 t86=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5232,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp);
2142 t87=C_mutate((C_word*)lf[153]+1 /* (set! srfi-4#f32vector->blob/shared ...) */,t86);
2143 t88=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f5225,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp);
2144 t89=C_mutate((C_word*)lf[155]+1 /* (set! srfi-4#f64vector->blob/shared ...) */,t88);
2145 t90=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3743,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
2146 /* srfi-4.scm:579: pack-copy */
2147 f_3619(t90,lf[43],lf[265]);}
2148
2149 /* ext-free in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1627(C_word c,C_word * av)2150 static void C_ccall f_1627(C_word c,C_word *av){
2151 C_word tmp;
2152 C_word t0=av[0];
2153 C_word t1=av[1];
2154 C_word t2=av[2];
2155 C_word t3;
2156 C_word *a;
2157 if(c!=3) C_bad_argc_2(c,3,t0);
2158 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
2159 C_save_and_reclaim((void *)f_1627,c,av);}
2160 t3=t1;{
2161 C_word *av2=av;
2162 av2[0]=t3;
2163 av2[1]=stub228(C_SCHEME_UNDEFINED,t2);
2164 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
2165
2166 /* alloc in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1629(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5)2167 static void C_fcall f_1629(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
2168 C_word tmp;
2169 C_word t6;
2170 C_word t7;
2171 C_word *a;
2172 if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
2173 C_save_and_reclaim_args((void *)trf_1629,5,t1,t2,t3,t4,t5);}
2174 a=C_alloc(7);
2175 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1633,a[2]=t4,a[3]=t3,a[4]=t5,a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
2176 /* srfi-4.scm:273: ##sys#check-fixnum */
2177 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1));
2178 C_word av2[4];
2179 av2[0]=*((C_word*)lf[37]+1);
2180 av2[1]=t6;
2181 av2[2]=t4;
2182 av2[3]=t2;
2183 tp(4,av2);}}
2184
2185 /* k1631 in alloc in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1633(C_word c,C_word * av)2186 static void C_ccall f_1633(C_word c,C_word *av){
2187 C_word tmp;
2188 C_word t0=av[0];
2189 C_word t1=av[1];
2190 C_word t2;
2191 C_word t3;
2192 C_word *a;
2193 if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
2194 C_save_and_reclaim((void *)f_1633,c,av);}
2195 a=C_alloc(7);
2196 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1636,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
2197 if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],C_fix(0)))){
2198 /* srfi-4.scm:274: ##sys#error */
2199 t3=*((C_word*)lf[32]+1);{
2200 C_word *av2;
2201 if(c >= 5) {
2202 av2=av;
2203 } else {
2204 av2=C_alloc(5);
2205 }
2206 av2[0]=t3;
2207 av2[1]=t2;
2208 av2[2]=((C_word*)t0)[6];
2209 av2[3]=lf[36];
2210 av2[4]=((C_word*)t0)[2];
2211 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
2212 else{
2213 t3=t2;{
2214 C_word *av2=av;
2215 av2[0]=t3;
2216 av2[1]=C_SCHEME_UNDEFINED;
2217 f_1636(2,av2);}}}
2218
2219 /* k1634 in k1631 in alloc in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1636(C_word c,C_word * av)2220 static void C_ccall f_1636(C_word c,C_word *av){
2221 C_word tmp;
2222 C_word t0=av[0];
2223 C_word t1=av[1];
2224 C_word t2;
2225 C_word t3;
2226 C_word t4;
2227 C_word *a;
2228 if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
2229 C_save_and_reclaim((void *)f_1636,c,av);}
2230 a=C_alloc(6);
2231 t2=C_i_o_fixnum_times(((C_word*)t0)[2],((C_word*)t0)[3]);
2232 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1642,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
2233 if(C_truep(t2)){
2234 t4=t3;{
2235 C_word *av2=av;
2236 av2[0]=t4;
2237 av2[1]=C_SCHEME_UNDEFINED;
2238 f_1642(2,av2);}}
2239 else{
2240 /* srfi-4.scm:276: ##sys#error */
2241 t4=*((C_word*)lf[32]+1);{
2242 C_word *av2;
2243 if(c >= 4) {
2244 av2=av;
2245 } else {
2246 av2=C_alloc(4);
2247 }
2248 av2[0]=t4;
2249 av2[1]=t3;
2250 av2[2]=lf[35];
2251 av2[3]=((C_word*)t0)[2];
2252 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}
2253
2254 /* k1640 in k1634 in k1631 in alloc in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1642(C_word c,C_word * av)2255 static void C_ccall f_1642(C_word c,C_word *av){
2256 C_word tmp;
2257 C_word t0=av[0];
2258 C_word t1=av[1];
2259 C_word t2;
2260 C_word t3;
2261 C_word t4;
2262 C_word t5;
2263 C_word *a;
2264 if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
2265 C_save_and_reclaim((void *)f_1642,c,av);}
2266 a=C_alloc(3);
2267 if(C_truep(((C_word*)t0)[2])){
2268 t2=C_fix((C_word)sizeof(size_t) * CHAR_BIT);
2269 t3=C_i_foreign_unsigned_ranged_integer_argumentp(((C_word*)t0)[3],t2);
2270 t4=stub222(C_SCHEME_UNDEFINED,t3);
2271 if(C_truep(t4)){
2272 t5=((C_word*)t0)[4];{
2273 C_word *av2=av;
2274 av2[0]=t5;
2275 av2[1]=t4;
2276 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
2277 else{
2278 /* srfi-4.scm:280: ##sys#error */
2279 t5=*((C_word*)lf[32]+1);{
2280 C_word *av2;
2281 if(c >= 5) {
2282 av2=av;
2283 } else {
2284 av2=C_alloc(5);
2285 }
2286 av2[0]=t5;
2287 av2[1]=((C_word*)t0)[4];
2288 av2[2]=((C_word*)t0)[5];
2289 av2[3]=lf[33];
2290 av2[4]=((C_word*)t0)[3];
2291 ((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}
2292 else{
2293 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1657,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
2294 /* srfi-4.scm:281: ##sys#allocate-vector */
2295 t3=*((C_word*)lf[34]+1);{
2296 C_word *av2;
2297 if(c >= 6) {
2298 av2=av;
2299 } else {
2300 av2=C_alloc(6);
2301 }
2302 av2[0]=t3;
2303 av2[1]=t2;
2304 av2[2]=((C_word*)t0)[3];
2305 av2[3]=C_SCHEME_TRUE;
2306 av2[4]=C_SCHEME_FALSE;
2307 av2[5]=C_SCHEME_TRUE;
2308 ((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}
2309
2310 /* k1655 in k1640 in k1634 in k1631 in alloc in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1657(C_word c,C_word * av)2311 static void C_ccall f_1657(C_word c,C_word *av){
2312 C_word tmp;
2313 C_word t0=av[0];
2314 C_word t1=av[1];
2315 C_word t2;
2316 C_word t3;
2317 C_word *a;
2318 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
2319 C_save_and_reclaim((void *)f_1657,c,av);}
2320 t2=C_string_to_bytevector(t1);
2321 t3=((C_word*)t0)[2];{
2322 C_word *av2=av;
2323 av2[0]=t3;
2324 av2[1]=t1;
2325 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
2326
2327 /* srfi-4#release-number-vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1668(C_word c,C_word * av)2328 static void C_ccall f_1668(C_word c,C_word *av){
2329 C_word tmp;
2330 C_word t0=av[0];
2331 C_word t1=av[1];
2332 C_word t2=av[2];
2333 C_word t3;
2334 C_word t4;
2335 C_word *a;
2336 if(c!=3) C_bad_argc_2(c,3,t0);
2337 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
2338 C_save_and_reclaim((void *)f_1668,c,av);}
2339 a=C_alloc(4);
2340 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1675,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
2341 /* srfi-4.scm:287: number-vector? */
2342 t4=*((C_word*)lf[41]+1);{
2343 C_word *av2=av;
2344 av2[0]=t4;
2345 av2[1]=t3;
2346 av2[2]=t2;
2347 ((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
2348
2349 /* k1673 in srfi-4#release-number-vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1675(C_word c,C_word * av)2350 static void C_ccall f_1675(C_word c,C_word *av){
2351 C_word tmp;
2352 C_word t0=av[0];
2353 C_word t1=av[1];
2354 C_word t2;
2355 C_word *a;
2356 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
2357 C_save_and_reclaim((void *)f_1675,c,av);}
2358 if(C_truep(t1)){
2359 t2=((C_word*)t0)[2];{
2360 C_word *av2=av;
2361 av2[0]=t2;
2362 av2[1]=stub228(C_SCHEME_UNDEFINED,((C_word*)t0)[3]);
2363 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
2364 else{
2365 /* srfi-4.scm:289: ##sys#error */
2366 t2=*((C_word*)lf[32]+1);{
2367 C_word *av2;
2368 if(c >= 5) {
2369 av2=av;
2370 } else {
2371 av2=C_alloc(5);
2372 }
2373 av2[0]=t2;
2374 av2[1]=((C_word*)t0)[2];
2375 av2[2]=lf[39];
2376 av2[3]=lf[40];
2377 av2[4]=((C_word*)t0)[3];
2378 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}
2379
2380 /* srfi-4#make-u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1683(C_word c,C_word * av)2381 static void C_ccall f_1683(C_word c,C_word *av){
2382 C_word tmp;
2383 C_word t0=av[0];
2384 C_word t1=av[1];
2385 C_word t2=av[2];
2386 C_word t3;
2387 C_word t4;
2388 C_word t5;
2389 C_word t6;
2390 C_word t7;
2391 C_word t8;
2392 C_word t9;
2393 C_word t10;
2394 C_word t11;
2395 C_word t12;
2396 C_word t13;
2397 C_word *a;
2398 if(c<3) C_bad_min_argc_2(c,3,t0);
2399 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
2400 C_save_and_reclaim((void *)f_1683,c,av);}
2401 a=C_alloc(8);
2402 t3=C_rest_nullp(c,3);
2403 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
2404 t5=C_rest_nullp(c,3);
2405 t6=C_rest_nullp(c,4);
2406 t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
2407 t8=C_rest_nullp(c,4);
2408 t9=C_rest_nullp(c,5);
2409 t10=(C_truep(t9)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
2410 t11=C_rest_nullp(c,5);
2411 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1761,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t10,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
2412 /* srfi-4.scm:293: alloc */
2413 f_1629(t12,lf[45],C_fix(1),t2,t7);}
2414
2415 /* k1706 in k1759 in srfi-4#make-u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1708(C_word c,C_word * av)2416 static void C_ccall f_1708(C_word c,C_word *av){
2417 C_word tmp;
2418 C_word t0=av[0];
2419 C_word t1=av[1];
2420 C_word t2;
2421 C_word t3;
2422 C_word t4;
2423 C_word *a;
2424 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
2425 C_save_and_reclaim((void *)f_1708,c,av);}
2426 a=C_alloc(10);
2427 if(C_truep(C_i_not(((C_word*)t0)[2]))){
2428 t2=((C_word*)t0)[3];{
2429 C_word *av2=av;
2430 av2[0]=t2;
2431 av2[1]=((C_word*)t0)[4];
2432 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
2433 else{
2434 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1738,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
2435 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1719,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
2436 /* srfi-4.scm:109: ##sys#check-exact-uinteger */
2437 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1));
2438 C_word *av2;
2439 if(c >= 4) {
2440 av2=av;
2441 } else {
2442 av2=C_alloc(4);
2443 }
2444 av2[0]=*((C_word*)lf[46]+1);
2445 av2[1]=t3;
2446 av2[2]=((C_word*)t0)[2];
2447 av2[3]=lf[45];
2448 tp(4,av2);}}}
2449
2450 /* k1717 in k1706 in k1759 in srfi-4#make-u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1719(C_word c,C_word * av)2451 static void C_ccall f_1719(C_word c,C_word *av){
2452 C_word tmp;
2453 C_word t0=av[0];
2454 C_word t1=av[1];
2455 C_word t2;
2456 C_word t3;
2457 C_word *a;
2458 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
2459 C_save_and_reclaim((void *)f_1719,c,av);}
2460 if(C_truep(C_fixnum_greaterp(C_i_integer_length(((C_word*)t0)[2]),C_fix(8)))){
2461 t2=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
2462 /* srfi-4.scm:111: ##sys#error-hook */
2463 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
2464 C_word *av2;
2465 if(c >= 7) {
2466 av2=av;
2467 } else {
2468 av2=C_alloc(7);
2469 }
2470 av2[0]=*((C_word*)lf[44]+1);
2471 av2[1]=((C_word*)t0)[3];
2472 av2[2]=t2;
2473 av2[3]=lf[45];
2474 av2[4]=((C_word*)t0)[2];
2475 av2[5]=C_fix(0);
2476 av2[6]=C_fix(256);
2477 tp(7,av2);}}
2478 else{
2479 t2=C_SCHEME_UNDEFINED;
2480 t3=((C_word*)t0)[3];{
2481 C_word *av2=av;
2482 av2[0]=t3;
2483 av2[1]=t2;
2484 f_1738(2,av2);}}}
2485
2486 /* k1736 in k1706 in k1759 in srfi-4#make-u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1738(C_word c,C_word * av)2487 static void C_ccall f_1738(C_word c,C_word *av){
2488 C_word tmp;
2489 C_word t0=av[0];
2490 C_word t1=av[1];
2491 C_word t2;
2492 C_word t3;
2493 C_word *a;
2494 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
2495 C_save_and_reclaim((void *)f_1738,c,av);}
2496 a=C_alloc(6);
2497 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li23),tmp=(C_word)a,a+=6,tmp);
2498 t3=((C_word*)t0)[5];{
2499 C_word *av2=av;
2500 av2[0]=t3;
2501 av2[1]=(
2502 f_1743(t2,C_fix(0))
2503 );
2504 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
2505
2506 /* doloop274 in k1736 in k1706 in k1759 in srfi-4#make-u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1743(C_word t0,C_word t1)2507 static C_word C_fcall f_1743(C_word t0,C_word t1){
2508 C_word tmp;
2509 C_word t2;
2510 C_word t3;
2511 C_word t4;
2512 C_stack_overflow_check;
2513 loop:{}
2514 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
2515 return(((C_word*)t0)[3]);}
2516 else{
2517 t2=C_u_i_u8vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
2518 t4=C_fixnum_plus(t1,C_fix(1));
2519 t1=t4;
2520 goto loop;}}
2521
2522 /* k1759 in srfi-4#make-u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1761(C_word c,C_word * av)2523 static void C_ccall f_1761(C_word c,C_word *av){
2524 C_word tmp;
2525 C_word t0=av[0];
2526 C_word t1=av[1];
2527 C_word t2;
2528 C_word t3;
2529 C_word t4;
2530 C_word *a;
2531 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
2532 C_save_and_reclaim((void *)f_1761,c,av);}
2533 a=C_alloc(9);
2534 t2=C_a_i_record2(&a,2,lf[43],t1);
2535 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1708,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
2536 if(C_truep(((C_word*)t0)[5])){
2537 if(C_truep(((C_word*)t0)[6])){
2538 /* srfi-4.scm:294: chicken.gc#set-finalizer! */
2539 t4=*((C_word*)lf[47]+1);{
2540 C_word *av2;
2541 if(c >= 4) {
2542 av2=av;
2543 } else {
2544 av2=C_alloc(4);
2545 }
2546 av2[0]=t4;
2547 av2[1]=t3;
2548 av2[2]=t2;
2549 av2[3]=((C_word*)t0)[7];
2550 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
2551 else{
2552 t4=t3;{
2553 C_word *av2=av;
2554 av2[0]=t4;
2555 av2[1]=C_SCHEME_UNDEFINED;
2556 f_1708(2,av2);}}}
2557 else{
2558 t4=t3;{
2559 C_word *av2=av;
2560 av2[0]=t4;
2561 av2[1]=C_SCHEME_UNDEFINED;
2562 f_1708(2,av2);}}}
2563
2564 /* srfi-4#make-s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1799(C_word c,C_word * av)2565 static void C_ccall f_1799(C_word c,C_word *av){
2566 C_word tmp;
2567 C_word t0=av[0];
2568 C_word t1=av[1];
2569 C_word t2=av[2];
2570 C_word t3;
2571 C_word t4;
2572 C_word t5;
2573 C_word t6;
2574 C_word t7;
2575 C_word t8;
2576 C_word t9;
2577 C_word t10;
2578 C_word t11;
2579 C_word t12;
2580 C_word t13;
2581 C_word *a;
2582 if(c<3) C_bad_min_argc_2(c,3,t0);
2583 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
2584 C_save_and_reclaim((void *)f_1799,c,av);}
2585 a=C_alloc(8);
2586 t3=C_rest_nullp(c,3);
2587 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
2588 t5=C_rest_nullp(c,3);
2589 t6=C_rest_nullp(c,4);
2590 t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
2591 t8=C_rest_nullp(c,4);
2592 t9=C_rest_nullp(c,5);
2593 t10=(C_truep(t9)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
2594 t11=C_rest_nullp(c,5);
2595 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1877,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t10,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
2596 /* srfi-4.scm:305: alloc */
2597 f_1629(t12,lf[50],C_fix(1),t2,t7);}
2598
2599 /* k1822 in k1875 in srfi-4#make-s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1824(C_word c,C_word * av)2600 static void C_ccall f_1824(C_word c,C_word *av){
2601 C_word tmp;
2602 C_word t0=av[0];
2603 C_word t1=av[1];
2604 C_word t2;
2605 C_word t3;
2606 C_word t4;
2607 C_word *a;
2608 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
2609 C_save_and_reclaim((void *)f_1824,c,av);}
2610 a=C_alloc(10);
2611 if(C_truep(C_i_not(((C_word*)t0)[2]))){
2612 t2=((C_word*)t0)[3];{
2613 C_word *av2=av;
2614 av2[0]=t2;
2615 av2[1]=((C_word*)t0)[4];
2616 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
2617 else{
2618 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1854,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
2619 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1835,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
2620 /* srfi-4.scm:109: ##sys#check-exact-uinteger */
2621 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1));
2622 C_word *av2;
2623 if(c >= 4) {
2624 av2=av;
2625 } else {
2626 av2=C_alloc(4);
2627 }
2628 av2[0]=*((C_word*)lf[46]+1);
2629 av2[1]=t3;
2630 av2[2]=((C_word*)t0)[2];
2631 av2[3]=lf[50];
2632 tp(4,av2);}}}
2633
2634 /* k1833 in k1822 in k1875 in srfi-4#make-s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1835(C_word c,C_word * av)2635 static void C_ccall f_1835(C_word c,C_word *av){
2636 C_word tmp;
2637 C_word t0=av[0];
2638 C_word t1=av[1];
2639 C_word t2;
2640 C_word t3;
2641 C_word *a;
2642 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
2643 C_save_and_reclaim((void *)f_1835,c,av);}
2644 if(C_truep(C_fixnum_greaterp(C_i_integer_length(((C_word*)t0)[2]),C_fix(8)))){
2645 t2=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
2646 /* srfi-4.scm:111: ##sys#error-hook */
2647 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
2648 C_word *av2;
2649 if(c >= 7) {
2650 av2=av;
2651 } else {
2652 av2=C_alloc(7);
2653 }
2654 av2[0]=*((C_word*)lf[44]+1);
2655 av2[1]=((C_word*)t0)[3];
2656 av2[2]=t2;
2657 av2[3]=lf[50];
2658 av2[4]=((C_word*)t0)[2];
2659 av2[5]=C_fix(0);
2660 av2[6]=C_fix(256);
2661 tp(7,av2);}}
2662 else{
2663 t2=C_SCHEME_UNDEFINED;
2664 t3=((C_word*)t0)[3];{
2665 C_word *av2=av;
2666 av2[0]=t3;
2667 av2[1]=t2;
2668 f_1854(2,av2);}}}
2669
2670 /* k1852 in k1822 in k1875 in srfi-4#make-s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1854(C_word c,C_word * av)2671 static void C_ccall f_1854(C_word c,C_word *av){
2672 C_word tmp;
2673 C_word t0=av[0];
2674 C_word t1=av[1];
2675 C_word t2;
2676 C_word t3;
2677 C_word *a;
2678 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
2679 C_save_and_reclaim((void *)f_1854,c,av);}
2680 a=C_alloc(6);
2681 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1859,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li25),tmp=(C_word)a,a+=6,tmp);
2682 t3=((C_word*)t0)[5];{
2683 C_word *av2=av;
2684 av2[0]=t3;
2685 av2[1]=(
2686 f_1859(t2,C_fix(0))
2687 );
2688 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
2689
2690 /* doloop308 in k1852 in k1822 in k1875 in srfi-4#make-s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1859(C_word t0,C_word t1)2691 static C_word C_fcall f_1859(C_word t0,C_word t1){
2692 C_word tmp;
2693 C_word t2;
2694 C_word t3;
2695 C_word t4;
2696 C_stack_overflow_check;
2697 loop:{}
2698 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
2699 return(((C_word*)t0)[3]);}
2700 else{
2701 t2=C_u_i_s8vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
2702 t4=C_fixnum_plus(t1,C_fix(1));
2703 t1=t4;
2704 goto loop;}}
2705
2706 /* k1875 in srfi-4#make-s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1877(C_word c,C_word * av)2707 static void C_ccall f_1877(C_word c,C_word *av){
2708 C_word tmp;
2709 C_word t0=av[0];
2710 C_word t1=av[1];
2711 C_word t2;
2712 C_word t3;
2713 C_word t4;
2714 C_word *a;
2715 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
2716 C_save_and_reclaim((void *)f_1877,c,av);}
2717 a=C_alloc(9);
2718 t2=C_a_i_record2(&a,2,lf[49],t1);
2719 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1824,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
2720 if(C_truep(((C_word*)t0)[5])){
2721 if(C_truep(((C_word*)t0)[6])){
2722 /* srfi-4.scm:306: chicken.gc#set-finalizer! */
2723 t4=*((C_word*)lf[47]+1);{
2724 C_word *av2;
2725 if(c >= 4) {
2726 av2=av;
2727 } else {
2728 av2=C_alloc(4);
2729 }
2730 av2[0]=t4;
2731 av2[1]=t3;
2732 av2[2]=t2;
2733 av2[3]=((C_word*)t0)[7];
2734 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
2735 else{
2736 t4=t3;{
2737 C_word *av2=av;
2738 av2[0]=t4;
2739 av2[1]=C_SCHEME_UNDEFINED;
2740 f_1824(2,av2);}}}
2741 else{
2742 t4=t3;{
2743 C_word *av2=av;
2744 av2[0]=t4;
2745 av2[1]=C_SCHEME_UNDEFINED;
2746 f_1824(2,av2);}}}
2747
2748 /* srfi-4#make-u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1915(C_word c,C_word * av)2749 static void C_ccall f_1915(C_word c,C_word *av){
2750 C_word tmp;
2751 C_word t0=av[0];
2752 C_word t1=av[1];
2753 C_word t2=av[2];
2754 C_word t3;
2755 C_word t4;
2756 C_word t5;
2757 C_word t6;
2758 C_word t7;
2759 C_word t8;
2760 C_word t9;
2761 C_word t10;
2762 C_word t11;
2763 C_word t12;
2764 C_word t13;
2765 C_word *a;
2766 if(c<3) C_bad_min_argc_2(c,3,t0);
2767 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
2768 C_save_and_reclaim((void *)f_1915,c,av);}
2769 a=C_alloc(8);
2770 t3=C_rest_nullp(c,3);
2771 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
2772 t5=C_rest_nullp(c,3);
2773 t6=C_rest_nullp(c,4);
2774 t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
2775 t8=C_rest_nullp(c,4);
2776 t9=C_rest_nullp(c,5);
2777 t10=(C_truep(t9)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
2778 t11=C_rest_nullp(c,5);
2779 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1993,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t10,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
2780 /* srfi-4.scm:317: alloc */
2781 f_1629(t12,lf[53],C_fix(2),t2,t7);}
2782
2783 /* k1938 in k1991 in srfi-4#make-u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1940(C_word c,C_word * av)2784 static void C_ccall f_1940(C_word c,C_word *av){
2785 C_word tmp;
2786 C_word t0=av[0];
2787 C_word t1=av[1];
2788 C_word t2;
2789 C_word t3;
2790 C_word t4;
2791 C_word *a;
2792 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
2793 C_save_and_reclaim((void *)f_1940,c,av);}
2794 a=C_alloc(10);
2795 if(C_truep(C_i_not(((C_word*)t0)[2]))){
2796 t2=((C_word*)t0)[3];{
2797 C_word *av2=av;
2798 av2[0]=t2;
2799 av2[1]=((C_word*)t0)[4];
2800 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
2801 else{
2802 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1970,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
2803 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1951,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
2804 /* srfi-4.scm:109: ##sys#check-exact-uinteger */
2805 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1));
2806 C_word *av2;
2807 if(c >= 4) {
2808 av2=av;
2809 } else {
2810 av2=C_alloc(4);
2811 }
2812 av2[0]=*((C_word*)lf[46]+1);
2813 av2[1]=t3;
2814 av2[2]=((C_word*)t0)[2];
2815 av2[3]=lf[53];
2816 tp(4,av2);}}}
2817
2818 /* k1949 in k1938 in k1991 in srfi-4#make-u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1951(C_word c,C_word * av)2819 static void C_ccall f_1951(C_word c,C_word *av){
2820 C_word tmp;
2821 C_word t0=av[0];
2822 C_word t1=av[1];
2823 C_word t2;
2824 C_word t3;
2825 C_word *a;
2826 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
2827 C_save_and_reclaim((void *)f_1951,c,av);}
2828 if(C_truep(C_fixnum_greaterp(C_i_integer_length(((C_word*)t0)[2]),C_fix(16)))){
2829 t2=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
2830 /* srfi-4.scm:111: ##sys#error-hook */
2831 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
2832 C_word *av2;
2833 if(c >= 7) {
2834 av2=av;
2835 } else {
2836 av2=C_alloc(7);
2837 }
2838 av2[0]=*((C_word*)lf[44]+1);
2839 av2[1]=((C_word*)t0)[3];
2840 av2[2]=t2;
2841 av2[3]=lf[53];
2842 av2[4]=((C_word*)t0)[2];
2843 av2[5]=C_fix(0);
2844 av2[6]=C_fix(65536);
2845 tp(7,av2);}}
2846 else{
2847 t2=C_SCHEME_UNDEFINED;
2848 t3=((C_word*)t0)[3];{
2849 C_word *av2=av;
2850 av2[0]=t3;
2851 av2[1]=t2;
2852 f_1970(2,av2);}}}
2853
2854 /* k1968 in k1938 in k1991 in srfi-4#make-u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1970(C_word c,C_word * av)2855 static void C_ccall f_1970(C_word c,C_word *av){
2856 C_word tmp;
2857 C_word t0=av[0];
2858 C_word t1=av[1];
2859 C_word t2;
2860 C_word t3;
2861 C_word *a;
2862 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
2863 C_save_and_reclaim((void *)f_1970,c,av);}
2864 a=C_alloc(6);
2865 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1975,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li27),tmp=(C_word)a,a+=6,tmp);
2866 t3=((C_word*)t0)[5];{
2867 C_word *av2=av;
2868 av2[0]=t3;
2869 av2[1]=(
2870 f_1975(t2,C_fix(0))
2871 );
2872 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
2873
2874 /* doloop342 in k1968 in k1938 in k1991 in srfi-4#make-u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1975(C_word t0,C_word t1)2875 static C_word C_fcall f_1975(C_word t0,C_word t1){
2876 C_word tmp;
2877 C_word t2;
2878 C_word t3;
2879 C_word t4;
2880 C_stack_overflow_check;
2881 loop:{}
2882 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
2883 return(((C_word*)t0)[3]);}
2884 else{
2885 t2=C_u_i_u16vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
2886 t4=C_fixnum_plus(t1,C_fix(1));
2887 t1=t4;
2888 goto loop;}}
2889
2890 /* k1991 in srfi-4#make-u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_1993(C_word c,C_word * av)2891 static void C_ccall f_1993(C_word c,C_word *av){
2892 C_word tmp;
2893 C_word t0=av[0];
2894 C_word t1=av[1];
2895 C_word t2;
2896 C_word t3;
2897 C_word t4;
2898 C_word *a;
2899 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
2900 C_save_and_reclaim((void *)f_1993,c,av);}
2901 a=C_alloc(9);
2902 t2=C_a_i_record2(&a,2,lf[52],t1);
2903 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1940,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
2904 if(C_truep(((C_word*)t0)[5])){
2905 if(C_truep(((C_word*)t0)[6])){
2906 /* srfi-4.scm:318: chicken.gc#set-finalizer! */
2907 t4=*((C_word*)lf[47]+1);{
2908 C_word *av2;
2909 if(c >= 4) {
2910 av2=av;
2911 } else {
2912 av2=C_alloc(4);
2913 }
2914 av2[0]=t4;
2915 av2[1]=t3;
2916 av2[2]=t2;
2917 av2[3]=((C_word*)t0)[7];
2918 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
2919 else{
2920 t4=t3;{
2921 C_word *av2=av;
2922 av2[0]=t4;
2923 av2[1]=C_SCHEME_UNDEFINED;
2924 f_1940(2,av2);}}}
2925 else{
2926 t4=t3;{
2927 C_word *av2=av;
2928 av2[0]=t4;
2929 av2[1]=C_SCHEME_UNDEFINED;
2930 f_1940(2,av2);}}}
2931
2932 /* srfi-4#make-s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2031(C_word c,C_word * av)2933 static void C_ccall f_2031(C_word c,C_word *av){
2934 C_word tmp;
2935 C_word t0=av[0];
2936 C_word t1=av[1];
2937 C_word t2=av[2];
2938 C_word t3;
2939 C_word t4;
2940 C_word t5;
2941 C_word t6;
2942 C_word t7;
2943 C_word t8;
2944 C_word t9;
2945 C_word t10;
2946 C_word t11;
2947 C_word t12;
2948 C_word t13;
2949 C_word *a;
2950 if(c<3) C_bad_min_argc_2(c,3,t0);
2951 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
2952 C_save_and_reclaim((void *)f_2031,c,av);}
2953 a=C_alloc(8);
2954 t3=C_rest_nullp(c,3);
2955 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
2956 t5=C_rest_nullp(c,3);
2957 t6=C_rest_nullp(c,4);
2958 t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
2959 t8=C_rest_nullp(c,4);
2960 t9=C_rest_nullp(c,5);
2961 t10=(C_truep(t9)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
2962 t11=C_rest_nullp(c,5);
2963 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2119,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t10,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
2964 /* srfi-4.scm:329: alloc */
2965 f_1629(t12,lf[56],C_fix(2),t2,t7);}
2966
2967 /* k2054 in k2117 in srfi-4#make-s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2056(C_word c,C_word * av)2968 static void C_ccall f_2056(C_word c,C_word *av){
2969 C_word tmp;
2970 C_word t0=av[0];
2971 C_word t1=av[1];
2972 C_word t2;
2973 C_word t3;
2974 C_word t4;
2975 C_word *a;
2976 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
2977 C_save_and_reclaim((void *)f_2056,c,av);}
2978 a=C_alloc(10);
2979 if(C_truep(C_i_not(((C_word*)t0)[2]))){
2980 t2=((C_word*)t0)[3];{
2981 C_word *av2=av;
2982 av2[0]=t2;
2983 av2[1]=((C_word*)t0)[4];
2984 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
2985 else{
2986 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2096,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
2987 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2067,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
2988 /* srfi-4.scm:115: ##sys#check-exact-integer */
2989 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1));
2990 C_word *av2;
2991 if(c >= 4) {
2992 av2=av;
2993 } else {
2994 av2=C_alloc(4);
2995 }
2996 av2[0]=*((C_word*)lf[57]+1);
2997 av2[1]=t3;
2998 av2[2]=((C_word*)t0)[2];
2999 av2[3]=lf[56];
3000 tp(4,av2);}}}
3001
3002 /* k2065 in k2054 in k2117 in srfi-4#make-s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2067(C_word c,C_word * av)3003 static void C_ccall f_2067(C_word c,C_word *av){
3004 C_word tmp;
3005 C_word t0=av[0];
3006 C_word t1=av[1];
3007 C_word t2;
3008 C_word t3;
3009 C_word t4;
3010 C_word t5;
3011 C_word t6;
3012 C_word t7;
3013 C_word *a;
3014 if(C_unlikely(!C_demand(C_calculate_demand(58,c,6)))){
3015 C_save_and_reclaim((void *)f_2067,c,av);}
3016 a=C_alloc(58);
3017 t2=C_i_integer_length(((C_word*)t0)[2]);
3018 t3=C_fixnum_difference(C_fix(16),C_fix(1));
3019 if(C_truep(C_fixnum_greaterp(t2,t3))){
3020 t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
3021 t5=C_s_a_i_negate(&a,1,C_fix(65536));
3022 t6=C_s_a_i_minus(&a,2,C_fix(65536),C_fix(1));
3023 /* srfi-4.scm:117: ##sys#error-hook */
3024 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
3025 C_word *av2;
3026 if(c >= 7) {
3027 av2=av;
3028 } else {
3029 av2=C_alloc(7);
3030 }
3031 av2[0]=*((C_word*)lf[44]+1);
3032 av2[1]=((C_word*)t0)[3];
3033 av2[2]=t4;
3034 av2[3]=lf[56];
3035 av2[4]=((C_word*)t0)[2];
3036 av2[5]=t5;
3037 av2[6]=t6;
3038 tp(7,av2);}}
3039 else{
3040 t4=C_SCHEME_UNDEFINED;
3041 t5=((C_word*)t0)[3];{
3042 C_word *av2=av;
3043 av2[0]=t5;
3044 av2[1]=t4;
3045 f_2096(2,av2);}}}
3046
3047 /* k2094 in k2054 in k2117 in srfi-4#make-s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2096(C_word c,C_word * av)3048 static void C_ccall f_2096(C_word c,C_word *av){
3049 C_word tmp;
3050 C_word t0=av[0];
3051 C_word t1=av[1];
3052 C_word t2;
3053 C_word t3;
3054 C_word *a;
3055 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
3056 C_save_and_reclaim((void *)f_2096,c,av);}
3057 a=C_alloc(6);
3058 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2101,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp);
3059 t3=((C_word*)t0)[5];{
3060 C_word *av2=av;
3061 av2[0]=t3;
3062 av2[1]=(
3063 f_2101(t2,C_fix(0))
3064 );
3065 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3066
3067 /* doloop376 in k2094 in k2054 in k2117 in srfi-4#make-s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2101(C_word t0,C_word t1)3068 static C_word C_fcall f_2101(C_word t0,C_word t1){
3069 C_word tmp;
3070 C_word t2;
3071 C_word t3;
3072 C_word t4;
3073 C_stack_overflow_check;
3074 loop:{}
3075 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
3076 return(((C_word*)t0)[3]);}
3077 else{
3078 t2=C_u_i_s16vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
3079 t4=C_fixnum_plus(t1,C_fix(1));
3080 t1=t4;
3081 goto loop;}}
3082
3083 /* k2117 in srfi-4#make-s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2119(C_word c,C_word * av)3084 static void C_ccall f_2119(C_word c,C_word *av){
3085 C_word tmp;
3086 C_word t0=av[0];
3087 C_word t1=av[1];
3088 C_word t2;
3089 C_word t3;
3090 C_word t4;
3091 C_word *a;
3092 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
3093 C_save_and_reclaim((void *)f_2119,c,av);}
3094 a=C_alloc(9);
3095 t2=C_a_i_record2(&a,2,lf[55],t1);
3096 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2056,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
3097 if(C_truep(((C_word*)t0)[5])){
3098 if(C_truep(((C_word*)t0)[6])){
3099 /* srfi-4.scm:330: chicken.gc#set-finalizer! */
3100 t4=*((C_word*)lf[47]+1);{
3101 C_word *av2;
3102 if(c >= 4) {
3103 av2=av;
3104 } else {
3105 av2=C_alloc(4);
3106 }
3107 av2[0]=t4;
3108 av2[1]=t3;
3109 av2[2]=t2;
3110 av2[3]=((C_word*)t0)[7];
3111 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
3112 else{
3113 t4=t3;{
3114 C_word *av2=av;
3115 av2[0]=t4;
3116 av2[1]=C_SCHEME_UNDEFINED;
3117 f_2056(2,av2);}}}
3118 else{
3119 t4=t3;{
3120 C_word *av2=av;
3121 av2[0]=t4;
3122 av2[1]=C_SCHEME_UNDEFINED;
3123 f_2056(2,av2);}}}
3124
3125 /* srfi-4#make-u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2157(C_word c,C_word * av)3126 static void C_ccall f_2157(C_word c,C_word *av){
3127 C_word tmp;
3128 C_word t0=av[0];
3129 C_word t1=av[1];
3130 C_word t2=av[2];
3131 C_word t3;
3132 C_word t4;
3133 C_word t5;
3134 C_word t6;
3135 C_word t7;
3136 C_word t8;
3137 C_word t9;
3138 C_word t10;
3139 C_word t11;
3140 C_word t12;
3141 C_word t13;
3142 C_word *a;
3143 if(c<3) C_bad_min_argc_2(c,3,t0);
3144 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
3145 C_save_and_reclaim((void *)f_2157,c,av);}
3146 a=C_alloc(8);
3147 t3=C_rest_nullp(c,3);
3148 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
3149 t5=C_rest_nullp(c,3);
3150 t6=C_rest_nullp(c,4);
3151 t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
3152 t8=C_rest_nullp(c,4);
3153 t9=C_rest_nullp(c,5);
3154 t10=(C_truep(t9)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
3155 t11=C_rest_nullp(c,5);
3156 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2235,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t10,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
3157 /* srfi-4.scm:341: alloc */
3158 f_1629(t12,lf[60],C_fix(4),t2,t7);}
3159
3160 /* k2180 in k2233 in srfi-4#make-u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2182(C_word c,C_word * av)3161 static void C_ccall f_2182(C_word c,C_word *av){
3162 C_word tmp;
3163 C_word t0=av[0];
3164 C_word t1=av[1];
3165 C_word t2;
3166 C_word t3;
3167 C_word t4;
3168 C_word *a;
3169 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
3170 C_save_and_reclaim((void *)f_2182,c,av);}
3171 a=C_alloc(10);
3172 if(C_truep(C_i_not(((C_word*)t0)[2]))){
3173 t2=((C_word*)t0)[3];{
3174 C_word *av2=av;
3175 av2[0]=t2;
3176 av2[1]=((C_word*)t0)[4];
3177 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3178 else{
3179 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2212,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
3180 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2193,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
3181 /* srfi-4.scm:109: ##sys#check-exact-uinteger */
3182 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1));
3183 C_word *av2;
3184 if(c >= 4) {
3185 av2=av;
3186 } else {
3187 av2=C_alloc(4);
3188 }
3189 av2[0]=*((C_word*)lf[46]+1);
3190 av2[1]=t3;
3191 av2[2]=((C_word*)t0)[2];
3192 av2[3]=lf[60];
3193 tp(4,av2);}}}
3194
3195 /* k2191 in k2180 in k2233 in srfi-4#make-u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2193(C_word c,C_word * av)3196 static void C_ccall f_2193(C_word c,C_word *av){
3197 C_word tmp;
3198 C_word t0=av[0];
3199 C_word t1=av[1];
3200 C_word t2;
3201 C_word t3;
3202 C_word *a;
3203 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
3204 C_save_and_reclaim((void *)f_2193,c,av);}
3205 if(C_truep(C_fixnum_greaterp(C_i_integer_length(((C_word*)t0)[2]),C_fix(32)))){
3206 t2=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
3207 /* srfi-4.scm:111: ##sys#error-hook */
3208 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
3209 C_word *av2;
3210 if(c >= 7) {
3211 av2=av;
3212 } else {
3213 av2=C_alloc(7);
3214 }
3215 av2[0]=*((C_word*)lf[44]+1);
3216 av2[1]=((C_word*)t0)[3];
3217 av2[2]=t2;
3218 av2[3]=lf[60];
3219 av2[4]=((C_word*)t0)[2];
3220 av2[5]=C_fix(0);
3221 av2[6]=lf[61];
3222 tp(7,av2);}}
3223 else{
3224 t2=C_SCHEME_UNDEFINED;
3225 t3=((C_word*)t0)[3];{
3226 C_word *av2=av;
3227 av2[0]=t3;
3228 av2[1]=t2;
3229 f_2212(2,av2);}}}
3230
3231 /* k2210 in k2180 in k2233 in srfi-4#make-u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2212(C_word c,C_word * av)3232 static void C_ccall f_2212(C_word c,C_word *av){
3233 C_word tmp;
3234 C_word t0=av[0];
3235 C_word t1=av[1];
3236 C_word t2;
3237 C_word t3;
3238 C_word *a;
3239 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
3240 C_save_and_reclaim((void *)f_2212,c,av);}
3241 a=C_alloc(6);
3242 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2217,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li31),tmp=(C_word)a,a+=6,tmp);
3243 t3=((C_word*)t0)[5];{
3244 C_word *av2=av;
3245 av2[0]=t3;
3246 av2[1]=(
3247 f_2217(t2,C_fix(0))
3248 );
3249 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3250
3251 /* doloop410 in k2210 in k2180 in k2233 in srfi-4#make-u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2217(C_word t0,C_word t1)3252 static C_word C_fcall f_2217(C_word t0,C_word t1){
3253 C_word tmp;
3254 C_word t2;
3255 C_word t3;
3256 C_word t4;
3257 C_stack_overflow_check;
3258 loop:{}
3259 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
3260 return(((C_word*)t0)[3]);}
3261 else{
3262 t2=C_u_i_u32vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
3263 t4=C_fixnum_plus(t1,C_fix(1));
3264 t1=t4;
3265 goto loop;}}
3266
3267 /* k2233 in srfi-4#make-u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2235(C_word c,C_word * av)3268 static void C_ccall f_2235(C_word c,C_word *av){
3269 C_word tmp;
3270 C_word t0=av[0];
3271 C_word t1=av[1];
3272 C_word t2;
3273 C_word t3;
3274 C_word t4;
3275 C_word *a;
3276 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
3277 C_save_and_reclaim((void *)f_2235,c,av);}
3278 a=C_alloc(9);
3279 t2=C_a_i_record2(&a,2,lf[59],t1);
3280 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
3281 if(C_truep(((C_word*)t0)[5])){
3282 if(C_truep(((C_word*)t0)[6])){
3283 /* srfi-4.scm:342: chicken.gc#set-finalizer! */
3284 t4=*((C_word*)lf[47]+1);{
3285 C_word *av2;
3286 if(c >= 4) {
3287 av2=av;
3288 } else {
3289 av2=C_alloc(4);
3290 }
3291 av2[0]=t4;
3292 av2[1]=t3;
3293 av2[2]=t2;
3294 av2[3]=((C_word*)t0)[7];
3295 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
3296 else{
3297 t4=t3;{
3298 C_word *av2=av;
3299 av2[0]=t4;
3300 av2[1]=C_SCHEME_UNDEFINED;
3301 f_2182(2,av2);}}}
3302 else{
3303 t4=t3;{
3304 C_word *av2=av;
3305 av2[0]=t4;
3306 av2[1]=C_SCHEME_UNDEFINED;
3307 f_2182(2,av2);}}}
3308
3309 /* srfi-4#make-u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2273(C_word c,C_word * av)3310 static void C_ccall f_2273(C_word c,C_word *av){
3311 C_word tmp;
3312 C_word t0=av[0];
3313 C_word t1=av[1];
3314 C_word t2=av[2];
3315 C_word t3;
3316 C_word t4;
3317 C_word t5;
3318 C_word t6;
3319 C_word t7;
3320 C_word t8;
3321 C_word t9;
3322 C_word t10;
3323 C_word t11;
3324 C_word t12;
3325 C_word t13;
3326 C_word *a;
3327 if(c<3) C_bad_min_argc_2(c,3,t0);
3328 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
3329 C_save_and_reclaim((void *)f_2273,c,av);}
3330 a=C_alloc(8);
3331 t3=C_rest_nullp(c,3);
3332 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
3333 t5=C_rest_nullp(c,3);
3334 t6=C_rest_nullp(c,4);
3335 t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
3336 t8=C_rest_nullp(c,4);
3337 t9=C_rest_nullp(c,5);
3338 t10=(C_truep(t9)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
3339 t11=C_rest_nullp(c,5);
3340 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2351,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t10,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
3341 /* srfi-4.scm:353: alloc */
3342 f_1629(t12,lf[64],C_fix(8),t2,t7);}
3343
3344 /* k2296 in k2349 in srfi-4#make-u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2298(C_word c,C_word * av)3345 static void C_ccall f_2298(C_word c,C_word *av){
3346 C_word tmp;
3347 C_word t0=av[0];
3348 C_word t1=av[1];
3349 C_word t2;
3350 C_word t3;
3351 C_word t4;
3352 C_word *a;
3353 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
3354 C_save_and_reclaim((void *)f_2298,c,av);}
3355 a=C_alloc(10);
3356 if(C_truep(C_i_not(((C_word*)t0)[2]))){
3357 t2=((C_word*)t0)[3];{
3358 C_word *av2=av;
3359 av2[0]=t2;
3360 av2[1]=((C_word*)t0)[4];
3361 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3362 else{
3363 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2328,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
3364 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2309,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
3365 /* srfi-4.scm:109: ##sys#check-exact-uinteger */
3366 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1));
3367 C_word *av2;
3368 if(c >= 4) {
3369 av2=av;
3370 } else {
3371 av2=C_alloc(4);
3372 }
3373 av2[0]=*((C_word*)lf[46]+1);
3374 av2[1]=t3;
3375 av2[2]=((C_word*)t0)[2];
3376 av2[3]=lf[64];
3377 tp(4,av2);}}}
3378
3379 /* k2307 in k2296 in k2349 in srfi-4#make-u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2309(C_word c,C_word * av)3380 static void C_ccall f_2309(C_word c,C_word *av){
3381 C_word tmp;
3382 C_word t0=av[0];
3383 C_word t1=av[1];
3384 C_word t2;
3385 C_word t3;
3386 C_word *a;
3387 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
3388 C_save_and_reclaim((void *)f_2309,c,av);}
3389 if(C_truep(C_fixnum_greaterp(C_i_integer_length(((C_word*)t0)[2]),C_fix(64)))){
3390 t2=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
3391 /* srfi-4.scm:111: ##sys#error-hook */
3392 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
3393 C_word *av2;
3394 if(c >= 7) {
3395 av2=av;
3396 } else {
3397 av2=C_alloc(7);
3398 }
3399 av2[0]=*((C_word*)lf[44]+1);
3400 av2[1]=((C_word*)t0)[3];
3401 av2[2]=t2;
3402 av2[3]=lf[64];
3403 av2[4]=((C_word*)t0)[2];
3404 av2[5]=C_fix(0);
3405 av2[6]=lf[65];
3406 tp(7,av2);}}
3407 else{
3408 t2=C_SCHEME_UNDEFINED;
3409 t3=((C_word*)t0)[3];{
3410 C_word *av2=av;
3411 av2[0]=t3;
3412 av2[1]=t2;
3413 f_2328(2,av2);}}}
3414
3415 /* k2326 in k2296 in k2349 in srfi-4#make-u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2328(C_word c,C_word * av)3416 static void C_ccall f_2328(C_word c,C_word *av){
3417 C_word tmp;
3418 C_word t0=av[0];
3419 C_word t1=av[1];
3420 C_word t2;
3421 C_word t3;
3422 C_word *a;
3423 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
3424 C_save_and_reclaim((void *)f_2328,c,av);}
3425 a=C_alloc(6);
3426 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2333,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li33),tmp=(C_word)a,a+=6,tmp);
3427 t3=((C_word*)t0)[5];{
3428 C_word *av2=av;
3429 av2[0]=t3;
3430 av2[1]=(
3431 f_2333(t2,C_fix(0))
3432 );
3433 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3434
3435 /* doloop444 in k2326 in k2296 in k2349 in srfi-4#make-u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2333(C_word t0,C_word t1)3436 static C_word C_fcall f_2333(C_word t0,C_word t1){
3437 C_word tmp;
3438 C_word t2;
3439 C_word t3;
3440 C_word t4;
3441 C_stack_overflow_check;
3442 loop:{}
3443 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
3444 return(((C_word*)t0)[3]);}
3445 else{
3446 t2=C_u_i_u64vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
3447 t4=C_fixnum_plus(t1,C_fix(1));
3448 t1=t4;
3449 goto loop;}}
3450
3451 /* k2349 in srfi-4#make-u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2351(C_word c,C_word * av)3452 static void C_ccall f_2351(C_word c,C_word *av){
3453 C_word tmp;
3454 C_word t0=av[0];
3455 C_word t1=av[1];
3456 C_word t2;
3457 C_word t3;
3458 C_word t4;
3459 C_word *a;
3460 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
3461 C_save_and_reclaim((void *)f_2351,c,av);}
3462 a=C_alloc(9);
3463 t2=C_a_i_record2(&a,2,lf[63],t1);
3464 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2298,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
3465 if(C_truep(((C_word*)t0)[5])){
3466 if(C_truep(((C_word*)t0)[6])){
3467 /* srfi-4.scm:354: chicken.gc#set-finalizer! */
3468 t4=*((C_word*)lf[47]+1);{
3469 C_word *av2;
3470 if(c >= 4) {
3471 av2=av;
3472 } else {
3473 av2=C_alloc(4);
3474 }
3475 av2[0]=t4;
3476 av2[1]=t3;
3477 av2[2]=t2;
3478 av2[3]=((C_word*)t0)[7];
3479 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
3480 else{
3481 t4=t3;{
3482 C_word *av2=av;
3483 av2[0]=t4;
3484 av2[1]=C_SCHEME_UNDEFINED;
3485 f_2298(2,av2);}}}
3486 else{
3487 t4=t3;{
3488 C_word *av2=av;
3489 av2[0]=t4;
3490 av2[1]=C_SCHEME_UNDEFINED;
3491 f_2298(2,av2);}}}
3492
3493 /* srfi-4#make-s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2389(C_word c,C_word * av)3494 static void C_ccall f_2389(C_word c,C_word *av){
3495 C_word tmp;
3496 C_word t0=av[0];
3497 C_word t1=av[1];
3498 C_word t2=av[2];
3499 C_word t3;
3500 C_word t4;
3501 C_word t5;
3502 C_word t6;
3503 C_word t7;
3504 C_word t8;
3505 C_word t9;
3506 C_word t10;
3507 C_word t11;
3508 C_word t12;
3509 C_word t13;
3510 C_word *a;
3511 if(c<3) C_bad_min_argc_2(c,3,t0);
3512 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
3513 C_save_and_reclaim((void *)f_2389,c,av);}
3514 a=C_alloc(8);
3515 t3=C_rest_nullp(c,3);
3516 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
3517 t5=C_rest_nullp(c,3);
3518 t6=C_rest_nullp(c,4);
3519 t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
3520 t8=C_rest_nullp(c,4);
3521 t9=C_rest_nullp(c,5);
3522 t10=(C_truep(t9)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
3523 t11=C_rest_nullp(c,5);
3524 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2477,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t10,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
3525 /* srfi-4.scm:365: alloc */
3526 f_1629(t12,lf[68],C_fix(4),t2,t7);}
3527
3528 /* k2412 in k2475 in srfi-4#make-s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2414(C_word c,C_word * av)3529 static void C_ccall f_2414(C_word c,C_word *av){
3530 C_word tmp;
3531 C_word t0=av[0];
3532 C_word t1=av[1];
3533 C_word t2;
3534 C_word t3;
3535 C_word t4;
3536 C_word *a;
3537 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
3538 C_save_and_reclaim((void *)f_2414,c,av);}
3539 a=C_alloc(10);
3540 if(C_truep(C_i_not(((C_word*)t0)[2]))){
3541 t2=((C_word*)t0)[3];{
3542 C_word *av2=av;
3543 av2[0]=t2;
3544 av2[1]=((C_word*)t0)[4];
3545 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3546 else{
3547 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2454,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
3548 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2425,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
3549 /* srfi-4.scm:115: ##sys#check-exact-integer */
3550 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1));
3551 C_word *av2;
3552 if(c >= 4) {
3553 av2=av;
3554 } else {
3555 av2=C_alloc(4);
3556 }
3557 av2[0]=*((C_word*)lf[57]+1);
3558 av2[1]=t3;
3559 av2[2]=((C_word*)t0)[2];
3560 av2[3]=lf[68];
3561 tp(4,av2);}}}
3562
3563 /* k2423 in k2412 in k2475 in srfi-4#make-s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2425(C_word c,C_word * av)3564 static void C_ccall f_2425(C_word c,C_word *av){
3565 C_word tmp;
3566 C_word t0=av[0];
3567 C_word t1=av[1];
3568 C_word t2;
3569 C_word t3;
3570 C_word t4;
3571 C_word t5;
3572 C_word t6;
3573 C_word t7;
3574 C_word *a;
3575 if(C_unlikely(!C_demand(C_calculate_demand(58,c,6)))){
3576 C_save_and_reclaim((void *)f_2425,c,av);}
3577 a=C_alloc(58);
3578 t2=C_i_integer_length(((C_word*)t0)[2]);
3579 t3=C_fixnum_difference(C_fix(32),C_fix(1));
3580 if(C_truep(C_fixnum_greaterp(t2,t3))){
3581 t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
3582 t5=C_s_a_i_negate(&a,1,lf[61]);
3583 t6=C_s_a_i_minus(&a,2,lf[61],C_fix(1));
3584 /* srfi-4.scm:117: ##sys#error-hook */
3585 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
3586 C_word *av2;
3587 if(c >= 7) {
3588 av2=av;
3589 } else {
3590 av2=C_alloc(7);
3591 }
3592 av2[0]=*((C_word*)lf[44]+1);
3593 av2[1]=((C_word*)t0)[3];
3594 av2[2]=t4;
3595 av2[3]=lf[68];
3596 av2[4]=((C_word*)t0)[2];
3597 av2[5]=t5;
3598 av2[6]=t6;
3599 tp(7,av2);}}
3600 else{
3601 t4=C_SCHEME_UNDEFINED;
3602 t5=((C_word*)t0)[3];{
3603 C_word *av2=av;
3604 av2[0]=t5;
3605 av2[1]=t4;
3606 f_2454(2,av2);}}}
3607
3608 /* k2452 in k2412 in k2475 in srfi-4#make-s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2454(C_word c,C_word * av)3609 static void C_ccall f_2454(C_word c,C_word *av){
3610 C_word tmp;
3611 C_word t0=av[0];
3612 C_word t1=av[1];
3613 C_word t2;
3614 C_word t3;
3615 C_word *a;
3616 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
3617 C_save_and_reclaim((void *)f_2454,c,av);}
3618 a=C_alloc(6);
3619 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2459,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li35),tmp=(C_word)a,a+=6,tmp);
3620 t3=((C_word*)t0)[5];{
3621 C_word *av2=av;
3622 av2[0]=t3;
3623 av2[1]=(
3624 f_2459(t2,C_fix(0))
3625 );
3626 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3627
3628 /* doloop478 in k2452 in k2412 in k2475 in srfi-4#make-s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2459(C_word t0,C_word t1)3629 static C_word C_fcall f_2459(C_word t0,C_word t1){
3630 C_word tmp;
3631 C_word t2;
3632 C_word t3;
3633 C_word t4;
3634 C_stack_overflow_check;
3635 loop:{}
3636 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
3637 return(((C_word*)t0)[3]);}
3638 else{
3639 t2=C_u_i_s32vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
3640 t4=C_fixnum_plus(t1,C_fix(1));
3641 t1=t4;
3642 goto loop;}}
3643
3644 /* k2475 in srfi-4#make-s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2477(C_word c,C_word * av)3645 static void C_ccall f_2477(C_word c,C_word *av){
3646 C_word tmp;
3647 C_word t0=av[0];
3648 C_word t1=av[1];
3649 C_word t2;
3650 C_word t3;
3651 C_word t4;
3652 C_word *a;
3653 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
3654 C_save_and_reclaim((void *)f_2477,c,av);}
3655 a=C_alloc(9);
3656 t2=C_a_i_record2(&a,2,lf[67],t1);
3657 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
3658 if(C_truep(((C_word*)t0)[5])){
3659 if(C_truep(((C_word*)t0)[6])){
3660 /* srfi-4.scm:366: chicken.gc#set-finalizer! */
3661 t4=*((C_word*)lf[47]+1);{
3662 C_word *av2;
3663 if(c >= 4) {
3664 av2=av;
3665 } else {
3666 av2=C_alloc(4);
3667 }
3668 av2[0]=t4;
3669 av2[1]=t3;
3670 av2[2]=t2;
3671 av2[3]=((C_word*)t0)[7];
3672 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
3673 else{
3674 t4=t3;{
3675 C_word *av2=av;
3676 av2[0]=t4;
3677 av2[1]=C_SCHEME_UNDEFINED;
3678 f_2414(2,av2);}}}
3679 else{
3680 t4=t3;{
3681 C_word *av2=av;
3682 av2[0]=t4;
3683 av2[1]=C_SCHEME_UNDEFINED;
3684 f_2414(2,av2);}}}
3685
3686 /* srfi-4#make-s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2515(C_word c,C_word * av)3687 static void C_ccall f_2515(C_word c,C_word *av){
3688 C_word tmp;
3689 C_word t0=av[0];
3690 C_word t1=av[1];
3691 C_word t2=av[2];
3692 C_word t3;
3693 C_word t4;
3694 C_word t5;
3695 C_word t6;
3696 C_word t7;
3697 C_word t8;
3698 C_word t9;
3699 C_word t10;
3700 C_word t11;
3701 C_word t12;
3702 C_word t13;
3703 C_word *a;
3704 if(c<3) C_bad_min_argc_2(c,3,t0);
3705 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
3706 C_save_and_reclaim((void *)f_2515,c,av);}
3707 a=C_alloc(8);
3708 t3=C_rest_nullp(c,3);
3709 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
3710 t5=C_rest_nullp(c,3);
3711 t6=C_rest_nullp(c,4);
3712 t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
3713 t8=C_rest_nullp(c,4);
3714 t9=C_rest_nullp(c,5);
3715 t10=(C_truep(t9)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
3716 t11=C_rest_nullp(c,5);
3717 t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2603,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t7,a[6]=t10,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
3718 /* srfi-4.scm:377: alloc */
3719 f_1629(t12,lf[71],C_fix(8),t2,t7);}
3720
3721 /* k2538 in k2601 in srfi-4#make-s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2540(C_word c,C_word * av)3722 static void C_ccall f_2540(C_word c,C_word *av){
3723 C_word tmp;
3724 C_word t0=av[0];
3725 C_word t1=av[1];
3726 C_word t2;
3727 C_word t3;
3728 C_word t4;
3729 C_word *a;
3730 if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
3731 C_save_and_reclaim((void *)f_2540,c,av);}
3732 a=C_alloc(10);
3733 if(C_truep(C_i_not(((C_word*)t0)[2]))){
3734 t2=((C_word*)t0)[3];{
3735 C_word *av2=av;
3736 av2[0]=t2;
3737 av2[1]=((C_word*)t0)[4];
3738 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3739 else{
3740 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2580,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
3741 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2551,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
3742 /* srfi-4.scm:115: ##sys#check-exact-integer */
3743 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1));
3744 C_word *av2;
3745 if(c >= 4) {
3746 av2=av;
3747 } else {
3748 av2=C_alloc(4);
3749 }
3750 av2[0]=*((C_word*)lf[57]+1);
3751 av2[1]=t3;
3752 av2[2]=((C_word*)t0)[2];
3753 av2[3]=lf[71];
3754 tp(4,av2);}}}
3755
3756 /* k2549 in k2538 in k2601 in srfi-4#make-s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2551(C_word c,C_word * av)3757 static void C_ccall f_2551(C_word c,C_word *av){
3758 C_word tmp;
3759 C_word t0=av[0];
3760 C_word t1=av[1];
3761 C_word t2;
3762 C_word t3;
3763 C_word t4;
3764 C_word t5;
3765 C_word t6;
3766 C_word t7;
3767 C_word *a;
3768 if(C_unlikely(!C_demand(C_calculate_demand(58,c,6)))){
3769 C_save_and_reclaim((void *)f_2551,c,av);}
3770 a=C_alloc(58);
3771 t2=C_i_integer_length(((C_word*)t0)[2]);
3772 t3=C_fixnum_difference(C_fix(64),C_fix(1));
3773 if(C_truep(C_fixnum_greaterp(t2,t3))){
3774 t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
3775 t5=C_s_a_i_negate(&a,1,lf[65]);
3776 t6=C_s_a_i_minus(&a,2,lf[65],C_fix(1));
3777 /* srfi-4.scm:117: ##sys#error-hook */
3778 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
3779 C_word *av2;
3780 if(c >= 7) {
3781 av2=av;
3782 } else {
3783 av2=C_alloc(7);
3784 }
3785 av2[0]=*((C_word*)lf[44]+1);
3786 av2[1]=((C_word*)t0)[3];
3787 av2[2]=t4;
3788 av2[3]=lf[71];
3789 av2[4]=((C_word*)t0)[2];
3790 av2[5]=t5;
3791 av2[6]=t6;
3792 tp(7,av2);}}
3793 else{
3794 t4=C_SCHEME_UNDEFINED;
3795 t5=((C_word*)t0)[3];{
3796 C_word *av2=av;
3797 av2[0]=t5;
3798 av2[1]=t4;
3799 f_2580(2,av2);}}}
3800
3801 /* k2578 in k2538 in k2601 in srfi-4#make-s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2580(C_word c,C_word * av)3802 static void C_ccall f_2580(C_word c,C_word *av){
3803 C_word tmp;
3804 C_word t0=av[0];
3805 C_word t1=av[1];
3806 C_word t2;
3807 C_word t3;
3808 C_word *a;
3809 if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
3810 C_save_and_reclaim((void *)f_2580,c,av);}
3811 a=C_alloc(6);
3812 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2585,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li37),tmp=(C_word)a,a+=6,tmp);
3813 t3=((C_word*)t0)[5];{
3814 C_word *av2=av;
3815 av2[0]=t3;
3816 av2[1]=(
3817 f_2585(t2,C_fix(0))
3818 );
3819 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
3820
3821 /* doloop512 in k2578 in k2538 in k2601 in srfi-4#make-s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2585(C_word t0,C_word t1)3822 static C_word C_fcall f_2585(C_word t0,C_word t1){
3823 C_word tmp;
3824 C_word t2;
3825 C_word t3;
3826 C_word t4;
3827 C_stack_overflow_check;
3828 loop:{}
3829 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
3830 return(((C_word*)t0)[3]);}
3831 else{
3832 t2=C_u_i_s64vector_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]);
3833 t4=C_fixnum_plus(t1,C_fix(1));
3834 t1=t4;
3835 goto loop;}}
3836
3837 /* k2601 in srfi-4#make-s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2603(C_word c,C_word * av)3838 static void C_ccall f_2603(C_word c,C_word *av){
3839 C_word tmp;
3840 C_word t0=av[0];
3841 C_word t1=av[1];
3842 C_word t2;
3843 C_word t3;
3844 C_word t4;
3845 C_word *a;
3846 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
3847 C_save_and_reclaim((void *)f_2603,c,av);}
3848 a=C_alloc(9);
3849 t2=C_a_i_record2(&a,2,lf[70],t1);
3850 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2540,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
3851 if(C_truep(((C_word*)t0)[5])){
3852 if(C_truep(((C_word*)t0)[6])){
3853 /* srfi-4.scm:378: chicken.gc#set-finalizer! */
3854 t4=*((C_word*)lf[47]+1);{
3855 C_word *av2;
3856 if(c >= 4) {
3857 av2=av;
3858 } else {
3859 av2=C_alloc(4);
3860 }
3861 av2[0]=t4;
3862 av2[1]=t3;
3863 av2[2]=t2;
3864 av2[3]=((C_word*)t0)[7];
3865 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
3866 else{
3867 t4=t3;{
3868 C_word *av2=av;
3869 av2[0]=t4;
3870 av2[1]=C_SCHEME_UNDEFINED;
3871 f_2540(2,av2);}}}
3872 else{
3873 t4=t3;{
3874 C_word *av2=av;
3875 av2[0]=t4;
3876 av2[1]=C_SCHEME_UNDEFINED;
3877 f_2540(2,av2);}}}
3878
3879 /* srfi-4#make-f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2641(C_word c,C_word * av)3880 static void C_ccall f_2641(C_word c,C_word *av){
3881 C_word tmp;
3882 C_word t0=av[0];
3883 C_word t1=av[1];
3884 C_word t2=av[2];
3885 C_word t3;
3886 C_word t4;
3887 C_word t5;
3888 C_word t6;
3889 C_word t7;
3890 C_word t8;
3891 C_word t9;
3892 C_word t10;
3893 C_word t11;
3894 C_word t12;
3895 C_word t13;
3896 C_word t14;
3897 C_word t15;
3898 C_word *a;
3899 if(c<3) C_bad_min_argc_2(c,3,t0);
3900 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
3901 C_save_and_reclaim((void *)f_2641,c,av);}
3902 a=C_alloc(10);
3903 t3=C_rest_nullp(c,3);
3904 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
3905 t5=t4;
3906 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
3907 t7=C_rest_nullp(c,3);
3908 t8=C_rest_nullp(c,4);
3909 t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
3910 t10=C_rest_nullp(c,4);
3911 t11=C_rest_nullp(c,5);
3912 t12=(C_truep(t11)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
3913 t13=C_rest_nullp(c,5);
3914 t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2714,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t9,a[6]=t12,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
3915 /* srfi-4.scm:389: alloc */
3916 f_1629(t14,lf[74],C_fix(4),t2,t9);}
3917
3918 /* k2664 in k2712 in srfi-4#make-f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2666(C_word c,C_word * av)3919 static void C_ccall f_2666(C_word c,C_word *av){
3920 C_word tmp;
3921 C_word t0=av[0];
3922 C_word t1=av[1];
3923 C_word t2;
3924 C_word t3;
3925 C_word t4;
3926 C_word t5;
3927 C_word t6;
3928 C_word t7;
3929 C_word *a;
3930 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
3931 C_save_and_reclaim((void *)f_2666,c,av);}
3932 a=C_alloc(6);
3933 if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){
3934 t2=((C_word*)t0)[3];{
3935 C_word *av2=av;
3936 av2[0]=t2;
3937 av2[1]=((C_word*)t0)[4];
3938 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
3939 else{
3940 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2687,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
3941 t3=((C_word*)((C_word*)t0)[2])[1];
3942 t4=C_i_exact_integerp(t3);
3943 t5=(C_truep(t4)?t4:C_i_flonump(t3));
3944 if(C_truep(t5)){
3945 t6=C_SCHEME_UNDEFINED;
3946 t7=t2;{
3947 C_word *av2=av;
3948 av2[0]=t7;
3949 av2[1]=t6;
3950 f_2687(2,av2);}}
3951 else{
3952 t6=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
3953 /* srfi-4.scm:99: ##sys#error-hook */
3954 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
3955 C_word *av2;
3956 if(c >= 5) {
3957 av2=av;
3958 } else {
3959 av2=C_alloc(5);
3960 }
3961 av2[0]=*((C_word*)lf[44]+1);
3962 av2[1]=t2;
3963 av2[2]=t6;
3964 av2[3]=lf[74];
3965 av2[4]=t3;
3966 tp(5,av2);}}}}
3967
3968 /* k2685 in k2664 in k2712 in srfi-4#make-f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2687(C_word c,C_word * av)3969 static void C_ccall f_2687(C_word c,C_word *av){
3970 C_word tmp;
3971 C_word t0=av[0];
3972 C_word t1=av[1];
3973 C_word t2;
3974 C_word t3;
3975 C_word t4;
3976 C_word *a;
3977 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
3978 C_save_and_reclaim((void *)f_2687,c,av);}
3979 a=C_alloc(10);
3980 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
3981 if(C_truep(C_i_flonump(((C_word*)((C_word*)t0)[4])[1]))){
3982 t3=t2;
3983 f_2690(t3,C_SCHEME_UNDEFINED);}
3984 else{
3985 t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,C_a_u_i_int_to_flo(&a,1,((C_word*)((C_word*)t0)[4])[1]));
3986 t4=t2;
3987 f_2690(t4,t3);}}
3988
3989 /* k2688 in k2685 in k2664 in k2712 in srfi-4#make-f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2690(C_word t0,C_word t1)3990 static void C_fcall f_2690(C_word t0,C_word t1){
3991 C_word tmp;
3992 C_word t2;
3993 C_word t3;
3994 C_word *a;
3995 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
3996 C_save_and_reclaim_args((void *)trf_2690,2,t0,t1);}
3997 a=C_alloc(6);
3998 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li39),tmp=(C_word)a,a+=6,tmp);
3999 t3=((C_word*)t0)[5];{
4000 C_word av2[2];
4001 av2[0]=t3;
4002 av2[1]=(
4003 f_2695(t2,C_fix(0))
4004 );
4005 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
4006
4007 /* doloop547 in k2688 in k2685 in k2664 in k2712 in srfi-4#make-f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2695(C_word t0,C_word t1)4008 static C_word C_fcall f_2695(C_word t0,C_word t1){
4009 C_word tmp;
4010 C_word t2;
4011 C_word t3;
4012 C_word t4;
4013 C_stack_overflow_check;
4014 loop:{}
4015 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
4016 return(((C_word*)t0)[3]);}
4017 else{
4018 t2=C_u_i_f32vector_set(((C_word*)t0)[3],t1,((C_word*)((C_word*)t0)[4])[1]);
4019 t4=C_fixnum_plus(t1,C_fix(1));
4020 t1=t4;
4021 goto loop;}}
4022
4023 /* k2712 in srfi-4#make-f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2714(C_word c,C_word * av)4024 static void C_ccall f_2714(C_word c,C_word *av){
4025 C_word tmp;
4026 C_word t0=av[0];
4027 C_word t1=av[1];
4028 C_word t2;
4029 C_word t3;
4030 C_word t4;
4031 C_word *a;
4032 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
4033 C_save_and_reclaim((void *)f_2714,c,av);}
4034 a=C_alloc(9);
4035 t2=C_a_i_record2(&a,2,lf[73],t1);
4036 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2666,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
4037 if(C_truep(((C_word*)t0)[5])){
4038 if(C_truep(((C_word*)t0)[6])){
4039 /* srfi-4.scm:390: chicken.gc#set-finalizer! */
4040 t4=*((C_word*)lf[47]+1);{
4041 C_word *av2;
4042 if(c >= 4) {
4043 av2=av;
4044 } else {
4045 av2=C_alloc(4);
4046 }
4047 av2[0]=t4;
4048 av2[1]=t3;
4049 av2[2]=t2;
4050 av2[3]=((C_word*)t0)[7];
4051 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
4052 else{
4053 t4=t3;{
4054 C_word *av2=av;
4055 av2[0]=t4;
4056 av2[1]=C_SCHEME_UNDEFINED;
4057 f_2666(2,av2);}}}
4058 else{
4059 t4=t3;{
4060 C_word *av2=av;
4061 av2[0]=t4;
4062 av2[1]=C_SCHEME_UNDEFINED;
4063 f_2666(2,av2);}}}
4064
4065 /* srfi-4#make-f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2752(C_word c,C_word * av)4066 static void C_ccall f_2752(C_word c,C_word *av){
4067 C_word tmp;
4068 C_word t0=av[0];
4069 C_word t1=av[1];
4070 C_word t2=av[2];
4071 C_word t3;
4072 C_word t4;
4073 C_word t5;
4074 C_word t6;
4075 C_word t7;
4076 C_word t8;
4077 C_word t9;
4078 C_word t10;
4079 C_word t11;
4080 C_word t12;
4081 C_word t13;
4082 C_word t14;
4083 C_word t15;
4084 C_word *a;
4085 if(c<3) C_bad_min_argc_2(c,3,t0);
4086 if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
4087 C_save_and_reclaim((void *)f_2752,c,av);}
4088 a=C_alloc(10);
4089 t3=C_rest_nullp(c,3);
4090 t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
4091 t5=t4;
4092 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
4093 t7=C_rest_nullp(c,3);
4094 t8=C_rest_nullp(c,4);
4095 t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0));
4096 t10=C_rest_nullp(c,4);
4097 t11=C_rest_nullp(c,5);
4098 t12=(C_truep(t11)?C_SCHEME_TRUE:C_get_rest_arg(c,5,av,3,t0));
4099 t13=C_rest_nullp(c,5);
4100 t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2825,a[2]=t6,a[3]=t1,a[4]=t2,a[5]=t9,a[6]=t12,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
4101 /* srfi-4.scm:403: alloc */
4102 f_1629(t14,lf[77],C_fix(8),t2,t9);}
4103
4104 /* k2775 in k2823 in srfi-4#make-f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2777(C_word c,C_word * av)4105 static void C_ccall f_2777(C_word c,C_word *av){
4106 C_word tmp;
4107 C_word t0=av[0];
4108 C_word t1=av[1];
4109 C_word t2;
4110 C_word t3;
4111 C_word t4;
4112 C_word t5;
4113 C_word t6;
4114 C_word t7;
4115 C_word *a;
4116 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
4117 C_save_and_reclaim((void *)f_2777,c,av);}
4118 a=C_alloc(6);
4119 if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){
4120 t2=((C_word*)t0)[3];{
4121 C_word *av2=av;
4122 av2[0]=t2;
4123 av2[1]=((C_word*)t0)[4];
4124 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
4125 else{
4126 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2798,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
4127 t3=((C_word*)((C_word*)t0)[2])[1];
4128 t4=C_i_exact_integerp(t3);
4129 t5=(C_truep(t4)?t4:C_i_flonump(t3));
4130 if(C_truep(t5)){
4131 t6=C_SCHEME_UNDEFINED;
4132 t7=t2;{
4133 C_word *av2=av;
4134 av2[0]=t7;
4135 av2[1]=t6;
4136 f_2798(2,av2);}}
4137 else{
4138 t6=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR);
4139 /* srfi-4.scm:99: ##sys#error-hook */
4140 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
4141 C_word *av2;
4142 if(c >= 5) {
4143 av2=av;
4144 } else {
4145 av2=C_alloc(5);
4146 }
4147 av2[0]=*((C_word*)lf[44]+1);
4148 av2[1]=t2;
4149 av2[2]=t6;
4150 av2[3]=lf[77];
4151 av2[4]=t3;
4152 tp(5,av2);}}}}
4153
4154 /* k2796 in k2775 in k2823 in srfi-4#make-f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2798(C_word c,C_word * av)4155 static void C_ccall f_2798(C_word c,C_word *av){
4156 C_word tmp;
4157 C_word t0=av[0];
4158 C_word t1=av[1];
4159 C_word t2;
4160 C_word t3;
4161 C_word t4;
4162 C_word *a;
4163 if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
4164 C_save_and_reclaim((void *)f_2798,c,av);}
4165 a=C_alloc(10);
4166 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
4167 if(C_truep(C_i_flonump(((C_word*)((C_word*)t0)[4])[1]))){
4168 t3=t2;
4169 f_2801(t3,C_SCHEME_UNDEFINED);}
4170 else{
4171 t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,C_a_u_i_int_to_flo(&a,1,((C_word*)((C_word*)t0)[4])[1]));
4172 t4=t2;
4173 f_2801(t4,t3);}}
4174
4175 /* k2799 in k2796 in k2775 in k2823 in srfi-4#make-f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2801(C_word t0,C_word t1)4176 static void C_fcall f_2801(C_word t0,C_word t1){
4177 C_word tmp;
4178 C_word t2;
4179 C_word t3;
4180 C_word *a;
4181 if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
4182 C_save_and_reclaim_args((void *)trf_2801,2,t0,t1);}
4183 a=C_alloc(6);
4184 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2806,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li41),tmp=(C_word)a,a+=6,tmp);
4185 t3=((C_word*)t0)[5];{
4186 C_word av2[2];
4187 av2[0]=t3;
4188 av2[1]=(
4189 f_2806(t2,C_fix(0))
4190 );
4191 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
4192
4193 /* doloop583 in k2799 in k2796 in k2775 in k2823 in srfi-4#make-f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2806(C_word t0,C_word t1)4194 static C_word C_fcall f_2806(C_word t0,C_word t1){
4195 C_word tmp;
4196 C_word t2;
4197 C_word t3;
4198 C_word t4;
4199 C_stack_overflow_check;
4200 loop:{}
4201 if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[2]))){
4202 return(((C_word*)t0)[3]);}
4203 else{
4204 t2=C_u_i_f64vector_set(((C_word*)t0)[3],t1,((C_word*)((C_word*)t0)[4])[1]);
4205 t4=C_fixnum_plus(t1,C_fix(1));
4206 t1=t4;
4207 goto loop;}}
4208
4209 /* k2823 in srfi-4#make-f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2825(C_word c,C_word * av)4210 static void C_ccall f_2825(C_word c,C_word *av){
4211 C_word tmp;
4212 C_word t0=av[0];
4213 C_word t1=av[1];
4214 C_word t2;
4215 C_word t3;
4216 C_word t4;
4217 C_word *a;
4218 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
4219 C_save_and_reclaim((void *)f_2825,c,av);}
4220 a=C_alloc(9);
4221 t2=C_a_i_record2(&a,2,lf[76],t1);
4222 t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2777,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
4223 if(C_truep(((C_word*)t0)[5])){
4224 if(C_truep(((C_word*)t0)[6])){
4225 /* srfi-4.scm:404: chicken.gc#set-finalizer! */
4226 t4=*((C_word*)lf[47]+1);{
4227 C_word *av2;
4228 if(c >= 4) {
4229 av2=av;
4230 } else {
4231 av2=C_alloc(4);
4232 }
4233 av2[0]=t4;
4234 av2[1]=t3;
4235 av2[2]=t2;
4236 av2[3]=((C_word*)t0)[7];
4237 ((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
4238 else{
4239 t4=t3;{
4240 C_word *av2=av;
4241 av2[0]=t4;
4242 av2[1]=C_SCHEME_UNDEFINED;
4243 f_2777(2,av2);}}}
4244 else{
4245 t4=t3;{
4246 C_word *av2=av;
4247 av2[0]=t4;
4248 av2[1]=C_SCHEME_UNDEFINED;
4249 f_2777(2,av2);}}}
4250
4251 /* srfi-4#list->u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2863(C_word c,C_word * av)4252 static void C_ccall f_2863(C_word c,C_word *av){
4253 C_word tmp;
4254 C_word t0=av[0];
4255 C_word t1=av[1];
4256 C_word t2=av[2];
4257 C_word t3;
4258 C_word t4;
4259 C_word t5;
4260 C_word t6;
4261 C_word *a;
4262 if(c!=3) C_bad_argc_2(c,3,t0);
4263 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
4264 C_save_and_reclaim((void *)f_2863,c,av);}
4265 a=C_alloc(4);
4266 t3=C_i_check_list_2(t2,lf[43]);
4267 t4=C_i_length(t2);
4268 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2870,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4269 /* srfi-4.scm:439: make-u8vector */
4270 t6=((C_word*)t0)[2];{
4271 C_word *av2=av;
4272 av2[0]=t6;
4273 av2[1]=t5;
4274 av2[2]=t4;
4275 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
4276
4277 /* k2868 in srfi-4#list->u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2870(C_word c,C_word * av)4278 static void C_ccall f_2870(C_word c,C_word *av){
4279 C_word tmp;
4280 C_word t0=av[0];
4281 C_word t1=av[1];
4282 C_word t2;
4283 C_word t3;
4284 C_word t4;
4285 C_word t5;
4286 C_word *a;
4287 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
4288 C_save_and_reclaim((void *)f_2870,c,av);}
4289 a=C_alloc(8);
4290 t2=C_SCHEME_UNDEFINED;
4291 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4292 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2875,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li43),tmp=(C_word)a,a+=6,tmp));
4293 t5=((C_word*)t3)[1];
4294 f_2875(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
4295
4296 /* doloop618 in k2868 in srfi-4#list->u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2875(C_word t0,C_word t1,C_word t2,C_word t3)4297 static void C_fcall f_2875(C_word t0,C_word t1,C_word t2,C_word t3){
4298 C_word tmp;
4299 C_word t4;
4300 C_word t5;
4301 C_word t6;
4302 C_word t7;
4303 C_word t8;
4304 C_word t9;
4305 C_word t10;
4306 C_word *a;
4307 loop:
4308 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
4309 C_save_and_reclaim_args((void *)trf_2875,4,t0,t1,t2,t3);}
4310 a=C_alloc(6);
4311 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
4312 t4=t1;{
4313 C_word av2[2];
4314 av2[0]=t4;
4315 av2[1]=((C_word*)t0)[2];
4316 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
4317 else{
4318 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2882,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
4319 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
4320 if(C_truep(t5)){
4321 t6=C_i_u8vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
4322 t8=t1;
4323 t9=C_slot(t2,C_fix(1));
4324 t10=C_fixnum_plus(t3,C_fix(1));
4325 t1=t8;
4326 t2=t9;
4327 t3=t10;
4328 goto loop;}
4329 else{
4330 /* srfi-4.scm:439: ##sys#error-not-a-proper-list */
4331 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
4332 C_word av2[3];
4333 av2[0]=*((C_word*)lf[79]+1);
4334 av2[1]=t4;
4335 av2[2]=((C_word*)t0)[4];
4336 tp(3,av2);}}}}
4337
4338 /* k2880 in doloop618 in k2868 in srfi-4#list->u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2882(C_word c,C_word * av)4339 static void C_ccall f_2882(C_word c,C_word *av){
4340 C_word tmp;
4341 C_word t0=av[0];
4342 C_word t1=av[1];
4343 C_word t2;
4344 C_word *a;
4345 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
4346 C_save_and_reclaim((void *)f_2882,c,av);}
4347 t2=((C_word*)((C_word*)t0)[2])[1];
4348 f_2875(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
4349
4350 /* srfi-4#list->s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2899(C_word c,C_word * av)4351 static void C_ccall f_2899(C_word c,C_word *av){
4352 C_word tmp;
4353 C_word t0=av[0];
4354 C_word t1=av[1];
4355 C_word t2=av[2];
4356 C_word t3;
4357 C_word t4;
4358 C_word t5;
4359 C_word t6;
4360 C_word *a;
4361 if(c!=3) C_bad_argc_2(c,3,t0);
4362 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
4363 C_save_and_reclaim((void *)f_2899,c,av);}
4364 a=C_alloc(4);
4365 t3=C_i_check_list_2(t2,lf[49]);
4366 t4=C_i_length(t2);
4367 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2906,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4368 /* srfi-4.scm:440: make-s8vector */
4369 t6=((C_word*)t0)[2];{
4370 C_word *av2=av;
4371 av2[0]=t6;
4372 av2[1]=t5;
4373 av2[2]=t4;
4374 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
4375
4376 /* k2904 in srfi-4#list->s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2906(C_word c,C_word * av)4377 static void C_ccall f_2906(C_word c,C_word *av){
4378 C_word tmp;
4379 C_word t0=av[0];
4380 C_word t1=av[1];
4381 C_word t2;
4382 C_word t3;
4383 C_word t4;
4384 C_word t5;
4385 C_word *a;
4386 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
4387 C_save_and_reclaim((void *)f_2906,c,av);}
4388 a=C_alloc(8);
4389 t2=C_SCHEME_UNDEFINED;
4390 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4391 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2911,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp));
4392 t5=((C_word*)t3)[1];
4393 f_2911(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
4394
4395 /* doloop631 in k2904 in srfi-4#list->s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2911(C_word t0,C_word t1,C_word t2,C_word t3)4396 static void C_fcall f_2911(C_word t0,C_word t1,C_word t2,C_word t3){
4397 C_word tmp;
4398 C_word t4;
4399 C_word t5;
4400 C_word t6;
4401 C_word t7;
4402 C_word t8;
4403 C_word t9;
4404 C_word t10;
4405 C_word *a;
4406 loop:
4407 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
4408 C_save_and_reclaim_args((void *)trf_2911,4,t0,t1,t2,t3);}
4409 a=C_alloc(6);
4410 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
4411 t4=t1;{
4412 C_word av2[2];
4413 av2[0]=t4;
4414 av2[1]=((C_word*)t0)[2];
4415 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
4416 else{
4417 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2918,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
4418 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
4419 if(C_truep(t5)){
4420 t6=C_i_s8vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
4421 t8=t1;
4422 t9=C_slot(t2,C_fix(1));
4423 t10=C_fixnum_plus(t3,C_fix(1));
4424 t1=t8;
4425 t2=t9;
4426 t3=t10;
4427 goto loop;}
4428 else{
4429 /* srfi-4.scm:440: ##sys#error-not-a-proper-list */
4430 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
4431 C_word av2[3];
4432 av2[0]=*((C_word*)lf[79]+1);
4433 av2[1]=t4;
4434 av2[2]=((C_word*)t0)[4];
4435 tp(3,av2);}}}}
4436
4437 /* k2916 in doloop631 in k2904 in srfi-4#list->s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2918(C_word c,C_word * av)4438 static void C_ccall f_2918(C_word c,C_word *av){
4439 C_word tmp;
4440 C_word t0=av[0];
4441 C_word t1=av[1];
4442 C_word t2;
4443 C_word *a;
4444 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
4445 C_save_and_reclaim((void *)f_2918,c,av);}
4446 t2=((C_word*)((C_word*)t0)[2])[1];
4447 f_2911(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
4448
4449 /* srfi-4#list->u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2935(C_word c,C_word * av)4450 static void C_ccall f_2935(C_word c,C_word *av){
4451 C_word tmp;
4452 C_word t0=av[0];
4453 C_word t1=av[1];
4454 C_word t2=av[2];
4455 C_word t3;
4456 C_word t4;
4457 C_word t5;
4458 C_word t6;
4459 C_word *a;
4460 if(c!=3) C_bad_argc_2(c,3,t0);
4461 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
4462 C_save_and_reclaim((void *)f_2935,c,av);}
4463 a=C_alloc(4);
4464 t3=C_i_check_list_2(t2,lf[52]);
4465 t4=C_i_length(t2);
4466 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2942,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4467 /* srfi-4.scm:441: make-u16vector */
4468 t6=((C_word*)t0)[2];{
4469 C_word *av2=av;
4470 av2[0]=t6;
4471 av2[1]=t5;
4472 av2[2]=t4;
4473 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
4474
4475 /* k2940 in srfi-4#list->u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2942(C_word c,C_word * av)4476 static void C_ccall f_2942(C_word c,C_word *av){
4477 C_word tmp;
4478 C_word t0=av[0];
4479 C_word t1=av[1];
4480 C_word t2;
4481 C_word t3;
4482 C_word t4;
4483 C_word t5;
4484 C_word *a;
4485 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
4486 C_save_and_reclaim((void *)f_2942,c,av);}
4487 a=C_alloc(8);
4488 t2=C_SCHEME_UNDEFINED;
4489 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4490 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2947,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li47),tmp=(C_word)a,a+=6,tmp));
4491 t5=((C_word*)t3)[1];
4492 f_2947(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
4493
4494 /* doloop644 in k2940 in srfi-4#list->u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2947(C_word t0,C_word t1,C_word t2,C_word t3)4495 static void C_fcall f_2947(C_word t0,C_word t1,C_word t2,C_word t3){
4496 C_word tmp;
4497 C_word t4;
4498 C_word t5;
4499 C_word t6;
4500 C_word t7;
4501 C_word t8;
4502 C_word t9;
4503 C_word t10;
4504 C_word *a;
4505 loop:
4506 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
4507 C_save_and_reclaim_args((void *)trf_2947,4,t0,t1,t2,t3);}
4508 a=C_alloc(6);
4509 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
4510 t4=t1;{
4511 C_word av2[2];
4512 av2[0]=t4;
4513 av2[1]=((C_word*)t0)[2];
4514 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
4515 else{
4516 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2954,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
4517 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
4518 if(C_truep(t5)){
4519 t6=C_i_u16vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
4520 t8=t1;
4521 t9=C_slot(t2,C_fix(1));
4522 t10=C_fixnum_plus(t3,C_fix(1));
4523 t1=t8;
4524 t2=t9;
4525 t3=t10;
4526 goto loop;}
4527 else{
4528 /* srfi-4.scm:441: ##sys#error-not-a-proper-list */
4529 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
4530 C_word av2[3];
4531 av2[0]=*((C_word*)lf[79]+1);
4532 av2[1]=t4;
4533 av2[2]=((C_word*)t0)[4];
4534 tp(3,av2);}}}}
4535
4536 /* k2952 in doloop644 in k2940 in srfi-4#list->u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2954(C_word c,C_word * av)4537 static void C_ccall f_2954(C_word c,C_word *av){
4538 C_word tmp;
4539 C_word t0=av[0];
4540 C_word t1=av[1];
4541 C_word t2;
4542 C_word *a;
4543 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
4544 C_save_and_reclaim((void *)f_2954,c,av);}
4545 t2=((C_word*)((C_word*)t0)[2])[1];
4546 f_2947(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
4547
4548 /* srfi-4#list->s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2971(C_word c,C_word * av)4549 static void C_ccall f_2971(C_word c,C_word *av){
4550 C_word tmp;
4551 C_word t0=av[0];
4552 C_word t1=av[1];
4553 C_word t2=av[2];
4554 C_word t3;
4555 C_word t4;
4556 C_word t5;
4557 C_word t6;
4558 C_word *a;
4559 if(c!=3) C_bad_argc_2(c,3,t0);
4560 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
4561 C_save_and_reclaim((void *)f_2971,c,av);}
4562 a=C_alloc(4);
4563 t3=C_i_check_list_2(t2,lf[55]);
4564 t4=C_i_length(t2);
4565 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2978,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4566 /* srfi-4.scm:442: make-s16vector */
4567 t6=((C_word*)t0)[2];{
4568 C_word *av2=av;
4569 av2[0]=t6;
4570 av2[1]=t5;
4571 av2[2]=t4;
4572 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
4573
4574 /* k2976 in srfi-4#list->s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2978(C_word c,C_word * av)4575 static void C_ccall f_2978(C_word c,C_word *av){
4576 C_word tmp;
4577 C_word t0=av[0];
4578 C_word t1=av[1];
4579 C_word t2;
4580 C_word t3;
4581 C_word t4;
4582 C_word t5;
4583 C_word *a;
4584 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
4585 C_save_and_reclaim((void *)f_2978,c,av);}
4586 a=C_alloc(8);
4587 t2=C_SCHEME_UNDEFINED;
4588 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4589 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2983,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li49),tmp=(C_word)a,a+=6,tmp));
4590 t5=((C_word*)t3)[1];
4591 f_2983(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
4592
4593 /* doloop657 in k2976 in srfi-4#list->s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2983(C_word t0,C_word t1,C_word t2,C_word t3)4594 static void C_fcall f_2983(C_word t0,C_word t1,C_word t2,C_word t3){
4595 C_word tmp;
4596 C_word t4;
4597 C_word t5;
4598 C_word t6;
4599 C_word t7;
4600 C_word t8;
4601 C_word t9;
4602 C_word t10;
4603 C_word *a;
4604 loop:
4605 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
4606 C_save_and_reclaim_args((void *)trf_2983,4,t0,t1,t2,t3);}
4607 a=C_alloc(6);
4608 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
4609 t4=t1;{
4610 C_word av2[2];
4611 av2[0]=t4;
4612 av2[1]=((C_word*)t0)[2];
4613 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
4614 else{
4615 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2990,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
4616 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
4617 if(C_truep(t5)){
4618 t6=C_i_s16vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
4619 t8=t1;
4620 t9=C_slot(t2,C_fix(1));
4621 t10=C_fixnum_plus(t3,C_fix(1));
4622 t1=t8;
4623 t2=t9;
4624 t3=t10;
4625 goto loop;}
4626 else{
4627 /* srfi-4.scm:442: ##sys#error-not-a-proper-list */
4628 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
4629 C_word av2[3];
4630 av2[0]=*((C_word*)lf[79]+1);
4631 av2[1]=t4;
4632 av2[2]=((C_word*)t0)[4];
4633 tp(3,av2);}}}}
4634
4635 /* k2988 in doloop657 in k2976 in srfi-4#list->s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_2990(C_word c,C_word * av)4636 static void C_ccall f_2990(C_word c,C_word *av){
4637 C_word tmp;
4638 C_word t0=av[0];
4639 C_word t1=av[1];
4640 C_word t2;
4641 C_word *a;
4642 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
4643 C_save_and_reclaim((void *)f_2990,c,av);}
4644 t2=((C_word*)((C_word*)t0)[2])[1];
4645 f_2983(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
4646
4647 /* srfi-4#list->u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3007(C_word c,C_word * av)4648 static void C_ccall f_3007(C_word c,C_word *av){
4649 C_word tmp;
4650 C_word t0=av[0];
4651 C_word t1=av[1];
4652 C_word t2=av[2];
4653 C_word t3;
4654 C_word t4;
4655 C_word t5;
4656 C_word t6;
4657 C_word *a;
4658 if(c!=3) C_bad_argc_2(c,3,t0);
4659 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
4660 C_save_and_reclaim((void *)f_3007,c,av);}
4661 a=C_alloc(4);
4662 t3=C_i_check_list_2(t2,lf[59]);
4663 t4=C_i_length(t2);
4664 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3014,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4665 /* srfi-4.scm:443: make-u32vector */
4666 t6=((C_word*)t0)[2];{
4667 C_word *av2=av;
4668 av2[0]=t6;
4669 av2[1]=t5;
4670 av2[2]=t4;
4671 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
4672
4673 /* k3012 in srfi-4#list->u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3014(C_word c,C_word * av)4674 static void C_ccall f_3014(C_word c,C_word *av){
4675 C_word tmp;
4676 C_word t0=av[0];
4677 C_word t1=av[1];
4678 C_word t2;
4679 C_word t3;
4680 C_word t4;
4681 C_word t5;
4682 C_word *a;
4683 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
4684 C_save_and_reclaim((void *)f_3014,c,av);}
4685 a=C_alloc(8);
4686 t2=C_SCHEME_UNDEFINED;
4687 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4688 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3019,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li51),tmp=(C_word)a,a+=6,tmp));
4689 t5=((C_word*)t3)[1];
4690 f_3019(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
4691
4692 /* doloop670 in k3012 in srfi-4#list->u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3019(C_word t0,C_word t1,C_word t2,C_word t3)4693 static void C_fcall f_3019(C_word t0,C_word t1,C_word t2,C_word t3){
4694 C_word tmp;
4695 C_word t4;
4696 C_word t5;
4697 C_word t6;
4698 C_word t7;
4699 C_word t8;
4700 C_word t9;
4701 C_word t10;
4702 C_word *a;
4703 loop:
4704 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
4705 C_save_and_reclaim_args((void *)trf_3019,4,t0,t1,t2,t3);}
4706 a=C_alloc(6);
4707 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
4708 t4=t1;{
4709 C_word av2[2];
4710 av2[0]=t4;
4711 av2[1]=((C_word*)t0)[2];
4712 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
4713 else{
4714 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3026,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
4715 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
4716 if(C_truep(t5)){
4717 t6=C_i_u32vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
4718 t8=t1;
4719 t9=C_slot(t2,C_fix(1));
4720 t10=C_fixnum_plus(t3,C_fix(1));
4721 t1=t8;
4722 t2=t9;
4723 t3=t10;
4724 goto loop;}
4725 else{
4726 /* srfi-4.scm:443: ##sys#error-not-a-proper-list */
4727 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
4728 C_word av2[3];
4729 av2[0]=*((C_word*)lf[79]+1);
4730 av2[1]=t4;
4731 av2[2]=((C_word*)t0)[4];
4732 tp(3,av2);}}}}
4733
4734 /* k3024 in doloop670 in k3012 in srfi-4#list->u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3026(C_word c,C_word * av)4735 static void C_ccall f_3026(C_word c,C_word *av){
4736 C_word tmp;
4737 C_word t0=av[0];
4738 C_word t1=av[1];
4739 C_word t2;
4740 C_word *a;
4741 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
4742 C_save_and_reclaim((void *)f_3026,c,av);}
4743 t2=((C_word*)((C_word*)t0)[2])[1];
4744 f_3019(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
4745
4746 /* srfi-4#list->s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3043(C_word c,C_word * av)4747 static void C_ccall f_3043(C_word c,C_word *av){
4748 C_word tmp;
4749 C_word t0=av[0];
4750 C_word t1=av[1];
4751 C_word t2=av[2];
4752 C_word t3;
4753 C_word t4;
4754 C_word t5;
4755 C_word t6;
4756 C_word *a;
4757 if(c!=3) C_bad_argc_2(c,3,t0);
4758 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
4759 C_save_and_reclaim((void *)f_3043,c,av);}
4760 a=C_alloc(4);
4761 t3=C_i_check_list_2(t2,lf[67]);
4762 t4=C_i_length(t2);
4763 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3050,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4764 /* srfi-4.scm:444: make-s32vector */
4765 t6=((C_word*)t0)[2];{
4766 C_word *av2=av;
4767 av2[0]=t6;
4768 av2[1]=t5;
4769 av2[2]=t4;
4770 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
4771
4772 /* k3048 in srfi-4#list->s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3050(C_word c,C_word * av)4773 static void C_ccall f_3050(C_word c,C_word *av){
4774 C_word tmp;
4775 C_word t0=av[0];
4776 C_word t1=av[1];
4777 C_word t2;
4778 C_word t3;
4779 C_word t4;
4780 C_word t5;
4781 C_word *a;
4782 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
4783 C_save_and_reclaim((void *)f_3050,c,av);}
4784 a=C_alloc(8);
4785 t2=C_SCHEME_UNDEFINED;
4786 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4787 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3055,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp));
4788 t5=((C_word*)t3)[1];
4789 f_3055(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
4790
4791 /* doloop683 in k3048 in srfi-4#list->s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3055(C_word t0,C_word t1,C_word t2,C_word t3)4792 static void C_fcall f_3055(C_word t0,C_word t1,C_word t2,C_word t3){
4793 C_word tmp;
4794 C_word t4;
4795 C_word t5;
4796 C_word t6;
4797 C_word t7;
4798 C_word t8;
4799 C_word t9;
4800 C_word t10;
4801 C_word *a;
4802 loop:
4803 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
4804 C_save_and_reclaim_args((void *)trf_3055,4,t0,t1,t2,t3);}
4805 a=C_alloc(6);
4806 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
4807 t4=t1;{
4808 C_word av2[2];
4809 av2[0]=t4;
4810 av2[1]=((C_word*)t0)[2];
4811 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
4812 else{
4813 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3062,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
4814 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
4815 if(C_truep(t5)){
4816 t6=C_i_s32vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
4817 t8=t1;
4818 t9=C_slot(t2,C_fix(1));
4819 t10=C_fixnum_plus(t3,C_fix(1));
4820 t1=t8;
4821 t2=t9;
4822 t3=t10;
4823 goto loop;}
4824 else{
4825 /* srfi-4.scm:444: ##sys#error-not-a-proper-list */
4826 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
4827 C_word av2[3];
4828 av2[0]=*((C_word*)lf[79]+1);
4829 av2[1]=t4;
4830 av2[2]=((C_word*)t0)[4];
4831 tp(3,av2);}}}}
4832
4833 /* k3060 in doloop683 in k3048 in srfi-4#list->s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3062(C_word c,C_word * av)4834 static void C_ccall f_3062(C_word c,C_word *av){
4835 C_word tmp;
4836 C_word t0=av[0];
4837 C_word t1=av[1];
4838 C_word t2;
4839 C_word *a;
4840 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
4841 C_save_and_reclaim((void *)f_3062,c,av);}
4842 t2=((C_word*)((C_word*)t0)[2])[1];
4843 f_3055(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
4844
4845 /* srfi-4#list->u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3079(C_word c,C_word * av)4846 static void C_ccall f_3079(C_word c,C_word *av){
4847 C_word tmp;
4848 C_word t0=av[0];
4849 C_word t1=av[1];
4850 C_word t2=av[2];
4851 C_word t3;
4852 C_word t4;
4853 C_word t5;
4854 C_word t6;
4855 C_word *a;
4856 if(c!=3) C_bad_argc_2(c,3,t0);
4857 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
4858 C_save_and_reclaim((void *)f_3079,c,av);}
4859 a=C_alloc(4);
4860 t3=C_i_check_list_2(t2,lf[63]);
4861 t4=C_i_length(t2);
4862 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3086,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4863 /* srfi-4.scm:445: make-u64vector */
4864 t6=((C_word*)t0)[2];{
4865 C_word *av2=av;
4866 av2[0]=t6;
4867 av2[1]=t5;
4868 av2[2]=t4;
4869 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
4870
4871 /* k3084 in srfi-4#list->u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3086(C_word c,C_word * av)4872 static void C_ccall f_3086(C_word c,C_word *av){
4873 C_word tmp;
4874 C_word t0=av[0];
4875 C_word t1=av[1];
4876 C_word t2;
4877 C_word t3;
4878 C_word t4;
4879 C_word t5;
4880 C_word *a;
4881 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
4882 C_save_and_reclaim((void *)f_3086,c,av);}
4883 a=C_alloc(8);
4884 t2=C_SCHEME_UNDEFINED;
4885 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4886 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3091,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp));
4887 t5=((C_word*)t3)[1];
4888 f_3091(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
4889
4890 /* doloop696 in k3084 in srfi-4#list->u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3091(C_word t0,C_word t1,C_word t2,C_word t3)4891 static void C_fcall f_3091(C_word t0,C_word t1,C_word t2,C_word t3){
4892 C_word tmp;
4893 C_word t4;
4894 C_word t5;
4895 C_word t6;
4896 C_word t7;
4897 C_word t8;
4898 C_word t9;
4899 C_word t10;
4900 C_word *a;
4901 loop:
4902 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
4903 C_save_and_reclaim_args((void *)trf_3091,4,t0,t1,t2,t3);}
4904 a=C_alloc(6);
4905 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
4906 t4=t1;{
4907 C_word av2[2];
4908 av2[0]=t4;
4909 av2[1]=((C_word*)t0)[2];
4910 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
4911 else{
4912 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3098,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
4913 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
4914 if(C_truep(t5)){
4915 t6=C_i_u64vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
4916 t8=t1;
4917 t9=C_slot(t2,C_fix(1));
4918 t10=C_fixnum_plus(t3,C_fix(1));
4919 t1=t8;
4920 t2=t9;
4921 t3=t10;
4922 goto loop;}
4923 else{
4924 /* srfi-4.scm:445: ##sys#error-not-a-proper-list */
4925 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
4926 C_word av2[3];
4927 av2[0]=*((C_word*)lf[79]+1);
4928 av2[1]=t4;
4929 av2[2]=((C_word*)t0)[4];
4930 tp(3,av2);}}}}
4931
4932 /* k3096 in doloop696 in k3084 in srfi-4#list->u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3098(C_word c,C_word * av)4933 static void C_ccall f_3098(C_word c,C_word *av){
4934 C_word tmp;
4935 C_word t0=av[0];
4936 C_word t1=av[1];
4937 C_word t2;
4938 C_word *a;
4939 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
4940 C_save_and_reclaim((void *)f_3098,c,av);}
4941 t2=((C_word*)((C_word*)t0)[2])[1];
4942 f_3091(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
4943
4944 /* srfi-4#list->s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3115(C_word c,C_word * av)4945 static void C_ccall f_3115(C_word c,C_word *av){
4946 C_word tmp;
4947 C_word t0=av[0];
4948 C_word t1=av[1];
4949 C_word t2=av[2];
4950 C_word t3;
4951 C_word t4;
4952 C_word t5;
4953 C_word t6;
4954 C_word *a;
4955 if(c!=3) C_bad_argc_2(c,3,t0);
4956 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
4957 C_save_and_reclaim((void *)f_3115,c,av);}
4958 a=C_alloc(4);
4959 t3=C_i_check_list_2(t2,lf[70]);
4960 t4=C_i_length(t2);
4961 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3122,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4962 /* srfi-4.scm:446: make-s64vector */
4963 t6=((C_word*)t0)[2];{
4964 C_word *av2=av;
4965 av2[0]=t6;
4966 av2[1]=t5;
4967 av2[2]=t4;
4968 ((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}
4969
4970 /* k3120 in srfi-4#list->s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3122(C_word c,C_word * av)4971 static void C_ccall f_3122(C_word c,C_word *av){
4972 C_word tmp;
4973 C_word t0=av[0];
4974 C_word t1=av[1];
4975 C_word t2;
4976 C_word t3;
4977 C_word t4;
4978 C_word t5;
4979 C_word *a;
4980 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
4981 C_save_and_reclaim((void *)f_3122,c,av);}
4982 a=C_alloc(8);
4983 t2=C_SCHEME_UNDEFINED;
4984 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
4985 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3127,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li57),tmp=(C_word)a,a+=6,tmp));
4986 t5=((C_word*)t3)[1];
4987 f_3127(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
4988
4989 /* doloop709 in k3120 in srfi-4#list->s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3127(C_word t0,C_word t1,C_word t2,C_word t3)4990 static void C_fcall f_3127(C_word t0,C_word t1,C_word t2,C_word t3){
4991 C_word tmp;
4992 C_word t4;
4993 C_word t5;
4994 C_word t6;
4995 C_word t7;
4996 C_word t8;
4997 C_word t9;
4998 C_word t10;
4999 C_word *a;
5000 loop:
5001 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
5002 C_save_and_reclaim_args((void *)trf_3127,4,t0,t1,t2,t3);}
5003 a=C_alloc(6);
5004 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
5005 t4=t1;{
5006 C_word av2[2];
5007 av2[0]=t4;
5008 av2[1]=((C_word*)t0)[2];
5009 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
5010 else{
5011 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3134,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
5012 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
5013 if(C_truep(t5)){
5014 t6=C_i_s64vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
5015 t8=t1;
5016 t9=C_slot(t2,C_fix(1));
5017 t10=C_fixnum_plus(t3,C_fix(1));
5018 t1=t8;
5019 t2=t9;
5020 t3=t10;
5021 goto loop;}
5022 else{
5023 /* srfi-4.scm:446: ##sys#error-not-a-proper-list */
5024 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
5025 C_word av2[3];
5026 av2[0]=*((C_word*)lf[79]+1);
5027 av2[1]=t4;
5028 av2[2]=((C_word*)t0)[4];
5029 tp(3,av2);}}}}
5030
5031 /* k3132 in doloop709 in k3120 in srfi-4#list->s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3134(C_word c,C_word * av)5032 static void C_ccall f_3134(C_word c,C_word *av){
5033 C_word tmp;
5034 C_word t0=av[0];
5035 C_word t1=av[1];
5036 C_word t2;
5037 C_word *a;
5038 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5039 C_save_and_reclaim((void *)f_3134,c,av);}
5040 t2=((C_word*)((C_word*)t0)[2])[1];
5041 f_3127(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
5042
5043 /* srfi-4#list->f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3151(C_word c,C_word * av)5044 static void C_ccall f_3151(C_word c,C_word *av){
5045 C_word tmp;
5046 C_word t0=av[0];
5047 C_word t1=av[1];
5048 C_word t2=av[2];
5049 C_word t3;
5050 C_word t4;
5051 C_word t5;
5052 C_word t6;
5053 C_word *a;
5054 if(c!=3) C_bad_argc_2(c,3,t0);
5055 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
5056 C_save_and_reclaim((void *)f_3151,c,av);}
5057 a=C_alloc(4);
5058 t3=C_i_check_list_2(t2,lf[73]);
5059 t4=C_i_length(t2);
5060 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3158,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
5061 /* srfi-4.scm:447: make-f32vector */
5062 t6=((C_word*)t0)[2];{
5063 C_word *av2=av;
5064 av2[0]=t6;
5065 av2[1]=t5;
5066 av2[2]=t4;
5067 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
5068
5069 /* k3156 in srfi-4#list->f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3158(C_word c,C_word * av)5070 static void C_ccall f_3158(C_word c,C_word *av){
5071 C_word tmp;
5072 C_word t0=av[0];
5073 C_word t1=av[1];
5074 C_word t2;
5075 C_word t3;
5076 C_word t4;
5077 C_word t5;
5078 C_word *a;
5079 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
5080 C_save_and_reclaim((void *)f_3158,c,av);}
5081 a=C_alloc(8);
5082 t2=C_SCHEME_UNDEFINED;
5083 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
5084 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3163,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li59),tmp=(C_word)a,a+=6,tmp));
5085 t5=((C_word*)t3)[1];
5086 f_3163(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
5087
5088 /* doloop722 in k3156 in srfi-4#list->f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3163(C_word t0,C_word t1,C_word t2,C_word t3)5089 static void C_fcall f_3163(C_word t0,C_word t1,C_word t2,C_word t3){
5090 C_word tmp;
5091 C_word t4;
5092 C_word t5;
5093 C_word t6;
5094 C_word t7;
5095 C_word t8;
5096 C_word t9;
5097 C_word t10;
5098 C_word *a;
5099 loop:
5100 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
5101 C_save_and_reclaim_args((void *)trf_3163,4,t0,t1,t2,t3);}
5102 a=C_alloc(6);
5103 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
5104 t4=t1;{
5105 C_word av2[2];
5106 av2[0]=t4;
5107 av2[1]=((C_word*)t0)[2];
5108 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
5109 else{
5110 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3170,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
5111 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
5112 if(C_truep(t5)){
5113 t6=C_i_f32vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
5114 t8=t1;
5115 t9=C_slot(t2,C_fix(1));
5116 t10=C_fixnum_plus(t3,C_fix(1));
5117 t1=t8;
5118 t2=t9;
5119 t3=t10;
5120 goto loop;}
5121 else{
5122 /* srfi-4.scm:447: ##sys#error-not-a-proper-list */
5123 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
5124 C_word av2[3];
5125 av2[0]=*((C_word*)lf[79]+1);
5126 av2[1]=t4;
5127 av2[2]=((C_word*)t0)[4];
5128 tp(3,av2);}}}}
5129
5130 /* k3168 in doloop722 in k3156 in srfi-4#list->f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3170(C_word c,C_word * av)5131 static void C_ccall f_3170(C_word c,C_word *av){
5132 C_word tmp;
5133 C_word t0=av[0];
5134 C_word t1=av[1];
5135 C_word t2;
5136 C_word *a;
5137 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5138 C_save_and_reclaim((void *)f_3170,c,av);}
5139 t2=((C_word*)((C_word*)t0)[2])[1];
5140 f_3163(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
5141
5142 /* srfi-4#list->f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3187(C_word c,C_word * av)5143 static void C_ccall f_3187(C_word c,C_word *av){
5144 C_word tmp;
5145 C_word t0=av[0];
5146 C_word t1=av[1];
5147 C_word t2=av[2];
5148 C_word t3;
5149 C_word t4;
5150 C_word t5;
5151 C_word t6;
5152 C_word *a;
5153 if(c!=3) C_bad_argc_2(c,3,t0);
5154 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
5155 C_save_and_reclaim((void *)f_3187,c,av);}
5156 a=C_alloc(4);
5157 t3=C_i_check_list_2(t2,lf[76]);
5158 t4=C_i_length(t2);
5159 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3194,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
5160 /* srfi-4.scm:448: make-f64vector */
5161 t6=((C_word*)t0)[2];{
5162 C_word *av2=av;
5163 av2[0]=t6;
5164 av2[1]=t5;
5165 av2[2]=t4;
5166 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
5167
5168 /* k3192 in srfi-4#list->f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3194(C_word c,C_word * av)5169 static void C_ccall f_3194(C_word c,C_word *av){
5170 C_word tmp;
5171 C_word t0=av[0];
5172 C_word t1=av[1];
5173 C_word t2;
5174 C_word t3;
5175 C_word t4;
5176 C_word t5;
5177 C_word *a;
5178 if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
5179 C_save_and_reclaim((void *)f_3194,c,av);}
5180 a=C_alloc(8);
5181 t2=C_SCHEME_UNDEFINED;
5182 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
5183 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3199,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li61),tmp=(C_word)a,a+=6,tmp));
5184 t5=((C_word*)t3)[1];
5185 f_3199(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));}
5186
5187 /* doloop735 in k3192 in srfi-4#list->f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3199(C_word t0,C_word t1,C_word t2,C_word t3)5188 static void C_fcall f_3199(C_word t0,C_word t1,C_word t2,C_word t3){
5189 C_word tmp;
5190 C_word t4;
5191 C_word t5;
5192 C_word t6;
5193 C_word t7;
5194 C_word t8;
5195 C_word t9;
5196 C_word t10;
5197 C_word *a;
5198 loop:
5199 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
5200 C_save_and_reclaim_args((void *)trf_3199,4,t0,t1,t2,t3);}
5201 a=C_alloc(6);
5202 if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){
5203 t4=t1;{
5204 C_word av2[2];
5205 av2[0]=t4;
5206 av2[1]=((C_word*)t0)[2];
5207 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
5208 else{
5209 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3206,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
5210 t5=(C_truep(C_blockp(t2))?C_pairp(t2):C_SCHEME_FALSE);
5211 if(C_truep(t5)){
5212 t6=C_i_f64vector_set(((C_word*)t0)[2],t3,C_slot(t2,C_fix(0)));
5213 t8=t1;
5214 t9=C_slot(t2,C_fix(1));
5215 t10=C_fixnum_plus(t3,C_fix(1));
5216 t1=t8;
5217 t2=t9;
5218 t3=t10;
5219 goto loop;}
5220 else{
5221 /* srfi-4.scm:448: ##sys#error-not-a-proper-list */
5222 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[79]+1));
5223 C_word av2[3];
5224 av2[0]=*((C_word*)lf[79]+1);
5225 av2[1]=t4;
5226 av2[2]=((C_word*)t0)[4];
5227 tp(3,av2);}}}}
5228
5229 /* k3204 in doloop735 in k3192 in srfi-4#list->f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3206(C_word c,C_word * av)5230 static void C_ccall f_3206(C_word c,C_word *av){
5231 C_word tmp;
5232 C_word t0=av[0];
5233 C_word t1=av[1];
5234 C_word t2;
5235 C_word *a;
5236 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
5237 C_save_and_reclaim((void *)f_3206,c,av);}
5238 t2=((C_word*)((C_word*)t0)[2])[1];
5239 f_3199(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));}
5240
5241 /* srfi-4#u8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3223(C_word c,C_word * av)5242 static void C_ccall f_3223(C_word c,C_word *av){
5243 C_word tmp;
5244 C_word t0=av[0];
5245 C_word t1=av[1];
5246 C_word t2;
5247 C_word *a;
5248 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5249 C_save_and_reclaim((void*)f_3223,c,av);}
5250 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5251 t2=C_build_rest(&a,c,2,av);
5252 C_word t3;
5253 /* srfi-4.scm:454: list->u8vector */
5254 t3=*((C_word*)lf[78]+1);{
5255 C_word *av2;
5256 if(c >= 3) {
5257 av2=av;
5258 } else {
5259 av2=C_alloc(3);
5260 }
5261 av2[0]=t3;
5262 av2[1]=t1;
5263 av2[2]=t2;
5264 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5265
5266 /* srfi-4#s8vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3229(C_word c,C_word * av)5267 static void C_ccall f_3229(C_word c,C_word *av){
5268 C_word tmp;
5269 C_word t0=av[0];
5270 C_word t1=av[1];
5271 C_word t2;
5272 C_word *a;
5273 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5274 C_save_and_reclaim((void*)f_3229,c,av);}
5275 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5276 t2=C_build_rest(&a,c,2,av);
5277 C_word t3;
5278 /* srfi-4.scm:457: list->s8vector */
5279 t3=*((C_word*)lf[80]+1);{
5280 C_word *av2;
5281 if(c >= 3) {
5282 av2=av;
5283 } else {
5284 av2=C_alloc(3);
5285 }
5286 av2[0]=t3;
5287 av2[1]=t1;
5288 av2[2]=t2;
5289 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5290
5291 /* srfi-4#u16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3235(C_word c,C_word * av)5292 static void C_ccall f_3235(C_word c,C_word *av){
5293 C_word tmp;
5294 C_word t0=av[0];
5295 C_word t1=av[1];
5296 C_word t2;
5297 C_word *a;
5298 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5299 C_save_and_reclaim((void*)f_3235,c,av);}
5300 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5301 t2=C_build_rest(&a,c,2,av);
5302 C_word t3;
5303 /* srfi-4.scm:460: list->u16vector */
5304 t3=*((C_word*)lf[81]+1);{
5305 C_word *av2;
5306 if(c >= 3) {
5307 av2=av;
5308 } else {
5309 av2=C_alloc(3);
5310 }
5311 av2[0]=t3;
5312 av2[1]=t1;
5313 av2[2]=t2;
5314 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5315
5316 /* srfi-4#s16vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3241(C_word c,C_word * av)5317 static void C_ccall f_3241(C_word c,C_word *av){
5318 C_word tmp;
5319 C_word t0=av[0];
5320 C_word t1=av[1];
5321 C_word t2;
5322 C_word *a;
5323 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5324 C_save_and_reclaim((void*)f_3241,c,av);}
5325 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5326 t2=C_build_rest(&a,c,2,av);
5327 C_word t3;
5328 /* srfi-4.scm:463: list->s16vector */
5329 t3=*((C_word*)lf[82]+1);{
5330 C_word *av2;
5331 if(c >= 3) {
5332 av2=av;
5333 } else {
5334 av2=C_alloc(3);
5335 }
5336 av2[0]=t3;
5337 av2[1]=t1;
5338 av2[2]=t2;
5339 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5340
5341 /* srfi-4#u32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3247(C_word c,C_word * av)5342 static void C_ccall f_3247(C_word c,C_word *av){
5343 C_word tmp;
5344 C_word t0=av[0];
5345 C_word t1=av[1];
5346 C_word t2;
5347 C_word *a;
5348 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5349 C_save_and_reclaim((void*)f_3247,c,av);}
5350 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5351 t2=C_build_rest(&a,c,2,av);
5352 C_word t3;
5353 /* srfi-4.scm:466: list->u32vector */
5354 t3=*((C_word*)lf[83]+1);{
5355 C_word *av2;
5356 if(c >= 3) {
5357 av2=av;
5358 } else {
5359 av2=C_alloc(3);
5360 }
5361 av2[0]=t3;
5362 av2[1]=t1;
5363 av2[2]=t2;
5364 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5365
5366 /* srfi-4#s32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3253(C_word c,C_word * av)5367 static void C_ccall f_3253(C_word c,C_word *av){
5368 C_word tmp;
5369 C_word t0=av[0];
5370 C_word t1=av[1];
5371 C_word t2;
5372 C_word *a;
5373 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5374 C_save_and_reclaim((void*)f_3253,c,av);}
5375 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5376 t2=C_build_rest(&a,c,2,av);
5377 C_word t3;
5378 /* srfi-4.scm:469: list->s32vector */
5379 t3=*((C_word*)lf[84]+1);{
5380 C_word *av2;
5381 if(c >= 3) {
5382 av2=av;
5383 } else {
5384 av2=C_alloc(3);
5385 }
5386 av2[0]=t3;
5387 av2[1]=t1;
5388 av2[2]=t2;
5389 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5390
5391 /* srfi-4#u64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3259(C_word c,C_word * av)5392 static void C_ccall f_3259(C_word c,C_word *av){
5393 C_word tmp;
5394 C_word t0=av[0];
5395 C_word t1=av[1];
5396 C_word t2;
5397 C_word *a;
5398 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5399 C_save_and_reclaim((void*)f_3259,c,av);}
5400 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5401 t2=C_build_rest(&a,c,2,av);
5402 C_word t3;
5403 /* srfi-4.scm:472: list->u64vector */
5404 t3=*((C_word*)lf[85]+1);{
5405 C_word *av2;
5406 if(c >= 3) {
5407 av2=av;
5408 } else {
5409 av2=C_alloc(3);
5410 }
5411 av2[0]=t3;
5412 av2[1]=t1;
5413 av2[2]=t2;
5414 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5415
5416 /* srfi-4#s64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3265(C_word c,C_word * av)5417 static void C_ccall f_3265(C_word c,C_word *av){
5418 C_word tmp;
5419 C_word t0=av[0];
5420 C_word t1=av[1];
5421 C_word t2;
5422 C_word *a;
5423 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5424 C_save_and_reclaim((void*)f_3265,c,av);}
5425 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5426 t2=C_build_rest(&a,c,2,av);
5427 C_word t3;
5428 /* srfi-4.scm:475: list->s64vector */
5429 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[86]+1));
5430 C_word *av2;
5431 if(c >= 3) {
5432 av2=av;
5433 } else {
5434 av2=C_alloc(3);
5435 }
5436 av2[0]=*((C_word*)lf[86]+1);
5437 av2[1]=t1;
5438 av2[2]=t2;
5439 tp(3,av2);}}
5440
5441 /* srfi-4#f32vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3271(C_word c,C_word * av)5442 static void C_ccall f_3271(C_word c,C_word *av){
5443 C_word tmp;
5444 C_word t0=av[0];
5445 C_word t1=av[1];
5446 C_word t2;
5447 C_word *a;
5448 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5449 C_save_and_reclaim((void*)f_3271,c,av);}
5450 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5451 t2=C_build_rest(&a,c,2,av);
5452 C_word t3;
5453 /* srfi-4.scm:478: list->f32vector */
5454 t3=*((C_word*)lf[87]+1);{
5455 C_word *av2;
5456 if(c >= 3) {
5457 av2=av;
5458 } else {
5459 av2=C_alloc(3);
5460 }
5461 av2[0]=t3;
5462 av2[1]=t1;
5463 av2[2]=t2;
5464 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5465
5466 /* srfi-4#f64vector in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3277(C_word c,C_word * av)5467 static void C_ccall f_3277(C_word c,C_word *av){
5468 C_word tmp;
5469 C_word t0=av[0];
5470 C_word t1=av[1];
5471 C_word t2;
5472 C_word *a;
5473 if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,2)))){
5474 C_save_and_reclaim((void*)f_3277,c,av);}
5475 a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
5476 t2=C_build_rest(&a,c,2,av);
5477 C_word t3;
5478 /* srfi-4.scm:481: list->f64vector */
5479 t3=*((C_word*)lf[88]+1);{
5480 C_word *av2;
5481 if(c >= 3) {
5482 av2=av;
5483 } else {
5484 av2=C_alloc(3);
5485 }
5486 av2[0]=t3;
5487 av2[1]=t1;
5488 av2[2]=t2;
5489 ((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
5490
5491 /* srfi-4#u8vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3283(C_word c,C_word * av)5492 static void C_ccall f_3283(C_word c,C_word *av){
5493 C_word tmp;
5494 C_word t0=av[0];
5495 C_word t1=av[1];
5496 C_word t2=av[2];
5497 C_word t3;
5498 C_word t4;
5499 C_word t5;
5500 C_word t6;
5501 C_word t7;
5502 C_word t8;
5503 C_word *a;
5504 if(c!=3) C_bad_argc_2(c,3,t0);
5505 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
5506 C_save_and_reclaim((void *)f_3283,c,av);}
5507 a=C_alloc(8);
5508 t3=C_i_check_structure_2(t2,lf[43],lf[100]);
5509 t4=C_u_i_u8vector_length(t2);
5510 t5=C_SCHEME_UNDEFINED;
5511 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5512 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3292,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li73),tmp=(C_word)a,a+=6,tmp));
5513 t8=((C_word*)t6)[1];
5514 f_3292(t8,t1,C_fix(0));}
5515
5516 /* loop in srfi-4#u8vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3292(C_word t0,C_word t1,C_word t2)5517 static void C_fcall f_3292(C_word t0,C_word t1,C_word t2){
5518 C_word tmp;
5519 C_word t3;
5520 C_word t4;
5521 C_word t5;
5522 C_word t6;
5523 C_word t7;
5524 C_word *a;
5525 loop:
5526 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
5527 C_save_and_reclaim_args((void *)trf_3292,3,t0,t1,t2);}
5528 a=C_alloc(4);
5529 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
5530 t3=t1;{
5531 C_word av2[2];
5532 av2[0]=t3;
5533 av2[1]=C_SCHEME_END_OF_LIST;
5534 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5535 else{
5536 t3=C_u_i_u8vector_ref(((C_word*)t0)[3],t2);
5537 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3307,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
5538 /* srfi-4.scm:504: loop */
5539 t6=t4;
5540 t7=C_fixnum_plus(t2,C_fix(1));
5541 t1=t6;
5542 t2=t7;
5543 goto loop;}}
5544
5545 /* k3305 in loop in srfi-4#u8vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3307(C_word c,C_word * av)5546 static void C_ccall f_3307(C_word c,C_word *av){
5547 C_word tmp;
5548 C_word t0=av[0];
5549 C_word t1=av[1];
5550 C_word t2;
5551 C_word *a;
5552 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
5553 C_save_and_reclaim((void *)f_3307,c,av);}
5554 a=C_alloc(3);
5555 t2=((C_word*)t0)[2];{
5556 C_word *av2=av;
5557 av2[0]=t2;
5558 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
5559 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5560
5561 /* srfi-4#s8vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3313(C_word c,C_word * av)5562 static void C_ccall f_3313(C_word c,C_word *av){
5563 C_word tmp;
5564 C_word t0=av[0];
5565 C_word t1=av[1];
5566 C_word t2=av[2];
5567 C_word t3;
5568 C_word t4;
5569 C_word t5;
5570 C_word t6;
5571 C_word t7;
5572 C_word t8;
5573 C_word *a;
5574 if(c!=3) C_bad_argc_2(c,3,t0);
5575 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
5576 C_save_and_reclaim((void *)f_3313,c,av);}
5577 a=C_alloc(8);
5578 t3=C_i_check_structure_2(t2,lf[49],lf[102]);
5579 t4=C_u_i_s8vector_length(t2);
5580 t5=C_SCHEME_UNDEFINED;
5581 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5582 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3322,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li75),tmp=(C_word)a,a+=6,tmp));
5583 t8=((C_word*)t6)[1];
5584 f_3322(t8,t1,C_fix(0));}
5585
5586 /* loop in srfi-4#s8vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3322(C_word t0,C_word t1,C_word t2)5587 static void C_fcall f_3322(C_word t0,C_word t1,C_word t2){
5588 C_word tmp;
5589 C_word t3;
5590 C_word t4;
5591 C_word t5;
5592 C_word t6;
5593 C_word t7;
5594 C_word *a;
5595 loop:
5596 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
5597 C_save_and_reclaim_args((void *)trf_3322,3,t0,t1,t2);}
5598 a=C_alloc(4);
5599 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
5600 t3=t1;{
5601 C_word av2[2];
5602 av2[0]=t3;
5603 av2[1]=C_SCHEME_END_OF_LIST;
5604 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5605 else{
5606 t3=C_u_i_s8vector_ref(((C_word*)t0)[3],t2);
5607 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3337,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
5608 /* srfi-4.scm:505: loop */
5609 t6=t4;
5610 t7=C_fixnum_plus(t2,C_fix(1));
5611 t1=t6;
5612 t2=t7;
5613 goto loop;}}
5614
5615 /* k3335 in loop in srfi-4#s8vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3337(C_word c,C_word * av)5616 static void C_ccall f_3337(C_word c,C_word *av){
5617 C_word tmp;
5618 C_word t0=av[0];
5619 C_word t1=av[1];
5620 C_word t2;
5621 C_word *a;
5622 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
5623 C_save_and_reclaim((void *)f_3337,c,av);}
5624 a=C_alloc(3);
5625 t2=((C_word*)t0)[2];{
5626 C_word *av2=av;
5627 av2[0]=t2;
5628 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
5629 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5630
5631 /* srfi-4#u16vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3343(C_word c,C_word * av)5632 static void C_ccall f_3343(C_word c,C_word *av){
5633 C_word tmp;
5634 C_word t0=av[0];
5635 C_word t1=av[1];
5636 C_word t2=av[2];
5637 C_word t3;
5638 C_word t4;
5639 C_word t5;
5640 C_word t6;
5641 C_word t7;
5642 C_word t8;
5643 C_word *a;
5644 if(c!=3) C_bad_argc_2(c,3,t0);
5645 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
5646 C_save_and_reclaim((void *)f_3343,c,av);}
5647 a=C_alloc(8);
5648 t3=C_i_check_structure_2(t2,lf[52],lf[104]);
5649 t4=C_u_i_u16vector_length(t2);
5650 t5=C_SCHEME_UNDEFINED;
5651 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5652 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3352,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li77),tmp=(C_word)a,a+=6,tmp));
5653 t8=((C_word*)t6)[1];
5654 f_3352(t8,t1,C_fix(0));}
5655
5656 /* loop in srfi-4#u16vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3352(C_word t0,C_word t1,C_word t2)5657 static void C_fcall f_3352(C_word t0,C_word t1,C_word t2){
5658 C_word tmp;
5659 C_word t3;
5660 C_word t4;
5661 C_word t5;
5662 C_word t6;
5663 C_word t7;
5664 C_word *a;
5665 loop:
5666 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
5667 C_save_and_reclaim_args((void *)trf_3352,3,t0,t1,t2);}
5668 a=C_alloc(4);
5669 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
5670 t3=t1;{
5671 C_word av2[2];
5672 av2[0]=t3;
5673 av2[1]=C_SCHEME_END_OF_LIST;
5674 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5675 else{
5676 t3=C_u_i_u16vector_ref(((C_word*)t0)[3],t2);
5677 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3367,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
5678 /* srfi-4.scm:506: loop */
5679 t6=t4;
5680 t7=C_fixnum_plus(t2,C_fix(1));
5681 t1=t6;
5682 t2=t7;
5683 goto loop;}}
5684
5685 /* k3365 in loop in srfi-4#u16vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3367(C_word c,C_word * av)5686 static void C_ccall f_3367(C_word c,C_word *av){
5687 C_word tmp;
5688 C_word t0=av[0];
5689 C_word t1=av[1];
5690 C_word t2;
5691 C_word *a;
5692 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
5693 C_save_and_reclaim((void *)f_3367,c,av);}
5694 a=C_alloc(3);
5695 t2=((C_word*)t0)[2];{
5696 C_word *av2=av;
5697 av2[0]=t2;
5698 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
5699 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5700
5701 /* srfi-4#s16vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3373(C_word c,C_word * av)5702 static void C_ccall f_3373(C_word c,C_word *av){
5703 C_word tmp;
5704 C_word t0=av[0];
5705 C_word t1=av[1];
5706 C_word t2=av[2];
5707 C_word t3;
5708 C_word t4;
5709 C_word t5;
5710 C_word t6;
5711 C_word t7;
5712 C_word t8;
5713 C_word *a;
5714 if(c!=3) C_bad_argc_2(c,3,t0);
5715 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
5716 C_save_and_reclaim((void *)f_3373,c,av);}
5717 a=C_alloc(8);
5718 t3=C_i_check_structure_2(t2,lf[55],lf[106]);
5719 t4=C_u_i_s16vector_length(t2);
5720 t5=C_SCHEME_UNDEFINED;
5721 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5722 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3382,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li79),tmp=(C_word)a,a+=6,tmp));
5723 t8=((C_word*)t6)[1];
5724 f_3382(t8,t1,C_fix(0));}
5725
5726 /* loop in srfi-4#s16vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3382(C_word t0,C_word t1,C_word t2)5727 static void C_fcall f_3382(C_word t0,C_word t1,C_word t2){
5728 C_word tmp;
5729 C_word t3;
5730 C_word t4;
5731 C_word t5;
5732 C_word t6;
5733 C_word t7;
5734 C_word *a;
5735 loop:
5736 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
5737 C_save_and_reclaim_args((void *)trf_3382,3,t0,t1,t2);}
5738 a=C_alloc(4);
5739 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
5740 t3=t1;{
5741 C_word av2[2];
5742 av2[0]=t3;
5743 av2[1]=C_SCHEME_END_OF_LIST;
5744 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5745 else{
5746 t3=C_u_i_s16vector_ref(((C_word*)t0)[3],t2);
5747 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3397,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
5748 /* srfi-4.scm:507: loop */
5749 t6=t4;
5750 t7=C_fixnum_plus(t2,C_fix(1));
5751 t1=t6;
5752 t2=t7;
5753 goto loop;}}
5754
5755 /* k3395 in loop in srfi-4#s16vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3397(C_word c,C_word * av)5756 static void C_ccall f_3397(C_word c,C_word *av){
5757 C_word tmp;
5758 C_word t0=av[0];
5759 C_word t1=av[1];
5760 C_word t2;
5761 C_word *a;
5762 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
5763 C_save_and_reclaim((void *)f_3397,c,av);}
5764 a=C_alloc(3);
5765 t2=((C_word*)t0)[2];{
5766 C_word *av2=av;
5767 av2[0]=t2;
5768 av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
5769 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5770
5771 /* srfi-4#u32vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3403(C_word c,C_word * av)5772 static void C_ccall f_3403(C_word c,C_word *av){
5773 C_word tmp;
5774 C_word t0=av[0];
5775 C_word t1=av[1];
5776 C_word t2=av[2];
5777 C_word t3;
5778 C_word t4;
5779 C_word t5;
5780 C_word t6;
5781 C_word t7;
5782 C_word t8;
5783 C_word *a;
5784 if(c!=3) C_bad_argc_2(c,3,t0);
5785 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
5786 C_save_and_reclaim((void *)f_3403,c,av);}
5787 a=C_alloc(8);
5788 t3=C_i_check_structure_2(t2,lf[59],lf[108]);
5789 t4=C_u_i_u32vector_length(t2);
5790 t5=C_SCHEME_UNDEFINED;
5791 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5792 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3412,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li81),tmp=(C_word)a,a+=6,tmp));
5793 t8=((C_word*)t6)[1];
5794 f_3412(t8,t1,C_fix(0));}
5795
5796 /* loop in srfi-4#u32vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3412(C_word t0,C_word t1,C_word t2)5797 static void C_fcall f_3412(C_word t0,C_word t1,C_word t2){
5798 C_word tmp;
5799 C_word t3;
5800 C_word t4;
5801 C_word t5;
5802 C_word t6;
5803 C_word *a;
5804 loop:
5805 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
5806 C_save_and_reclaim_args((void *)trf_3412,3,t0,t1,t2);}
5807 a=C_alloc(5);
5808 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
5809 t3=t1;{
5810 C_word av2[2];
5811 av2[0]=t3;
5812 av2[1]=C_SCHEME_END_OF_LIST;
5813 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5814 else{
5815 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3426,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5816 /* srfi-4.scm:509: loop */
5817 t5=t3;
5818 t6=C_fixnum_plus(t2,C_fix(1));
5819 t1=t5;
5820 t2=t6;
5821 goto loop;}}
5822
5823 /* k3424 in loop in srfi-4#u32vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3426(C_word c,C_word * av)5824 static void C_ccall f_3426(C_word c,C_word *av){
5825 C_word tmp;
5826 C_word t0=av[0];
5827 C_word t1=av[1];
5828 C_word t2;
5829 C_word *a;
5830 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
5831 C_save_and_reclaim((void *)f_3426,c,av);}
5832 a=C_alloc(9);
5833 t2=((C_word*)t0)[2];{
5834 C_word *av2=av;
5835 av2[0]=t2;
5836 av2[1]=C_a_i_cons(&a,2,C_a_u_i_u32vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1);
5837 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5838
5839 /* srfi-4#s32vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3432(C_word c,C_word * av)5840 static void C_ccall f_3432(C_word c,C_word *av){
5841 C_word tmp;
5842 C_word t0=av[0];
5843 C_word t1=av[1];
5844 C_word t2=av[2];
5845 C_word t3;
5846 C_word t4;
5847 C_word t5;
5848 C_word t6;
5849 C_word t7;
5850 C_word t8;
5851 C_word *a;
5852 if(c!=3) C_bad_argc_2(c,3,t0);
5853 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
5854 C_save_and_reclaim((void *)f_3432,c,av);}
5855 a=C_alloc(8);
5856 t3=C_i_check_structure_2(t2,lf[67],lf[110]);
5857 t4=C_u_i_s32vector_length(t2);
5858 t5=C_SCHEME_UNDEFINED;
5859 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5860 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3441,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li83),tmp=(C_word)a,a+=6,tmp));
5861 t8=((C_word*)t6)[1];
5862 f_3441(t8,t1,C_fix(0));}
5863
5864 /* loop in srfi-4#s32vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3441(C_word t0,C_word t1,C_word t2)5865 static void C_fcall f_3441(C_word t0,C_word t1,C_word t2){
5866 C_word tmp;
5867 C_word t3;
5868 C_word t4;
5869 C_word t5;
5870 C_word t6;
5871 C_word *a;
5872 loop:
5873 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
5874 C_save_and_reclaim_args((void *)trf_3441,3,t0,t1,t2);}
5875 a=C_alloc(5);
5876 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
5877 t3=t1;{
5878 C_word av2[2];
5879 av2[0]=t3;
5880 av2[1]=C_SCHEME_END_OF_LIST;
5881 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5882 else{
5883 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3455,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5884 /* srfi-4.scm:510: loop */
5885 t5=t3;
5886 t6=C_fixnum_plus(t2,C_fix(1));
5887 t1=t5;
5888 t2=t6;
5889 goto loop;}}
5890
5891 /* k3453 in loop in srfi-4#s32vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3455(C_word c,C_word * av)5892 static void C_ccall f_3455(C_word c,C_word *av){
5893 C_word tmp;
5894 C_word t0=av[0];
5895 C_word t1=av[1];
5896 C_word t2;
5897 C_word *a;
5898 if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
5899 C_save_and_reclaim((void *)f_3455,c,av);}
5900 a=C_alloc(9);
5901 t2=((C_word*)t0)[2];{
5902 C_word *av2=av;
5903 av2[0]=t2;
5904 av2[1]=C_a_i_cons(&a,2,C_a_u_i_s32vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1);
5905 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5906
5907 /* srfi-4#u64vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3461(C_word c,C_word * av)5908 static void C_ccall f_3461(C_word c,C_word *av){
5909 C_word tmp;
5910 C_word t0=av[0];
5911 C_word t1=av[1];
5912 C_word t2=av[2];
5913 C_word t3;
5914 C_word t4;
5915 C_word t5;
5916 C_word t6;
5917 C_word t7;
5918 C_word t8;
5919 C_word *a;
5920 if(c!=3) C_bad_argc_2(c,3,t0);
5921 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
5922 C_save_and_reclaim((void *)f_3461,c,av);}
5923 a=C_alloc(8);
5924 t3=C_i_check_structure_2(t2,lf[63],lf[112]);
5925 t4=C_u_i_u64vector_length(t2);
5926 t5=C_SCHEME_UNDEFINED;
5927 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5928 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3470,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li85),tmp=(C_word)a,a+=6,tmp));
5929 t8=((C_word*)t6)[1];
5930 f_3470(t8,t1,C_fix(0));}
5931
5932 /* loop in srfi-4#u64vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3470(C_word t0,C_word t1,C_word t2)5933 static void C_fcall f_3470(C_word t0,C_word t1,C_word t2){
5934 C_word tmp;
5935 C_word t3;
5936 C_word t4;
5937 C_word t5;
5938 C_word t6;
5939 C_word *a;
5940 loop:
5941 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
5942 C_save_and_reclaim_args((void *)trf_3470,3,t0,t1,t2);}
5943 a=C_alloc(5);
5944 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
5945 t3=t1;{
5946 C_word av2[2];
5947 av2[0]=t3;
5948 av2[1]=C_SCHEME_END_OF_LIST;
5949 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
5950 else{
5951 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3484,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5952 /* srfi-4.scm:511: loop */
5953 t5=t3;
5954 t6=C_fixnum_plus(t2,C_fix(1));
5955 t1=t5;
5956 t2=t6;
5957 goto loop;}}
5958
5959 /* k3482 in loop in srfi-4#u64vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3484(C_word c,C_word * av)5960 static void C_ccall f_3484(C_word c,C_word *av){
5961 C_word tmp;
5962 C_word t0=av[0];
5963 C_word t1=av[1];
5964 C_word t2;
5965 C_word *a;
5966 if(C_unlikely(!C_demand(C_calculate_demand(10,c,1)))){
5967 C_save_and_reclaim((void *)f_3484,c,av);}
5968 a=C_alloc(10);
5969 t2=((C_word*)t0)[2];{
5970 C_word *av2=av;
5971 av2[0]=t2;
5972 av2[1]=C_a_i_cons(&a,2,C_a_u_i_u64vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1);
5973 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
5974
5975 /* srfi-4#s64vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3490(C_word c,C_word * av)5976 static void C_ccall f_3490(C_word c,C_word *av){
5977 C_word tmp;
5978 C_word t0=av[0];
5979 C_word t1=av[1];
5980 C_word t2=av[2];
5981 C_word t3;
5982 C_word t4;
5983 C_word t5;
5984 C_word t6;
5985 C_word t7;
5986 C_word t8;
5987 C_word *a;
5988 if(c!=3) C_bad_argc_2(c,3,t0);
5989 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
5990 C_save_and_reclaim((void *)f_3490,c,av);}
5991 a=C_alloc(8);
5992 t3=C_i_check_structure_2(t2,lf[70],lf[114]);
5993 t4=C_u_i_s64vector_length(t2);
5994 t5=C_SCHEME_UNDEFINED;
5995 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
5996 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3499,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li87),tmp=(C_word)a,a+=6,tmp));
5997 t8=((C_word*)t6)[1];
5998 f_3499(t8,t1,C_fix(0));}
5999
6000 /* loop in srfi-4#s64vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3499(C_word t0,C_word t1,C_word t2)6001 static void C_fcall f_3499(C_word t0,C_word t1,C_word t2){
6002 C_word tmp;
6003 C_word t3;
6004 C_word t4;
6005 C_word t5;
6006 C_word t6;
6007 C_word *a;
6008 loop:
6009 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
6010 C_save_and_reclaim_args((void *)trf_3499,3,t0,t1,t2);}
6011 a=C_alloc(5);
6012 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
6013 t3=t1;{
6014 C_word av2[2];
6015 av2[0]=t3;
6016 av2[1]=C_SCHEME_END_OF_LIST;
6017 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6018 else{
6019 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3513,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
6020 /* srfi-4.scm:512: loop */
6021 t5=t3;
6022 t6=C_fixnum_plus(t2,C_fix(1));
6023 t1=t5;
6024 t2=t6;
6025 goto loop;}}
6026
6027 /* k3511 in loop in srfi-4#s64vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3513(C_word c,C_word * av)6028 static void C_ccall f_3513(C_word c,C_word *av){
6029 C_word tmp;
6030 C_word t0=av[0];
6031 C_word t1=av[1];
6032 C_word t2;
6033 C_word *a;
6034 if(C_unlikely(!C_demand(C_calculate_demand(10,c,1)))){
6035 C_save_and_reclaim((void *)f_3513,c,av);}
6036 a=C_alloc(10);
6037 t2=((C_word*)t0)[2];{
6038 C_word *av2=av;
6039 av2[0]=t2;
6040 av2[1]=C_a_i_cons(&a,2,C_a_u_i_s64vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1);
6041 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6042
6043 /* srfi-4#f32vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3519(C_word c,C_word * av)6044 static void C_ccall f_3519(C_word c,C_word *av){
6045 C_word tmp;
6046 C_word t0=av[0];
6047 C_word t1=av[1];
6048 C_word t2=av[2];
6049 C_word t3;
6050 C_word t4;
6051 C_word t5;
6052 C_word t6;
6053 C_word t7;
6054 C_word t8;
6055 C_word *a;
6056 if(c!=3) C_bad_argc_2(c,3,t0);
6057 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
6058 C_save_and_reclaim((void *)f_3519,c,av);}
6059 a=C_alloc(8);
6060 t3=C_i_check_structure_2(t2,lf[73],lf[116]);
6061 t4=C_u_i_f32vector_length(t2);
6062 t5=C_SCHEME_UNDEFINED;
6063 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
6064 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3528,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li89),tmp=(C_word)a,a+=6,tmp));
6065 t8=((C_word*)t6)[1];
6066 f_3528(t8,t1,C_fix(0));}
6067
6068 /* loop in srfi-4#f32vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3528(C_word t0,C_word t1,C_word t2)6069 static void C_fcall f_3528(C_word t0,C_word t1,C_word t2){
6070 C_word tmp;
6071 C_word t3;
6072 C_word t4;
6073 C_word t5;
6074 C_word t6;
6075 C_word *a;
6076 loop:
6077 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
6078 C_save_and_reclaim_args((void *)trf_3528,3,t0,t1,t2);}
6079 a=C_alloc(5);
6080 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
6081 t3=t1;{
6082 C_word av2[2];
6083 av2[0]=t3;
6084 av2[1]=C_SCHEME_END_OF_LIST;
6085 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6086 else{
6087 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3542,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
6088 /* srfi-4.scm:513: loop */
6089 t5=t3;
6090 t6=C_fixnum_plus(t2,C_fix(1));
6091 t1=t5;
6092 t2=t6;
6093 goto loop;}}
6094
6095 /* k3540 in loop in srfi-4#f32vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3542(C_word c,C_word * av)6096 static void C_ccall f_3542(C_word c,C_word *av){
6097 C_word tmp;
6098 C_word t0=av[0];
6099 C_word t1=av[1];
6100 C_word t2;
6101 C_word *a;
6102 if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
6103 C_save_and_reclaim((void *)f_3542,c,av);}
6104 a=C_alloc(7);
6105 t2=((C_word*)t0)[2];{
6106 C_word *av2=av;
6107 av2[0]=t2;
6108 av2[1]=C_a_i_cons(&a,2,C_a_u_i_f32vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1);
6109 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6110
6111 /* srfi-4#f64vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3548(C_word c,C_word * av)6112 static void C_ccall f_3548(C_word c,C_word *av){
6113 C_word tmp;
6114 C_word t0=av[0];
6115 C_word t1=av[1];
6116 C_word t2=av[2];
6117 C_word t3;
6118 C_word t4;
6119 C_word t5;
6120 C_word t6;
6121 C_word t7;
6122 C_word t8;
6123 C_word *a;
6124 if(c!=3) C_bad_argc_2(c,3,t0);
6125 if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
6126 C_save_and_reclaim((void *)f_3548,c,av);}
6127 a=C_alloc(8);
6128 t3=C_i_check_structure_2(t2,lf[76],lf[118]);
6129 t4=C_u_i_f64vector_length(t2);
6130 t5=C_SCHEME_UNDEFINED;
6131 t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
6132 t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3557,a[2]=t4,a[3]=t2,a[4]=t6,a[5]=((C_word)li91),tmp=(C_word)a,a+=6,tmp));
6133 t8=((C_word*)t6)[1];
6134 f_3557(t8,t1,C_fix(0));}
6135
6136 /* loop in srfi-4#f64vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3557(C_word t0,C_word t1,C_word t2)6137 static void C_fcall f_3557(C_word t0,C_word t1,C_word t2){
6138 C_word tmp;
6139 C_word t3;
6140 C_word t4;
6141 C_word t5;
6142 C_word t6;
6143 C_word *a;
6144 loop:
6145 if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
6146 C_save_and_reclaim_args((void *)trf_3557,3,t0,t1,t2);}
6147 a=C_alloc(5);
6148 if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
6149 t3=t1;{
6150 C_word av2[2];
6151 av2[0]=t3;
6152 av2[1]=C_SCHEME_END_OF_LIST;
6153 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6154 else{
6155 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3571,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
6156 /* srfi-4.scm:514: loop */
6157 t5=t3;
6158 t6=C_fixnum_plus(t2,C_fix(1));
6159 t1=t5;
6160 t2=t6;
6161 goto loop;}}
6162
6163 /* k3569 in loop in srfi-4#f64vector->list in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3571(C_word c,C_word * av)6164 static void C_ccall f_3571(C_word c,C_word *av){
6165 C_word tmp;
6166 C_word t0=av[0];
6167 C_word t1=av[1];
6168 C_word t2;
6169 C_word *a;
6170 if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
6171 C_save_and_reclaim((void *)f_3571,c,av);}
6172 a=C_alloc(7);
6173 t2=((C_word*)t0)[2];{
6174 C_word *av2=av;
6175 av2[0]=t2;
6176 av2[1]=C_a_i_cons(&a,2,C_a_u_i_f64vector_ref(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]),t1);
6177 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6178
6179 /* srfi-4#u8vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3577(C_word c,C_word * av)6180 static void C_ccall f_3577(C_word c,C_word *av){
6181 C_word tmp;
6182 C_word t0=av[0];
6183 C_word t1=av[1];
6184 C_word t2=av[2];
6185 C_word t3;
6186 C_word *a;
6187 if(c!=3) C_bad_argc_2(c,3,t0);
6188 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6189 C_save_and_reclaim((void *)f_3577,c,av);}
6190 t3=t1;{
6191 C_word *av2=av;
6192 av2[0]=t3;
6193 av2[1]=C_i_u8vectorp(t2);
6194 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6195
6196 /* srfi-4#s8vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3580(C_word c,C_word * av)6197 static void C_ccall f_3580(C_word c,C_word *av){
6198 C_word tmp;
6199 C_word t0=av[0];
6200 C_word t1=av[1];
6201 C_word t2=av[2];
6202 C_word t3;
6203 C_word *a;
6204 if(c!=3) C_bad_argc_2(c,3,t0);
6205 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6206 C_save_and_reclaim((void *)f_3580,c,av);}
6207 t3=t1;{
6208 C_word *av2=av;
6209 av2[0]=t3;
6210 av2[1]=C_i_s8vectorp(t2);
6211 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6212
6213 /* srfi-4#u16vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3583(C_word c,C_word * av)6214 static void C_ccall f_3583(C_word c,C_word *av){
6215 C_word tmp;
6216 C_word t0=av[0];
6217 C_word t1=av[1];
6218 C_word t2=av[2];
6219 C_word t3;
6220 C_word *a;
6221 if(c!=3) C_bad_argc_2(c,3,t0);
6222 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6223 C_save_and_reclaim((void *)f_3583,c,av);}
6224 t3=t1;{
6225 C_word *av2=av;
6226 av2[0]=t3;
6227 av2[1]=C_i_u16vectorp(t2);
6228 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6229
6230 /* srfi-4#s16vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3586(C_word c,C_word * av)6231 static void C_ccall f_3586(C_word c,C_word *av){
6232 C_word tmp;
6233 C_word t0=av[0];
6234 C_word t1=av[1];
6235 C_word t2=av[2];
6236 C_word t3;
6237 C_word *a;
6238 if(c!=3) C_bad_argc_2(c,3,t0);
6239 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6240 C_save_and_reclaim((void *)f_3586,c,av);}
6241 t3=t1;{
6242 C_word *av2=av;
6243 av2[0]=t3;
6244 av2[1]=C_i_s16vectorp(t2);
6245 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6246
6247 /* srfi-4#u32vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3589(C_word c,C_word * av)6248 static void C_ccall f_3589(C_word c,C_word *av){
6249 C_word tmp;
6250 C_word t0=av[0];
6251 C_word t1=av[1];
6252 C_word t2=av[2];
6253 C_word t3;
6254 C_word *a;
6255 if(c!=3) C_bad_argc_2(c,3,t0);
6256 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6257 C_save_and_reclaim((void *)f_3589,c,av);}
6258 t3=t1;{
6259 C_word *av2=av;
6260 av2[0]=t3;
6261 av2[1]=C_i_u32vectorp(t2);
6262 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6263
6264 /* srfi-4#s32vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3592(C_word c,C_word * av)6265 static void C_ccall f_3592(C_word c,C_word *av){
6266 C_word tmp;
6267 C_word t0=av[0];
6268 C_word t1=av[1];
6269 C_word t2=av[2];
6270 C_word t3;
6271 C_word *a;
6272 if(c!=3) C_bad_argc_2(c,3,t0);
6273 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6274 C_save_and_reclaim((void *)f_3592,c,av);}
6275 t3=t1;{
6276 C_word *av2=av;
6277 av2[0]=t3;
6278 av2[1]=C_i_s32vectorp(t2);
6279 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6280
6281 /* srfi-4#u64vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3595(C_word c,C_word * av)6282 static void C_ccall f_3595(C_word c,C_word *av){
6283 C_word tmp;
6284 C_word t0=av[0];
6285 C_word t1=av[1];
6286 C_word t2=av[2];
6287 C_word t3;
6288 C_word *a;
6289 if(c!=3) C_bad_argc_2(c,3,t0);
6290 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6291 C_save_and_reclaim((void *)f_3595,c,av);}
6292 t3=t1;{
6293 C_word *av2=av;
6294 av2[0]=t3;
6295 av2[1]=C_i_u64vectorp(t2);
6296 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6297
6298 /* srfi-4#s64vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3598(C_word c,C_word * av)6299 static void C_ccall f_3598(C_word c,C_word *av){
6300 C_word tmp;
6301 C_word t0=av[0];
6302 C_word t1=av[1];
6303 C_word t2=av[2];
6304 C_word t3;
6305 C_word *a;
6306 if(c!=3) C_bad_argc_2(c,3,t0);
6307 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6308 C_save_and_reclaim((void *)f_3598,c,av);}
6309 t3=t1;{
6310 C_word *av2=av;
6311 av2[0]=t3;
6312 av2[1]=C_i_s64vectorp(t2);
6313 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6314
6315 /* srfi-4#f32vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3601(C_word c,C_word * av)6316 static void C_ccall f_3601(C_word c,C_word *av){
6317 C_word tmp;
6318 C_word t0=av[0];
6319 C_word t1=av[1];
6320 C_word t2=av[2];
6321 C_word t3;
6322 C_word *a;
6323 if(c!=3) C_bad_argc_2(c,3,t0);
6324 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6325 C_save_and_reclaim((void *)f_3601,c,av);}
6326 t3=t1;{
6327 C_word *av2=av;
6328 av2[0]=t3;
6329 av2[1]=C_i_f32vectorp(t2);
6330 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6331
6332 /* srfi-4#f64vector? in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3604(C_word c,C_word * av)6333 static void C_ccall f_3604(C_word c,C_word *av){
6334 C_word tmp;
6335 C_word t0=av[0];
6336 C_word t1=av[1];
6337 C_word t2=av[2];
6338 C_word t3;
6339 C_word *a;
6340 if(c!=3) C_bad_argc_2(c,3,t0);
6341 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6342 C_save_and_reclaim((void *)f_3604,c,av);}
6343 t3=t1;{
6344 C_word *av2=av;
6345 av2[0]=t3;
6346 av2[1]=C_i_f64vectorp(t2);
6347 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
6348
6349 /* srfi-4#pack-copy in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3619(C_word t1,C_word t2,C_word t3)6350 static void C_fcall f_3619(C_word t1,C_word t2,C_word t3){
6351 C_word tmp;
6352 C_word t4;
6353 C_word *a;
6354 if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
6355 C_save_and_reclaim_args((void *)trf_3619,3,t1,t2,t3);}
6356 a=C_alloc(5);
6357 t4=t1;{
6358 C_word av2[2];
6359 av2[0]=t4;
6360 av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3621,a[2]=t2,a[3]=t3,a[4]=((C_word)li103),tmp=(C_word)a,a+=5,tmp);
6361 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
6362
6363 /* f_3621 in srfi-4#pack-copy in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3621(C_word c,C_word * av)6364 static void C_ccall f_3621(C_word c,C_word *av){
6365 C_word tmp;
6366 C_word t0=av[0];
6367 C_word t1=av[1];
6368 C_word t2=av[2];
6369 C_word t3;
6370 C_word t4;
6371 C_word t5;
6372 C_word t6;
6373 C_word *a;
6374 if(c!=3) C_bad_argc_2(c,3,t0);
6375 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
6376 C_save_and_reclaim((void *)f_3621,c,av);}
6377 a=C_alloc(4);
6378 t3=C_i_check_structure_2(t2,((C_word*)t0)[2],((C_word*)t0)[3]);
6379 t4=C_slot(t2,C_fix(1));
6380 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3631,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
6381 /* srfi-4.scm:544: ##sys#make-blob */
6382 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[131]+1));
6383 C_word *av2=av;
6384 av2[0]=*((C_word*)lf[131]+1);
6385 av2[1]=t5;
6386 av2[2]=C_block_size(t4);
6387 tp(3,av2);}}
6388
6389 /* k3629 */
f_3631(C_word c,C_word * av)6390 static void C_ccall f_3631(C_word c,C_word *av){
6391 C_word tmp;
6392 C_word t0=av[0];
6393 C_word t1=av[1];
6394 C_word t2;
6395 C_word *a;
6396 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
6397 C_save_and_reclaim((void *)f_3631,c,av);}
6398 t2=((C_word*)t0)[2];{
6399 C_word *av2=av;
6400 av2[0]=t2;
6401 av2[1]=C_copy_block(((C_word*)t0)[3],t1);
6402 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
6403
6404 /* srfi-4#unpack in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3637(C_word t1,C_word t2,C_word t3,C_word t4)6405 static void C_fcall f_3637(C_word t1,C_word t2,C_word t3,C_word t4){
6406 C_word tmp;
6407 C_word t5;
6408 C_word *a;
6409 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
6410 C_save_and_reclaim_args((void *)trf_3637,4,t1,t2,t3,t4);}
6411 a=C_alloc(6);
6412 t5=t1;{
6413 C_word av2[2];
6414 av2[0]=t5;
6415 av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3639,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=((C_word)li105),tmp=(C_word)a,a+=6,tmp);
6416 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
6417
6418 /* f_3639 in srfi-4#unpack in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3639(C_word c,C_word * av)6419 static void C_ccall f_3639(C_word c,C_word *av){
6420 C_word tmp;
6421 C_word t0=av[0];
6422 C_word t1=av[1];
6423 C_word t2=av[2];
6424 C_word t3;
6425 C_word t4;
6426 C_word t5;
6427 C_word t6;
6428 C_word t7;
6429 C_word *a;
6430 if(c!=3) C_bad_argc_2(c,3,t0);
6431 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
6432 C_save_and_reclaim((void *)f_3639,c,av);}
6433 a=C_alloc(3);
6434 t3=C_i_check_bytevector_2(t2,((C_word*)t0)[2]);
6435 t4=C_block_size(t2);
6436 t5=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[3]);
6437 t6=(C_truep(t5)?t5:C_eqp(C_fix(0),C_fixnum_modulo(t4,((C_word*)t0)[3])));
6438 if(C_truep(t6)){
6439 t7=t1;{
6440 C_word *av2=av;
6441 av2[0]=t7;
6442 av2[1]=C_a_i_record2(&a,2,((C_word*)t0)[4],t2);
6443 ((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
6444 else{
6445 /* srfi-4.scm:554: ##sys#error */
6446 t7=*((C_word*)lf[32]+1);{
6447 C_word *av2;
6448 if(c >= 7) {
6449 av2=av;
6450 } else {
6451 av2=C_alloc(7);
6452 }
6453 av2[0]=t7;
6454 av2[1]=t1;
6455 av2[2]=((C_word*)t0)[2];
6456 av2[3]=lf[133];
6457 av2[4]=((C_word*)t0)[4];
6458 av2[5]=t4;
6459 av2[6]=((C_word*)t0)[3];
6460 ((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}}}
6461
6462 /* srfi-4#unpack-copy in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3667(C_word t1,C_word t2,C_word t3,C_word t4)6463 static void C_fcall f_3667(C_word t1,C_word t2,C_word t3,C_word t4){
6464 C_word tmp;
6465 C_word t5;
6466 C_word *a;
6467 if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
6468 C_save_and_reclaim_args((void *)trf_3667,4,t1,t2,t3,t4);}
6469 a=C_alloc(6);
6470 t5=t1;{
6471 C_word av2[2];
6472 av2[0]=t5;
6473 av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3669,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=((C_word)li107),tmp=(C_word)a,a+=6,tmp);
6474 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
6475
6476 /* f_3669 in srfi-4#unpack-copy in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3669(C_word c,C_word * av)6477 static void C_ccall f_3669(C_word c,C_word *av){
6478 C_word tmp;
6479 C_word t0=av[0];
6480 C_word t1=av[1];
6481 C_word t2=av[2];
6482 C_word t3;
6483 C_word t4;
6484 C_word t5;
6485 C_word t6;
6486 C_word *a;
6487 if(c!=3) C_bad_argc_2(c,3,t0);
6488 if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
6489 C_save_and_reclaim((void *)f_3669,c,av);}
6490 a=C_alloc(8);
6491 t3=C_i_check_bytevector_2(t2,((C_word*)t0)[2]);
6492 t4=C_block_size(t2);
6493 t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3679,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
6494 /* srfi-4.scm:560: ##sys#make-blob */
6495 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[131]+1));
6496 C_word *av2=av;
6497 av2[0]=*((C_word*)lf[131]+1);
6498 av2[1]=t5;
6499 av2[2]=t4;
6500 tp(3,av2);}}
6501
6502 /* k3677 */
f_3679(C_word c,C_word * av)6503 static void C_ccall f_3679(C_word c,C_word *av){
6504 C_word tmp;
6505 C_word t0=av[0];
6506 C_word t1=av[1];
6507 C_word t2;
6508 C_word t3;
6509 C_word t4;
6510 C_word t5;
6511 C_word *a;
6512 if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
6513 C_save_and_reclaim((void *)f_3679,c,av);}
6514 a=C_alloc(3);
6515 t2=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[2]);
6516 t3=(C_truep(t2)?t2:C_eqp(C_fix(0),C_fixnum_modulo(((C_word*)t0)[3],((C_word*)t0)[2])));
6517 if(C_truep(t3)){
6518 t4=C_copy_block(((C_word*)t0)[4],t1);
6519 t5=((C_word*)t0)[5];{
6520 C_word *av2=av;
6521 av2[0]=t5;
6522 av2[1]=C_a_i_record2(&a,2,((C_word*)t0)[6],t4);
6523 ((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
6524 else{
6525 /* srfi-4.scm:566: ##sys#error */
6526 t4=*((C_word*)lf[32]+1);{
6527 C_word *av2;
6528 if(c >= 7) {
6529 av2=av;
6530 } else {
6531 av2=C_alloc(7);
6532 }
6533 av2[0]=t4;
6534 av2[1]=((C_word*)t0)[5];
6535 av2[2]=((C_word*)t0)[7];
6536 av2[3]=lf[135];
6537 av2[4]=((C_word*)t0)[6];
6538 av2[5]=((C_word*)t0)[3];
6539 av2[6]=((C_word*)t0)[2];
6540 ((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}}
6541
6542 /* k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3743(C_word c,C_word * av)6543 static void C_ccall f_3743(C_word c,C_word *av){
6544 C_word tmp;
6545 C_word t0=av[0];
6546 C_word t1=av[1];
6547 C_word t2;
6548 C_word t3;
6549 C_word t4;
6550 C_word *a;
6551 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
6552 C_save_and_reclaim((void *)f_3743,c,av);}
6553 a=C_alloc(3);
6554 t2=C_mutate((C_word*)lf[156]+1 /* (set! srfi-4#u8vector->blob ...) */,t1);
6555 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3747,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6556 /* srfi-4.scm:580: pack-copy */
6557 f_3619(t3,lf[49],lf[264]);}
6558
6559 /* k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3747(C_word c,C_word * av)6560 static void C_ccall f_3747(C_word c,C_word *av){
6561 C_word tmp;
6562 C_word t0=av[0];
6563 C_word t1=av[1];
6564 C_word t2;
6565 C_word t3;
6566 C_word t4;
6567 C_word *a;
6568 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
6569 C_save_and_reclaim((void *)f_3747,c,av);}
6570 a=C_alloc(3);
6571 t2=C_mutate((C_word*)lf[157]+1 /* (set! srfi-4#s8vector->blob ...) */,t1);
6572 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3751,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6573 /* srfi-4.scm:581: pack-copy */
6574 f_3619(t3,lf[52],lf[263]);}
6575
6576 /* k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3751(C_word c,C_word * av)6577 static void C_ccall f_3751(C_word c,C_word *av){
6578 C_word tmp;
6579 C_word t0=av[0];
6580 C_word t1=av[1];
6581 C_word t2;
6582 C_word t3;
6583 C_word t4;
6584 C_word *a;
6585 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
6586 C_save_and_reclaim((void *)f_3751,c,av);}
6587 a=C_alloc(3);
6588 t2=C_mutate((C_word*)lf[158]+1 /* (set! srfi-4#u16vector->blob ...) */,t1);
6589 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3755,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6590 /* srfi-4.scm:582: pack-copy */
6591 f_3619(t3,lf[55],lf[262]);}
6592
6593 /* k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3755(C_word c,C_word * av)6594 static void C_ccall f_3755(C_word c,C_word *av){
6595 C_word tmp;
6596 C_word t0=av[0];
6597 C_word t1=av[1];
6598 C_word t2;
6599 C_word t3;
6600 C_word t4;
6601 C_word *a;
6602 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
6603 C_save_and_reclaim((void *)f_3755,c,av);}
6604 a=C_alloc(3);
6605 t2=C_mutate((C_word*)lf[159]+1 /* (set! srfi-4#s16vector->blob ...) */,t1);
6606 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3759,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6607 /* srfi-4.scm:583: pack-copy */
6608 f_3619(t3,lf[59],lf[261]);}
6609
6610 /* k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3759(C_word c,C_word * av)6611 static void C_ccall f_3759(C_word c,C_word *av){
6612 C_word tmp;
6613 C_word t0=av[0];
6614 C_word t1=av[1];
6615 C_word t2;
6616 C_word t3;
6617 C_word t4;
6618 C_word *a;
6619 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
6620 C_save_and_reclaim((void *)f_3759,c,av);}
6621 a=C_alloc(3);
6622 t2=C_mutate((C_word*)lf[160]+1 /* (set! srfi-4#u32vector->blob ...) */,t1);
6623 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3763,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6624 /* srfi-4.scm:584: pack-copy */
6625 f_3619(t3,lf[67],lf[260]);}
6626
6627 /* k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3763(C_word c,C_word * av)6628 static void C_ccall f_3763(C_word c,C_word *av){
6629 C_word tmp;
6630 C_word t0=av[0];
6631 C_word t1=av[1];
6632 C_word t2;
6633 C_word t3;
6634 C_word t4;
6635 C_word *a;
6636 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
6637 C_save_and_reclaim((void *)f_3763,c,av);}
6638 a=C_alloc(3);
6639 t2=C_mutate((C_word*)lf[161]+1 /* (set! srfi-4#s32vector->blob ...) */,t1);
6640 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3767,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6641 /* srfi-4.scm:585: pack-copy */
6642 f_3619(t3,lf[63],lf[259]);}
6643
6644 /* k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3767(C_word c,C_word * av)6645 static void C_ccall f_3767(C_word c,C_word *av){
6646 C_word tmp;
6647 C_word t0=av[0];
6648 C_word t1=av[1];
6649 C_word t2;
6650 C_word t3;
6651 C_word t4;
6652 C_word *a;
6653 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
6654 C_save_and_reclaim((void *)f_3767,c,av);}
6655 a=C_alloc(3);
6656 t2=C_mutate((C_word*)lf[162]+1 /* (set! srfi-4#u64vector->blob ...) */,t1);
6657 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3771,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6658 /* srfi-4.scm:586: pack-copy */
6659 f_3619(t3,lf[70],lf[258]);}
6660
6661 /* k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_3771(C_word c,C_word * av)6662 static void C_ccall f_3771(C_word c,C_word *av){
6663 C_word tmp;
6664 C_word t0=av[0];
6665 C_word t1=av[1];
6666 C_word t2;
6667 C_word t3;
6668 C_word t4;
6669 C_word *a;
6670 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
6671 C_save_and_reclaim((void *)f_3771,c,av);}
6672 a=C_alloc(3);
6673 t2=C_mutate((C_word*)lf[163]+1 /* (set! srfi-4#s64vector->blob ...) */,t1);
6674 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3775,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6675 /* srfi-4.scm:587: pack-copy */
6676 f_3619(t3,lf[73],lf[257]);}
6677
6678 /* k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 in ... */
f_3775(C_word c,C_word * av)6679 static void C_ccall f_3775(C_word c,C_word *av){
6680 C_word tmp;
6681 C_word t0=av[0];
6682 C_word t1=av[1];
6683 C_word t2;
6684 C_word t3;
6685 C_word t4;
6686 C_word *a;
6687 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
6688 C_save_and_reclaim((void *)f_3775,c,av);}
6689 a=C_alloc(3);
6690 t2=C_mutate((C_word*)lf[164]+1 /* (set! srfi-4#f32vector->blob ...) */,t1);
6691 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3779,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6692 /* srfi-4.scm:588: pack-copy */
6693 f_3619(t3,lf[76],lf[256]);}
6694
6695 /* k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in ... */
f_3779(C_word c,C_word * av)6696 static void C_ccall f_3779(C_word c,C_word *av){
6697 C_word tmp;
6698 C_word t0=av[0];
6699 C_word t1=av[1];
6700 C_word t2;
6701 C_word t3;
6702 C_word t4;
6703 C_word *a;
6704 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6705 C_save_and_reclaim((void *)f_3779,c,av);}
6706 a=C_alloc(3);
6707 t2=C_mutate((C_word*)lf[165]+1 /* (set! srfi-4#f64vector->blob ...) */,t1);
6708 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3783,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6709 /* srfi-4.scm:590: unpack */
6710 f_3637(t3,lf[43],C_SCHEME_TRUE,lf[255]);}
6711
6712 /* k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in ... */
f_3783(C_word c,C_word * av)6713 static void C_ccall f_3783(C_word c,C_word *av){
6714 C_word tmp;
6715 C_word t0=av[0];
6716 C_word t1=av[1];
6717 C_word t2;
6718 C_word t3;
6719 C_word t4;
6720 C_word *a;
6721 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6722 C_save_and_reclaim((void *)f_3783,c,av);}
6723 a=C_alloc(3);
6724 t2=C_mutate((C_word*)lf[166]+1 /* (set! srfi-4#blob->u8vector/shared ...) */,t1);
6725 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3787,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6726 /* srfi-4.scm:591: unpack */
6727 f_3637(t3,lf[49],C_SCHEME_TRUE,lf[254]);}
6728
6729 /* k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in ... */
f_3787(C_word c,C_word * av)6730 static void C_ccall f_3787(C_word c,C_word *av){
6731 C_word tmp;
6732 C_word t0=av[0];
6733 C_word t1=av[1];
6734 C_word t2;
6735 C_word t3;
6736 C_word t4;
6737 C_word *a;
6738 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6739 C_save_and_reclaim((void *)f_3787,c,av);}
6740 a=C_alloc(3);
6741 t2=C_mutate((C_word*)lf[167]+1 /* (set! srfi-4#blob->s8vector/shared ...) */,t1);
6742 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3791,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6743 /* srfi-4.scm:592: unpack */
6744 f_3637(t3,lf[52],C_fix(2),lf[253]);}
6745
6746 /* k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in ... */
f_3791(C_word c,C_word * av)6747 static void C_ccall f_3791(C_word c,C_word *av){
6748 C_word tmp;
6749 C_word t0=av[0];
6750 C_word t1=av[1];
6751 C_word t2;
6752 C_word t3;
6753 C_word t4;
6754 C_word *a;
6755 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6756 C_save_and_reclaim((void *)f_3791,c,av);}
6757 a=C_alloc(3);
6758 t2=C_mutate((C_word*)lf[168]+1 /* (set! srfi-4#blob->u16vector/shared ...) */,t1);
6759 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3795,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6760 /* srfi-4.scm:593: unpack */
6761 f_3637(t3,lf[55],C_fix(2),lf[252]);}
6762
6763 /* k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in ... */
f_3795(C_word c,C_word * av)6764 static void C_ccall f_3795(C_word c,C_word *av){
6765 C_word tmp;
6766 C_word t0=av[0];
6767 C_word t1=av[1];
6768 C_word t2;
6769 C_word t3;
6770 C_word t4;
6771 C_word *a;
6772 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6773 C_save_and_reclaim((void *)f_3795,c,av);}
6774 a=C_alloc(3);
6775 t2=C_mutate((C_word*)lf[169]+1 /* (set! srfi-4#blob->s16vector/shared ...) */,t1);
6776 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3799,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6777 /* srfi-4.scm:594: unpack */
6778 f_3637(t3,lf[59],C_fix(4),lf[251]);}
6779
6780 /* k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in ... */
f_3799(C_word c,C_word * av)6781 static void C_ccall f_3799(C_word c,C_word *av){
6782 C_word tmp;
6783 C_word t0=av[0];
6784 C_word t1=av[1];
6785 C_word t2;
6786 C_word t3;
6787 C_word t4;
6788 C_word *a;
6789 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6790 C_save_and_reclaim((void *)f_3799,c,av);}
6791 a=C_alloc(3);
6792 t2=C_mutate((C_word*)lf[170]+1 /* (set! srfi-4#blob->u32vector/shared ...) */,t1);
6793 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3803,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6794 /* srfi-4.scm:595: unpack */
6795 f_3637(t3,lf[67],C_fix(4),lf[250]);}
6796
6797 /* k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in k1597 in ... */
f_3803(C_word c,C_word * av)6798 static void C_ccall f_3803(C_word c,C_word *av){
6799 C_word tmp;
6800 C_word t0=av[0];
6801 C_word t1=av[1];
6802 C_word t2;
6803 C_word t3;
6804 C_word t4;
6805 C_word *a;
6806 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6807 C_save_and_reclaim((void *)f_3803,c,av);}
6808 a=C_alloc(3);
6809 t2=C_mutate((C_word*)lf[171]+1 /* (set! srfi-4#blob->s32vector/shared ...) */,t1);
6810 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3807,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6811 /* srfi-4.scm:596: unpack */
6812 f_3637(t3,lf[63],C_fix(4),lf[249]);}
6813
6814 /* k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in k1601 in ... */
f_3807(C_word c,C_word * av)6815 static void C_ccall f_3807(C_word c,C_word *av){
6816 C_word tmp;
6817 C_word t0=av[0];
6818 C_word t1=av[1];
6819 C_word t2;
6820 C_word t3;
6821 C_word t4;
6822 C_word *a;
6823 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6824 C_save_and_reclaim((void *)f_3807,c,av);}
6825 a=C_alloc(3);
6826 t2=C_mutate((C_word*)lf[172]+1 /* (set! srfi-4#blob->u64vector/shared ...) */,t1);
6827 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3811,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6828 /* srfi-4.scm:597: unpack */
6829 f_3637(t3,lf[70],C_fix(4),lf[248]);}
6830
6831 /* k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in k1605 in ... */
f_3811(C_word c,C_word * av)6832 static void C_ccall f_3811(C_word c,C_word *av){
6833 C_word tmp;
6834 C_word t0=av[0];
6835 C_word t1=av[1];
6836 C_word t2;
6837 C_word t3;
6838 C_word t4;
6839 C_word *a;
6840 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6841 C_save_and_reclaim((void *)f_3811,c,av);}
6842 a=C_alloc(3);
6843 t2=C_mutate((C_word*)lf[173]+1 /* (set! srfi-4#blob->s64vector/shared ...) */,t1);
6844 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3815,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6845 /* srfi-4.scm:598: unpack */
6846 f_3637(t3,lf[73],C_fix(4),lf[247]);}
6847
6848 /* k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in k1609 in ... */
f_3815(C_word c,C_word * av)6849 static void C_ccall f_3815(C_word c,C_word *av){
6850 C_word tmp;
6851 C_word t0=av[0];
6852 C_word t1=av[1];
6853 C_word t2;
6854 C_word t3;
6855 C_word t4;
6856 C_word *a;
6857 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6858 C_save_and_reclaim((void *)f_3815,c,av);}
6859 a=C_alloc(3);
6860 t2=C_mutate((C_word*)lf[174]+1 /* (set! srfi-4#blob->f32vector/shared ...) */,t1);
6861 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3819,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6862 /* srfi-4.scm:599: unpack */
6863 f_3637(t3,lf[76],C_fix(8),lf[246]);}
6864
6865 /* k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in k1613 in ... */
f_3819(C_word c,C_word * av)6866 static void C_ccall f_3819(C_word c,C_word *av){
6867 C_word tmp;
6868 C_word t0=av[0];
6869 C_word t1=av[1];
6870 C_word t2;
6871 C_word t3;
6872 C_word t4;
6873 C_word *a;
6874 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6875 C_save_and_reclaim((void *)f_3819,c,av);}
6876 a=C_alloc(3);
6877 t2=C_mutate((C_word*)lf[175]+1 /* (set! srfi-4#blob->f64vector/shared ...) */,t1);
6878 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3823,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6879 /* srfi-4.scm:601: unpack-copy */
6880 f_3667(t3,lf[43],C_SCHEME_TRUE,lf[245]);}
6881
6882 /* k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in k1617 in ... */
f_3823(C_word c,C_word * av)6883 static void C_ccall f_3823(C_word c,C_word *av){
6884 C_word tmp;
6885 C_word t0=av[0];
6886 C_word t1=av[1];
6887 C_word t2;
6888 C_word t3;
6889 C_word t4;
6890 C_word *a;
6891 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6892 C_save_and_reclaim((void *)f_3823,c,av);}
6893 a=C_alloc(3);
6894 t2=C_mutate((C_word*)lf[176]+1 /* (set! srfi-4#blob->u8vector ...) */,t1);
6895 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3827,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6896 /* srfi-4.scm:602: unpack-copy */
6897 f_3667(t3,lf[49],C_SCHEME_TRUE,lf[244]);}
6898
6899 /* k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in k3741 in ... */
f_3827(C_word c,C_word * av)6900 static void C_ccall f_3827(C_word c,C_word *av){
6901 C_word tmp;
6902 C_word t0=av[0];
6903 C_word t1=av[1];
6904 C_word t2;
6905 C_word t3;
6906 C_word t4;
6907 C_word *a;
6908 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6909 C_save_and_reclaim((void *)f_3827,c,av);}
6910 a=C_alloc(3);
6911 t2=C_mutate((C_word*)lf[177]+1 /* (set! srfi-4#blob->s8vector ...) */,t1);
6912 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3831,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6913 /* srfi-4.scm:603: unpack-copy */
6914 f_3667(t3,lf[52],C_fix(2),lf[243]);}
6915
6916 /* k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in k3745 in ... */
f_3831(C_word c,C_word * av)6917 static void C_ccall f_3831(C_word c,C_word *av){
6918 C_word tmp;
6919 C_word t0=av[0];
6920 C_word t1=av[1];
6921 C_word t2;
6922 C_word t3;
6923 C_word t4;
6924 C_word *a;
6925 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6926 C_save_and_reclaim((void *)f_3831,c,av);}
6927 a=C_alloc(3);
6928 t2=C_mutate((C_word*)lf[178]+1 /* (set! srfi-4#blob->u16vector ...) */,t1);
6929 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3835,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6930 /* srfi-4.scm:604: unpack-copy */
6931 f_3667(t3,lf[55],C_fix(2),lf[242]);}
6932
6933 /* k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in k3749 in ... */
f_3835(C_word c,C_word * av)6934 static void C_ccall f_3835(C_word c,C_word *av){
6935 C_word tmp;
6936 C_word t0=av[0];
6937 C_word t1=av[1];
6938 C_word t2;
6939 C_word t3;
6940 C_word t4;
6941 C_word *a;
6942 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6943 C_save_and_reclaim((void *)f_3835,c,av);}
6944 a=C_alloc(3);
6945 t2=C_mutate((C_word*)lf[179]+1 /* (set! srfi-4#blob->s16vector ...) */,t1);
6946 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3839,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6947 /* srfi-4.scm:605: unpack-copy */
6948 f_3667(t3,lf[59],C_fix(4),lf[241]);}
6949
6950 /* k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in k3753 in ... */
f_3839(C_word c,C_word * av)6951 static void C_ccall f_3839(C_word c,C_word *av){
6952 C_word tmp;
6953 C_word t0=av[0];
6954 C_word t1=av[1];
6955 C_word t2;
6956 C_word t3;
6957 C_word t4;
6958 C_word *a;
6959 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6960 C_save_and_reclaim((void *)f_3839,c,av);}
6961 a=C_alloc(3);
6962 t2=C_mutate((C_word*)lf[180]+1 /* (set! srfi-4#blob->u32vector ...) */,t1);
6963 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3843,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6964 /* srfi-4.scm:606: unpack-copy */
6965 f_3667(t3,lf[67],C_fix(4),lf[240]);}
6966
6967 /* k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in k3757 in ... */
f_3843(C_word c,C_word * av)6968 static void C_ccall f_3843(C_word c,C_word *av){
6969 C_word tmp;
6970 C_word t0=av[0];
6971 C_word t1=av[1];
6972 C_word t2;
6973 C_word t3;
6974 C_word t4;
6975 C_word *a;
6976 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6977 C_save_and_reclaim((void *)f_3843,c,av);}
6978 a=C_alloc(3);
6979 t2=C_mutate((C_word*)lf[181]+1 /* (set! srfi-4#blob->s32vector ...) */,t1);
6980 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3847,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6981 /* srfi-4.scm:607: unpack-copy */
6982 f_3667(t3,lf[63],C_fix(4),lf[239]);}
6983
6984 /* k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in k3761 in ... */
f_3847(C_word c,C_word * av)6985 static void C_ccall f_3847(C_word c,C_word *av){
6986 C_word tmp;
6987 C_word t0=av[0];
6988 C_word t1=av[1];
6989 C_word t2;
6990 C_word t3;
6991 C_word t4;
6992 C_word *a;
6993 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
6994 C_save_and_reclaim((void *)f_3847,c,av);}
6995 a=C_alloc(3);
6996 t2=C_mutate((C_word*)lf[182]+1 /* (set! srfi-4#blob->u64vector ...) */,t1);
6997 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3851,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
6998 /* srfi-4.scm:608: unpack-copy */
6999 f_3667(t3,lf[70],C_fix(4),lf[238]);}
7000
7001 /* k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in k3765 in ... */
f_3851(C_word c,C_word * av)7002 static void C_ccall f_3851(C_word c,C_word *av){
7003 C_word tmp;
7004 C_word t0=av[0];
7005 C_word t1=av[1];
7006 C_word t2;
7007 C_word t3;
7008 C_word t4;
7009 C_word *a;
7010 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
7011 C_save_and_reclaim((void *)f_3851,c,av);}
7012 a=C_alloc(3);
7013 t2=C_mutate((C_word*)lf[183]+1 /* (set! srfi-4#blob->s64vector ...) */,t1);
7014 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3855,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
7015 /* srfi-4.scm:609: unpack-copy */
7016 f_3667(t3,lf[73],C_fix(4),lf[237]);}
7017
7018 /* k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in k3769 in ... */
f_3855(C_word c,C_word * av)7019 static void C_ccall f_3855(C_word c,C_word *av){
7020 C_word tmp;
7021 C_word t0=av[0];
7022 C_word t1=av[1];
7023 C_word t2;
7024 C_word t3;
7025 C_word t4;
7026 C_word *a;
7027 if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
7028 C_save_and_reclaim((void *)f_3855,c,av);}
7029 a=C_alloc(3);
7030 t2=C_mutate((C_word*)lf[184]+1 /* (set! srfi-4#blob->f32vector ...) */,t1);
7031 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3859,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
7032 /* srfi-4.scm:610: unpack-copy */
7033 f_3667(t3,lf[76],C_fix(8),lf[236]);}
7034
7035 /* k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in k3773 in ... */
f_3859(C_word c,C_word * av)7036 static void C_ccall f_3859(C_word c,C_word *av){
7037 C_word tmp;
7038 C_word t0=av[0];
7039 C_word t1=av[1];
7040 C_word t2;
7041 C_word t3;
7042 C_word t4;
7043 C_word t5;
7044 C_word t6;
7045 C_word t7;
7046 C_word t8;
7047 C_word t9;
7048 C_word t10;
7049 C_word t11;
7050 C_word t12;
7051 C_word t13;
7052 C_word t14;
7053 C_word t15;
7054 C_word t16;
7055 C_word t17;
7056 C_word t18;
7057 C_word t19;
7058 C_word t20;
7059 C_word t21;
7060 C_word t22;
7061 C_word t23;
7062 C_word *a;
7063 if(C_unlikely(!C_demand(C_calculate_demand(114,c,8)))){
7064 C_save_and_reclaim((void *)f_3859,c,av);}
7065 a=C_alloc(114);
7066 t2=C_mutate((C_word*)lf[185]+1 /* (set! srfi-4#blob->f64vector ...) */,t1);
7067 t3=*((C_word*)lf[186]+1);
7068 t4=C_a_i_list(&a,20,lf[187],*((C_word*)lf[78]+1),lf[188],*((C_word*)lf[80]+1),lf[189],*((C_word*)lf[81]+1),lf[190],*((C_word*)lf[82]+1),lf[191],*((C_word*)lf[83]+1),lf[192],*((C_word*)lf[84]+1),lf[193],*((C_word*)lf[85]+1),lf[194],*((C_word*)lf[86]+1),lf[195],*((C_word*)lf[87]+1),lf[196],*((C_word*)lf[88]+1));
7069 t5=C_mutate((C_word*)lf[186]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3864,a[2]=t4,a[3]=t3,a[4]=((C_word)li120),tmp=(C_word)a,a+=5,tmp));
7070 t6=*((C_word*)lf[202]+1);
7071 t7=C_mutate((C_word*)lf[202]+1 /* (set! ##sys#user-print-hook ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3924,a[2]=t6,a[3]=((C_word)li121),tmp=(C_word)a,a+=4,tmp));
7072 t8=C_mutate(&lf[204] /* (set! srfi-4#subnvector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3998,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp));
7073 t9=C_mutate((C_word*)lf[205]+1 /* (set! srfi-4#subu8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4083,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp));
7074 t10=C_mutate((C_word*)lf[207]+1 /* (set! srfi-4#subu16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4089,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp));
7075 t11=C_mutate((C_word*)lf[209]+1 /* (set! srfi-4#subu32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4095,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp));
7076 t12=C_mutate((C_word*)lf[211]+1 /* (set! srfi-4#subu64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4101,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp));
7077 t13=C_mutate((C_word*)lf[213]+1 /* (set! srfi-4#subs8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4107,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp));
7078 t14=C_mutate((C_word*)lf[215]+1 /* (set! srfi-4#subs16vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4113,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp));
7079 t15=C_mutate((C_word*)lf[217]+1 /* (set! srfi-4#subs32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4119,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp));
7080 t16=C_mutate((C_word*)lf[219]+1 /* (set! srfi-4#subs64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4125,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp));
7081 t17=C_mutate((C_word*)lf[221]+1 /* (set! srfi-4#subf32vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4131,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp));
7082 t18=C_mutate((C_word*)lf[223]+1 /* (set! srfi-4#subf64vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4137,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp));
7083 t19=C_mutate((C_word*)lf[225]+1 /* (set! srfi-4#write-u8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4143,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp));
7084 t20=C_mutate((C_word*)lf[228]+1 /* (set! srfi-4#read-u8vector! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4312,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp));
7085 t21=C_mutate((C_word*)lf[232]+1 /* (set! srfi-4#read-u8vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4392,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp));
7086 t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4453,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
7087 /* srfi-4.scm:722: chicken.platform#register-feature! */
7088 t23=*((C_word*)lf[235]+1);{
7089 C_word *av2;
7090 if(c >= 3) {
7091 av2=av;
7092 } else {
7093 av2=C_alloc(3);
7094 }
7095 av2[0]=t23;
7096 av2[1]=t22;
7097 av2[2]=lf[0];
7098 ((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}}
7099
7100 /* ##sys#user-read-hook in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_3864(C_word c,C_word * av)7101 static void C_ccall f_3864(C_word c,C_word *av){
7102 C_word tmp;
7103 C_word t0=av[0];
7104 C_word t1=av[1];
7105 C_word t2=av[2];
7106 C_word t3=av[3];
7107 C_word t4;
7108 C_word t5;
7109 C_word *a;
7110 if(c!=4) C_bad_argc_2(c,4,t0);
7111 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
7112 C_save_and_reclaim((void *)f_3864,c,av);}
7113 a=C_alloc(5);
7114 if(C_truep((C_truep(C_eqp(t2,C_make_character(117)))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,C_make_character(115)))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,C_make_character(102)))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,C_make_character(85)))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,C_make_character(83)))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,C_make_character(70)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))){
7115 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3873,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
7116 /* srfi-4.scm:630: read */
7117 t5=*((C_word*)lf[199]+1);{
7118 C_word *av2=av;
7119 av2[0]=t5;
7120 av2[1]=t4;
7121 av2[2]=t3;
7122 ((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
7123 else{
7124 /* srfi-4.scm:635: old-hook */
7125 t4=((C_word*)t0)[3];{
7126 C_word *av2=av;
7127 av2[0]=t4;
7128 av2[1]=t1;
7129 av2[2]=t2;
7130 av2[3]=t3;
7131 ((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}}
7132
7133 /* k3871 in ##sys#user-read-hook in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in ... */
f_3873(C_word c,C_word * av)7134 static void C_ccall f_3873(C_word c,C_word *av){
7135 C_word tmp;
7136 C_word t0=av[0];
7137 C_word t1=av[1];
7138 C_word t2;
7139 C_word t3;
7140 C_word t4;
7141 C_word t5;
7142 C_word t6;
7143 C_word t7;
7144 C_word t8;
7145 C_word *a;
7146 if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
7147 C_save_and_reclaim((void *)f_3873,c,av);}
7148 a=C_alloc(4);
7149 t2=C_i_symbolp(t1);
7150 t3=(C_truep(t2)?t1:C_SCHEME_FALSE);
7151 t4=C_eqp(t3,lf[197]);
7152 t5=(C_truep(t4)?t4:C_eqp(t3,lf[198]));
7153 if(C_truep(t5)){
7154 t6=((C_word*)t0)[2];{
7155 C_word *av2=av;
7156 av2[0]=t6;
7157 av2[1]=C_SCHEME_FALSE;
7158 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
7159 else{
7160 t6=C_i_memq(t3,((C_word*)t0)[3]);
7161 if(C_truep(t6)){
7162 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3892,a[2]=((C_word*)t0)[4],a[3]=((C_word)li119),tmp=(C_word)a,a+=4,tmp);
7163 /* srfi-4.scm:632: g961 */
7164 t8=t7;
7165 f_3892(t8,((C_word*)t0)[2],t6);}
7166 else{
7167 /* srfi-4.scm:634: ##sys#read-error */
7168 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[200]+1));
7169 C_word *av2;
7170 if(c >= 5) {
7171 av2=av;
7172 } else {
7173 av2=C_alloc(5);
7174 }
7175 av2[0]=*((C_word*)lf[200]+1);
7176 av2[1]=((C_word*)t0)[2];
7177 av2[2]=((C_word*)t0)[4];
7178 av2[3]=lf[201];
7179 av2[4]=t3;
7180 tp(5,av2);}}}}
7181
7182 /* g961 in k3871 in ##sys#user-read-hook in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in ... */
f_3892(C_word t0,C_word t1,C_word t2)7183 static void C_fcall f_3892(C_word t0,C_word t1,C_word t2){
7184 C_word tmp;
7185 C_word t3;
7186 C_word t4;
7187 C_word t5;
7188 C_word t6;
7189 C_word *a;
7190 if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
7191 C_save_and_reclaim_args((void *)trf_3892,3,t0,t1,t2);}
7192 a=C_alloc(4);
7193 t3=C_slot(t2,C_fix(1));
7194 t4=C_slot(t3,C_fix(0));
7195 t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3903,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
7196 /* srfi-4.scm:633: read */
7197 t6=*((C_word*)lf[199]+1);{
7198 C_word av2[3];
7199 av2[0]=t6;
7200 av2[1]=t5;
7201 av2[2]=((C_word*)t0)[2];
7202 ((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
7203
7204 /* k3901 in g961 in k3871 in ##sys#user-read-hook in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in ... */
f_3903(C_word c,C_word * av)7205 static void C_ccall f_3903(C_word c,C_word *av){
7206 C_word tmp;
7207 C_word t0=av[0];
7208 C_word t1=av[1];
7209 C_word t2;
7210 C_word *a;
7211 if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
7212 C_save_and_reclaim((void *)f_3903,c,av);}
7213 /* srfi-4.scm:633: g964 */
7214 t2=((C_word*)t0)[2];{
7215 C_word *av2;
7216 if(c >= 3) {
7217 av2=av;
7218 } else {
7219 av2=C_alloc(3);
7220 }
7221 av2[0]=t2;
7222 av2[1]=((C_word*)t0)[3];
7223 av2[2]=t1;
7224 ((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}
7225
7226 /* ##sys#user-print-hook in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_3924(C_word c,C_word * av)7227 static void C_ccall f_3924(C_word c,C_word *av){
7228 C_word tmp;
7229 C_word t0=av[0];
7230 C_word t1=av[1];
7231 C_word t2=av[2];
7232 C_word t3=av[3];
7233 C_word t4=av[4];
7234 C_word t5;
7235 C_word t6;
7236 C_word t7;
7237 C_word t8;
7238 C_word t9;
7239 C_word t10;
7240 C_word t11;
7241 C_word t12;
7242 C_word t13;
7243 C_word t14;
7244 C_word t15;
7245 C_word t16;
7246 C_word t17;
7247 C_word t18;
7248 C_word t19;
7249 C_word *a;
7250 if(c!=5) C_bad_argc_2(c,5,t0);
7251 if(C_unlikely(!C_demand(C_calculate_demand(126,c,4)))){
7252 C_save_and_reclaim((void *)f_3924,c,av);}
7253 a=C_alloc(126);
7254 t5=C_slot(t2,C_fix(0));
7255 t6=C_a_i_list(&a,3,lf[43],lf[187],*((C_word*)lf[99]+1));
7256 t7=C_a_i_list(&a,3,lf[49],lf[188],*((C_word*)lf[101]+1));
7257 t8=C_a_i_list(&a,3,lf[52],lf[189],*((C_word*)lf[103]+1));
7258 t9=C_a_i_list(&a,3,lf[55],lf[190],*((C_word*)lf[105]+1));
7259 t10=C_a_i_list(&a,3,lf[59],lf[191],*((C_word*)lf[107]+1));
7260 t11=C_a_i_list(&a,3,lf[67],lf[192],*((C_word*)lf[109]+1));
7261 t12=C_a_i_list(&a,3,lf[63],lf[193],*((C_word*)lf[111]+1));
7262 t13=C_a_i_list(&a,3,lf[70],lf[194],*((C_word*)lf[113]+1));
7263 t14=C_a_i_list(&a,3,lf[73],lf[195],*((C_word*)lf[115]+1));
7264 t15=C_a_i_list(&a,3,lf[76],lf[196],*((C_word*)lf[117]+1));
7265 t16=C_a_i_list(&a,10,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15);
7266 t17=C_u_i_assq(t5,t16);
7267 if(C_truep(t17)){
7268 t18=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3936,a[2]=t17,a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
7269 /* srfi-4.scm:655: ##sys#print */
7270 t19=*((C_word*)lf[203]+1);{
7271 C_word *av2=av;
7272 av2[0]=t19;
7273 av2[1]=t18;
7274 av2[2]=C_make_character(35);
7275 av2[3]=C_SCHEME_FALSE;
7276 av2[4]=t4;
7277 ((C_proc)(void*)(*((C_word*)t19+1)))(5,av2);}}
7278 else{
7279 /* srfi-4.scm:658: old-hook */
7280 t18=((C_word*)t0)[2];{
7281 C_word *av2=av;
7282 av2[0]=t18;
7283 av2[1]=t1;
7284 av2[2]=t2;
7285 av2[3]=t3;
7286 av2[4]=t4;
7287 ((C_proc)C_fast_retrieve_proc(t18))(5,av2);}}}
7288
7289 /* k3934 in ##sys#user-print-hook in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in ... */
f_3936(C_word c,C_word * av)7290 static void C_ccall f_3936(C_word c,C_word *av){
7291 C_word tmp;
7292 C_word t0=av[0];
7293 C_word t1=av[1];
7294 C_word t2;
7295 C_word t3;
7296 C_word *a;
7297 if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
7298 C_save_and_reclaim((void *)f_3936,c,av);}
7299 a=C_alloc(6);
7300 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3939,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
7301 /* srfi-4.scm:656: ##sys#print */
7302 t3=*((C_word*)lf[203]+1);{
7303 C_word *av2;
7304 if(c >= 5) {
7305 av2=av;
7306 } else {
7307 av2=C_alloc(5);
7308 }
7309 av2[0]=t3;
7310 av2[1]=t2;
7311 av2[2]=C_i_cadr(((C_word*)t0)[2]);
7312 av2[3]=C_SCHEME_FALSE;
7313 av2[4]=((C_word*)t0)[4];
7314 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
7315
7316 /* k3937 in k3934 in ##sys#user-print-hook in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in ... */
f_3939(C_word c,C_word * av)7317 static void C_ccall f_3939(C_word c,C_word *av){
7318 C_word tmp;
7319 C_word t0=av[0];
7320 C_word t1=av[1];
7321 C_word t2;
7322 C_word t3;
7323 C_word t4;
7324 C_word *a;
7325 if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
7326 C_save_and_reclaim((void *)f_3939,c,av);}
7327 a=C_alloc(4);
7328 t2=C_i_caddr(((C_word*)t0)[2]);
7329 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3949,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
7330 /* srfi-4.scm:657: g977 */
7331 t4=t2;{
7332 C_word *av2;
7333 if(c >= 3) {
7334 av2=av;
7335 } else {
7336 av2=C_alloc(3);
7337 }
7338 av2[0]=t4;
7339 av2[1]=t3;
7340 av2[2]=((C_word*)t0)[5];
7341 ((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
7342
7343 /* k3947 in k3937 in k3934 in ##sys#user-print-hook in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in ... */
f_3949(C_word c,C_word * av)7344 static void C_ccall f_3949(C_word c,C_word *av){
7345 C_word tmp;
7346 C_word t0=av[0];
7347 C_word t1=av[1];
7348 C_word t2;
7349 C_word *a;
7350 if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
7351 C_save_and_reclaim((void *)f_3949,c,av);}
7352 /* srfi-4.scm:657: ##sys#print */
7353 t2=*((C_word*)lf[203]+1);{
7354 C_word *av2;
7355 if(c >= 5) {
7356 av2=av;
7357 } else {
7358 av2=C_alloc(5);
7359 }
7360 av2[0]=t2;
7361 av2[1]=((C_word*)t0)[2];
7362 av2[2]=t1;
7363 av2[3]=C_SCHEME_TRUE;
7364 av2[4]=((C_word*)t0)[3];
7365 ((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
7366
7367 /* srfi-4#subnvector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_3998(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7)7368 static void C_fcall f_3998(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){
7369 C_word tmp;
7370 C_word t8;
7371 C_word t9;
7372 C_word t10;
7373 C_word t11;
7374 C_word t12;
7375 C_word t13;
7376 C_word t14;
7377 C_word t15;
7378 C_word *a;
7379 if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
7380 C_save_and_reclaim_args((void *)trf_3998,7,t1,t2,t3,t4,t5,t6,t7);}
7381 a=C_alloc(16);
7382 t8=C_i_check_structure_2(t2,t3,t7);
7383 t9=C_slot(t2,C_fix(1));
7384 t10=C_block_size(t9);
7385 t11=C_u_fixnum_divide(t10,t4);
7386 t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4032,a[2]=t6,a[3]=t5,a[4]=t4,a[5]=t3,a[6]=t9,a[7]=t1,a[8]=t11,a[9]=t7,tmp=(C_word)a,a+=10,tmp);
7387 t13=C_fixnum_plus(t11,C_fix(1));
7388 t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4013,a[2]=t5,a[3]=t13,a[4]=t12,a[5]=t7,tmp=(C_word)a,a+=6,tmp);
7389 /* srfi-4.scm:102: ##sys#check-fixnum */
7390 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1));
7391 C_word av2[4];
7392 av2[0]=*((C_word*)lf[37]+1);
7393 av2[1]=t14;
7394 av2[2]=t5;
7395 av2[3]=t7;
7396 tp(4,av2);}}
7397
7398 /* k4011 in srfi-4#subnvector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in ... */
f_4013(C_word c,C_word * av)7399 static void C_ccall f_4013(C_word c,C_word *av){
7400 C_word tmp;
7401 C_word t0=av[0];
7402 C_word t1=av[1];
7403 C_word t2;
7404 C_word t3;
7405 C_word t4;
7406 C_word t5;
7407 C_word *a;
7408 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7409 C_save_and_reclaim((void *)f_4013,c,av);}
7410 t2=C_fixnum_less_or_equal_p(C_fix(0),((C_word*)t0)[2]);
7411 t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]):C_SCHEME_FALSE);
7412 if(C_truep(t3)){
7413 t4=C_SCHEME_UNDEFINED;
7414 t5=((C_word*)t0)[4];{
7415 C_word *av2=av;
7416 av2[0]=t5;
7417 av2[1]=t4;
7418 f_4032(2,av2);}}
7419 else{
7420 t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
7421 /* srfi-4.scm:104: ##sys#error-hook */
7422 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
7423 C_word *av2;
7424 if(c >= 7) {
7425 av2=av;
7426 } else {
7427 av2=C_alloc(7);
7428 }
7429 av2[0]=*((C_word*)lf[44]+1);
7430 av2[1]=((C_word*)t0)[4];
7431 av2[2]=t4;
7432 av2[3]=((C_word*)t0)[5];
7433 av2[4]=((C_word*)t0)[2];
7434 av2[5]=C_fix(0);
7435 av2[6]=((C_word*)t0)[3];
7436 tp(7,av2);}}}
7437
7438 /* k4030 in srfi-4#subnvector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in ... */
f_4032(C_word c,C_word * av)7439 static void C_ccall f_4032(C_word c,C_word *av){
7440 C_word tmp;
7441 C_word t0=av[0];
7442 C_word t1=av[1];
7443 C_word t2;
7444 C_word t3;
7445 C_word t4;
7446 C_word t5;
7447 C_word *a;
7448 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
7449 C_save_and_reclaim((void *)f_4032,c,av);}
7450 a=C_alloc(14);
7451 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4056,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
7452 t3=C_fixnum_plus(((C_word*)t0)[8],C_fix(1));
7453 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4037,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp);
7454 /* srfi-4.scm:102: ##sys#check-fixnum */
7455 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1));
7456 C_word *av2;
7457 if(c >= 4) {
7458 av2=av;
7459 } else {
7460 av2=C_alloc(4);
7461 }
7462 av2[0]=*((C_word*)lf[37]+1);
7463 av2[1]=t4;
7464 av2[2]=((C_word*)t0)[2];
7465 av2[3]=((C_word*)t0)[9];
7466 tp(4,av2);}}
7467
7468 /* k4035 in k4030 in srfi-4#subnvector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in ... */
f_4037(C_word c,C_word * av)7469 static void C_ccall f_4037(C_word c,C_word *av){
7470 C_word tmp;
7471 C_word t0=av[0];
7472 C_word t1=av[1];
7473 C_word t2;
7474 C_word t3;
7475 C_word t4;
7476 C_word t5;
7477 C_word *a;
7478 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7479 C_save_and_reclaim((void *)f_4037,c,av);}
7480 t2=C_fixnum_less_or_equal_p(C_fix(0),((C_word*)t0)[2]);
7481 t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]):C_SCHEME_FALSE);
7482 if(C_truep(t3)){
7483 t4=C_SCHEME_UNDEFINED;
7484 t5=((C_word*)t0)[4];{
7485 C_word *av2=av;
7486 av2[0]=t5;
7487 av2[1]=t4;
7488 f_4056(2,av2);}}
7489 else{
7490 t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
7491 /* srfi-4.scm:104: ##sys#error-hook */
7492 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
7493 C_word *av2;
7494 if(c >= 7) {
7495 av2=av;
7496 } else {
7497 av2=C_alloc(7);
7498 }
7499 av2[0]=*((C_word*)lf[44]+1);
7500 av2[1]=((C_word*)t0)[4];
7501 av2[2]=t4;
7502 av2[3]=((C_word*)t0)[5];
7503 av2[4]=((C_word*)t0)[2];
7504 av2[5]=C_fix(0);
7505 av2[6]=((C_word*)t0)[3];
7506 tp(7,av2);}}}
7507
7508 /* k4054 in k4030 in srfi-4#subnvector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in ... */
f_4056(C_word c,C_word * av)7509 static void C_ccall f_4056(C_word c,C_word *av){
7510 C_word tmp;
7511 C_word t0=av[0];
7512 C_word t1=av[1];
7513 C_word t2;
7514 C_word t3;
7515 C_word t4;
7516 C_word t5;
7517 C_word *a;
7518 if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
7519 C_save_and_reclaim((void *)f_4056,c,av);}
7520 a=C_alloc(8);
7521 t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]);
7522 t3=C_fixnum_times(((C_word*)t0)[4],t2);
7523 t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4062,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=t3,a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
7524 /* srfi-4.scm:671: ##sys#allocate-vector */
7525 t5=*((C_word*)lf[34]+1);{
7526 C_word *av2;
7527 if(c >= 6) {
7528 av2=av;
7529 } else {
7530 av2=C_alloc(6);
7531 }
7532 av2[0]=t5;
7533 av2[1]=t4;
7534 av2[2]=t3;
7535 av2[3]=C_SCHEME_TRUE;
7536 av2[4]=C_SCHEME_FALSE;
7537 av2[5]=C_SCHEME_TRUE;
7538 ((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}
7539
7540 /* k4060 in k4054 in k4030 in srfi-4#subnvector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in ... */
f_4062(C_word c,C_word * av)7541 static void C_ccall f_4062(C_word c,C_word *av){
7542 C_word tmp;
7543 C_word t0=av[0];
7544 C_word t1=av[1];
7545 C_word t2;
7546 C_word t3;
7547 C_word t4;
7548 C_word t5;
7549 C_word t6;
7550 C_word *a;
7551 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
7552 C_save_and_reclaim((void *)f_4062,c,av);}
7553 a=C_alloc(3);
7554 t2=C_string_to_bytevector(t1);
7555 t3=C_a_i_record2(&a,2,((C_word*)t0)[2],t1);
7556 t4=C_fixnum_times(((C_word*)t0)[3],((C_word*)t0)[4]);
7557 t5=C_copy_subvector(t1,((C_word*)t0)[5],C_fix(0),t4,((C_word*)t0)[6]);
7558 t6=((C_word*)t0)[7];{
7559 C_word *av2=av;
7560 av2[0]=t6;
7561 av2[1]=t3;
7562 ((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
7563
7564 /* srfi-4#subu8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4083(C_word c,C_word * av)7565 static void C_ccall f_4083(C_word c,C_word *av){
7566 C_word tmp;
7567 C_word t0=av[0];
7568 C_word t1=av[1];
7569 C_word t2=av[2];
7570 C_word t3=av[3];
7571 C_word t4=av[4];
7572 C_word t5;
7573 C_word *a;
7574 if(c!=5) C_bad_argc_2(c,5,t0);
7575 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7576 C_save_and_reclaim((void *)f_4083,c,av);}
7577 /* srfi-4.scm:677: subnvector */
7578 f_3998(t1,t2,lf[43],C_fix(1),t3,t4,lf[206]);}
7579
7580 /* srfi-4#subu16vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4089(C_word c,C_word * av)7581 static void C_ccall f_4089(C_word c,C_word *av){
7582 C_word tmp;
7583 C_word t0=av[0];
7584 C_word t1=av[1];
7585 C_word t2=av[2];
7586 C_word t3=av[3];
7587 C_word t4=av[4];
7588 C_word t5;
7589 C_word *a;
7590 if(c!=5) C_bad_argc_2(c,5,t0);
7591 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7592 C_save_and_reclaim((void *)f_4089,c,av);}
7593 /* srfi-4.scm:678: subnvector */
7594 f_3998(t1,t2,lf[52],C_fix(2),t3,t4,lf[208]);}
7595
7596 /* srfi-4#subu32vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4095(C_word c,C_word * av)7597 static void C_ccall f_4095(C_word c,C_word *av){
7598 C_word tmp;
7599 C_word t0=av[0];
7600 C_word t1=av[1];
7601 C_word t2=av[2];
7602 C_word t3=av[3];
7603 C_word t4=av[4];
7604 C_word t5;
7605 C_word *a;
7606 if(c!=5) C_bad_argc_2(c,5,t0);
7607 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7608 C_save_and_reclaim((void *)f_4095,c,av);}
7609 /* srfi-4.scm:679: subnvector */
7610 f_3998(t1,t2,lf[59],C_fix(4),t3,t4,lf[210]);}
7611
7612 /* srfi-4#subu64vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4101(C_word c,C_word * av)7613 static void C_ccall f_4101(C_word c,C_word *av){
7614 C_word tmp;
7615 C_word t0=av[0];
7616 C_word t1=av[1];
7617 C_word t2=av[2];
7618 C_word t3=av[3];
7619 C_word t4=av[4];
7620 C_word t5;
7621 C_word *a;
7622 if(c!=5) C_bad_argc_2(c,5,t0);
7623 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7624 C_save_and_reclaim((void *)f_4101,c,av);}
7625 /* srfi-4.scm:680: subnvector */
7626 f_3998(t1,t2,lf[63],C_fix(8),t3,t4,lf[212]);}
7627
7628 /* srfi-4#subs8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4107(C_word c,C_word * av)7629 static void C_ccall f_4107(C_word c,C_word *av){
7630 C_word tmp;
7631 C_word t0=av[0];
7632 C_word t1=av[1];
7633 C_word t2=av[2];
7634 C_word t3=av[3];
7635 C_word t4=av[4];
7636 C_word t5;
7637 C_word *a;
7638 if(c!=5) C_bad_argc_2(c,5,t0);
7639 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7640 C_save_and_reclaim((void *)f_4107,c,av);}
7641 /* srfi-4.scm:681: subnvector */
7642 f_3998(t1,t2,lf[49],C_fix(1),t3,t4,lf[214]);}
7643
7644 /* srfi-4#subs16vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4113(C_word c,C_word * av)7645 static void C_ccall f_4113(C_word c,C_word *av){
7646 C_word tmp;
7647 C_word t0=av[0];
7648 C_word t1=av[1];
7649 C_word t2=av[2];
7650 C_word t3=av[3];
7651 C_word t4=av[4];
7652 C_word t5;
7653 C_word *a;
7654 if(c!=5) C_bad_argc_2(c,5,t0);
7655 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7656 C_save_and_reclaim((void *)f_4113,c,av);}
7657 /* srfi-4.scm:682: subnvector */
7658 f_3998(t1,t2,lf[55],C_fix(2),t3,t4,lf[216]);}
7659
7660 /* srfi-4#subs32vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4119(C_word c,C_word * av)7661 static void C_ccall f_4119(C_word c,C_word *av){
7662 C_word tmp;
7663 C_word t0=av[0];
7664 C_word t1=av[1];
7665 C_word t2=av[2];
7666 C_word t3=av[3];
7667 C_word t4=av[4];
7668 C_word t5;
7669 C_word *a;
7670 if(c!=5) C_bad_argc_2(c,5,t0);
7671 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7672 C_save_and_reclaim((void *)f_4119,c,av);}
7673 /* srfi-4.scm:683: subnvector */
7674 f_3998(t1,t2,lf[67],C_fix(4),t3,t4,lf[218]);}
7675
7676 /* srfi-4#subs64vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4125(C_word c,C_word * av)7677 static void C_ccall f_4125(C_word c,C_word *av){
7678 C_word tmp;
7679 C_word t0=av[0];
7680 C_word t1=av[1];
7681 C_word t2=av[2];
7682 C_word t3=av[3];
7683 C_word t4=av[4];
7684 C_word t5;
7685 C_word *a;
7686 if(c!=5) C_bad_argc_2(c,5,t0);
7687 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7688 C_save_and_reclaim((void *)f_4125,c,av);}
7689 /* srfi-4.scm:684: subnvector */
7690 f_3998(t1,t2,lf[70],C_fix(8),t3,t4,lf[220]);}
7691
7692 /* srfi-4#subf32vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4131(C_word c,C_word * av)7693 static void C_ccall f_4131(C_word c,C_word *av){
7694 C_word tmp;
7695 C_word t0=av[0];
7696 C_word t1=av[1];
7697 C_word t2=av[2];
7698 C_word t3=av[3];
7699 C_word t4=av[4];
7700 C_word t5;
7701 C_word *a;
7702 if(c!=5) C_bad_argc_2(c,5,t0);
7703 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7704 C_save_and_reclaim((void *)f_4131,c,av);}
7705 /* srfi-4.scm:685: subnvector */
7706 f_3998(t1,t2,lf[73],C_fix(4),t3,t4,lf[222]);}
7707
7708 /* srfi-4#subf64vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4137(C_word c,C_word * av)7709 static void C_ccall f_4137(C_word c,C_word *av){
7710 C_word tmp;
7711 C_word t0=av[0];
7712 C_word t1=av[1];
7713 C_word t2=av[2];
7714 C_word t3=av[3];
7715 C_word t4=av[4];
7716 C_word t5;
7717 C_word *a;
7718 if(c!=5) C_bad_argc_2(c,5,t0);
7719 if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){
7720 C_save_and_reclaim((void *)f_4137,c,av);}
7721 /* srfi-4.scm:686: subnvector */
7722 f_3998(t1,t2,lf[76],C_fix(8),t3,t4,lf[224]);}
7723
7724 /* srfi-4#write-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4143(C_word c,C_word * av)7725 static void C_ccall f_4143(C_word c,C_word *av){
7726 C_word tmp;
7727 C_word t0=av[0];
7728 C_word t1=av[1];
7729 C_word t2=av[2];
7730 C_word t3;
7731 C_word t4;
7732 C_word t5;
7733 C_word t6;
7734 C_word t7;
7735 C_word t8;
7736 C_word t9;
7737 C_word t10;
7738 C_word t11;
7739 C_word t12;
7740 C_word t13;
7741 C_word t14;
7742 C_word t15;
7743 C_word t16;
7744 C_word t17;
7745 C_word t18;
7746 C_word *a;
7747 if(c<3) C_bad_min_argc_2(c,3,t0);
7748 if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
7749 C_save_and_reclaim((void *)f_4143,c,av);}
7750 a=C_alloc(13);
7751 t3=C_rest_nullp(c,3);
7752 t4=(C_truep(t3)?*((C_word*)lf[226]+1):C_get_rest_arg(c,3,av,3,t0));
7753 t5=C_rest_nullp(c,3);
7754 t6=C_rest_nullp(c,4);
7755 t7=(C_truep(t6)?C_fix(0):C_get_rest_arg(c,4,av,3,t0));
7756 t8=C_rest_nullp(c,4);
7757 t9=C_rest_nullp(c,5);
7758 t10=(C_truep(t9)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,3,t0));
7759 t11=C_rest_nullp(c,5);
7760 t12=C_i_check_structure_2(t2,lf[43],lf[227]);
7761 t13=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[227]);
7762 t14=C_u_i_8vector_length(t2);
7763 t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4192,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t10,a[6]=t7,a[7]=t14,tmp=(C_word)a,a+=8,tmp);
7764 t16=(C_truep(t10)?C_fixnum_plus(t10,C_fix(1)):C_fixnum_plus(t14,C_fix(1)));
7765 t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4173,a[2]=t7,a[3]=t16,a[4]=t15,tmp=(C_word)a,a+=5,tmp);
7766 /* srfi-4.scm:102: ##sys#check-fixnum */
7767 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1));
7768 C_word av2[4];
7769 av2[0]=*((C_word*)lf[37]+1);
7770 av2[1]=t17;
7771 av2[2]=t7;
7772 av2[3]=lf[227];
7773 tp(4,av2);}}
7774
7775 /* k4171 in srfi-4#write-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in ... */
f_4173(C_word c,C_word * av)7776 static void C_ccall f_4173(C_word c,C_word *av){
7777 C_word tmp;
7778 C_word t0=av[0];
7779 C_word t1=av[1];
7780 C_word t2;
7781 C_word t3;
7782 C_word t4;
7783 C_word t5;
7784 C_word *a;
7785 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7786 C_save_and_reclaim((void *)f_4173,c,av);}
7787 t2=C_fixnum_less_or_equal_p(C_fix(0),((C_word*)t0)[2]);
7788 t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]):C_SCHEME_FALSE);
7789 if(C_truep(t3)){
7790 t4=C_SCHEME_UNDEFINED;
7791 t5=((C_word*)t0)[4];{
7792 C_word *av2=av;
7793 av2[0]=t5;
7794 av2[1]=t4;
7795 f_4192(2,av2);}}
7796 else{
7797 t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
7798 /* srfi-4.scm:104: ##sys#error-hook */
7799 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
7800 C_word *av2;
7801 if(c >= 7) {
7802 av2=av;
7803 } else {
7804 av2=C_alloc(7);
7805 }
7806 av2[0]=*((C_word*)lf[44]+1);
7807 av2[1]=((C_word*)t0)[4];
7808 av2[2]=t4;
7809 av2[3]=lf[227];
7810 av2[4]=((C_word*)t0)[2];
7811 av2[5]=C_fix(0);
7812 av2[6]=((C_word*)t0)[3];
7813 tp(7,av2);}}}
7814
7815 /* k4190 in srfi-4#write-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in ... */
f_4192(C_word c,C_word * av)7816 static void C_ccall f_4192(C_word c,C_word *av){
7817 C_word tmp;
7818 C_word t0=av[0];
7819 C_word t1=av[1];
7820 C_word t2;
7821 C_word t3;
7822 C_word t4;
7823 C_word t5;
7824 C_word *a;
7825 if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
7826 C_save_and_reclaim((void *)f_4192,c,av);}
7827 a=C_alloc(14);
7828 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4195,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
7829 if(C_truep(((C_word*)t0)[5])){
7830 t3=C_fixnum_plus(((C_word*)t0)[7],C_fix(1));
7831 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4243,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
7832 /* srfi-4.scm:102: ##sys#check-fixnum */
7833 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1));
7834 C_word *av2;
7835 if(c >= 4) {
7836 av2=av;
7837 } else {
7838 av2=C_alloc(4);
7839 }
7840 av2[0]=*((C_word*)lf[37]+1);
7841 av2[1]=t4;
7842 av2[2]=((C_word*)t0)[5];
7843 av2[3]=lf[227];
7844 tp(4,av2);}}
7845 else{
7846 t3=t2;{
7847 C_word *av2=av;
7848 av2[0]=t3;
7849 av2[1]=C_SCHEME_UNDEFINED;
7850 f_4195(2,av2);}}}
7851
7852 /* k4193 in k4190 in srfi-4#write-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in ... */
f_4195(C_word c,C_word * av)7853 static void C_ccall f_4195(C_word c,C_word *av){
7854 C_word tmp;
7855 C_word t0=av[0];
7856 C_word t1=av[1];
7857 C_word t2;
7858 C_word t3;
7859 C_word t4;
7860 C_word t5;
7861 C_word t6;
7862 C_word t7;
7863 C_word *a;
7864 if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
7865 C_save_and_reclaim((void *)f_4195,c,av);}
7866 a=C_alloc(9);
7867 t2=C_slot(((C_word*)t0)[2],C_fix(2));
7868 t3=C_slot(t2,C_fix(3));
7869 t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4208,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
7870 t5=C_eqp(((C_word*)t0)[6],C_fix(0));
7871 if(C_truep(t5)){
7872 t6=C_i_not(((C_word*)t0)[5]);
7873 t7=t4;
7874 f_4208(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t0)[5],((C_word*)t0)[7])));}
7875 else{
7876 t6=t4;
7877 f_4208(t6,C_SCHEME_FALSE);}}
7878
7879 /* k4206 in k4193 in k4190 in srfi-4#write-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in ... */
f_4208(C_word t0,C_word t1)7880 static void C_fcall f_4208(C_word t0,C_word t1){
7881 C_word tmp;
7882 C_word t2;
7883 C_word t3;
7884 C_word *a;
7885 if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
7886 C_save_and_reclaim_args((void *)trf_4208,2,t0,t1);}
7887 a=C_alloc(5);
7888 if(C_truep(t1)){
7889 /* srfi-4.scm:691: g1098 */
7890 t2=((C_word*)t0)[2];{
7891 C_word av2[4];
7892 av2[0]=t2;
7893 av2[1]=((C_word*)t0)[3];
7894 av2[2]=((C_word*)t0)[4];
7895 av2[3]=C_slot(((C_word*)t0)[5],C_fix(1));
7896 ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}
7897 else{
7898 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4218,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
7899 if(C_truep(((C_word*)t0)[6])){
7900 /* srfi-4.scm:700: subu8vector */
7901 t3=*((C_word*)lf[205]+1);{
7902 C_word av2[5];
7903 av2[0]=t3;
7904 av2[1]=t2;
7905 av2[2]=((C_word*)t0)[5];
7906 av2[3]=((C_word*)t0)[7];
7907 av2[4]=((C_word*)t0)[6];
7908 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}
7909 else{
7910 /* srfi-4.scm:700: subu8vector */
7911 t3=*((C_word*)lf[205]+1);{
7912 C_word av2[5];
7913 av2[0]=t3;
7914 av2[1]=t2;
7915 av2[2]=((C_word*)t0)[5];
7916 av2[3]=((C_word*)t0)[7];
7917 av2[4]=((C_word*)t0)[8];
7918 ((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}}
7919
7920 /* k4216 in k4206 in k4193 in k4190 in srfi-4#write-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in ... */
f_4218(C_word c,C_word * av)7921 static void C_ccall f_4218(C_word c,C_word *av){
7922 C_word tmp;
7923 C_word t0=av[0];
7924 C_word t1=av[1];
7925 C_word t2;
7926 C_word *a;
7927 if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
7928 C_save_and_reclaim((void *)f_4218,c,av);}
7929 /* srfi-4.scm:691: g1098 */
7930 t2=((C_word*)t0)[2];{
7931 C_word *av2;
7932 if(c >= 4) {
7933 av2=av;
7934 } else {
7935 av2=C_alloc(4);
7936 }
7937 av2[0]=t2;
7938 av2[1]=((C_word*)t0)[3];
7939 av2[2]=((C_word*)t0)[4];
7940 av2[3]=C_slot(t1,C_fix(1));
7941 ((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}
7942
7943 /* k4241 in k4190 in srfi-4#write-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in ... */
f_4243(C_word c,C_word * av)7944 static void C_ccall f_4243(C_word c,C_word *av){
7945 C_word tmp;
7946 C_word t0=av[0];
7947 C_word t1=av[1];
7948 C_word t2;
7949 C_word t3;
7950 C_word t4;
7951 C_word t5;
7952 C_word *a;
7953 if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
7954 C_save_and_reclaim((void *)f_4243,c,av);}
7955 t2=C_fixnum_less_or_equal_p(((C_word*)t0)[2],((C_word*)t0)[3]);
7956 t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[3],((C_word*)t0)[4]):C_SCHEME_FALSE);
7957 if(C_truep(t3)){
7958 t4=C_SCHEME_UNDEFINED;
7959 t5=((C_word*)t0)[5];{
7960 C_word *av2=av;
7961 av2[0]=t5;
7962 av2[1]=t4;
7963 f_4195(2,av2);}}
7964 else{
7965 t4=C_fix((C_word)C_OUT_OF_RANGE_ERROR);
7966 /* srfi-4.scm:104: ##sys#error-hook */
7967 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1));
7968 C_word *av2;
7969 if(c >= 7) {
7970 av2=av;
7971 } else {
7972 av2=C_alloc(7);
7973 }
7974 av2[0]=*((C_word*)lf[44]+1);
7975 av2[1]=((C_word*)t0)[5];
7976 av2[2]=t4;
7977 av2[3]=lf[227];
7978 av2[4]=((C_word*)t0)[3];
7979 av2[5]=((C_word*)t0)[2];
7980 av2[6]=((C_word*)t0)[4];
7981 tp(7,av2);}}}
7982
7983 /* srfi-4#read-u8vector! in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4312(C_word c,C_word * av)7984 static void C_ccall f_4312(C_word c,C_word *av){
7985 C_word tmp;
7986 C_word t0=av[0];
7987 C_word t1=av[1];
7988 C_word t2=av[2];
7989 C_word t3=av[3];
7990 C_word t4;
7991 C_word t5;
7992 C_word t6;
7993 C_word t7;
7994 C_word t8;
7995 C_word t9;
7996 C_word t10;
7997 C_word t11;
7998 C_word t12;
7999 C_word t13;
8000 C_word *a;
8001 if(c<4) C_bad_min_argc_2(c,4,t0);
8002 if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
8003 C_save_and_reclaim((void *)f_4312,c,av);}
8004 a=C_alloc(9);
8005 t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
8006 t5=C_rest_nullp(c,4);
8007 t6=(C_truep(t5)?*((C_word*)lf[229]+1):C_get_rest_arg(c,4,av,4,t0));
8008 t7=C_rest_nullp(c,4);
8009 t8=C_rest_nullp(c,5);
8010 t9=(C_truep(t8)?C_fix(0):C_get_rest_arg(c,5,av,4,t0));
8011 t10=C_rest_nullp(c,5);
8012 t11=C_i_check_port_2(t6,C_fix(1),C_SCHEME_TRUE,lf[230]);
8013 t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4331,a[2]=t3,a[3]=t4,a[4]=t9,a[5]=t1,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
8014 /* srfi-4.scm:704: ##sys#check-fixnum */
8015 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1));
8016 C_word *av2=av;
8017 av2[0]=*((C_word*)lf[37]+1);
8018 av2[1]=t12;
8019 av2[2]=t9;
8020 av2[3]=lf[230];
8021 tp(4,av2);}}
8022
8023 /* k4329 in srfi-4#read-u8vector! in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in ... */
f_4331(C_word c,C_word * av)8024 static void C_ccall f_4331(C_word c,C_word *av){
8025 C_word tmp;
8026 C_word t0=av[0];
8027 C_word t1=av[1];
8028 C_word t2;
8029 C_word t3;
8030 C_word t4;
8031 C_word *a;
8032 if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
8033 C_save_and_reclaim((void *)f_4331,c,av);}
8034 a=C_alloc(7);
8035 t2=C_i_check_structure_2(((C_word*)t0)[2],lf[43],lf[230]);
8036 t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4337,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
8037 if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
8038 /* srfi-4.scm:706: ##sys#check-fixnum */
8039 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1));
8040 C_word *av2;
8041 if(c >= 4) {
8042 av2=av;
8043 } else {
8044 av2=C_alloc(4);
8045 }
8046 av2[0]=*((C_word*)lf[37]+1);
8047 av2[1]=t3;
8048 av2[2]=((C_word*)((C_word*)t0)[3])[1];
8049 av2[3]=lf[230];
8050 tp(4,av2);}}
8051 else{
8052 t4=t3;{
8053 C_word *av2=av;
8054 av2[0]=t4;
8055 av2[1]=C_SCHEME_UNDEFINED;
8056 f_4337(2,av2);}}}
8057
8058 /* k4335 in k4329 in srfi-4#read-u8vector! in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in ... */
f_4337(C_word c,C_word * av)8059 static void C_ccall f_4337(C_word c,C_word *av){
8060 C_word tmp;
8061 C_word t0=av[0];
8062 C_word t1=av[1];
8063 C_word t2;
8064 C_word t3;
8065 C_word t4;
8066 C_word t5;
8067 C_word t6;
8068 C_word t7;
8069 C_word *a;
8070 if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
8071 C_save_and_reclaim((void *)f_4337,c,av);}
8072 t2=C_slot(((C_word*)t0)[2],C_fix(1));
8073 t3=C_block_size(t2);
8074 t4=(C_truep(((C_word*)((C_word*)t0)[3])[1])?C_fixnum_less_or_equal_p(C_fixnum_plus(((C_word*)t0)[4],((C_word*)((C_word*)t0)[3])[1]),t3):C_SCHEME_FALSE);
8075 if(C_truep(t4)){
8076 /* srfi-4.scm:711: chicken.io#read-string!/port */
8077 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[231]+1));
8078 C_word *av2;
8079 if(c >= 6) {
8080 av2=av;
8081 } else {
8082 av2=C_alloc(6);
8083 }
8084 av2[0]=*((C_word*)lf[231]+1);
8085 av2[1]=((C_word*)t0)[5];
8086 av2[2]=((C_word*)((C_word*)t0)[3])[1];
8087 av2[3]=t2;
8088 av2[4]=((C_word*)t0)[6];
8089 av2[5]=((C_word*)t0)[4];
8090 tp(6,av2);}}
8091 else{
8092 t5=C_fixnum_difference(t3,((C_word*)t0)[4]);
8093 t6=C_set_block_item(((C_word*)t0)[3],0,t5);
8094 /* srfi-4.scm:711: chicken.io#read-string!/port */
8095 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[231]+1));
8096 C_word *av2;
8097 if(c >= 6) {
8098 av2=av;
8099 } else {
8100 av2=C_alloc(6);
8101 }
8102 av2[0]=*((C_word*)lf[231]+1);
8103 av2[1]=((C_word*)t0)[5];
8104 av2[2]=((C_word*)((C_word*)t0)[3])[1];
8105 av2[3]=t2;
8106 av2[4]=((C_word*)t0)[6];
8107 av2[5]=((C_word*)t0)[4];
8108 tp(6,av2);}}}
8109
8110 /* srfi-4#read-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4392(C_word c,C_word * av)8111 static void C_ccall f_4392(C_word c,C_word *av){
8112 C_word tmp;
8113 C_word t0=av[0];
8114 C_word t1=av[1];
8115 C_word t2;
8116 C_word t3;
8117 C_word t4;
8118 C_word t5;
8119 C_word t6;
8120 C_word t7;
8121 C_word t8;
8122 C_word t9;
8123 C_word t10;
8124 C_word *a;
8125 if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
8126 C_save_and_reclaim((void *)f_4392,c,av);}
8127 a=C_alloc(5);
8128 t2=C_rest_nullp(c,2);
8129 t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0));
8130 t4=C_rest_nullp(c,2);
8131 t5=C_rest_nullp(c,3);
8132 t6=(C_truep(t5)?*((C_word*)lf[229]+1):C_get_rest_arg(c,3,av,2,t0));
8133 t7=C_rest_nullp(c,3);
8134 t8=C_i_check_port_2(t6,C_fix(1),C_SCHEME_TRUE,lf[233]);
8135 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4411,a[2]=t1,a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
8136 if(C_truep(t3)){
8137 /* srfi-4.scm:715: ##sys#check-fixnum */
8138 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1));
8139 C_word av2[4];
8140 av2[0]=*((C_word*)lf[37]+1);
8141 av2[1]=t9;
8142 av2[2]=t3;
8143 av2[3]=lf[233];
8144 tp(4,av2);}}
8145 else{
8146 t10=t9;{
8147 C_word *av2=av;
8148 av2[0]=t10;
8149 av2[1]=C_SCHEME_UNDEFINED;
8150 f_4411(2,av2);}}}
8151
8152 /* k4409 in srfi-4#read-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in ... */
f_4411(C_word c,C_word * av)8153 static void C_ccall f_4411(C_word c,C_word *av){
8154 C_word tmp;
8155 C_word t0=av[0];
8156 C_word t1=av[1];
8157 C_word t2;
8158 C_word t3;
8159 C_word *a;
8160 if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
8161 C_save_and_reclaim((void *)f_4411,c,av);}
8162 a=C_alloc(3);
8163 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4414,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
8164 /* srfi-4.scm:716: chicken.io#read-string/port */
8165 {C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[234]+1));
8166 C_word *av2;
8167 if(c >= 4) {
8168 av2=av;
8169 } else {
8170 av2=C_alloc(4);
8171 }
8172 av2[0]=*((C_word*)lf[234]+1);
8173 av2[1]=t2;
8174 av2[2]=((C_word*)t0)[3];
8175 av2[3]=((C_word*)t0)[4];
8176 tp(4,av2);}}
8177
8178 /* k4412 in k4409 in srfi-4#read-u8vector in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in ... */
f_4414(C_word c,C_word * av)8179 static void C_ccall f_4414(C_word c,C_word *av){
8180 C_word tmp;
8181 C_word t0=av[0];
8182 C_word t1=av[1];
8183 C_word t2;
8184 C_word t3;
8185 C_word *a;
8186 if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
8187 C_save_and_reclaim((void *)f_4414,c,av);}
8188 a=C_alloc(3);
8189 if(C_truep(C_eofp(t1))){
8190 t2=((C_word*)t0)[2];{
8191 C_word *av2=av;
8192 av2[0]=t2;
8193 av2[1]=t1;
8194 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
8195 else{
8196 t2=C_string_to_bytevector(t1);
8197 t3=((C_word*)t0)[2];{
8198 C_word *av2=av;
8199 av2[0]=t3;
8200 av2[1]=C_a_i_record2(&a,2,lf[43],t1);
8201 ((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}
8202
8203 /* k4451 in k3857 in k3853 in k3849 in k3845 in k3841 in k3837 in k3833 in k3829 in k3825 in k3821 in k3817 in k3813 in k3809 in k3805 in k3801 in k3797 in k3793 in k3789 in k3785 in k3781 in k3777 in ... */
f_4453(C_word c,C_word * av)8204 static void C_ccall f_4453(C_word c,C_word *av){
8205 C_word tmp;
8206 C_word t0=av[0];
8207 C_word t1=av[1];
8208 C_word t2;
8209 C_word *a;
8210 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8211 C_save_and_reclaim((void *)f_4453,c,av);}
8212 t2=((C_word*)t0)[2];{
8213 C_word *av2=av;
8214 av2[0]=t2;
8215 av2[1]=C_SCHEME_UNDEFINED;
8216 ((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
8217
8218 /* a4454 in k1613 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_4455(C_word c,C_word * av)8219 static void C_ccall f_4455(C_word c,C_word *av){
8220 C_word tmp;
8221 C_word t0=av[0];
8222 C_word t1=av[1];
8223 C_word t2=av[2];
8224 C_word t3=av[3];
8225 C_word t4;
8226 C_word *a;
8227 if(c!=4) C_bad_argc_2(c,4,t0);
8228 if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
8229 C_save_and_reclaim((void *)f_4455,c,av);}
8230 a=C_alloc(4);
8231 t4=t1;{
8232 C_word *av2=av;
8233 av2[0]=t4;
8234 av2[1]=C_a_i_f64vector_ref(&a,2,t2,t3);
8235 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8236
8237 /* a4457 in k1609 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_4458(C_word c,C_word * av)8238 static void C_ccall f_4458(C_word c,C_word *av){
8239 C_word tmp;
8240 C_word t0=av[0];
8241 C_word t1=av[1];
8242 C_word t2=av[2];
8243 C_word t3=av[3];
8244 C_word t4;
8245 C_word *a;
8246 if(c!=4) C_bad_argc_2(c,4,t0);
8247 if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){
8248 C_save_and_reclaim((void *)f_4458,c,av);}
8249 a=C_alloc(4);
8250 t4=t1;{
8251 C_word *av2=av;
8252 av2[0]=t4;
8253 av2[1]=C_a_i_f32vector_ref(&a,2,t2,t3);
8254 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8255
8256 /* a4460 in k1605 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_4461(C_word c,C_word * av)8257 static void C_ccall f_4461(C_word c,C_word *av){
8258 C_word tmp;
8259 C_word t0=av[0];
8260 C_word t1=av[1];
8261 C_word t2=av[2];
8262 C_word t3=av[3];
8263 C_word t4;
8264 C_word *a;
8265 if(c!=4) C_bad_argc_2(c,4,t0);
8266 if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
8267 C_save_and_reclaim((void *)f_4461,c,av);}
8268 a=C_alloc(7);
8269 t4=t1;{
8270 C_word *av2=av;
8271 av2[0]=t4;
8272 av2[1]=C_a_i_s64vector_ref(&a,2,t2,t3);
8273 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8274
8275 /* a4463 in k1601 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_4464(C_word c,C_word * av)8276 static void C_ccall f_4464(C_word c,C_word *av){
8277 C_word tmp;
8278 C_word t0=av[0];
8279 C_word t1=av[1];
8280 C_word t2=av[2];
8281 C_word t3=av[3];
8282 C_word t4;
8283 C_word *a;
8284 if(c!=4) C_bad_argc_2(c,4,t0);
8285 if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){
8286 C_save_and_reclaim((void *)f_4464,c,av);}
8287 a=C_alloc(7);
8288 t4=t1;{
8289 C_word *av2=av;
8290 av2[0]=t4;
8291 av2[1]=C_a_i_u64vector_ref(&a,2,t2,t3);
8292 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8293
8294 /* a4466 in k1597 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_4467(C_word c,C_word * av)8295 static void C_ccall f_4467(C_word c,C_word *av){
8296 C_word tmp;
8297 C_word t0=av[0];
8298 C_word t1=av[1];
8299 C_word t2=av[2];
8300 C_word t3=av[3];
8301 C_word t4;
8302 C_word *a;
8303 if(c!=4) C_bad_argc_2(c,4,t0);
8304 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
8305 C_save_and_reclaim((void *)f_4467,c,av);}
8306 a=C_alloc(5);
8307 t4=t1;{
8308 C_word *av2=av;
8309 av2[0]=t4;
8310 av2[1]=C_a_i_s32vector_ref(&a,2,t2,t3);
8311 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8312
8313 /* a4469 in k1593 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_4470(C_word c,C_word * av)8314 static void C_ccall f_4470(C_word c,C_word *av){
8315 C_word tmp;
8316 C_word t0=av[0];
8317 C_word t1=av[1];
8318 C_word t2=av[2];
8319 C_word t3=av[3];
8320 C_word t4;
8321 C_word *a;
8322 if(c!=4) C_bad_argc_2(c,4,t0);
8323 if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){
8324 C_save_and_reclaim((void *)f_4470,c,av);}
8325 a=C_alloc(5);
8326 t4=t1;{
8327 C_word *av2=av;
8328 av2[0]=t4;
8329 av2[1]=C_a_i_u32vector_ref(&a,2,t2,t3);
8330 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8331
8332 /* a4472 in k1589 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_4473(C_word c,C_word * av)8333 static void C_ccall f_4473(C_word c,C_word *av){
8334 C_word tmp;
8335 C_word t0=av[0];
8336 C_word t1=av[1];
8337 C_word t2=av[2];
8338 C_word t3=av[3];
8339 C_word t4;
8340 C_word *a;
8341 if(c!=4) C_bad_argc_2(c,4,t0);
8342 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8343 C_save_and_reclaim((void *)f_4473,c,av);}
8344 t4=t1;{
8345 C_word *av2=av;
8346 av2[0]=t4;
8347 av2[1]=C_i_s16vector_ref(t2,t3);
8348 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8349
8350 /* a4475 in k1585 in k1581 in k1517 in k1514 in k1511 */
f_4476(C_word c,C_word * av)8351 static void C_ccall f_4476(C_word c,C_word *av){
8352 C_word tmp;
8353 C_word t0=av[0];
8354 C_word t1=av[1];
8355 C_word t2=av[2];
8356 C_word t3=av[3];
8357 C_word t4;
8358 C_word *a;
8359 if(c!=4) C_bad_argc_2(c,4,t0);
8360 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8361 C_save_and_reclaim((void *)f_4476,c,av);}
8362 t4=t1;{
8363 C_word *av2=av;
8364 av2[0]=t4;
8365 av2[1]=C_i_u16vector_ref(t2,t3);
8366 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8367
8368 /* a4478 in k1581 in k1517 in k1514 in k1511 */
f_4479(C_word c,C_word * av)8369 static void C_ccall f_4479(C_word c,C_word *av){
8370 C_word tmp;
8371 C_word t0=av[0];
8372 C_word t1=av[1];
8373 C_word t2=av[2];
8374 C_word t3=av[3];
8375 C_word t4;
8376 C_word *a;
8377 if(c!=4) C_bad_argc_2(c,4,t0);
8378 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8379 C_save_and_reclaim((void *)f_4479,c,av);}
8380 t4=t1;{
8381 C_word *av2=av;
8382 av2[0]=t4;
8383 av2[1]=C_i_s8vector_ref(t2,t3);
8384 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8385
8386 /* a4481 in k1517 in k1514 in k1511 */
f_4482(C_word c,C_word * av)8387 static void C_ccall f_4482(C_word c,C_word *av){
8388 C_word tmp;
8389 C_word t0=av[0];
8390 C_word t1=av[1];
8391 C_word t2=av[2];
8392 C_word t3=av[3];
8393 C_word t4;
8394 C_word *a;
8395 if(c!=4) C_bad_argc_2(c,4,t0);
8396 if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
8397 C_save_and_reclaim((void *)f_4482,c,av);}
8398 t4=t1;{
8399 C_word *av2=av;
8400 av2[0]=t4;
8401 av2[1]=C_i_u8vector_ref(t2,t3);
8402 ((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
8403
8404 /* toplevel */
8405 static C_TLS int toplevel_initialized=0;
8406
C_srfi_2d4_toplevel(C_word c,C_word * av)8407 void C_ccall C_srfi_2d4_toplevel(C_word c,C_word *av){
8408 C_word tmp;
8409 C_word t0=av[0];
8410 C_word t1=av[1];
8411 C_word t2;
8412 C_word t3;
8413 C_word *a;
8414 if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
8415 else C_toplevel_entry(C_text("srfi-4"));
8416 C_check_nursery_minimum(C_calculate_demand(3,c,2));
8417 if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
8418 C_save_and_reclaim((void*)C_srfi_2d4_toplevel,c,av);}
8419 toplevel_initialized=1;
8420 if(C_unlikely(!C_demand_2(1782))){
8421 C_save(t1);
8422 C_rereclaim2(1782*sizeof(C_word),1);
8423 t1=C_restore;}
8424 a=C_alloc(3);
8425 C_initialize_lf(lf,277);
8426 lf[0]=C_h_intern(&lf[0],6, C_text("srfi-4"));
8427 lf[1]=C_h_intern(&lf[1],7, C_text("srfi-4#"));
8428 lf[2]=C_h_intern(&lf[2],22, C_text("srfi-4#u8vector-length"));
8429 lf[3]=C_h_intern(&lf[3],22, C_text("srfi-4#s8vector-length"));
8430 lf[4]=C_h_intern(&lf[4],23, C_text("srfi-4#u16vector-length"));
8431 lf[5]=C_h_intern(&lf[5],23, C_text("srfi-4#s16vector-length"));
8432 lf[6]=C_h_intern(&lf[6],23, C_text("srfi-4#u32vector-length"));
8433 lf[7]=C_h_intern(&lf[7],23, C_text("srfi-4#s32vector-length"));
8434 lf[8]=C_h_intern(&lf[8],23, C_text("srfi-4#u64vector-length"));
8435 lf[9]=C_h_intern(&lf[9],23, C_text("srfi-4#s64vector-length"));
8436 lf[10]=C_h_intern(&lf[10],23, C_text("srfi-4#f32vector-length"));
8437 lf[11]=C_h_intern(&lf[11],23, C_text("srfi-4#f64vector-length"));
8438 lf[12]=C_h_intern(&lf[12],20, C_text("srfi-4#u8vector-set!"));
8439 lf[13]=C_h_intern(&lf[13],20, C_text("srfi-4#s8vector-set!"));
8440 lf[14]=C_h_intern(&lf[14],21, C_text("srfi-4#u16vector-set!"));
8441 lf[15]=C_h_intern(&lf[15],21, C_text("srfi-4#s16vector-set!"));
8442 lf[16]=C_h_intern(&lf[16],21, C_text("srfi-4#u32vector-set!"));
8443 lf[17]=C_h_intern(&lf[17],21, C_text("srfi-4#s32vector-set!"));
8444 lf[18]=C_h_intern(&lf[18],21, C_text("srfi-4#u64vector-set!"));
8445 lf[19]=C_h_intern(&lf[19],21, C_text("srfi-4#s64vector-set!"));
8446 lf[20]=C_h_intern(&lf[20],21, C_text("srfi-4#f32vector-set!"));
8447 lf[21]=C_h_intern(&lf[21],21, C_text("srfi-4#f64vector-set!"));
8448 lf[22]=C_h_intern(&lf[22],19, C_text("srfi-4#u8vector-ref"));
8449 lf[23]=C_h_intern(&lf[23],19, C_text("srfi-4#s8vector-ref"));
8450 lf[24]=C_h_intern(&lf[24],20, C_text("srfi-4#u16vector-ref"));
8451 lf[25]=C_h_intern(&lf[25],20, C_text("srfi-4#s16vector-ref"));
8452 lf[26]=C_h_intern(&lf[26],20, C_text("srfi-4#u32vector-ref"));
8453 lf[27]=C_h_intern(&lf[27],20, C_text("srfi-4#s32vector-ref"));
8454 lf[28]=C_h_intern(&lf[28],20, C_text("srfi-4#u64vector-ref"));
8455 lf[29]=C_h_intern(&lf[29],20, C_text("srfi-4#s64vector-ref"));
8456 lf[30]=C_h_intern(&lf[30],20, C_text("srfi-4#f32vector-ref"));
8457 lf[31]=C_h_intern(&lf[31],20, C_text("srfi-4#f64vector-ref"));
8458 lf[32]=C_h_intern(&lf[32],11, C_text("##sys#error"));
8459 lf[33]=C_decode_literal(C_heaptop,C_text("\376B\000\000:not enough memory - cannot allocate external number vector"));
8460 lf[34]=C_h_intern(&lf[34],21, C_text("##sys#allocate-vector"));
8461 lf[35]=C_decode_literal(C_heaptop,C_text("\376B\000\000:overflow - cannot allocate the required number of elements"));
8462 lf[36]=C_decode_literal(C_heaptop,C_text("\376B\000\000\020size is negative"));
8463 lf[37]=C_h_intern(&lf[37],18, C_text("##sys#check-fixnum"));
8464 lf[38]=C_h_intern(&lf[38],28, C_text("srfi-4#release-number-vector"));
8465 lf[39]=C_h_intern(&lf[39],21, C_text("release-number-vector"));
8466 lf[40]=C_decode_literal(C_heaptop,C_text("\376B\000\000\047bad argument type - not a number vector"));
8467 lf[41]=C_h_intern(&lf[41],21, C_text("srfi-4#number-vector\077"));
8468 lf[42]=C_h_intern(&lf[42],20, C_text("srfi-4#make-u8vector"));
8469 lf[43]=C_h_intern(&lf[43],8, C_text("u8vector"));
8470 lf[44]=C_h_intern(&lf[44],16, C_text("##sys#error-hook"));
8471 lf[45]=C_h_intern(&lf[45],13, C_text("make-u8vector"));
8472 lf[46]=C_h_intern(&lf[46],26, C_text("##sys#check-exact-uinteger"));
8473 lf[47]=C_h_intern(&lf[47],25, C_text("chicken.gc#set-finalizer!"));
8474 lf[48]=C_h_intern(&lf[48],20, C_text("srfi-4#make-s8vector"));
8475 lf[49]=C_h_intern(&lf[49],8, C_text("s8vector"));
8476 lf[50]=C_h_intern(&lf[50],13, C_text("make-s8vector"));
8477 lf[51]=C_h_intern(&lf[51],21, C_text("srfi-4#make-u16vector"));
8478 lf[52]=C_h_intern(&lf[52],9, C_text("u16vector"));
8479 lf[53]=C_h_intern(&lf[53],14, C_text("make-u16vector"));
8480 lf[54]=C_h_intern(&lf[54],21, C_text("srfi-4#make-s16vector"));
8481 lf[55]=C_h_intern(&lf[55],9, C_text("s16vector"));
8482 lf[56]=C_h_intern(&lf[56],14, C_text("make-s16vector"));
8483 lf[57]=C_h_intern(&lf[57],25, C_text("##sys#check-exact-integer"));
8484 lf[58]=C_h_intern(&lf[58],21, C_text("srfi-4#make-u32vector"));
8485 lf[59]=C_h_intern(&lf[59],9, C_text("u32vector"));
8486 lf[60]=C_h_intern(&lf[60],14, C_text("make-u32vector"));
8487 lf[61]=C_decode_literal(C_heaptop,C_text("\376\302\000\000\011100000000"));
8488 lf[62]=C_h_intern(&lf[62],21, C_text("srfi-4#make-u64vector"));
8489 lf[63]=C_h_intern(&lf[63],9, C_text("u64vector"));
8490 lf[64]=C_h_intern(&lf[64],14, C_text("make-u64vector"));
8491 lf[65]=C_decode_literal(C_heaptop,C_text("\376\302\000\000\02110000000000000000"));
8492 lf[66]=C_h_intern(&lf[66],21, C_text("srfi-4#make-s32vector"));
8493 lf[67]=C_h_intern(&lf[67],9, C_text("s32vector"));
8494 lf[68]=C_h_intern(&lf[68],14, C_text("make-s32vector"));
8495 lf[69]=C_h_intern(&lf[69],21, C_text("srfi-4#make-s64vector"));
8496 lf[70]=C_h_intern(&lf[70],9, C_text("s64vector"));
8497 lf[71]=C_h_intern(&lf[71],14, C_text("make-s64vector"));
8498 lf[72]=C_h_intern(&lf[72],21, C_text("srfi-4#make-f32vector"));
8499 lf[73]=C_h_intern(&lf[73],9, C_text("f32vector"));
8500 lf[74]=C_h_intern(&lf[74],14, C_text("make-f32vector"));
8501 lf[75]=C_h_intern(&lf[75],21, C_text("srfi-4#make-f64vector"));
8502 lf[76]=C_h_intern(&lf[76],9, C_text("f64vector"));
8503 lf[77]=C_h_intern(&lf[77],14, C_text("make-f64vector"));
8504 lf[78]=C_h_intern(&lf[78],21, C_text("srfi-4#list->u8vector"));
8505 lf[79]=C_h_intern(&lf[79],29, C_text("##sys#error-not-a-proper-list"));
8506 lf[80]=C_h_intern(&lf[80],21, C_text("srfi-4#list->s8vector"));
8507 lf[81]=C_h_intern(&lf[81],22, C_text("srfi-4#list->u16vector"));
8508 lf[82]=C_h_intern(&lf[82],22, C_text("srfi-4#list->s16vector"));
8509 lf[83]=C_h_intern(&lf[83],22, C_text("srfi-4#list->u32vector"));
8510 lf[84]=C_h_intern(&lf[84],22, C_text("srfi-4#list->s32vector"));
8511 lf[85]=C_h_intern(&lf[85],22, C_text("srfi-4#list->u64vector"));
8512 lf[86]=C_h_intern(&lf[86],22, C_text("srfi-4#list->s64vector"));
8513 lf[87]=C_h_intern(&lf[87],22, C_text("srfi-4#list->f32vector"));
8514 lf[88]=C_h_intern(&lf[88],22, C_text("srfi-4#list->f64vector"));
8515 lf[89]=C_h_intern(&lf[89],15, C_text("srfi-4#u8vector"));
8516 lf[90]=C_h_intern(&lf[90],15, C_text("srfi-4#s8vector"));
8517 lf[91]=C_h_intern(&lf[91],16, C_text("srfi-4#u16vector"));
8518 lf[92]=C_h_intern(&lf[92],16, C_text("srfi-4#s16vector"));
8519 lf[93]=C_h_intern(&lf[93],16, C_text("srfi-4#u32vector"));
8520 lf[94]=C_h_intern(&lf[94],16, C_text("srfi-4#s32vector"));
8521 lf[95]=C_h_intern(&lf[95],16, C_text("srfi-4#u64vector"));
8522 lf[96]=C_h_intern(&lf[96],16, C_text("srfi-4#s64vector"));
8523 lf[97]=C_h_intern(&lf[97],16, C_text("srfi-4#f32vector"));
8524 lf[98]=C_h_intern(&lf[98],16, C_text("srfi-4#f64vector"));
8525 lf[99]=C_h_intern(&lf[99],21, C_text("srfi-4#u8vector->list"));
8526 lf[100]=C_h_intern(&lf[100],14, C_text("u8vector->list"));
8527 lf[101]=C_h_intern(&lf[101],21, C_text("srfi-4#s8vector->list"));
8528 lf[102]=C_h_intern(&lf[102],14, C_text("s8vector->list"));
8529 lf[103]=C_h_intern(&lf[103],22, C_text("srfi-4#u16vector->list"));
8530 lf[104]=C_h_intern(&lf[104],15, C_text("u16vector->list"));
8531 lf[105]=C_h_intern(&lf[105],22, C_text("srfi-4#s16vector->list"));
8532 lf[106]=C_h_intern(&lf[106],15, C_text("s16vector->list"));
8533 lf[107]=C_h_intern(&lf[107],22, C_text("srfi-4#u32vector->list"));
8534 lf[108]=C_h_intern(&lf[108],15, C_text("u32vector->list"));
8535 lf[109]=C_h_intern(&lf[109],22, C_text("srfi-4#s32vector->list"));
8536 lf[110]=C_h_intern(&lf[110],15, C_text("s32vector->list"));
8537 lf[111]=C_h_intern(&lf[111],22, C_text("srfi-4#u64vector->list"));
8538 lf[112]=C_h_intern(&lf[112],15, C_text("u64vector->list"));
8539 lf[113]=C_h_intern(&lf[113],22, C_text("srfi-4#s64vector->list"));
8540 lf[114]=C_h_intern(&lf[114],15, C_text("s64vector->list"));
8541 lf[115]=C_h_intern(&lf[115],22, C_text("srfi-4#f32vector->list"));
8542 lf[116]=C_h_intern(&lf[116],15, C_text("f32vector->list"));
8543 lf[117]=C_h_intern(&lf[117],22, C_text("srfi-4#f64vector->list"));
8544 lf[118]=C_h_intern(&lf[118],15, C_text("f64vector->list"));
8545 lf[119]=C_h_intern(&lf[119],16, C_text("srfi-4#u8vector\077"));
8546 lf[120]=C_h_intern(&lf[120],16, C_text("srfi-4#s8vector\077"));
8547 lf[121]=C_h_intern(&lf[121],17, C_text("srfi-4#u16vector\077"));
8548 lf[122]=C_h_intern(&lf[122],17, C_text("srfi-4#s16vector\077"));
8549 lf[123]=C_h_intern(&lf[123],17, C_text("srfi-4#u32vector\077"));
8550 lf[124]=C_h_intern(&lf[124],17, C_text("srfi-4#s32vector\077"));
8551 lf[125]=C_h_intern(&lf[125],17, C_text("srfi-4#u64vector\077"));
8552 lf[126]=C_h_intern(&lf[126],17, C_text("srfi-4#s64vector\077"));
8553 lf[127]=C_h_intern(&lf[127],17, C_text("srfi-4#f32vector\077"));
8554 lf[128]=C_h_intern(&lf[128],17, C_text("srfi-4#f64vector\077"));
8555 lf[129]=C_h_intern(&lf[129],20, C_text("##sys#srfi-4-vector\077"));
8556 lf[131]=C_h_intern(&lf[131],15, C_text("##sys#make-blob"));
8557 lf[133]=C_decode_literal(C_heaptop,C_text("\376B\000\000+blob does not have correct size for packing"));
8558 lf[135]=C_decode_literal(C_heaptop,C_text("\376B\000\000+blob does not have correct size for packing"));
8559 lf[136]=C_h_intern(&lf[136],21, C_text("u8vector->blob/shared"));
8560 lf[137]=C_h_intern(&lf[137],28, C_text("srfi-4#u8vector->blob/shared"));
8561 lf[138]=C_h_intern(&lf[138],21, C_text("s8vector->blob/shared"));
8562 lf[139]=C_h_intern(&lf[139],28, C_text("srfi-4#s8vector->blob/shared"));
8563 lf[140]=C_h_intern(&lf[140],22, C_text("u16vector->blob/shared"));
8564 lf[141]=C_h_intern(&lf[141],29, C_text("srfi-4#u16vector->blob/shared"));
8565 lf[142]=C_h_intern(&lf[142],22, C_text("s16vector->blob/shared"));
8566 lf[143]=C_h_intern(&lf[143],29, C_text("srfi-4#s16vector->blob/shared"));
8567 lf[144]=C_h_intern(&lf[144],22, C_text("u32vector->blob/shared"));
8568 lf[145]=C_h_intern(&lf[145],29, C_text("srfi-4#u32vector->blob/shared"));
8569 lf[146]=C_h_intern(&lf[146],22, C_text("s32vector->blob/shared"));
8570 lf[147]=C_h_intern(&lf[147],29, C_text("srfi-4#s32vector->blob/shared"));
8571 lf[148]=C_h_intern(&lf[148],22, C_text("u64vector->blob/shared"));
8572 lf[149]=C_h_intern(&lf[149],29, C_text("srfi-4#u64vector->blob/shared"));
8573 lf[150]=C_h_intern(&lf[150],22, C_text("s64vector->blob/shared"));
8574 lf[151]=C_h_intern(&lf[151],29, C_text("srfi-4#s64vector->blob/shared"));
8575 lf[152]=C_h_intern(&lf[152],22, C_text("f32vector->blob/shared"));
8576 lf[153]=C_h_intern(&lf[153],29, C_text("srfi-4#f32vector->blob/shared"));
8577 lf[154]=C_h_intern(&lf[154],22, C_text("f64vector->blob/shared"));
8578 lf[155]=C_h_intern(&lf[155],29, C_text("srfi-4#f64vector->blob/shared"));
8579 lf[156]=C_h_intern(&lf[156],21, C_text("srfi-4#u8vector->blob"));
8580 lf[157]=C_h_intern(&lf[157],21, C_text("srfi-4#s8vector->blob"));
8581 lf[158]=C_h_intern(&lf[158],22, C_text("srfi-4#u16vector->blob"));
8582 lf[159]=C_h_intern(&lf[159],22, C_text("srfi-4#s16vector->blob"));
8583 lf[160]=C_h_intern(&lf[160],22, C_text("srfi-4#u32vector->blob"));
8584 lf[161]=C_h_intern(&lf[161],22, C_text("srfi-4#s32vector->blob"));
8585 lf[162]=C_h_intern(&lf[162],22, C_text("srfi-4#u64vector->blob"));
8586 lf[163]=C_h_intern(&lf[163],22, C_text("srfi-4#s64vector->blob"));
8587 lf[164]=C_h_intern(&lf[164],22, C_text("srfi-4#f32vector->blob"));
8588 lf[165]=C_h_intern(&lf[165],22, C_text("srfi-4#f64vector->blob"));
8589 lf[166]=C_h_intern(&lf[166],28, C_text("srfi-4#blob->u8vector/shared"));
8590 lf[167]=C_h_intern(&lf[167],28, C_text("srfi-4#blob->s8vector/shared"));
8591 lf[168]=C_h_intern(&lf[168],29, C_text("srfi-4#blob->u16vector/shared"));
8592 lf[169]=C_h_intern(&lf[169],29, C_text("srfi-4#blob->s16vector/shared"));
8593 lf[170]=C_h_intern(&lf[170],29, C_text("srfi-4#blob->u32vector/shared"));
8594 lf[171]=C_h_intern(&lf[171],29, C_text("srfi-4#blob->s32vector/shared"));
8595 lf[172]=C_h_intern(&lf[172],29, C_text("srfi-4#blob->u64vector/shared"));
8596 lf[173]=C_h_intern(&lf[173],29, C_text("srfi-4#blob->s64vector/shared"));
8597 lf[174]=C_h_intern(&lf[174],29, C_text("srfi-4#blob->f32vector/shared"));
8598 lf[175]=C_h_intern(&lf[175],29, C_text("srfi-4#blob->f64vector/shared"));
8599 lf[176]=C_h_intern(&lf[176],21, C_text("srfi-4#blob->u8vector"));
8600 lf[177]=C_h_intern(&lf[177],21, C_text("srfi-4#blob->s8vector"));
8601 lf[178]=C_h_intern(&lf[178],22, C_text("srfi-4#blob->u16vector"));
8602 lf[179]=C_h_intern(&lf[179],22, C_text("srfi-4#blob->s16vector"));
8603 lf[180]=C_h_intern(&lf[180],22, C_text("srfi-4#blob->u32vector"));
8604 lf[181]=C_h_intern(&lf[181],22, C_text("srfi-4#blob->s32vector"));
8605 lf[182]=C_h_intern(&lf[182],22, C_text("srfi-4#blob->u64vector"));
8606 lf[183]=C_h_intern(&lf[183],22, C_text("srfi-4#blob->s64vector"));
8607 lf[184]=C_h_intern(&lf[184],22, C_text("srfi-4#blob->f32vector"));
8608 lf[185]=C_h_intern(&lf[185],22, C_text("srfi-4#blob->f64vector"));
8609 lf[186]=C_h_intern(&lf[186],20, C_text("##sys#user-read-hook"));
8610 lf[187]=C_h_intern(&lf[187],2, C_text("u8"));
8611 lf[188]=C_h_intern(&lf[188],2, C_text("s8"));
8612 lf[189]=C_h_intern(&lf[189],3, C_text("u16"));
8613 lf[190]=C_h_intern(&lf[190],3, C_text("s16"));
8614 lf[191]=C_h_intern(&lf[191],3, C_text("u32"));
8615 lf[192]=C_h_intern(&lf[192],3, C_text("s32"));
8616 lf[193]=C_h_intern(&lf[193],3, C_text("u64"));
8617 lf[194]=C_h_intern(&lf[194],3, C_text("s64"));
8618 lf[195]=C_h_intern(&lf[195],3, C_text("f32"));
8619 lf[196]=C_h_intern(&lf[196],3, C_text("f64"));
8620 lf[197]=C_h_intern(&lf[197],1, C_text("f"));
8621 lf[198]=C_h_intern(&lf[198],1, C_text("F"));
8622 lf[199]=C_h_intern(&lf[199],11, C_text("scheme#read"));
8623 lf[200]=C_h_intern(&lf[200],16, C_text("##sys#read-error"));
8624 lf[201]=C_decode_literal(C_heaptop,C_text("\376B\000\000\031illegal bytevector syntax"));
8625 lf[202]=C_h_intern(&lf[202],21, C_text("##sys#user-print-hook"));
8626 lf[203]=C_h_intern(&lf[203],11, C_text("##sys#print"));
8627 lf[205]=C_h_intern(&lf[205],18, C_text("srfi-4#subu8vector"));
8628 lf[206]=C_h_intern(&lf[206],11, C_text("subu8vector"));
8629 lf[207]=C_h_intern(&lf[207],19, C_text("srfi-4#subu16vector"));
8630 lf[208]=C_h_intern(&lf[208],12, C_text("subu16vector"));
8631 lf[209]=C_h_intern(&lf[209],19, C_text("srfi-4#subu32vector"));
8632 lf[210]=C_h_intern(&lf[210],12, C_text("subu32vector"));
8633 lf[211]=C_h_intern(&lf[211],19, C_text("srfi-4#subu64vector"));
8634 lf[212]=C_h_intern(&lf[212],12, C_text("subu64vector"));
8635 lf[213]=C_h_intern(&lf[213],18, C_text("srfi-4#subs8vector"));
8636 lf[214]=C_h_intern(&lf[214],11, C_text("subs8vector"));
8637 lf[215]=C_h_intern(&lf[215],19, C_text("srfi-4#subs16vector"));
8638 lf[216]=C_h_intern(&lf[216],12, C_text("subs16vector"));
8639 lf[217]=C_h_intern(&lf[217],19, C_text("srfi-4#subs32vector"));
8640 lf[218]=C_h_intern(&lf[218],12, C_text("subs32vector"));
8641 lf[219]=C_h_intern(&lf[219],19, C_text("srfi-4#subs64vector"));
8642 lf[220]=C_h_intern(&lf[220],12, C_text("subs64vector"));
8643 lf[221]=C_h_intern(&lf[221],19, C_text("srfi-4#subf32vector"));
8644 lf[222]=C_h_intern(&lf[222],12, C_text("subf32vector"));
8645 lf[223]=C_h_intern(&lf[223],19, C_text("srfi-4#subf64vector"));
8646 lf[224]=C_h_intern(&lf[224],12, C_text("subf64vector"));
8647 lf[225]=C_h_intern(&lf[225],21, C_text("srfi-4#write-u8vector"));
8648 lf[226]=C_h_intern(&lf[226],21, C_text("##sys#standard-output"));
8649 lf[227]=C_h_intern(&lf[227],14, C_text("write-u8vector"));
8650 lf[228]=C_h_intern(&lf[228],21, C_text("srfi-4#read-u8vector!"));
8651 lf[229]=C_h_intern(&lf[229],20, C_text("##sys#standard-input"));
8652 lf[230]=C_h_intern(&lf[230],14, C_text("read-u8vector!"));
8653 lf[231]=C_h_intern(&lf[231],28, C_text("chicken.io#read-string!/port"));
8654 lf[232]=C_h_intern(&lf[232],20, C_text("srfi-4#read-u8vector"));
8655 lf[233]=C_h_intern(&lf[233],13, C_text("read-u8vector"));
8656 lf[234]=C_h_intern(&lf[234],27, C_text("chicken.io#read-string/port"));
8657 lf[235]=C_h_intern(&lf[235],34, C_text("chicken.platform#register-feature!"));
8658 lf[236]=C_h_intern(&lf[236],15, C_text("blob->f64vector"));
8659 lf[237]=C_h_intern(&lf[237],15, C_text("blob->f32vector"));
8660 lf[238]=C_h_intern(&lf[238],15, C_text("blob->s64vector"));
8661 lf[239]=C_h_intern(&lf[239],15, C_text("blob->u64vector"));
8662 lf[240]=C_h_intern(&lf[240],15, C_text("blob->s32vector"));
8663 lf[241]=C_h_intern(&lf[241],15, C_text("blob->u32vector"));
8664 lf[242]=C_h_intern(&lf[242],15, C_text("blob->s16vector"));
8665 lf[243]=C_h_intern(&lf[243],15, C_text("blob->u16vector"));
8666 lf[244]=C_h_intern(&lf[244],14, C_text("blob->s8vector"));
8667 lf[245]=C_h_intern(&lf[245],14, C_text("blob->u8vector"));
8668 lf[246]=C_h_intern(&lf[246],22, C_text("blob->f64vector/shared"));
8669 lf[247]=C_h_intern(&lf[247],22, C_text("blob->f32vector/shared"));
8670 lf[248]=C_h_intern(&lf[248],22, C_text("blob->s64vector/shared"));
8671 lf[249]=C_h_intern(&lf[249],22, C_text("blob->u64vector/shared"));
8672 lf[250]=C_h_intern(&lf[250],22, C_text("blob->s32vector/shared"));
8673 lf[251]=C_h_intern(&lf[251],22, C_text("blob->u32vector/shared"));
8674 lf[252]=C_h_intern(&lf[252],22, C_text("blob->s16vector/shared"));
8675 lf[253]=C_h_intern(&lf[253],22, C_text("blob->u16vector/shared"));
8676 lf[254]=C_h_intern(&lf[254],21, C_text("blob->s8vector/shared"));
8677 lf[255]=C_h_intern(&lf[255],21, C_text("blob->u8vector/shared"));
8678 lf[256]=C_h_intern(&lf[256],15, C_text("f64vector->blob"));
8679 lf[257]=C_h_intern(&lf[257],15, C_text("f32vector->blob"));
8680 lf[258]=C_h_intern(&lf[258],15, C_text("s64vector->blob"));
8681 lf[259]=C_h_intern(&lf[259],15, C_text("u64vector->blob"));
8682 lf[260]=C_h_intern(&lf[260],15, C_text("s32vector->blob"));
8683 lf[261]=C_h_intern(&lf[261],15, C_text("u32vector->blob"));
8684 lf[262]=C_h_intern(&lf[262],15, C_text("s16vector->blob"));
8685 lf[263]=C_h_intern(&lf[263],15, C_text("u16vector->blob"));
8686 lf[264]=C_h_intern(&lf[264],14, C_text("s8vector->blob"));
8687 lf[265]=C_h_intern(&lf[265],14, C_text("u8vector->blob"));
8688 lf[266]=C_h_intern(&lf[266],31, C_text("chicken.base#getter-with-setter"));
8689 lf[267]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#f64vector-ref v i)"));
8690 lf[268]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#f32vector-ref v i)"));
8691 lf[269]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#s64vector-ref v i)"));
8692 lf[270]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#u64vector-ref v i)"));
8693 lf[271]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#s32vector-ref v i)"));
8694 lf[272]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#u32vector-ref v i)"));
8695 lf[273]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#s16vector-ref v i)"));
8696 lf[274]=C_decode_literal(C_heaptop,C_text("\376B\000\000\042(chicken.srfi-4#u16vector-ref v i)"));
8697 lf[275]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.srfi-4#s8vector-ref v i)"));
8698 lf[276]=C_decode_literal(C_heaptop,C_text("\376B\000\000!(chicken.srfi-4#u8vector-ref v i)"));
8699 C_register_lf2(lf,277,create_ptable());{}
8700 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1513,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
8701 C_word *av2=av;
8702 av2[0]=C_SCHEME_UNDEFINED;
8703 av2[1]=t2;
8704 C_expand_toplevel(2,av2);}}
8705
8706 #ifdef C_ENABLE_PTABLES
8707 static C_PTABLE_ENTRY ptable[289] = {
8708 {C_text("f5225:srfi_2d4_2escm"),(void*)f5225},
8709 {C_text("f5232:srfi_2d4_2escm"),(void*)f5232},
8710 {C_text("f5239:srfi_2d4_2escm"),(void*)f5239},
8711 {C_text("f5246:srfi_2d4_2escm"),(void*)f5246},
8712 {C_text("f5253:srfi_2d4_2escm"),(void*)f5253},
8713 {C_text("f5260:srfi_2d4_2escm"),(void*)f5260},
8714 {C_text("f5267:srfi_2d4_2escm"),(void*)f5267},
8715 {C_text("f5274:srfi_2d4_2escm"),(void*)f5274},
8716 {C_text("f5281:srfi_2d4_2escm"),(void*)f5281},
8717 {C_text("f5288:srfi_2d4_2escm"),(void*)f5288},
8718 {C_text("f_1513:srfi_2d4_2escm"),(void*)f_1513},
8719 {C_text("f_1516:srfi_2d4_2escm"),(void*)f_1516},
8720 {C_text("f_1519:srfi_2d4_2escm"),(void*)f_1519},
8721 {C_text("f_1521:srfi_2d4_2escm"),(void*)f_1521},
8722 {C_text("f_1524:srfi_2d4_2escm"),(void*)f_1524},
8723 {C_text("f_1527:srfi_2d4_2escm"),(void*)f_1527},
8724 {C_text("f_1530:srfi_2d4_2escm"),(void*)f_1530},
8725 {C_text("f_1533:srfi_2d4_2escm"),(void*)f_1533},
8726 {C_text("f_1536:srfi_2d4_2escm"),(void*)f_1536},
8727 {C_text("f_1539:srfi_2d4_2escm"),(void*)f_1539},
8728 {C_text("f_1542:srfi_2d4_2escm"),(void*)f_1542},
8729 {C_text("f_1545:srfi_2d4_2escm"),(void*)f_1545},
8730 {C_text("f_1548:srfi_2d4_2escm"),(void*)f_1548},
8731 {C_text("f_1551:srfi_2d4_2escm"),(void*)f_1551},
8732 {C_text("f_1554:srfi_2d4_2escm"),(void*)f_1554},
8733 {C_text("f_1557:srfi_2d4_2escm"),(void*)f_1557},
8734 {C_text("f_1560:srfi_2d4_2escm"),(void*)f_1560},
8735 {C_text("f_1563:srfi_2d4_2escm"),(void*)f_1563},
8736 {C_text("f_1566:srfi_2d4_2escm"),(void*)f_1566},
8737 {C_text("f_1569:srfi_2d4_2escm"),(void*)f_1569},
8738 {C_text("f_1572:srfi_2d4_2escm"),(void*)f_1572},
8739 {C_text("f_1575:srfi_2d4_2escm"),(void*)f_1575},
8740 {C_text("f_1578:srfi_2d4_2escm"),(void*)f_1578},
8741 {C_text("f_1583:srfi_2d4_2escm"),(void*)f_1583},
8742 {C_text("f_1587:srfi_2d4_2escm"),(void*)f_1587},
8743 {C_text("f_1591:srfi_2d4_2escm"),(void*)f_1591},
8744 {C_text("f_1595:srfi_2d4_2escm"),(void*)f_1595},
8745 {C_text("f_1599:srfi_2d4_2escm"),(void*)f_1599},
8746 {C_text("f_1603:srfi_2d4_2escm"),(void*)f_1603},
8747 {C_text("f_1607:srfi_2d4_2escm"),(void*)f_1607},
8748 {C_text("f_1611:srfi_2d4_2escm"),(void*)f_1611},
8749 {C_text("f_1615:srfi_2d4_2escm"),(void*)f_1615},
8750 {C_text("f_1619:srfi_2d4_2escm"),(void*)f_1619},
8751 {C_text("f_1627:srfi_2d4_2escm"),(void*)f_1627},
8752 {C_text("f_1629:srfi_2d4_2escm"),(void*)f_1629},
8753 {C_text("f_1633:srfi_2d4_2escm"),(void*)f_1633},
8754 {C_text("f_1636:srfi_2d4_2escm"),(void*)f_1636},
8755 {C_text("f_1642:srfi_2d4_2escm"),(void*)f_1642},
8756 {C_text("f_1657:srfi_2d4_2escm"),(void*)f_1657},
8757 {C_text("f_1668:srfi_2d4_2escm"),(void*)f_1668},
8758 {C_text("f_1675:srfi_2d4_2escm"),(void*)f_1675},
8759 {C_text("f_1683:srfi_2d4_2escm"),(void*)f_1683},
8760 {C_text("f_1708:srfi_2d4_2escm"),(void*)f_1708},
8761 {C_text("f_1719:srfi_2d4_2escm"),(void*)f_1719},
8762 {C_text("f_1738:srfi_2d4_2escm"),(void*)f_1738},
8763 {C_text("f_1743:srfi_2d4_2escm"),(void*)f_1743},
8764 {C_text("f_1761:srfi_2d4_2escm"),(void*)f_1761},
8765 {C_text("f_1799:srfi_2d4_2escm"),(void*)f_1799},
8766 {C_text("f_1824:srfi_2d4_2escm"),(void*)f_1824},
8767 {C_text("f_1835:srfi_2d4_2escm"),(void*)f_1835},
8768 {C_text("f_1854:srfi_2d4_2escm"),(void*)f_1854},
8769 {C_text("f_1859:srfi_2d4_2escm"),(void*)f_1859},
8770 {C_text("f_1877:srfi_2d4_2escm"),(void*)f_1877},
8771 {C_text("f_1915:srfi_2d4_2escm"),(void*)f_1915},
8772 {C_text("f_1940:srfi_2d4_2escm"),(void*)f_1940},
8773 {C_text("f_1951:srfi_2d4_2escm"),(void*)f_1951},
8774 {C_text("f_1970:srfi_2d4_2escm"),(void*)f_1970},
8775 {C_text("f_1975:srfi_2d4_2escm"),(void*)f_1975},
8776 {C_text("f_1993:srfi_2d4_2escm"),(void*)f_1993},
8777 {C_text("f_2031:srfi_2d4_2escm"),(void*)f_2031},
8778 {C_text("f_2056:srfi_2d4_2escm"),(void*)f_2056},
8779 {C_text("f_2067:srfi_2d4_2escm"),(void*)f_2067},
8780 {C_text("f_2096:srfi_2d4_2escm"),(void*)f_2096},
8781 {C_text("f_2101:srfi_2d4_2escm"),(void*)f_2101},
8782 {C_text("f_2119:srfi_2d4_2escm"),(void*)f_2119},
8783 {C_text("f_2157:srfi_2d4_2escm"),(void*)f_2157},
8784 {C_text("f_2182:srfi_2d4_2escm"),(void*)f_2182},
8785 {C_text("f_2193:srfi_2d4_2escm"),(void*)f_2193},
8786 {C_text("f_2212:srfi_2d4_2escm"),(void*)f_2212},
8787 {C_text("f_2217:srfi_2d4_2escm"),(void*)f_2217},
8788 {C_text("f_2235:srfi_2d4_2escm"),(void*)f_2235},
8789 {C_text("f_2273:srfi_2d4_2escm"),(void*)f_2273},
8790 {C_text("f_2298:srfi_2d4_2escm"),(void*)f_2298},
8791 {C_text("f_2309:srfi_2d4_2escm"),(void*)f_2309},
8792 {C_text("f_2328:srfi_2d4_2escm"),(void*)f_2328},
8793 {C_text("f_2333:srfi_2d4_2escm"),(void*)f_2333},
8794 {C_text("f_2351:srfi_2d4_2escm"),(void*)f_2351},
8795 {C_text("f_2389:srfi_2d4_2escm"),(void*)f_2389},
8796 {C_text("f_2414:srfi_2d4_2escm"),(void*)f_2414},
8797 {C_text("f_2425:srfi_2d4_2escm"),(void*)f_2425},
8798 {C_text("f_2454:srfi_2d4_2escm"),(void*)f_2454},
8799 {C_text("f_2459:srfi_2d4_2escm"),(void*)f_2459},
8800 {C_text("f_2477:srfi_2d4_2escm"),(void*)f_2477},
8801 {C_text("f_2515:srfi_2d4_2escm"),(void*)f_2515},
8802 {C_text("f_2540:srfi_2d4_2escm"),(void*)f_2540},
8803 {C_text("f_2551:srfi_2d4_2escm"),(void*)f_2551},
8804 {C_text("f_2580:srfi_2d4_2escm"),(void*)f_2580},
8805 {C_text("f_2585:srfi_2d4_2escm"),(void*)f_2585},
8806 {C_text("f_2603:srfi_2d4_2escm"),(void*)f_2603},
8807 {C_text("f_2641:srfi_2d4_2escm"),(void*)f_2641},
8808 {C_text("f_2666:srfi_2d4_2escm"),(void*)f_2666},
8809 {C_text("f_2687:srfi_2d4_2escm"),(void*)f_2687},
8810 {C_text("f_2690:srfi_2d4_2escm"),(void*)f_2690},
8811 {C_text("f_2695:srfi_2d4_2escm"),(void*)f_2695},
8812 {C_text("f_2714:srfi_2d4_2escm"),(void*)f_2714},
8813 {C_text("f_2752:srfi_2d4_2escm"),(void*)f_2752},
8814 {C_text("f_2777:srfi_2d4_2escm"),(void*)f_2777},
8815 {C_text("f_2798:srfi_2d4_2escm"),(void*)f_2798},
8816 {C_text("f_2801:srfi_2d4_2escm"),(void*)f_2801},
8817 {C_text("f_2806:srfi_2d4_2escm"),(void*)f_2806},
8818 {C_text("f_2825:srfi_2d4_2escm"),(void*)f_2825},
8819 {C_text("f_2863:srfi_2d4_2escm"),(void*)f_2863},
8820 {C_text("f_2870:srfi_2d4_2escm"),(void*)f_2870},
8821 {C_text("f_2875:srfi_2d4_2escm"),(void*)f_2875},
8822 {C_text("f_2882:srfi_2d4_2escm"),(void*)f_2882},
8823 {C_text("f_2899:srfi_2d4_2escm"),(void*)f_2899},
8824 {C_text("f_2906:srfi_2d4_2escm"),(void*)f_2906},
8825 {C_text("f_2911:srfi_2d4_2escm"),(void*)f_2911},
8826 {C_text("f_2918:srfi_2d4_2escm"),(void*)f_2918},
8827 {C_text("f_2935:srfi_2d4_2escm"),(void*)f_2935},
8828 {C_text("f_2942:srfi_2d4_2escm"),(void*)f_2942},
8829 {C_text("f_2947:srfi_2d4_2escm"),(void*)f_2947},
8830 {C_text("f_2954:srfi_2d4_2escm"),(void*)f_2954},
8831 {C_text("f_2971:srfi_2d4_2escm"),(void*)f_2971},
8832 {C_text("f_2978:srfi_2d4_2escm"),(void*)f_2978},
8833 {C_text("f_2983:srfi_2d4_2escm"),(void*)f_2983},
8834 {C_text("f_2990:srfi_2d4_2escm"),(void*)f_2990},
8835 {C_text("f_3007:srfi_2d4_2escm"),(void*)f_3007},
8836 {C_text("f_3014:srfi_2d4_2escm"),(void*)f_3014},
8837 {C_text("f_3019:srfi_2d4_2escm"),(void*)f_3019},
8838 {C_text("f_3026:srfi_2d4_2escm"),(void*)f_3026},
8839 {C_text("f_3043:srfi_2d4_2escm"),(void*)f_3043},
8840 {C_text("f_3050:srfi_2d4_2escm"),(void*)f_3050},
8841 {C_text("f_3055:srfi_2d4_2escm"),(void*)f_3055},
8842 {C_text("f_3062:srfi_2d4_2escm"),(void*)f_3062},
8843 {C_text("f_3079:srfi_2d4_2escm"),(void*)f_3079},
8844 {C_text("f_3086:srfi_2d4_2escm"),(void*)f_3086},
8845 {C_text("f_3091:srfi_2d4_2escm"),(void*)f_3091},
8846 {C_text("f_3098:srfi_2d4_2escm"),(void*)f_3098},
8847 {C_text("f_3115:srfi_2d4_2escm"),(void*)f_3115},
8848 {C_text("f_3122:srfi_2d4_2escm"),(void*)f_3122},
8849 {C_text("f_3127:srfi_2d4_2escm"),(void*)f_3127},
8850 {C_text("f_3134:srfi_2d4_2escm"),(void*)f_3134},
8851 {C_text("f_3151:srfi_2d4_2escm"),(void*)f_3151},
8852 {C_text("f_3158:srfi_2d4_2escm"),(void*)f_3158},
8853 {C_text("f_3163:srfi_2d4_2escm"),(void*)f_3163},
8854 {C_text("f_3170:srfi_2d4_2escm"),(void*)f_3170},
8855 {C_text("f_3187:srfi_2d4_2escm"),(void*)f_3187},
8856 {C_text("f_3194:srfi_2d4_2escm"),(void*)f_3194},
8857 {C_text("f_3199:srfi_2d4_2escm"),(void*)f_3199},
8858 {C_text("f_3206:srfi_2d4_2escm"),(void*)f_3206},
8859 {C_text("f_3223:srfi_2d4_2escm"),(void*)f_3223},
8860 {C_text("f_3229:srfi_2d4_2escm"),(void*)f_3229},
8861 {C_text("f_3235:srfi_2d4_2escm"),(void*)f_3235},
8862 {C_text("f_3241:srfi_2d4_2escm"),(void*)f_3241},
8863 {C_text("f_3247:srfi_2d4_2escm"),(void*)f_3247},
8864 {C_text("f_3253:srfi_2d4_2escm"),(void*)f_3253},
8865 {C_text("f_3259:srfi_2d4_2escm"),(void*)f_3259},
8866 {C_text("f_3265:srfi_2d4_2escm"),(void*)f_3265},
8867 {C_text("f_3271:srfi_2d4_2escm"),(void*)f_3271},
8868 {C_text("f_3277:srfi_2d4_2escm"),(void*)f_3277},
8869 {C_text("f_3283:srfi_2d4_2escm"),(void*)f_3283},
8870 {C_text("f_3292:srfi_2d4_2escm"),(void*)f_3292},
8871 {C_text("f_3307:srfi_2d4_2escm"),(void*)f_3307},
8872 {C_text("f_3313:srfi_2d4_2escm"),(void*)f_3313},
8873 {C_text("f_3322:srfi_2d4_2escm"),(void*)f_3322},
8874 {C_text("f_3337:srfi_2d4_2escm"),(void*)f_3337},
8875 {C_text("f_3343:srfi_2d4_2escm"),(void*)f_3343},
8876 {C_text("f_3352:srfi_2d4_2escm"),(void*)f_3352},
8877 {C_text("f_3367:srfi_2d4_2escm"),(void*)f_3367},
8878 {C_text("f_3373:srfi_2d4_2escm"),(void*)f_3373},
8879 {C_text("f_3382:srfi_2d4_2escm"),(void*)f_3382},
8880 {C_text("f_3397:srfi_2d4_2escm"),(void*)f_3397},
8881 {C_text("f_3403:srfi_2d4_2escm"),(void*)f_3403},
8882 {C_text("f_3412:srfi_2d4_2escm"),(void*)f_3412},
8883 {C_text("f_3426:srfi_2d4_2escm"),(void*)f_3426},
8884 {C_text("f_3432:srfi_2d4_2escm"),(void*)f_3432},
8885 {C_text("f_3441:srfi_2d4_2escm"),(void*)f_3441},
8886 {C_text("f_3455:srfi_2d4_2escm"),(void*)f_3455},
8887 {C_text("f_3461:srfi_2d4_2escm"),(void*)f_3461},
8888 {C_text("f_3470:srfi_2d4_2escm"),(void*)f_3470},
8889 {C_text("f_3484:srfi_2d4_2escm"),(void*)f_3484},
8890 {C_text("f_3490:srfi_2d4_2escm"),(void*)f_3490},
8891 {C_text("f_3499:srfi_2d4_2escm"),(void*)f_3499},
8892 {C_text("f_3513:srfi_2d4_2escm"),(void*)f_3513},
8893 {C_text("f_3519:srfi_2d4_2escm"),(void*)f_3519},
8894 {C_text("f_3528:srfi_2d4_2escm"),(void*)f_3528},
8895 {C_text("f_3542:srfi_2d4_2escm"),(void*)f_3542},
8896 {C_text("f_3548:srfi_2d4_2escm"),(void*)f_3548},
8897 {C_text("f_3557:srfi_2d4_2escm"),(void*)f_3557},
8898 {C_text("f_3571:srfi_2d4_2escm"),(void*)f_3571},
8899 {C_text("f_3577:srfi_2d4_2escm"),(void*)f_3577},
8900 {C_text("f_3580:srfi_2d4_2escm"),(void*)f_3580},
8901 {C_text("f_3583:srfi_2d4_2escm"),(void*)f_3583},
8902 {C_text("f_3586:srfi_2d4_2escm"),(void*)f_3586},
8903 {C_text("f_3589:srfi_2d4_2escm"),(void*)f_3589},
8904 {C_text("f_3592:srfi_2d4_2escm"),(void*)f_3592},
8905 {C_text("f_3595:srfi_2d4_2escm"),(void*)f_3595},
8906 {C_text("f_3598:srfi_2d4_2escm"),(void*)f_3598},
8907 {C_text("f_3601:srfi_2d4_2escm"),(void*)f_3601},
8908 {C_text("f_3604:srfi_2d4_2escm"),(void*)f_3604},
8909 {C_text("f_3619:srfi_2d4_2escm"),(void*)f_3619},
8910 {C_text("f_3621:srfi_2d4_2escm"),(void*)f_3621},
8911 {C_text("f_3631:srfi_2d4_2escm"),(void*)f_3631},
8912 {C_text("f_3637:srfi_2d4_2escm"),(void*)f_3637},
8913 {C_text("f_3639:srfi_2d4_2escm"),(void*)f_3639},
8914 {C_text("f_3667:srfi_2d4_2escm"),(void*)f_3667},
8915 {C_text("f_3669:srfi_2d4_2escm"),(void*)f_3669},
8916 {C_text("f_3679:srfi_2d4_2escm"),(void*)f_3679},
8917 {C_text("f_3743:srfi_2d4_2escm"),(void*)f_3743},
8918 {C_text("f_3747:srfi_2d4_2escm"),(void*)f_3747},
8919 {C_text("f_3751:srfi_2d4_2escm"),(void*)f_3751},
8920 {C_text("f_3755:srfi_2d4_2escm"),(void*)f_3755},
8921 {C_text("f_3759:srfi_2d4_2escm"),(void*)f_3759},
8922 {C_text("f_3763:srfi_2d4_2escm"),(void*)f_3763},
8923 {C_text("f_3767:srfi_2d4_2escm"),(void*)f_3767},
8924 {C_text("f_3771:srfi_2d4_2escm"),(void*)f_3771},
8925 {C_text("f_3775:srfi_2d4_2escm"),(void*)f_3775},
8926 {C_text("f_3779:srfi_2d4_2escm"),(void*)f_3779},
8927 {C_text("f_3783:srfi_2d4_2escm"),(void*)f_3783},
8928 {C_text("f_3787:srfi_2d4_2escm"),(void*)f_3787},
8929 {C_text("f_3791:srfi_2d4_2escm"),(void*)f_3791},
8930 {C_text("f_3795:srfi_2d4_2escm"),(void*)f_3795},
8931 {C_text("f_3799:srfi_2d4_2escm"),(void*)f_3799},
8932 {C_text("f_3803:srfi_2d4_2escm"),(void*)f_3803},
8933 {C_text("f_3807:srfi_2d4_2escm"),(void*)f_3807},
8934 {C_text("f_3811:srfi_2d4_2escm"),(void*)f_3811},
8935 {C_text("f_3815:srfi_2d4_2escm"),(void*)f_3815},
8936 {C_text("f_3819:srfi_2d4_2escm"),(void*)f_3819},
8937 {C_text("f_3823:srfi_2d4_2escm"),(void*)f_3823},
8938 {C_text("f_3827:srfi_2d4_2escm"),(void*)f_3827},
8939 {C_text("f_3831:srfi_2d4_2escm"),(void*)f_3831},
8940 {C_text("f_3835:srfi_2d4_2escm"),(void*)f_3835},
8941 {C_text("f_3839:srfi_2d4_2escm"),(void*)f_3839},
8942 {C_text("f_3843:srfi_2d4_2escm"),(void*)f_3843},
8943 {C_text("f_3847:srfi_2d4_2escm"),(void*)f_3847},
8944 {C_text("f_3851:srfi_2d4_2escm"),(void*)f_3851},
8945 {C_text("f_3855:srfi_2d4_2escm"),(void*)f_3855},
8946 {C_text("f_3859:srfi_2d4_2escm"),(void*)f_3859},
8947 {C_text("f_3864:srfi_2d4_2escm"),(void*)f_3864},
8948 {C_text("f_3873:srfi_2d4_2escm"),(void*)f_3873},
8949 {C_text("f_3892:srfi_2d4_2escm"),(void*)f_3892},
8950 {C_text("f_3903:srfi_2d4_2escm"),(void*)f_3903},
8951 {C_text("f_3924:srfi_2d4_2escm"),(void*)f_3924},
8952 {C_text("f_3936:srfi_2d4_2escm"),(void*)f_3936},
8953 {C_text("f_3939:srfi_2d4_2escm"),(void*)f_3939},
8954 {C_text("f_3949:srfi_2d4_2escm"),(void*)f_3949},
8955 {C_text("f_3998:srfi_2d4_2escm"),(void*)f_3998},
8956 {C_text("f_4013:srfi_2d4_2escm"),(void*)f_4013},
8957 {C_text("f_4032:srfi_2d4_2escm"),(void*)f_4032},
8958 {C_text("f_4037:srfi_2d4_2escm"),(void*)f_4037},
8959 {C_text("f_4056:srfi_2d4_2escm"),(void*)f_4056},
8960 {C_text("f_4062:srfi_2d4_2escm"),(void*)f_4062},
8961 {C_text("f_4083:srfi_2d4_2escm"),(void*)f_4083},
8962 {C_text("f_4089:srfi_2d4_2escm"),(void*)f_4089},
8963 {C_text("f_4095:srfi_2d4_2escm"),(void*)f_4095},
8964 {C_text("f_4101:srfi_2d4_2escm"),(void*)f_4101},
8965 {C_text("f_4107:srfi_2d4_2escm"),(void*)f_4107},
8966 {C_text("f_4113:srfi_2d4_2escm"),(void*)f_4113},
8967 {C_text("f_4119:srfi_2d4_2escm"),(void*)f_4119},
8968 {C_text("f_4125:srfi_2d4_2escm"),(void*)f_4125},
8969 {C_text("f_4131:srfi_2d4_2escm"),(void*)f_4131},
8970 {C_text("f_4137:srfi_2d4_2escm"),(void*)f_4137},
8971 {C_text("f_4143:srfi_2d4_2escm"),(void*)f_4143},
8972 {C_text("f_4173:srfi_2d4_2escm"),(void*)f_4173},
8973 {C_text("f_4192:srfi_2d4_2escm"),(void*)f_4192},
8974 {C_text("f_4195:srfi_2d4_2escm"),(void*)f_4195},
8975 {C_text("f_4208:srfi_2d4_2escm"),(void*)f_4208},
8976 {C_text("f_4218:srfi_2d4_2escm"),(void*)f_4218},
8977 {C_text("f_4243:srfi_2d4_2escm"),(void*)f_4243},
8978 {C_text("f_4312:srfi_2d4_2escm"),(void*)f_4312},
8979 {C_text("f_4331:srfi_2d4_2escm"),(void*)f_4331},
8980 {C_text("f_4337:srfi_2d4_2escm"),(void*)f_4337},
8981 {C_text("f_4392:srfi_2d4_2escm"),(void*)f_4392},
8982 {C_text("f_4411:srfi_2d4_2escm"),(void*)f_4411},
8983 {C_text("f_4414:srfi_2d4_2escm"),(void*)f_4414},
8984 {C_text("f_4453:srfi_2d4_2escm"),(void*)f_4453},
8985 {C_text("f_4455:srfi_2d4_2escm"),(void*)f_4455},
8986 {C_text("f_4458:srfi_2d4_2escm"),(void*)f_4458},
8987 {C_text("f_4461:srfi_2d4_2escm"),(void*)f_4461},
8988 {C_text("f_4464:srfi_2d4_2escm"),(void*)f_4464},
8989 {C_text("f_4467:srfi_2d4_2escm"),(void*)f_4467},
8990 {C_text("f_4470:srfi_2d4_2escm"),(void*)f_4470},
8991 {C_text("f_4473:srfi_2d4_2escm"),(void*)f_4473},
8992 {C_text("f_4476:srfi_2d4_2escm"),(void*)f_4476},
8993 {C_text("f_4479:srfi_2d4_2escm"),(void*)f_4479},
8994 {C_text("f_4482:srfi_2d4_2escm"),(void*)f_4482},
8995 {C_text("toplevel:srfi_2d4_2escm"),(void*)C_srfi_2d4_toplevel},
8996 {NULL,NULL}};
8997 #endif
8998
create_ptable(void)8999 static C_PTABLE_ENTRY *create_ptable(void){
9000 #ifdef C_ENABLE_PTABLES
9001 return ptable;
9002 #else
9003 return NULL;
9004 #endif
9005 }
9006
9007 /*
9008 o|hiding unexported module binding: srfi-4#d
9009 o|hiding unexported module binding: srfi-4#define-alias
9010 o|hiding unexported module binding: srfi-4#list->NNNvector
9011 o|hiding unexported module binding: srfi-4#NNNvector->list
9012 o|hiding unexported module binding: srfi-4#pack
9013 o|hiding unexported module binding: srfi-4#pack-copy
9014 o|hiding unexported module binding: srfi-4#unpack
9015 o|hiding unexported module binding: srfi-4#unpack-copy
9016 o|hiding unexported module binding: srfi-4#subnvector
9017 o|eliminated procedure checks: 32
9018 o|specializations:
9019 o| 2 (##sys#check-input-port * * *)
9020 o| 1 (##sys#check-output-port * * *)
9021 o| 1 (scheme#assq * (list-of pair))
9022 o| 1 (scheme#memq * list)
9023 o| 3 (chicken.base#sub1 *)
9024 o| 3 (scheme#- *)
9025 o| 8 (chicken.bitwise#integer-length *)
9026 (o e)|safe calls: 416
9027 (o e)|assignments to immediate values: 1
9028 o|dropping redundant toplevel assignment: srfi-4#release-number-vector
9029 o|dropping redundant toplevel assignment: srfi-4#make-u8vector
9030 o|dropping redundant toplevel assignment: srfi-4#make-s8vector
9031 o|dropping redundant toplevel assignment: srfi-4#make-u16vector
9032 o|dropping redundant toplevel assignment: srfi-4#make-s16vector
9033 o|dropping redundant toplevel assignment: srfi-4#make-u32vector
9034 o|dropping redundant toplevel assignment: srfi-4#make-u64vector
9035 o|dropping redundant toplevel assignment: srfi-4#make-s32vector
9036 o|dropping redundant toplevel assignment: srfi-4#make-s64vector
9037 o|dropping redundant toplevel assignment: srfi-4#make-f32vector
9038 o|dropping redundant toplevel assignment: srfi-4#make-f64vector
9039 o|safe globals: (srfi-4#f64vector-set! srfi-4#f32vector-set! srfi-4#s64vector-set! srfi-4#u64vector-set! srfi-4#s32vector-set! srfi-4#u32vector-set! srfi-4#s16vector-set! srfi-4#u16vector-set! srfi-4#s8vector-set! srfi-4#u8vector-set! srfi-4#f64vector-length srfi-4#f32vector-length srfi-4#s64vector-length srfi-4#u64vector-length srfi-4#s32vector-length srfi-4#u32vector-length srfi-4#s16vector-length srfi-4#u16vector-length srfi-4#s8vector-length srfi-4#u8vector-length)
9040 o|inlining procedure: k1643
9041 o|contracted procedure: "(srfi-4.scm:278) ext-alloc220"
9042 o|inlining procedure: k1643
9043 o|inlining procedure: k1670
9044 o|inlining procedure: "(srfi-4.scm:288) ext-free226"
9045 o|inlining procedure: k1670
9046 o|inlining procedure: k1709
9047 o|inlining procedure: k1709
9048 o|inlining procedure: k1745
9049 o|inlining procedure: k1745
9050 o|contracted procedure: "(srfi-4.scm:298) g267268"
9051 o|inlining procedure: k1720
9052 o|inlining procedure: k1720
9053 o|inlining procedure: k1825
9054 o|inlining procedure: k1825
9055 o|inlining procedure: k1861
9056 o|inlining procedure: k1861
9057 o|contracted procedure: "(srfi-4.scm:310) g301302"
9058 o|inlining procedure: k1836
9059 o|inlining procedure: k1836
9060 o|inlining procedure: k1941
9061 o|inlining procedure: k1941
9062 o|inlining procedure: k1977
9063 o|inlining procedure: k1977
9064 o|contracted procedure: "(srfi-4.scm:322) g335336"
9065 o|inlining procedure: k1952
9066 o|inlining procedure: k1952
9067 o|inlining procedure: k2057
9068 o|inlining procedure: k2057
9069 o|inlining procedure: k2103
9070 o|inlining procedure: k2103
9071 o|contracted procedure: "(srfi-4.scm:334) g369370"
9072 o|inlining procedure: k2068
9073 o|inlining procedure: k2068
9074 o|inlining procedure: k2183
9075 o|inlining procedure: k2183
9076 o|inlining procedure: k2219
9077 o|inlining procedure: k2219
9078 o|contracted procedure: "(srfi-4.scm:346) g403404"
9079 o|inlining procedure: k2194
9080 o|inlining procedure: k2194
9081 o|inlining procedure: k2299
9082 o|inlining procedure: k2299
9083 o|inlining procedure: k2335
9084 o|inlining procedure: k2335
9085 o|contracted procedure: "(srfi-4.scm:358) g437438"
9086 o|inlining procedure: k2310
9087 o|inlining procedure: k2310
9088 o|inlining procedure: k2415
9089 o|inlining procedure: k2415
9090 o|inlining procedure: k2461
9091 o|inlining procedure: k2461
9092 o|contracted procedure: "(srfi-4.scm:370) g471472"
9093 o|inlining procedure: k2426
9094 o|inlining procedure: k2426
9095 o|inlining procedure: k2541
9096 o|inlining procedure: k2541
9097 o|inlining procedure: k2587
9098 o|inlining procedure: k2587
9099 o|contracted procedure: "(srfi-4.scm:382) g505506"
9100 o|inlining procedure: k2552
9101 o|inlining procedure: k2552
9102 o|inlining procedure: k2667
9103 o|inlining procedure: k2667
9104 o|inlining procedure: k2697
9105 o|inlining procedure: k2697
9106 o|contracted procedure: "(srfi-4.scm:394) g539540"
9107 o|inlining procedure: k2675
9108 o|inlining procedure: k2675
9109 o|inlining procedure: k2778
9110 o|inlining procedure: k2778
9111 o|inlining procedure: k2808
9112 o|inlining procedure: k2808
9113 o|contracted procedure: "(srfi-4.scm:408) g575576"
9114 o|inlining procedure: k2786
9115 o|inlining procedure: k2786
9116 o|inlining procedure: k2877
9117 o|inlining procedure: k2877
9118 o|inlining procedure: k2913
9119 o|inlining procedure: k2913
9120 o|inlining procedure: k2949
9121 o|inlining procedure: k2949
9122 o|inlining procedure: k2985
9123 o|inlining procedure: k2985
9124 o|inlining procedure: k3021
9125 o|inlining procedure: k3021
9126 o|inlining procedure: k3057
9127 o|inlining procedure: k3057
9128 o|inlining procedure: k3093
9129 o|inlining procedure: k3093
9130 o|inlining procedure: k3129
9131 o|inlining procedure: k3129
9132 o|inlining procedure: k3165
9133 o|inlining procedure: k3165
9134 o|inlining procedure: k3201
9135 o|inlining procedure: k3201
9136 o|inlining procedure: k3294
9137 o|inlining procedure: k3294
9138 o|inlining procedure: k3324
9139 o|inlining procedure: k3324
9140 o|inlining procedure: k3354
9141 o|inlining procedure: k3354
9142 o|inlining procedure: k3384
9143 o|inlining procedure: k3384
9144 o|inlining procedure: k3414
9145 o|inlining procedure: k3414
9146 o|inlining procedure: k3443
9147 o|inlining procedure: k3443
9148 o|inlining procedure: k3472
9149 o|inlining procedure: k3472
9150 o|inlining procedure: k3501
9151 o|inlining procedure: k3501
9152 o|inlining procedure: k3530
9153 o|inlining procedure: k3530
9154 o|inlining procedure: k3559
9155 o|inlining procedure: k3559
9156 o|inlining procedure: k3647
9157 o|inlining procedure: k3647
9158 o|inlining procedure: k3680
9159 o|inlining procedure: k3680
9160 o|substituted constant variable: a3870
9161 o|inlining procedure: k3866
9162 o|inlining procedure: k3889
9163 o|inlining procedure: k3889
9164 o|inlining procedure: k3866
9165 o|inlining procedure: k3931
9166 o|inlining procedure: k3931
9167 o|contracted procedure: "(srfi-4.scm:669) g10001001"
9168 o|inlining procedure: k4038
9169 o|inlining procedure: k4038
9170 o|contracted procedure: "(srfi-4.scm:668) g991992"
9171 o|inlining procedure: k4014
9172 o|inlining procedure: k4014
9173 o|substituted constant variable: a4167
9174 o|substituted constant variable: a4168
9175 o|inlining procedure: k4203
9176 o|inlining procedure: k4203
9177 o|inlining procedure: k4220
9178 o|inlining procedure: k4220
9179 o|inlining procedure: k4229
9180 o|inlining procedure: k4229
9181 o|contracted procedure: "(srfi-4.scm:693) g10891090"
9182 o|inlining procedure: k4244
9183 o|inlining procedure: k4244
9184 o|contracted procedure: "(srfi-4.scm:692) g10771078"
9185 o|inlining procedure: k4174
9186 o|inlining procedure: k4174
9187 o|inlining procedure: k4272
9188 o|inlining procedure: k4272
9189 o|substituted constant variable: a4327
9190 o|substituted constant variable: a4328
9191 o|substituted constant variable: a4407
9192 o|substituted constant variable: a4408
9193 o|inlining procedure: k4415
9194 o|inlining procedure: k4415
9195 o|simplifications: ((if . 1))
9196 o|replaced variables: 675
9197 o|removed binding forms: 305
9198 o|substituted constant variable: loc271
9199 o|substituted constant variable: len270
9200 o|folded constant expression: (scheme#expt (quote 2) (quote 8))
9201 o|substituted constant variable: len270
9202 o|substituted constant variable: loc271
9203 o|substituted constant variable: loc305
9204 o|substituted constant variable: len304
9205 o|folded constant expression: (scheme#expt (quote 2) (quote 8))
9206 o|substituted constant variable: len304
9207 o|substituted constant variable: loc305
9208 o|substituted constant variable: loc339
9209 o|substituted constant variable: len338
9210 o|folded constant expression: (scheme#expt (quote 2) (quote 16))
9211 o|substituted constant variable: len338
9212 o|substituted constant variable: loc339
9213 o|substituted constant variable: loc373
9214 o|substituted constant variable: len372
9215 o|folded constant expression: (scheme#expt (quote 2) (quote 16))
9216 o|substituted constant variable: len372
9217 o|folded constant expression: (scheme#expt (quote 2) (quote 16))
9218 o|substituted constant variable: len372
9219 o|substituted constant variable: loc373
9220 o|substituted constant variable: loc407
9221 o|substituted constant variable: len406
9222 o|folded constant expression: (scheme#expt (quote 2) (quote 32))
9223 o|substituted constant variable: len406
9224 o|substituted constant variable: loc407
9225 o|substituted constant variable: loc441
9226 o|substituted constant variable: len440
9227 o|folded constant expression: (scheme#expt (quote 2) (quote 64))
9228 o|substituted constant variable: len440
9229 o|substituted constant variable: loc441
9230 o|substituted constant variable: loc475
9231 o|substituted constant variable: len474
9232 o|folded constant expression: (scheme#expt (quote 2) (quote 32))
9233 o|substituted constant variable: len474
9234 o|folded constant expression: (scheme#expt (quote 2) (quote 32))
9235 o|substituted constant variable: len474
9236 o|substituted constant variable: loc475
9237 o|substituted constant variable: loc509
9238 o|substituted constant variable: len508
9239 o|folded constant expression: (scheme#expt (quote 2) (quote 64))
9240 o|substituted constant variable: len508
9241 o|folded constant expression: (scheme#expt (quote 2) (quote 64))
9242 o|substituted constant variable: len508
9243 o|substituted constant variable: loc509
9244 o|substituted constant variable: loc542
9245 o|substituted constant variable: loc578
9246 o|substituted constant variable: r32954570
9247 o|substituted constant variable: r33254572
9248 o|substituted constant variable: r33554574
9249 o|substituted constant variable: r33854576
9250 o|substituted constant variable: r34154578
9251 o|substituted constant variable: r34444580
9252 o|substituted constant variable: r34734582
9253 o|substituted constant variable: r35024584
9254 o|substituted constant variable: r35314586
9255 o|substituted constant variable: r35604588
9256 o|substituted constant variable: from1003
9257 o|substituted constant variable: from1003
9258 o|substituted constant variable: from994
9259 o|substituted constant variable: from994
9260 o|substituted constant variable: loc1094
9261 o|substituted constant variable: loc1094
9262 o|substituted constant variable: loc1082
9263 o|substituted constant variable: from1080
9264 o|substituted constant variable: from1080
9265 o|substituted constant variable: loc1082
9266 o|replaced variables: 133
9267 o|removed binding forms: 511
9268 o|inlining procedure: k1646
9269 o|contracted procedure: k1731
9270 o|inlining procedure: k1752
9271 o|inlining procedure: k1752
9272 o|contracted procedure: k1847
9273 o|inlining procedure: k1868
9274 o|inlining procedure: k1868
9275 o|contracted procedure: k1963
9276 o|inlining procedure: k1984
9277 o|inlining procedure: k1984
9278 o|contracted procedure: k2080
9279 o|contracted procedure: k2085
9280 o|inlining procedure: k2110
9281 o|inlining procedure: k2110
9282 o|contracted procedure: k2205
9283 o|inlining procedure: k2226
9284 o|inlining procedure: k2226
9285 o|contracted procedure: k2321
9286 o|inlining procedure: k2342
9287 o|inlining procedure: k2342
9288 o|contracted procedure: k2438
9289 o|contracted procedure: k2443
9290 o|inlining procedure: k2468
9291 o|inlining procedure: k2468
9292 o|contracted procedure: k2564
9293 o|contracted procedure: k2569
9294 o|inlining procedure: k2594
9295 o|inlining procedure: k2594
9296 o|inlining procedure: k2705
9297 o|inlining procedure: k2705
9298 o|inlining procedure: k2816
9299 o|inlining procedure: k2816
9300 o|inlining procedure: k4344
9301 o|inlining procedure: k4344
9302 o|removed binding forms: 123
9303 o|substituted constant variable: r1732
9304 o|substituted constant variable: r17534769
9305 o|substituted constant variable: r1848
9306 o|substituted constant variable: r18694773
9307 o|substituted constant variable: r1964
9308 o|substituted constant variable: r19854777
9309 o|substituted constant variable: r2081
9310 o|substituted constant variable: r2086
9311 o|substituted constant variable: r21114781
9312 o|substituted constant variable: r2206
9313 o|substituted constant variable: r22274785
9314 o|substituted constant variable: r2322
9315 o|substituted constant variable: r23434789
9316 o|substituted constant variable: r2439
9317 o|substituted constant variable: r2444
9318 o|substituted constant variable: r24694793
9319 o|substituted constant variable: r2565
9320 o|substituted constant variable: r2570
9321 o|substituted constant variable: r25954797
9322 o|substituted constant variable: r27064801
9323 o|substituted constant variable: r28174805
9324 o|replaced variables: 10
9325 o|removed binding forms: 14
9326 o|removed conditional forms: 10
9327 o|removed binding forms: 31
9328 o|simplifications: ((if . 96) (let . 47) (##core#call . 313))
9329 o| call simplifications:
9330 o| scheme#list
9331 o| scheme#eof-object?
9332 o| chicken.fixnum#fx= 2
9333 o| chicken.fixnum#fx<= 5
9334 o| chicken.fixnum#fx* 2
9335 o| ##sys#list 11
9336 o| scheme#cadr
9337 o| scheme#caddr
9338 o| scheme#symbol?
9339 o| scheme#memq
9340 o| ##sys#check-byte-vector 2
9341 o| scheme#eq? 6
9342 o| ##sys#size 5
9343 o| ##sys#slot 10
9344 o| ##sys#check-structure 15
9345 o| chicken.fixnum#fx>= 10
9346 o| chicken.fixnum#fx+ 16
9347 o| scheme#cons 10
9348 o| srfi-4#f64vector-set!
9349 o| srfi-4#f32vector-set!
9350 o| srfi-4#s64vector-set!
9351 o| srfi-4#u64vector-set!
9352 o| srfi-4#s32vector-set!
9353 o| srfi-4#u32vector-set!
9354 o| srfi-4#s16vector-set!
9355 o| srfi-4#u16vector-set!
9356 o| srfi-4#s8vector-set!
9357 o| ##sys#check-list 10
9358 o| srfi-4#u8vector-set!
9359 o| chicken.fixnum#fx- 5
9360 o| scheme#car 37
9361 o| scheme#null? 74
9362 o| scheme#cdr 37
9363 o| ##sys#make-structure 14
9364 o| scheme#not 11
9365 o| chicken.fixnum#fx> 8
9366 o| chicken.fixnum#fx< 5
9367 o| chicken.fixnum#fx*?
9368 o| ##sys#foreign-unsigned-ranged-integer-argument
9369 o|contracted procedure: k1637
9370 o|contracted procedure: k1623
9371 o|contracted procedure: k1661
9372 o|contracted procedure: k1792
9373 o|contracted procedure: k1685
9374 o|contracted procedure: k1786
9375 o|contracted procedure: k1688
9376 o|contracted procedure: k1780
9377 o|contracted procedure: k1691
9378 o|contracted procedure: k1774
9379 o|contracted procedure: k1694
9380 o|contracted procedure: k1768
9381 o|contracted procedure: k1697
9382 o|contracted procedure: k1762
9383 o|contracted procedure: k1700
9384 o|contracted procedure: k1703
9385 o|contracted procedure: k1712
9386 o|contracted procedure: k1723
9387 o|contracted procedure: k1908
9388 o|contracted procedure: k1801
9389 o|contracted procedure: k1902
9390 o|contracted procedure: k1804
9391 o|contracted procedure: k1896
9392 o|contracted procedure: k1807
9393 o|contracted procedure: k1890
9394 o|contracted procedure: k1810
9395 o|contracted procedure: k1884
9396 o|contracted procedure: k1813
9397 o|contracted procedure: k1878
9398 o|contracted procedure: k1816
9399 o|contracted procedure: k1819
9400 o|contracted procedure: k1828
9401 o|contracted procedure: k1839
9402 o|contracted procedure: k2024
9403 o|contracted procedure: k1917
9404 o|contracted procedure: k2018
9405 o|contracted procedure: k1920
9406 o|contracted procedure: k2012
9407 o|contracted procedure: k1923
9408 o|contracted procedure: k2006
9409 o|contracted procedure: k1926
9410 o|contracted procedure: k2000
9411 o|contracted procedure: k1929
9412 o|contracted procedure: k1994
9413 o|contracted procedure: k1932
9414 o|contracted procedure: k1935
9415 o|contracted procedure: k1944
9416 o|contracted procedure: k1955
9417 o|contracted procedure: k2150
9418 o|contracted procedure: k2033
9419 o|contracted procedure: k2144
9420 o|contracted procedure: k2036
9421 o|contracted procedure: k2138
9422 o|contracted procedure: k2039
9423 o|contracted procedure: k2132
9424 o|contracted procedure: k2042
9425 o|contracted procedure: k2126
9426 o|contracted procedure: k2045
9427 o|contracted procedure: k2120
9428 o|contracted procedure: k2048
9429 o|contracted procedure: k2051
9430 o|contracted procedure: k2060
9431 o|contracted procedure: k2091
9432 o|contracted procedure: k2071
9433 o|contracted procedure: k2266
9434 o|contracted procedure: k2159
9435 o|contracted procedure: k2260
9436 o|contracted procedure: k2162
9437 o|contracted procedure: k2254
9438 o|contracted procedure: k2165
9439 o|contracted procedure: k2248
9440 o|contracted procedure: k2168
9441 o|contracted procedure: k2242
9442 o|contracted procedure: k2171
9443 o|contracted procedure: k2236
9444 o|contracted procedure: k2174
9445 o|contracted procedure: k2177
9446 o|contracted procedure: k2186
9447 o|contracted procedure: k2197
9448 o|contracted procedure: k2382
9449 o|contracted procedure: k2275
9450 o|contracted procedure: k2376
9451 o|contracted procedure: k2278
9452 o|contracted procedure: k2370
9453 o|contracted procedure: k2281
9454 o|contracted procedure: k2364
9455 o|contracted procedure: k2284
9456 o|contracted procedure: k2358
9457 o|contracted procedure: k2287
9458 o|contracted procedure: k2352
9459 o|contracted procedure: k2290
9460 o|contracted procedure: k2293
9461 o|contracted procedure: k2302
9462 o|contracted procedure: k2313
9463 o|contracted procedure: k2508
9464 o|contracted procedure: k2391
9465 o|contracted procedure: k2502
9466 o|contracted procedure: k2394
9467 o|contracted procedure: k2496
9468 o|contracted procedure: k2397
9469 o|contracted procedure: k2490
9470 o|contracted procedure: k2400
9471 o|contracted procedure: k2484
9472 o|contracted procedure: k2403
9473 o|contracted procedure: k2478
9474 o|contracted procedure: k2406
9475 o|contracted procedure: k2409
9476 o|contracted procedure: k2418
9477 o|contracted procedure: k2449
9478 o|contracted procedure: k2429
9479 o|contracted procedure: k2634
9480 o|contracted procedure: k2517
9481 o|contracted procedure: k2628
9482 o|contracted procedure: k2520
9483 o|contracted procedure: k2622
9484 o|contracted procedure: k2523
9485 o|contracted procedure: k2616
9486 o|contracted procedure: k2526
9487 o|contracted procedure: k2610
9488 o|contracted procedure: k2529
9489 o|contracted procedure: k2604
9490 o|contracted procedure: k2532
9491 o|contracted procedure: k2535
9492 o|contracted procedure: k2544
9493 o|contracted procedure: k2575
9494 o|contracted procedure: k2555
9495 o|contracted procedure: k2745
9496 o|contracted procedure: k2643
9497 o|contracted procedure: k2739
9498 o|contracted procedure: k2646
9499 o|contracted procedure: k2733
9500 o|contracted procedure: k2649
9501 o|contracted procedure: k2727
9502 o|contracted procedure: k2652
9503 o|contracted procedure: k2721
9504 o|contracted procedure: k2655
9505 o|contracted procedure: k2715
9506 o|contracted procedure: k2658
9507 o|contracted procedure: k2661
9508 o|contracted procedure: k2670
9509 o|contracted procedure: k2678
9510 o|contracted procedure: k2856
9511 o|contracted procedure: k2754
9512 o|contracted procedure: k2850
9513 o|contracted procedure: k2757
9514 o|contracted procedure: k2844
9515 o|contracted procedure: k2760
9516 o|contracted procedure: k2838
9517 o|contracted procedure: k2763
9518 o|contracted procedure: k2832
9519 o|contracted procedure: k2766
9520 o|contracted procedure: k2826
9521 o|contracted procedure: k2769
9522 o|contracted procedure: k2772
9523 o|contracted procedure: k2781
9524 o|contracted procedure: k2789
9525 o|contracted procedure: k2865
9526 o|contracted procedure: k2888
9527 o|inlining procedure: k2880
9528 o|contracted procedure: k2901
9529 o|contracted procedure: k2924
9530 o|inlining procedure: k2916
9531 o|contracted procedure: k2937
9532 o|contracted procedure: k2960
9533 o|inlining procedure: k2952
9534 o|contracted procedure: k2973
9535 o|contracted procedure: k2996
9536 o|inlining procedure: k2988
9537 o|contracted procedure: k3009
9538 o|contracted procedure: k3032
9539 o|inlining procedure: k3024
9540 o|contracted procedure: k3045
9541 o|contracted procedure: k3068
9542 o|inlining procedure: k3060
9543 o|contracted procedure: k3081
9544 o|contracted procedure: k3104
9545 o|inlining procedure: k3096
9546 o|contracted procedure: k3117
9547 o|contracted procedure: k3140
9548 o|inlining procedure: k3132
9549 o|contracted procedure: k3153
9550 o|contracted procedure: k3176
9551 o|inlining procedure: k3168
9552 o|contracted procedure: k3189
9553 o|contracted procedure: k3212
9554 o|inlining procedure: k3204
9555 o|contracted procedure: k3285
9556 o|contracted procedure: k3297
9557 o|contracted procedure: k3309
9558 o|contracted procedure: k3315
9559 o|contracted procedure: k3327
9560 o|contracted procedure: k3339
9561 o|contracted procedure: k3345
9562 o|contracted procedure: k3357
9563 o|contracted procedure: k3369
9564 o|contracted procedure: k3375
9565 o|contracted procedure: k3387
9566 o|contracted procedure: k3399
9567 o|contracted procedure: k3405
9568 o|contracted procedure: k3417
9569 o|contracted procedure: k3428
9570 o|contracted procedure: k3434
9571 o|contracted procedure: k3446
9572 o|contracted procedure: k3457
9573 o|contracted procedure: k3463
9574 o|contracted procedure: k3475
9575 o|contracted procedure: k3486
9576 o|contracted procedure: k3492
9577 o|contracted procedure: k3504
9578 o|contracted procedure: k3515
9579 o|contracted procedure: k3521
9580 o|contracted procedure: k3533
9581 o|contracted procedure: k3544
9582 o|contracted procedure: k3550
9583 o|contracted procedure: k3562
9584 o|contracted procedure: k3573
9585 o|contracted procedure: k3612
9586 o|contracted procedure: k3623
9587 o|contracted procedure: k3626
9588 o|contracted procedure: k3633
9589 o|contracted procedure: k3641
9590 o|contracted procedure: k3644
9591 o|contracted procedure: k3650
9592 o|contracted procedure: k3653
9593 o|contracted procedure: k3671
9594 o|contracted procedure: k3674
9595 o|contracted procedure: k3683
9596 o|contracted procedure: k3686
9597 o|contracted procedure: k3861
9598 o|contracted procedure: k3917
9599 o|contracted procedure: k3874
9600 o|contracted procedure: k3880
9601 o|contracted procedure: k3883
9602 o|contracted procedure: k3886
9603 o|contracted procedure: k3905
9604 o|contracted procedure: k3894
9605 o|contracted procedure: k3958
9606 o|contracted procedure: k3962
9607 o|contracted procedure: k3966
9608 o|contracted procedure: k3970
9609 o|contracted procedure: k3974
9610 o|contracted procedure: k3978
9611 o|contracted procedure: k3982
9612 o|contracted procedure: k3986
9613 o|contracted procedure: k3990
9614 o|contracted procedure: k3994
9615 o|contracted procedure: k3928
9616 o|contracted procedure: k3944
9617 o|contracted procedure: k3951
9618 o|contracted procedure: k4000
9619 o|contracted procedure: k4003
9620 o|contracted procedure: k4006
9621 o|contracted procedure: k4071
9622 o|contracted procedure: k4057
9623 o|contracted procedure: k4063
9624 o|contracted procedure: k4067
9625 o|contracted procedure: k4075
9626 o|contracted procedure: k4048
9627 o|contracted procedure: k4041
9628 o|contracted procedure: k4079
9629 o|contracted procedure: k4024
9630 o|contracted procedure: k4017
9631 o|contracted procedure: k4305
9632 o|contracted procedure: k4145
9633 o|contracted procedure: k4299
9634 o|contracted procedure: k4148
9635 o|contracted procedure: k4293
9636 o|contracted procedure: k4151
9637 o|contracted procedure: k4287
9638 o|contracted procedure: k4154
9639 o|contracted procedure: k4281
9640 o|contracted procedure: k4157
9641 o|contracted procedure: k4275
9642 o|contracted procedure: k4160
9643 o|contracted procedure: k4163
9644 o|contracted procedure: k4236
9645 o|contracted procedure: k4196
9646 o|inlining procedure: k4203
9647 o|inlining procedure: k4203
9648 o|contracted procedure: k4223
9649 o|contracted procedure: k4226
9650 o|contracted procedure: k4264
9651 o|contracted procedure: k4254
9652 o|contracted procedure: k4247
9653 o|contracted procedure: k4268
9654 o|contracted procedure: k4184
9655 o|contracted procedure: k4177
9656 o|contracted procedure: k4385
9657 o|contracted procedure: k4314
9658 o|contracted procedure: k4379
9659 o|contracted procedure: k4317
9660 o|contracted procedure: k4373
9661 o|contracted procedure: k4320
9662 o|contracted procedure: k4367
9663 o|contracted procedure: k4323
9664 o|contracted procedure: k4332
9665 o|contracted procedure: k4338
9666 o|contracted procedure: k4341
9667 o|contracted procedure: k4354
9668 o|contracted procedure: k4361
9669 o|contracted procedure: k4445
9670 o|contracted procedure: k4394
9671 o|contracted procedure: k4439
9672 o|contracted procedure: k4397
9673 o|contracted procedure: k4433
9674 o|contracted procedure: k4400
9675 o|contracted procedure: k4427
9676 o|contracted procedure: k4403
9677 o|contracted procedure: k4418
9678 o|simplifications: ((if . 1) (let . 43))
9679 o|removed binding forms: 297
9680 (o x)|known list op on rest arg sublist: ##core#rest-null? rest250252 0
9681 (o x)|known list op on rest arg sublist: ##core#rest-car rest250252 0
9682 (o x)|known list op on rest arg sublist: ##core#rest-null? rest250252 0
9683 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest250252 0
9684 (o x)|known list op on rest arg sublist: ##core#rest-null? rest284286 0
9685 (o x)|known list op on rest arg sublist: ##core#rest-car rest284286 0
9686 (o x)|known list op on rest arg sublist: ##core#rest-null? rest284286 0
9687 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest284286 0
9688 (o x)|known list op on rest arg sublist: ##core#rest-null? rest318320 0
9689 (o x)|known list op on rest arg sublist: ##core#rest-car rest318320 0
9690 (o x)|known list op on rest arg sublist: ##core#rest-null? rest318320 0
9691 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest318320 0
9692 (o x)|known list op on rest arg sublist: ##core#rest-null? rest352354 0
9693 (o x)|known list op on rest arg sublist: ##core#rest-car rest352354 0
9694 (o x)|known list op on rest arg sublist: ##core#rest-null? rest352354 0
9695 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest352354 0
9696 (o x)|known list op on rest arg sublist: ##core#rest-null? rest386388 0
9697 (o x)|known list op on rest arg sublist: ##core#rest-car rest386388 0
9698 (o x)|known list op on rest arg sublist: ##core#rest-null? rest386388 0
9699 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest386388 0
9700 (o x)|known list op on rest arg sublist: ##core#rest-null? rest420422 0
9701 (o x)|known list op on rest arg sublist: ##core#rest-car rest420422 0
9702 (o x)|known list op on rest arg sublist: ##core#rest-null? rest420422 0
9703 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest420422 0
9704 (o x)|known list op on rest arg sublist: ##core#rest-null? rest454456 0
9705 (o x)|known list op on rest arg sublist: ##core#rest-car rest454456 0
9706 (o x)|known list op on rest arg sublist: ##core#rest-null? rest454456 0
9707 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest454456 0
9708 (o x)|known list op on rest arg sublist: ##core#rest-null? rest488490 0
9709 (o x)|known list op on rest arg sublist: ##core#rest-car rest488490 0
9710 (o x)|known list op on rest arg sublist: ##core#rest-null? rest488490 0
9711 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest488490 0
9712 (o x)|known list op on rest arg sublist: ##core#rest-null? rest522524 0
9713 (o x)|known list op on rest arg sublist: ##core#rest-car rest522524 0
9714 (o x)|known list op on rest arg sublist: ##core#rest-null? rest522524 0
9715 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest522524 0
9716 (o x)|known list op on rest arg sublist: ##core#rest-null? rest558560 0
9717 (o x)|known list op on rest arg sublist: ##core#rest-car rest558560 0
9718 (o x)|known list op on rest arg sublist: ##core#rest-null? rest558560 0
9719 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest558560 0
9720 (o x)|known list op on rest arg sublist: ##core#rest-null? rest10611063 0
9721 (o x)|known list op on rest arg sublist: ##core#rest-car rest10611063 0
9722 (o x)|known list op on rest arg sublist: ##core#rest-null? rest10611063 0
9723 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest10611063 0
9724 (o x)|known list op on rest arg sublist: ##core#rest-null? rest11151118 0
9725 (o x)|known list op on rest arg sublist: ##core#rest-car rest11151118 0
9726 (o x)|known list op on rest arg sublist: ##core#rest-null? rest11151118 0
9727 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest11151118 0
9728 o|contracted procedure: k4350
9729 (o x)|known list op on rest arg sublist: ##core#rest-null? rest11411142 0
9730 (o x)|known list op on rest arg sublist: ##core#rest-car rest11411142 0
9731 (o x)|known list op on rest arg sublist: ##core#rest-null? rest11411142 0
9732 (o x)|known list op on rest arg sublist: ##core#rest-cdr rest11411142 0
9733 o|inlining procedure: "(srfi-4.scm:577) srfi-4#pack"
9734 o|inlining procedure: "(srfi-4.scm:576) srfi-4#pack"
9735 o|inlining procedure: "(srfi-4.scm:575) srfi-4#pack"
9736 o|inlining procedure: "(srfi-4.scm:574) srfi-4#pack"
9737 o|inlining procedure: "(srfi-4.scm:573) srfi-4#pack"
9738 o|inlining procedure: "(srfi-4.scm:572) srfi-4#pack"
9739 o|inlining procedure: "(srfi-4.scm:571) srfi-4#pack"
9740 o|inlining procedure: "(srfi-4.scm:570) srfi-4#pack"
9741 o|inlining procedure: "(srfi-4.scm:569) srfi-4#pack"
9742 o|inlining procedure: "(srfi-4.scm:568) srfi-4#pack"
9743 o|simplifications: ((let . 2))
9744 o|removed binding forms: 2
9745 (o x)|known list op on rest arg sublist: ##core#rest-null? r1689 1
9746 (o x)|known list op on rest arg sublist: ##core#rest-car r1689 1
9747 (o x)|known list op on rest arg sublist: ##core#rest-null? r1689 1
9748 (o x)|known list op on rest arg sublist: ##core#rest-cdr r1689 1
9749 (o x)|known list op on rest arg sublist: ##core#rest-null? r1805 1
9750 (o x)|known list op on rest arg sublist: ##core#rest-car r1805 1
9751 (o x)|known list op on rest arg sublist: ##core#rest-null? r1805 1
9752 (o x)|known list op on rest arg sublist: ##core#rest-cdr r1805 1
9753 (o x)|known list op on rest arg sublist: ##core#rest-null? r1921 1
9754 (o x)|known list op on rest arg sublist: ##core#rest-car r1921 1
9755 (o x)|known list op on rest arg sublist: ##core#rest-null? r1921 1
9756 (o x)|known list op on rest arg sublist: ##core#rest-cdr r1921 1
9757 (o x)|known list op on rest arg sublist: ##core#rest-null? r2037 1
9758 (o x)|known list op on rest arg sublist: ##core#rest-car r2037 1
9759 (o x)|known list op on rest arg sublist: ##core#rest-null? r2037 1
9760 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2037 1
9761 (o x)|known list op on rest arg sublist: ##core#rest-null? r2163 1
9762 (o x)|known list op on rest arg sublist: ##core#rest-car r2163 1
9763 (o x)|known list op on rest arg sublist: ##core#rest-null? r2163 1
9764 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2163 1
9765 (o x)|known list op on rest arg sublist: ##core#rest-null? r2279 1
9766 (o x)|known list op on rest arg sublist: ##core#rest-car r2279 1
9767 (o x)|known list op on rest arg sublist: ##core#rest-null? r2279 1
9768 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2279 1
9769 (o x)|known list op on rest arg sublist: ##core#rest-null? r2395 1
9770 (o x)|known list op on rest arg sublist: ##core#rest-car r2395 1
9771 (o x)|known list op on rest arg sublist: ##core#rest-null? r2395 1
9772 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2395 1
9773 (o x)|known list op on rest arg sublist: ##core#rest-null? r2521 1
9774 (o x)|known list op on rest arg sublist: ##core#rest-car r2521 1
9775 (o x)|known list op on rest arg sublist: ##core#rest-null? r2521 1
9776 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2521 1
9777 (o x)|known list op on rest arg sublist: ##core#rest-null? r2647 1
9778 (o x)|known list op on rest arg sublist: ##core#rest-car r2647 1
9779 (o x)|known list op on rest arg sublist: ##core#rest-null? r2647 1
9780 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2647 1
9781 (o x)|known list op on rest arg sublist: ##core#rest-null? r2758 1
9782 (o x)|known list op on rest arg sublist: ##core#rest-car r2758 1
9783 (o x)|known list op on rest arg sublist: ##core#rest-null? r2758 1
9784 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2758 1
9785 o|removed side-effect free assignment to unused variable: srfi-4#pack
9786 (o x)|known list op on rest arg sublist: ##core#rest-null? r4149 1
9787 (o x)|known list op on rest arg sublist: ##core#rest-car r4149 1
9788 (o x)|known list op on rest arg sublist: ##core#rest-null? r4149 1
9789 (o x)|known list op on rest arg sublist: ##core#rest-cdr r4149 1
9790 (o x)|known list op on rest arg sublist: ##core#rest-null? r4318 1
9791 (o x)|known list op on rest arg sublist: ##core#rest-car r4318 1
9792 (o x)|known list op on rest arg sublist: ##core#rest-null? r4318 1
9793 (o x)|known list op on rest arg sublist: ##core#rest-cdr r4318 1
9794 (o x)|known list op on rest arg sublist: ##core#rest-null? r4398 1
9795 (o x)|known list op on rest arg sublist: ##core#rest-car r4398 1
9796 (o x)|known list op on rest arg sublist: ##core#rest-null? r4398 1
9797 (o x)|known list op on rest arg sublist: ##core#rest-cdr r4398 1
9798 o|substituted constant variable: tag8725221
9799 o|substituted constant variable: loc8735222
9800 o|substituted constant variable: tag8725228
9801 o|substituted constant variable: loc8735229
9802 o|substituted constant variable: tag8725235
9803 o|substituted constant variable: loc8735236
9804 o|substituted constant variable: tag8725242
9805 o|substituted constant variable: loc8735243
9806 o|substituted constant variable: tag8725249
9807 o|substituted constant variable: loc8735250
9808 o|substituted constant variable: tag8725256
9809 o|substituted constant variable: loc8735257
9810 o|substituted constant variable: tag8725263
9811 o|substituted constant variable: loc8735264
9812 o|substituted constant variable: tag8725270
9813 o|substituted constant variable: loc8735271
9814 o|substituted constant variable: tag8725277
9815 o|substituted constant variable: loc8735278
9816 o|substituted constant variable: tag8725284
9817 o|substituted constant variable: loc8735285
9818 o|replaced variables: 10
9819 (o x)|known list op on rest arg sublist: ##core#rest-null? r1695 2
9820 (o x)|known list op on rest arg sublist: ##core#rest-car r1695 2
9821 (o x)|known list op on rest arg sublist: ##core#rest-null? r1695 2
9822 (o x)|known list op on rest arg sublist: ##core#rest-cdr r1695 2
9823 (o x)|known list op on rest arg sublist: ##core#rest-null? r1811 2
9824 (o x)|known list op on rest arg sublist: ##core#rest-car r1811 2
9825 (o x)|known list op on rest arg sublist: ##core#rest-null? r1811 2
9826 (o x)|known list op on rest arg sublist: ##core#rest-cdr r1811 2
9827 (o x)|known list op on rest arg sublist: ##core#rest-null? r1927 2
9828 (o x)|known list op on rest arg sublist: ##core#rest-car r1927 2
9829 (o x)|known list op on rest arg sublist: ##core#rest-null? r1927 2
9830 (o x)|known list op on rest arg sublist: ##core#rest-cdr r1927 2
9831 (o x)|known list op on rest arg sublist: ##core#rest-null? r2043 2
9832 (o x)|known list op on rest arg sublist: ##core#rest-car r2043 2
9833 (o x)|known list op on rest arg sublist: ##core#rest-null? r2043 2
9834 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2043 2
9835 (o x)|known list op on rest arg sublist: ##core#rest-null? r2169 2
9836 (o x)|known list op on rest arg sublist: ##core#rest-car r2169 2
9837 (o x)|known list op on rest arg sublist: ##core#rest-null? r2169 2
9838 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2169 2
9839 (o x)|known list op on rest arg sublist: ##core#rest-null? r2285 2
9840 (o x)|known list op on rest arg sublist: ##core#rest-car r2285 2
9841 (o x)|known list op on rest arg sublist: ##core#rest-null? r2285 2
9842 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2285 2
9843 (o x)|known list op on rest arg sublist: ##core#rest-null? r2401 2
9844 (o x)|known list op on rest arg sublist: ##core#rest-car r2401 2
9845 (o x)|known list op on rest arg sublist: ##core#rest-null? r2401 2
9846 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2401 2
9847 (o x)|known list op on rest arg sublist: ##core#rest-null? r2527 2
9848 (o x)|known list op on rest arg sublist: ##core#rest-car r2527 2
9849 (o x)|known list op on rest arg sublist: ##core#rest-null? r2527 2
9850 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2527 2
9851 (o x)|known list op on rest arg sublist: ##core#rest-null? r2653 2
9852 (o x)|known list op on rest arg sublist: ##core#rest-car r2653 2
9853 (o x)|known list op on rest arg sublist: ##core#rest-null? r2653 2
9854 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2653 2
9855 (o x)|known list op on rest arg sublist: ##core#rest-null? r2764 2
9856 (o x)|known list op on rest arg sublist: ##core#rest-car r2764 2
9857 (o x)|known list op on rest arg sublist: ##core#rest-null? r2764 2
9858 (o x)|known list op on rest arg sublist: ##core#rest-cdr r2764 2
9859 (o x)|known list op on rest arg sublist: ##core#rest-null? r4155 2
9860 (o x)|known list op on rest arg sublist: ##core#rest-car r4155 2
9861 (o x)|known list op on rest arg sublist: ##core#rest-null? r4155 2
9862 (o x)|known list op on rest arg sublist: ##core#rest-cdr r4155 2
9863 o|removed binding forms: 46
9864 o|contracted procedure: k3701
9865 o|contracted procedure: k3705
9866 o|contracted procedure: k3709
9867 o|contracted procedure: k3713
9868 o|contracted procedure: k3717
9869 o|contracted procedure: k3721
9870 o|contracted procedure: k3725
9871 o|contracted procedure: k3729
9872 o|contracted procedure: k3733
9873 o|contracted procedure: k3737
9874 o|removed binding forms: 32
9875 o|direct leaf routine/allocation: doloop274275 0
9876 o|direct leaf routine/allocation: doloop308309 0
9877 o|direct leaf routine/allocation: doloop342343 0
9878 o|direct leaf routine/allocation: doloop376377 0
9879 o|direct leaf routine/allocation: doloop410411 0
9880 o|direct leaf routine/allocation: doloop444445 0
9881 o|direct leaf routine/allocation: doloop478479 0
9882 o|direct leaf routine/allocation: doloop512513 0
9883 o|direct leaf routine/allocation: doloop547548 0
9884 o|direct leaf routine/allocation: doloop583584 0
9885 o|converted assignments to bindings: (doloop274275)
9886 o|converted assignments to bindings: (doloop308309)
9887 o|converted assignments to bindings: (doloop342343)
9888 o|converted assignments to bindings: (doloop376377)
9889 o|converted assignments to bindings: (doloop410411)
9890 o|converted assignments to bindings: (doloop444445)
9891 o|converted assignments to bindings: (doloop478479)
9892 o|converted assignments to bindings: (doloop512513)
9893 o|converted assignments to bindings: (doloop547548)
9894 o|converted assignments to bindings: (doloop583584)
9895 o|simplifications: ((let . 10))
9896 o|customizable procedures: (srfi-4#pack-copy srfi-4#unpack srfi-4#unpack-copy k4206 srfi-4#subnvector g961962 loop846 loop839 loop832 loop825 loop818 loop811 loop804 loop797 loop790 loop783 doloop735736 doloop722723 doloop709710 doloop696697 doloop683684 doloop670671 doloop657658 doloop644645 doloop631632 doloop618619 k2799 k2688 alloc231)
9897 o|calls to known targets: 146
9898 o|identified direct recursive calls: f_1743 1
9899 o|unused rest argument: rest250252 f_1683
9900 o|identified direct recursive calls: f_1859 1
9901 o|unused rest argument: rest284286 f_1799
9902 o|identified direct recursive calls: f_1975 1
9903 o|unused rest argument: rest318320 f_1915
9904 o|identified direct recursive calls: f_2101 1
9905 o|unused rest argument: rest352354 f_2031
9906 o|identified direct recursive calls: f_2217 1
9907 o|unused rest argument: rest386388 f_2157
9908 o|identified direct recursive calls: f_2333 1
9909 o|unused rest argument: rest420422 f_2273
9910 o|identified direct recursive calls: f_2459 1
9911 o|unused rest argument: rest454456 f_2389
9912 o|identified direct recursive calls: f_2585 1
9913 o|unused rest argument: rest488490 f_2515
9914 o|identified direct recursive calls: f_2695 1
9915 o|unused rest argument: rest522524 f_2641
9916 o|identified direct recursive calls: f_2806 1
9917 o|unused rest argument: rest558560 f_2752
9918 o|identified direct recursive calls: f_2875 1
9919 o|identified direct recursive calls: f_2911 1
9920 o|identified direct recursive calls: f_2947 1
9921 o|identified direct recursive calls: f_2983 1
9922 o|identified direct recursive calls: f_3019 1
9923 o|identified direct recursive calls: f_3055 1
9924 o|identified direct recursive calls: f_3091 1
9925 o|identified direct recursive calls: f_3127 1
9926 o|identified direct recursive calls: f_3163 1
9927 o|identified direct recursive calls: f_3199 1
9928 o|identified direct recursive calls: f_3292 1
9929 o|identified direct recursive calls: f_3322 1
9930 o|identified direct recursive calls: f_3352 1
9931 o|identified direct recursive calls: f_3382 1
9932 o|identified direct recursive calls: f_3412 1
9933 o|identified direct recursive calls: f_3441 1
9934 o|identified direct recursive calls: f_3470 1
9935 o|identified direct recursive calls: f_3499 1
9936 o|identified direct recursive calls: f_3528 1
9937 o|identified direct recursive calls: f_3557 1
9938 o|unused rest argument: rest10611063 f_4143
9939 o|unused rest argument: rest11151118 f_4312
9940 o|unused rest argument: rest11411142 f_4392
9941 o|fast box initializations: 20
9942 o|fast global references: 40
9943 o|fast global assignments: 4
9944 o|dropping unused closure argument: f_1629
9945 o|dropping unused closure argument: f_3619
9946 o|dropping unused closure argument: f_3637
9947 o|dropping unused closure argument: f_3667
9948 o|dropping unused closure argument: f_3998
9949 */
9950 /* end of file */
9951