source: project/release/3/cmk/data-structures.c @ 12843

Last change on this file since 12843 was 12843, checked in by Ivan Raikov, 12 years ago

Added initial version of cmk.

File size: 226.0 KB
Line 
1/* Generated from data-structures.scm by the CHICKEN compiler
2   http://www.call-with-current-continuation.org
3   2008-11-17 12:51
4   Version 3.4.0 - linux-unix-gnu-x86   [ manyargs dload ptables applyhook hostpcre ]
5   compiled 2008-09-29 on debian (Linux)
6   command line: data-structures.scm -quiet -no-trace -optimize-level 2 -include-path . -include-path ./ -explicit-use -output-file data-structures.c -extend private-namespace.scm
7   unit: data_structures
8*/
9
10#include "chicken.h"
11
12#define C_mem_compare(to, from, n)   C_fix(C_memcmp(C_c_string(to), C_c_string(from), C_unfix(n)))
13
14static C_PTABLE_ENTRY *create_ptable(void);
15
16static C_TLS C_word lf[113];
17static double C_possibly_force_alignment;
18static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,13),40,105,100,101,110,116,105,116,121,32,120,49,41,0,0,0};
19static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,15),40,102,95,54,57,53,32,46,32,97,114,103,115,51,41,0};
20static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,12),40,112,114,111,106,101,99,116,32,110,50,41,0,0,0,0};
21static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,112,114,101,100,115,55,41,0,0,0};
22static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,10),40,102,95,55,48,51,32,120,53,41,0,0,0,0,0,0};
23static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,18),40,99,111,110,106,111,105,110,32,46,32,112,114,101,100,115,52,41,0,0,0,0,0,0};
24static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,112,114,101,100,115,49,52,41,0,0};
25static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,11),40,102,95,55,51,54,32,120,49,50,41,0,0,0,0,0};
26static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,19),40,100,105,115,106,111,105,110,32,46,32,112,114,101,100,115,49,49,41,0,0,0,0,0};
27static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,13),40,102,95,55,56,50,32,46,32,95,50,48,41,0,0,0};
28static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,13),40,102,95,55,56,52,32,46,32,95,50,49,41,0,0,0};
29static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,19),40,99,111,110,115,116,97,110,116,108,121,32,46,32,120,115,49,56,41,0,0,0,0,0};
30static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,15),40,102,95,55,57,54,32,120,50,51,32,121,50,52,41,0};
31static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,13),40,102,108,105,112,32,112,114,111,99,50,50,41,0,0,0};
32static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,16),40,102,95,56,48,52,32,46,32,97,114,103,115,50,54,41};
33static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,16),40,99,111,109,112,108,101,109,101,110,116,32,112,50,53,41};
34static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,6),40,97,56,51,48,41,0,0};
35static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,16),40,102,95,56,50,53,32,46,32,97,114,103,115,51,49,41};
36static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,18),40,114,101,99,32,102,48,50,57,32,46,32,102,110,115,51,48,41,0,0,0,0,0,0};
37static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,17),40,99,111,109,112,111,115,101,32,46,32,102,110,115,50,55,41,0,0,0,0,0,0,0};
38static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,11),40,102,95,56,55,54,32,120,51,56,41,0,0,0,0,0};
39static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,102,110,115,51,53,41,0,0,0,0};
40static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,11),40,111,32,46,32,102,110,115,51,51,41,0,0,0,0,0};
41static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,52,51,41,0,0,0,0};
42static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,13),40,102,95,56,57,49,32,108,115,116,52,49,41,0,0,0};
43static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,16),40,108,105,115,116,45,111,102,32,112,114,101,100,52,48,41};
44static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,12),40,110,111,111,112,32,46,32,95,52,53,41,0,0,0,0};
45static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,13),40,102,95,57,52,51,32,46,32,95,52,55,41,0,0,0};
46static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,112,114,111,99,115,53,48,41,0,0};
47static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,16),40,102,95,57,53,55,32,46,32,97,114,103,115,52,56,41};
48static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,16),40,101,97,99,104,32,46,32,112,114,111,99,115,52,54,41};
49static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,10),40,97,110,121,63,32,120,53,53,41,0,0,0,0,0,0};
50static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,11),40,110,111,110,101,63,32,120,53,54,41,0,0,0,0,0};
51static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,15),40,97,108,119,97,121,115,63,32,46,32,95,53,55,41,0};
52static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,14),40,110,101,118,101,114,63,32,46,32,95,53,56,41,0,0};
53static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,15),40,102,95,49,48,48,56,32,46,32,120,115,54,49,41,0};
54static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,30),40,108,101,102,116,45,115,101,99,116,105,111,110,32,112,114,111,99,53,57,32,46,32,97,114,103,115,54,48,41,0,0};
55static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,15),40,102,95,49,48,50,54,32,46,32,120,115,54,55,41,0};
56static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,31),40,114,105,103,104,116,45,115,101,99,116,105,111,110,32,112,114,111,99,54,52,32,46,32,97,114,103,115,54,53,41,0};
57static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,11),40,97,116,111,109,63,32,120,54,57,41,0,0,0,0,0};
58static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
59static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,15),40,116,97,105,108,63,32,120,55,48,32,121,55,49,41,0};
60static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,110,115,56,49,41,0,0,0,0,0};
61static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,23),40,105,110,116,101,114,115,112,101,114,115,101,32,108,115,116,55,56,32,120,55,57,41,0};
62static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,56,54,41,0,0,0,0};
63static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,15),40,98,117,116,108,97,115,116,32,108,115,116,56,52,41,0};
64static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,108,105,115,116,115,57,50,32,114,101,115,116,57,51,41,0,0,0};
65static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,20),40,102,108,97,116,116,101,110,32,46,32,108,105,115,116,115,48,57,48,41,0,0,0,0};
66static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,24),40,100,111,49,48,52,32,104,100,49,48,54,32,116,108,49,48,55,32,99,49,48,56,41};
67static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,108,115,116,49,48,50,32,105,49,48,51,41,0,0,0,0,0,0};
68static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,16),40,99,104,111,112,32,108,115,116,57,56,32,110,57,57,41};
69static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,115,49,49,55,41,0,0};
70static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,23),40,106,111,105,110,32,108,115,116,115,49,49,51,32,46,32,108,115,116,49,49,52,41,0};
71static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,98,108,115,116,49,50,54,32,108,115,116,49,50,55,41,0,0,0};
72static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,25),40,99,111,109,112,114,101,115,115,32,98,108,115,116,49,50,50,32,108,115,116,49,50,51,41,0,0,0,0,0,0,0};
73static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,17),40,97,49,52,50,49,32,120,49,51,52,32,121,49,51,53,41,0,0,0,0,0,0,0};
74static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,12),40,97,49,52,51,53,32,120,49,51,51,41,0,0,0,0};
75static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,24),40,115,104,117,102,102,108,101,32,108,49,51,48,32,114,97,110,100,111,109,49,51,49,41};
76static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,49,52,53,41,0,0,0};
77static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,20),40,102,95,49,52,56,53,32,120,49,52,50,32,108,115,116,49,52,51,41,0,0,0,0};
78static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,41),40,97,108,105,115,116,45,117,112,100,97,116,101,33,32,120,49,51,54,32,121,49,51,55,32,108,115,116,49,51,56,32,46,32,99,109,112,49,51,57,41,0,0,0,0,0,0,0};
79static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,116,49,54,56,41,0,0,0};
80static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,20),40,102,95,49,53,54,51,32,120,49,54,53,32,108,115,116,49,54,54,41,0,0,0,0};
81static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,27),40,98,111,100,121,49,53,54,32,99,109,112,49,54,50,32,100,101,102,97,117,108,116,49,54,51,41,0,0,0,0,0};
82static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,27),40,100,101,102,45,100,101,102,97,117,108,116,49,53,57,32,37,99,109,112,49,53,52,49,55,51,41,0,0,0,0,0};
83static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,12),40,100,101,102,45,99,109,112,49,53,56,41,0,0,0,0};
84static C_char C_TLS li66[] C_aligned={C_lihdr(0,0,33),40,97,108,105,115,116,45,114,101,102,32,120,49,53,49,32,108,115,116,49,53,50,32,46,32,103,49,53,48,49,53,51,41,0,0,0,0,0,0,0};
85static C_char C_TLS li67[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,49,56,53,41,0,0,0,0,0};
86static C_char C_TLS li68[] C_aligned={C_lihdr(0,0,29),40,114,97,115,115,111,99,32,120,49,56,48,32,108,115,116,49,56,49,32,46,32,116,115,116,49,56,50,41,0,0,0};
87static C_char C_TLS li69[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,106,49,57,56,32,107,49,57,57,41};
88static C_char C_TLS li70[] C_aligned={C_lihdr(0,0,29),40,114,101,118,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,49,57,50,32,105,49,57,51,41,0,0,0};
89static C_char C_TLS li71[] C_aligned={C_lihdr(0,0,46),40,35,35,100,97,116,97,45,115,116,114,117,99,116,117,114,101,115,35,114,101,118,101,114,115,101,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,49,57,48,41,0,0};
90static C_char C_TLS li72[] C_aligned={C_lihdr(0,0,15),40,45,62,115,116,114,105,110,103,32,120,50,48,55,41,0};
91static C_char C_TLS li73[] C_aligned={C_lihdr(0,0,16),40,99,111,110,99,32,46,32,97,114,103,115,50,49,49,41};
92static C_char C_TLS li74[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,105,115,116,97,114,116,50,50,49,32,105,101,110,100,50,50,50,41};
93static C_char C_TLS li75[] C_aligned={C_lihdr(0,0,52),40,116,114,97,118,101,114,115,101,32,119,104,105,99,104,50,49,51,32,119,104,101,114,101,50,49,52,32,115,116,97,114,116,50,49,53,32,116,101,115,116,50,49,54,32,108,111,99,50,49,55,41,0,0,0,0};
94static C_char C_TLS li76[] C_aligned={C_lihdr(0,0,17),40,97,49,56,57,48,32,105,50,51,48,32,108,50,51,49,41,0,0,0,0,0,0,0};
95static C_char C_TLS li77[] C_aligned={C_lihdr(0,0,50),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,32,119,104,105,99,104,50,50,55,32,119,104,101,114,101,50,50,56,32,115,116,97,114,116,50,50,57,41,0,0,0,0,0,0};
96static C_char C_TLS li78[] C_aligned={C_lihdr(0,0,17),40,97,49,56,57,57,32,105,50,51,53,32,108,50,51,54,41,0,0,0,0,0,0,0};
97static C_char C_TLS li79[] C_aligned={C_lihdr(0,0,53),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,45,99,105,32,119,104,105,99,104,50,51,50,32,119,104,101,114,101,50,51,51,32,115,116,97,114,116,50,51,52,41,0,0,0};
98static C_char C_TLS li80[] C_aligned={C_lihdr(0,0,45),40,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,32,119,104,105,99,104,50,52,48,32,119,104,101,114,101,50,52,49,32,46,32,103,50,51,57,50,52,50,41,0,0,0};
99static C_char C_TLS li81[] C_aligned={C_lihdr(0,0,48),40,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,45,99,105,32,119,104,105,99,104,50,52,55,32,119,104,101,114,101,50,52,56,32,46,32,103,50,52,54,50,52,57,41};
100static C_char C_TLS li82[] C_aligned={C_lihdr(0,0,29),40,115,116,114,105,110,103,45,99,111,109,112,97,114,101,51,32,115,49,50,53,51,32,115,50,50,53,52,41,0,0,0};
101static C_char C_TLS li83[] C_aligned={C_lihdr(0,0,32),40,115,116,114,105,110,103,45,99,111,109,112,97,114,101,51,45,99,105,32,115,49,50,54,49,32,115,50,50,54,50,41};
102static C_char C_TLS li84[] C_aligned={C_lihdr(0,0,56),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,61,63,32,115,49,50,54,57,32,115,50,50,55,48,32,115,116,97,114,116,49,50,55,49,32,115,116,97,114,116,50,50,55,50,32,110,50,55,51,41};
103static C_char C_TLS li85[] C_aligned={C_lihdr(0,0,36),40,98,111,100,121,50,56,56,32,115,116,97,114,116,49,50,57,53,32,115,116,97,114,116,50,50,57,54,32,108,101,110,50,57,55,41,0,0,0,0};
104static C_char C_TLS li86[] C_aligned={C_lihdr(0,0,40),40,100,101,102,45,108,101,110,50,57,50,32,37,115,116,97,114,116,49,50,56,53,50,57,57,32,37,115,116,97,114,116,50,50,56,54,51,48,48,41};
105static C_char C_TLS li87[] C_aligned={C_lihdr(0,0,29),40,100,101,102,45,115,116,97,114,116,50,50,57,49,32,37,115,116,97,114,116,49,50,56,53,51,48,50,41,0,0,0};
106static C_char C_TLS li88[] C_aligned={C_lihdr(0,0,15),40,100,101,102,45,115,116,97,114,116,49,50,57,48,41,0};
107static C_char C_TLS li89[] C_aligned={C_lihdr(0,0,35),40,115,117,98,115,116,114,105,110,103,61,63,32,115,49,50,56,50,32,115,50,50,56,51,32,46,32,103,50,56,49,50,56,52,41,0,0,0,0,0};
108static C_char C_TLS li90[] C_aligned={C_lihdr(0,0,59),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,99,105,61,63,32,115,49,51,49,48,32,115,50,51,49,49,32,115,116,97,114,116,49,51,49,50,32,115,116,97,114,116,50,51,49,51,32,110,51,49,52,41,0,0,0,0,0};
109static C_char C_TLS li91[] C_aligned={C_lihdr(0,0,36),40,98,111,100,121,51,50,57,32,115,116,97,114,116,49,51,51,54,32,115,116,97,114,116,50,51,51,55,32,108,101,110,51,51,56,41,0,0,0,0};
110static C_char C_TLS li92[] C_aligned={C_lihdr(0,0,40),40,100,101,102,45,108,101,110,51,51,51,32,37,115,116,97,114,116,49,51,50,54,51,52,48,32,37,115,116,97,114,116,50,51,50,55,51,52,49,41};
111static C_char C_TLS li93[] C_aligned={C_lihdr(0,0,29),40,100,101,102,45,115,116,97,114,116,50,51,51,50,32,37,115,116,97,114,116,49,51,50,54,51,52,51,41,0,0,0};
112static C_char C_TLS li94[] C_aligned={C_lihdr(0,0,15),40,100,101,102,45,115,116,97,114,116,49,51,51,49,41,0};
113static C_char C_TLS li95[] C_aligned={C_lihdr(0,0,38),40,115,117,98,115,116,114,105,110,103,45,99,105,61,63,32,115,49,51,50,51,32,115,50,51,50,52,32,46,32,103,51,50,50,51,50,53,41,0,0};
114static C_char C_TLS li96[] C_aligned={C_lihdr(0,0,27),40,97,100,100,32,102,114,111,109,51,53,57,32,116,111,51,54,48,32,108,97,115,116,51,54,49,41,0,0,0,0,0};
115static C_char C_TLS li97[] C_aligned={C_lihdr(0,0,11),40,115,99,97,110,32,106,51,55,53,41,0,0,0,0,0};
116static C_char C_TLS li98[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,105,51,54,53,32,108,97,115,116,51,54,54,32,102,114,111,109,51,54,55,41,0,0,0,0,0};
117static C_char C_TLS li99[] C_aligned={C_lihdr(0,0,42),40,115,116,114,105,110,103,45,115,112,108,105,116,32,115,116,114,51,53,49,32,46,32,100,101,108,115,116,114,45,97,110,100,45,102,108,97,103,51,53,50,41,0,0,0,0,0,0};
118static C_char C_TLS li100[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,50,32,110,50,51,57,55,41,0,0,0};
119static C_char C_TLS li101[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,49,32,115,115,51,57,50,32,110,51,57,51,41,0,0,0,0,0,0};
120static C_char C_TLS li102[] C_aligned={C_lihdr(0,0,38),40,115,116,114,105,110,103,45,105,110,116,101,114,115,112,101,114,115,101,32,115,116,114,115,51,56,53,32,46,32,103,51,56,52,51,56,54,41,0,0};
121static C_char C_TLS li103[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
122static C_char C_TLS li104[] C_aligned={C_lihdr(0,0,13),40,102,95,50,53,49,51,32,99,52,49,56,41,0,0,0};
123static C_char C_TLS li105[] C_aligned={C_lihdr(0,0,15),40,105,110,115,116,114,105,110,103,32,115,52,49,54,41,0};
124static C_char C_TLS li106[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,105,52,51,50,32,106,52,51,51,41};
125static C_char C_TLS li107[] C_aligned={C_lihdr(0,0,13),40,102,95,50,54,56,50,32,99,52,50,51,41,0,0,0};
126static C_char C_TLS li108[] C_aligned={C_lihdr(0,0,41),40,115,116,114,105,110,103,45,116,114,97,110,115,108,97,116,101,32,115,116,114,52,49,50,32,102,114,111,109,52,49,51,32,46,32,116,111,52,49,52,41,0,0,0,0,0,0,0};
127static C_char C_TLS li109[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,115,109,97,112,52,53,49,41,0,0};
128static C_char C_TLS li110[] C_aligned={C_lihdr(0,0,37),40,99,111,108,108,101,99,116,32,105,52,52,54,32,102,114,111,109,52,52,55,32,116,111,116,97,108,52,52,56,32,102,115,52,52,57,41,0,0,0};
129static C_char C_TLS li111[] C_aligned={C_lihdr(0,0,34),40,115,116,114,105,110,103,45,116,114,97,110,115,108,97,116,101,42,32,115,116,114,52,52,50,32,115,109,97,112,52,52,51,41,0,0,0,0,0,0};
130static C_char C_TLS li112[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,116,111,116,97,108,52,54,54,32,112,111,115,52,54,55,41,0,0};
131static C_char C_TLS li113[] C_aligned={C_lihdr(0,0,27),40,115,116,114,105,110,103,45,99,104,111,112,32,115,116,114,52,54,50,32,108,101,110,52,54,51,41,0,0,0,0,0};
132static C_char C_TLS li114[] C_aligned={C_lihdr(0,0,31),40,115,116,114,105,110,103,45,99,104,111,109,112,32,115,116,114,52,55,50,32,46,32,103,52,55,49,52,55,51,41,0};
133static C_char C_TLS li115[] C_aligned={C_lihdr(0,0,12),40,100,111,52,56,53,32,105,52,56,55,41,0,0,0,0};
134static C_char C_TLS li116[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,108,97,115,116,52,57,50,32,110,101,120,116,52,57,51,41,0,0};
135static C_char C_TLS li117[] C_aligned={C_lihdr(0,0,25),40,115,111,114,116,101,100,63,32,115,101,113,52,56,50,32,108,101,115,115,63,52,56,51,41,0,0,0,0,0,0,0};
136static C_char C_TLS li118[] C_aligned={C_lihdr(0,0,26),40,108,111,111,112,32,120,53,48,49,32,97,53,48,50,32,121,53,48,51,32,98,53,48,52,41,0,0,0,0,0,0};
137static C_char C_TLS li119[] C_aligned={C_lihdr(0,0,26),40,109,101,114,103,101,32,97,52,57,55,32,98,52,57,56,32,108,101,115,115,63,52,57,57,41,0,0,0,0,0,0};
138static C_char C_TLS li120[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,114,53,49,48,32,97,53,49,49,32,98,53,49,50,41,0,0,0};
139static C_char C_TLS li121[] C_aligned={C_lihdr(0,0,27),40,109,101,114,103,101,33,32,97,53,48,54,32,98,53,48,55,32,108,101,115,115,63,53,48,56,41,0,0,0,0,0};
140static C_char C_TLS li122[] C_aligned={C_lihdr(0,0,11),40,115,116,101,112,32,110,53,50,49,41,0,0,0,0,0};
141static C_char C_TLS li123[] C_aligned={C_lihdr(0,0,17),40,100,111,53,51,56,32,112,53,52,48,32,105,53,52,49,41,0,0,0,0,0,0,0};
142static C_char C_TLS li124[] C_aligned={C_lihdr(0,0,23),40,115,111,114,116,33,32,115,101,113,53,49,56,32,108,101,115,115,63,53,49,57,41,0};
143static C_char C_TLS li125[] C_aligned={C_lihdr(0,0,22),40,115,111,114,116,32,115,101,113,53,52,54,32,108,101,115,115,63,53,52,55,41,0,0};
144static C_char C_TLS li126[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,112,115,53,53,51,32,112,101,53,53,52,41,0,0,0,0,0,0};
145static C_char C_TLS li127[] C_aligned={C_lihdr(0,0,30),40,98,105,110,97,114,121,45,115,101,97,114,99,104,32,118,101,99,53,52,57,32,112,114,111,99,53,53,48,41,0,0};
146static C_char C_TLS li128[] C_aligned={C_lihdr(0,0,12),40,109,97,107,101,45,113,117,101,117,101,41,0,0,0,0};
147static C_char C_TLS li129[] C_aligned={C_lihdr(0,0,13),40,113,117,101,117,101,63,32,120,53,54,48,41,0,0,0};
148static C_char C_TLS li130[] C_aligned={C_lihdr(0,0,19),40,113,117,101,117,101,45,101,109,112,116,121,63,32,113,53,54,49,41,0,0,0,0,0};
149static C_char C_TLS li131[] C_aligned={C_lihdr(0,0,18),40,113,117,101,117,101,45,102,105,114,115,116,32,113,53,54,51,41,0,0,0,0,0,0};
150static C_char C_TLS li132[] C_aligned={C_lihdr(0,0,17),40,113,117,101,117,101,45,108,97,115,116,32,113,53,54,55,41,0,0,0,0,0,0,0};
151static C_char C_TLS li133[] C_aligned={C_lihdr(0,0,26),40,113,117,101,117,101,45,97,100,100,33,32,113,53,55,49,32,100,97,116,117,109,53,55,50,41,0,0,0,0,0,0};
152static C_char C_TLS li134[] C_aligned={C_lihdr(0,0,20),40,113,117,101,117,101,45,114,101,109,111,118,101,33,32,113,53,55,55,41,0,0,0,0};
153static C_char C_TLS li135[] C_aligned={C_lihdr(0,0,18),40,113,117,101,117,101,45,62,108,105,115,116,32,113,53,56,52,41,0,0,0,0,0,0};
154static C_char C_TLS li136[] C_aligned={C_lihdr(0,0,14),40,100,111,53,56,55,32,108,115,116,53,56,57,41,0,0};
155static C_char C_TLS li137[] C_aligned={C_lihdr(0,0,21),40,108,105,115,116,45,62,113,117,101,117,101,32,108,115,116,48,53,56,54,41,0,0,0};
156static C_char C_TLS li138[] C_aligned={C_lihdr(0,0,31),40,113,117,101,117,101,45,112,117,115,104,45,98,97,99,107,33,32,113,53,57,53,32,105,116,101,109,53,57,54,41,0};
157static C_char C_TLS li139[] C_aligned={C_lihdr(0,0,7),40,100,111,54,48,52,41,0};
158static C_char C_TLS li140[] C_aligned={C_lihdr(0,0,40),40,113,117,101,117,101,45,112,117,115,104,45,98,97,99,107,45,108,105,115,116,33,32,113,54,48,48,32,105,116,101,109,108,105,115,116,54,48,49,41};
159static C_char C_TLS li141[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
160
161
162C_noret_decl(C_data_structures_toplevel)
163C_externexport void C_ccall C_data_structures_toplevel(C_word c,C_word t0,C_word t1) C_noret;
164C_noret_decl(f_688)
165static void C_ccall f_688(C_word c,C_word t0,C_word t1) C_noret;
166C_noret_decl(f_3755)
167static void C_ccall f_3755(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
168C_noret_decl(f_3765)
169static void C_ccall f_3765(C_word c,C_word t0,C_word t1) C_noret;
170C_noret_decl(f_3782)
171static C_word C_fcall f_3782(C_word t0);
172C_noret_decl(f_3768)
173static void C_fcall f_3768(C_word t0,C_word t1) C_noret;
174C_noret_decl(f_3726)
175static void C_ccall f_3726(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
176C_noret_decl(f_3672)
177static void C_ccall f_3672(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
178C_noret_decl(f_3691)
179static void C_fcall f_3691(C_word t0,C_word t1,C_word t2) C_noret;
180C_noret_decl(f_3701)
181static void C_ccall f_3701(C_word c,C_word t0,C_word t1) C_noret;
182C_noret_decl(f_3683)
183static void C_ccall f_3683(C_word c,C_word t0,C_word t1) C_noret;
184C_noret_decl(f_3663)
185static void C_ccall f_3663(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
186C_noret_decl(f_3627)
187static void C_ccall f_3627(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
188C_noret_decl(f_3637)
189static void C_ccall f_3637(C_word c,C_word t0,C_word t1) C_noret;
190C_noret_decl(f_3595)
191static void C_ccall f_3595(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
192C_noret_decl(f_3605)
193static void C_fcall f_3605(C_word t0,C_word t1) C_noret;
194C_noret_decl(f_3574)
195static void C_ccall f_3574(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
196C_noret_decl(f_3584)
197static void C_ccall f_3584(C_word c,C_word t0,C_word t1) C_noret;
198C_noret_decl(f_3553)
199static void C_ccall f_3553(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
200C_noret_decl(f_3563)
201static void C_ccall f_3563(C_word c,C_word t0,C_word t1) C_noret;
202C_noret_decl(f_3540)
203static void C_ccall f_3540(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
204C_noret_decl(f_3534)
205static void C_ccall f_3534(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
206C_noret_decl(f_3528)
207static void C_ccall f_3528(C_word c,C_word t0,C_word t1) C_noret;
208C_noret_decl(f_3445)
209static void C_ccall f_3445(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
210C_noret_decl(f_3523)
211static void C_ccall f_3523(C_word c,C_word t0,C_word t1) C_noret;
212C_noret_decl(f_3449)
213static void C_fcall f_3449(C_word t0,C_word t1) C_noret;
214C_noret_decl(f_3463)
215static void C_fcall f_3463(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
216C_noret_decl(f_3473)
217static void C_ccall f_3473(C_word c,C_word t0,C_word t1) C_noret;
218C_noret_decl(f_3418)
219static void C_ccall f_3418(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
220C_noret_decl(f_3443)
221static void C_ccall f_3443(C_word c,C_word t0,C_word t1) C_noret;
222C_noret_decl(f_3436)
223static void C_ccall f_3436(C_word c,C_word t0,C_word t1) C_noret;
224C_noret_decl(f_3432)
225static void C_ccall f_3432(C_word c,C_word t0,C_word t1) C_noret;
226C_noret_decl(f_3285)
227static void C_ccall f_3285(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
228C_noret_decl(f_3375)
229static void C_ccall f_3375(C_word c,C_word t0,C_word t1) C_noret;
230C_noret_decl(f_3382)
231static void C_ccall f_3382(C_word c,C_word t0,C_word t1) C_noret;
232C_noret_decl(f_3384)
233static void C_fcall f_3384(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
234C_noret_decl(f_3288)
235static void C_fcall f_3288(C_word t0,C_word t1,C_word t2) C_noret;
236C_noret_decl(f_3339)
237static void C_ccall f_3339(C_word c,C_word t0,C_word t1) C_noret;
238C_noret_decl(f_3329)
239static void C_fcall f_3329(C_word t0,C_word t1) C_noret;
240C_noret_decl(f_3298)
241static void C_ccall f_3298(C_word c,C_word t0,C_word t1) C_noret;
242C_noret_decl(f_3301)
243static void C_ccall f_3301(C_word c,C_word t0,C_word t1) C_noret;
244C_noret_decl(f_3307)
245static void C_ccall f_3307(C_word c,C_word t0,C_word t1) C_noret;
246C_noret_decl(f_3153)
247static void C_ccall f_3153(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
248C_noret_decl(f_3235)
249static void C_ccall f_3235(C_word c,C_word t0,C_word t1) C_noret;
250C_noret_decl(f_3258)
251static void C_ccall f_3258(C_word c,C_word t0,C_word t1) C_noret;
252C_noret_decl(f_3238)
253static void C_ccall f_3238(C_word c,C_word t0,C_word t1) C_noret;
254C_noret_decl(f_3156)
255static void C_fcall f_3156(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
256C_noret_decl(f_3163)
257static void C_ccall f_3163(C_word c,C_word t0,C_word t1) C_noret;
258C_noret_decl(f_3054)
259static void C_ccall f_3054(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
260C_noret_decl(f_3088)
261static void C_fcall f_3088(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
262C_noret_decl(f_3095)
263static void C_ccall f_3095(C_word c,C_word t0,C_word t1) C_noret;
264C_noret_decl(f_3143)
265static void C_ccall f_3143(C_word c,C_word t0,C_word t1) C_noret;
266C_noret_decl(f_3115)
267static void C_ccall f_3115(C_word c,C_word t0,C_word t1) C_noret;
268C_noret_decl(f_2945)
269static void C_ccall f_2945(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
270C_noret_decl(f_3020)
271static void C_fcall f_3020(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
272C_noret_decl(f_3048)
273static void C_ccall f_3048(C_word c,C_word t0,C_word t1) C_noret;
274C_noret_decl(f_2972)
275static void C_fcall f_2972(C_word t0,C_word t1,C_word t2) C_noret;
276C_noret_decl(f_2982)
277static void C_ccall f_2982(C_word c,C_word t0,C_word t1) C_noret;
278C_noret_decl(f_2893)
279static void C_ccall f_2893(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
280C_noret_decl(f_2893)
281static void C_ccall f_2893r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
282C_noret_decl(f_2897)
283static void C_ccall f_2897(C_word c,C_word t0,C_word t1) C_noret;
284C_noret_decl(f_2829)
285static void C_ccall f_2829(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
286C_noret_decl(f_2844)
287static void C_fcall f_2844(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
288C_noret_decl(f_2875)
289static void C_ccall f_2875(C_word c,C_word t0,C_word t1) C_noret;
290C_noret_decl(f_2879)
291static void C_ccall f_2879(C_word c,C_word t0,C_word t1) C_noret;
292C_noret_decl(f_2864)
293static void C_ccall f_2864(C_word c,C_word t0,C_word t1) C_noret;
294C_noret_decl(f_2707)
295static void C_ccall f_2707(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
296C_noret_decl(f_2719)
297static void C_fcall f_2719(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
298C_noret_decl(f_2752)
299static void C_fcall f_2752(C_word t0,C_word t1,C_word t2) C_noret;
300C_noret_decl(f_2817)
301static void C_ccall f_2817(C_word c,C_word t0,C_word t1) C_noret;
302C_noret_decl(f_2791)
303static void C_fcall f_2791(C_word t0,C_word t1) C_noret;
304C_noret_decl(f_2747)
305static void C_ccall f_2747(C_word c,C_word t0,C_word t1) C_noret;
306C_noret_decl(f_2737)
307static void C_fcall f_2737(C_word t0,C_word t1) C_noret;
308C_noret_decl(f_2733)
309static void C_ccall f_2733(C_word c,C_word t0,C_word t1) C_noret;
310C_noret_decl(f_2505)
311static void C_ccall f_2505(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
312C_noret_decl(f_2505)
313static void C_ccall f_2505r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
314C_noret_decl(f_2699)
315static void C_ccall f_2699(C_word c,C_word t0,C_word t1) C_noret;
316C_noret_decl(f_2682)
317static void C_ccall f_2682(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
318C_noret_decl(f_2542)
319static void C_ccall f_2542(C_word c,C_word t0,C_word t1) C_noret;
320C_noret_decl(f_2545)
321static void C_ccall f_2545(C_word c,C_word t0,C_word t1) C_noret;
322C_noret_decl(f_2557)
323static void C_ccall f_2557(C_word c,C_word t0,C_word t1) C_noret;
324C_noret_decl(f_2562)
325static void C_fcall f_2562(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
326C_noret_decl(f_2581)
327static void C_ccall f_2581(C_word c,C_word t0,C_word t1) C_noret;
328C_noret_decl(f_2508)
329static void C_fcall f_2508(C_word t0,C_word t1) C_noret;
330C_noret_decl(f_2513)
331static void C_ccall f_2513(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
332C_noret_decl(f_2519)
333static C_word C_fcall f_2519(C_word t0,C_word t1);
334C_noret_decl(f_2390)
335static void C_ccall f_2390(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
336C_noret_decl(f_2390)
337static void C_ccall f_2390r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
338C_noret_decl(f_2394)
339static void C_ccall f_2394(C_word c,C_word t0,C_word t1) C_noret;
340C_noret_decl(f_2408)
341static void C_fcall f_2408(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
342C_noret_decl(f_2418)
343static void C_ccall f_2418(C_word c,C_word t0,C_word t1) C_noret;
344C_noret_decl(f_2423)
345static C_word C_fcall f_2423(C_word t0,C_word t1,C_word t2);
346C_noret_decl(f_2255)
347static void C_ccall f_2255(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
348C_noret_decl(f_2255)
349static void C_ccall f_2255r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
350C_noret_decl(f_2296)
351static void C_fcall f_2296(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
352C_noret_decl(f_2323)
353static void C_fcall f_2323(C_word t0,C_word t1,C_word t2) C_noret;
354C_noret_decl(f_2362)
355static void C_ccall f_2362(C_word c,C_word t0,C_word t1) C_noret;
356C_noret_decl(f_2306)
357static void C_ccall f_2306(C_word c,C_word t0,C_word t1) C_noret;
358C_noret_decl(f_2276)
359static void C_fcall f_2276(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
360C_noret_decl(f_2291)
361static void C_ccall f_2291(C_word c,C_word t0,C_word t1) C_noret;
362C_noret_decl(f_2283)
363static void C_fcall f_2283(C_word t0,C_word t1) C_noret;
364C_noret_decl(f_2175)
365static void C_ccall f_2175(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
366C_noret_decl(f_2175)
367static void C_ccall f_2175r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
368C_noret_decl(f_2192)
369static void C_fcall f_2192(C_word t0,C_word t1) C_noret;
370C_noret_decl(f_2187)
371static void C_fcall f_2187(C_word t0,C_word t1,C_word t2) C_noret;
372C_noret_decl(f_2182)
373static void C_fcall f_2182(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
374C_noret_decl(f_2177)
375static void C_fcall f_2177(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
376C_noret_decl(f_2138)
377static void C_ccall f_2138(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
378C_noret_decl(f_2148)
379static void C_fcall f_2148(C_word t0,C_word t1) C_noret;
380C_noret_decl(f_2058)
381static void C_ccall f_2058(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
382C_noret_decl(f_2058)
383static void C_ccall f_2058r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
384C_noret_decl(f_2075)
385static void C_fcall f_2075(C_word t0,C_word t1) C_noret;
386C_noret_decl(f_2070)
387static void C_fcall f_2070(C_word t0,C_word t1,C_word t2) C_noret;
388C_noret_decl(f_2065)
389static void C_fcall f_2065(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
390C_noret_decl(f_2060)
391static void C_fcall f_2060(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
392C_noret_decl(f_2021)
393static void C_ccall f_2021(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
394C_noret_decl(f_2031)
395static void C_fcall f_2031(C_word t0,C_word t1) C_noret;
396C_noret_decl(f_1990)
397static void C_ccall f_1990(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
398C_noret_decl(f_1959)
399static void C_ccall f_1959(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
400C_noret_decl(f_1931)
401static void C_ccall f_1931(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
402C_noret_decl(f_1931)
403static void C_ccall f_1931r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
404C_noret_decl(f_1935)
405static void C_ccall f_1935(C_word c,C_word t0,C_word t1) C_noret;
406C_noret_decl(f_1903)
407static void C_ccall f_1903(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
408C_noret_decl(f_1903)
409static void C_ccall f_1903r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
410C_noret_decl(f_1907)
411static void C_ccall f_1907(C_word c,C_word t0,C_word t1) C_noret;
412C_noret_decl(f_1894)
413static void C_ccall f_1894(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
414C_noret_decl(f_1900)
415static void C_ccall f_1900(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
416C_noret_decl(f_1885)
417static void C_ccall f_1885(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
418C_noret_decl(f_1891)
419static void C_ccall f_1891(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
420C_noret_decl(f_1838)
421static void C_fcall f_1838(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
422C_noret_decl(f_1859)
423static void C_fcall f_1859(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
424C_noret_decl(f_1872)
425static void C_ccall f_1872(C_word c,C_word t0,C_word t1) C_noret;
426C_noret_decl(f_1828)
427static void C_ccall f_1828(C_word c,C_word t0,C_word t1,...) C_noret;
428C_noret_decl(f_1828)
429static void C_ccall f_1828r(C_word t0,C_word t1,C_word t3) C_noret;
430C_noret_decl(f_1836)
431static void C_ccall f_1836(C_word c,C_word t0,C_word t1) C_noret;
432C_noret_decl(f_1783)
433static void C_ccall f_1783(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
434C_noret_decl(f_1820)
435static void C_ccall f_1820(C_word c,C_word t0,C_word t1) C_noret;
436C_noret_decl(f_1823)
437static void C_ccall f_1823(C_word c,C_word t0,C_word t1) C_noret;
438C_noret_decl(f_1706)
439static void C_ccall f_1706(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
440C_noret_decl(f_1709)
441static void C_fcall f_1709(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
442C_noret_decl(f_1725)
443static void C_ccall f_1725(C_word c,C_word t0,C_word t1) C_noret;
444C_noret_decl(f_1734)
445static void C_fcall f_1734(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
446C_noret_decl(f_1656)
447static void C_ccall f_1656(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
448C_noret_decl(f_1656)
449static void C_ccall f_1656r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
450C_noret_decl(f_1668)
451static void C_fcall f_1668(C_word t0,C_word t1,C_word t2) C_noret;
452C_noret_decl(f_1687)
453static void C_ccall f_1687(C_word c,C_word t0,C_word t1) C_noret;
454C_noret_decl(f_1532)
455static void C_ccall f_1532(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...) C_noret;
456C_noret_decl(f_1532)
457static void C_ccall f_1532r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t5) C_noret;
458C_noret_decl(f_1608)
459static void C_fcall f_1608(C_word t0,C_word t1) C_noret;
460C_noret_decl(f_1603)
461static void C_fcall f_1603(C_word t0,C_word t1,C_word t2) C_noret;
462C_noret_decl(f_1534)
463static void C_fcall f_1534(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
464C_noret_decl(f_1563)
465static void C_ccall f_1563(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
466C_noret_decl(f_1569)
467static void C_fcall f_1569(C_word t0,C_word t1,C_word t2) C_noret;
468C_noret_decl(f_1585)
469static void C_ccall f_1585(C_word c,C_word t0,C_word t1) C_noret;
470C_noret_decl(f_1538)
471static void C_fcall f_1538(C_word t0,C_word t1) C_noret;
472C_noret_decl(f_1541)
473static void C_ccall f_1541(C_word c,C_word t0,C_word t1) C_noret;
474C_noret_decl(f_1446)
475static void C_ccall f_1446(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,...) C_noret;
476C_noret_decl(f_1446)
477static void C_ccall f_1446r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t6) C_noret;
478C_noret_decl(f_1485)
479static void C_ccall f_1485(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
480C_noret_decl(f_1491)
481static void C_fcall f_1491(C_word t0,C_word t1,C_word t2) C_noret;
482C_noret_decl(f_1507)
483static void C_ccall f_1507(C_word c,C_word t0,C_word t1) C_noret;
484C_noret_decl(f_1453)
485static void C_fcall f_1453(C_word t0,C_word t1) C_noret;
486C_noret_decl(f_1456)
487static void C_ccall f_1456(C_word c,C_word t0,C_word t1) C_noret;
488C_noret_decl(f_1405)
489static void C_ccall f_1405(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
490C_noret_decl(f_1436)
491static void C_ccall f_1436(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
492C_noret_decl(f_1444)
493static void C_ccall f_1444(C_word c,C_word t0,C_word t1) C_noret;
494C_noret_decl(f_1420)
495static void C_ccall f_1420(C_word c,C_word t0,C_word t1) C_noret;
496C_noret_decl(f_1422)
497static void C_ccall f_1422(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
498C_noret_decl(f_1416)
499static void C_ccall f_1416(C_word c,C_word t0,C_word t1) C_noret;
500C_noret_decl(f_1325)
501static void C_ccall f_1325(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
502C_noret_decl(f_1334)
503static void C_fcall f_1334(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
504C_noret_decl(f_1376)
505static void C_ccall f_1376(C_word c,C_word t0,C_word t1) C_noret;
506C_noret_decl(f_1266)
507static void C_ccall f_1266(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
508C_noret_decl(f_1266)
509static void C_ccall f_1266r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
510C_noret_decl(f_1278)
511static void C_fcall f_1278(C_word t0,C_word t1,C_word t2) C_noret;
512C_noret_decl(f_1313)
513static void C_ccall f_1313(C_word c,C_word t0,C_word t1) C_noret;
514C_noret_decl(f_1181)
515static void C_ccall f_1181(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
516C_noret_decl(f_1188)
517static void C_ccall f_1188(C_word c,C_word t0,C_word t1) C_noret;
518C_noret_decl(f_1196)
519static void C_fcall f_1196(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
520C_noret_decl(f_1217)
521static void C_fcall f_1217(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
522C_noret_decl(f_1231)
523static void C_ccall f_1231(C_word c,C_word t0,C_word t1) C_noret;
524C_noret_decl(f_1235)
525static void C_ccall f_1235(C_word c,C_word t0,C_word t1) C_noret;
526C_noret_decl(f_1140)
527static void C_ccall f_1140(C_word c,C_word t0,C_word t1,...) C_noret;
528C_noret_decl(f_1140)
529static void C_ccall f_1140r(C_word t0,C_word t1,C_word t3) C_noret;
530C_noret_decl(f_1146)
531static void C_fcall f_1146(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
532C_noret_decl(f_1179)
533static void C_ccall f_1179(C_word c,C_word t0,C_word t1) C_noret;
534C_noret_decl(f_1172)
535static void C_ccall f_1172(C_word c,C_word t0,C_word t1) C_noret;
536C_noret_decl(f_1108)
537static void C_ccall f_1108(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
538C_noret_decl(f_1117)
539static void C_fcall f_1117(C_word t0,C_word t1,C_word t2) C_noret;
540C_noret_decl(f_1138)
541static void C_ccall f_1138(C_word c,C_word t0,C_word t1) C_noret;
542C_noret_decl(f_1075)
543static void C_ccall f_1075(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
544C_noret_decl(f_1081)
545static void C_fcall f_1081(C_word t0,C_word t1,C_word t2) C_noret;
546C_noret_decl(f_1106)
547static void C_ccall f_1106(C_word c,C_word t0,C_word t1) C_noret;
548C_noret_decl(f_1047)
549static void C_ccall f_1047(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
550C_noret_decl(f_1059)
551static C_word C_fcall f_1059(C_word t0,C_word t1);
552C_noret_decl(f_1044)
553static void C_ccall f_1044(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
554C_noret_decl(f_1018)
555static void C_ccall f_1018(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
556C_noret_decl(f_1018)
557static void C_ccall f_1018r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
558C_noret_decl(f_1022)
559static void C_ccall f_1022(C_word c,C_word t0,C_word t1) C_noret;
560C_noret_decl(f_1025)
561static void C_ccall f_1025(C_word c,C_word t0,C_word t1) C_noret;
562C_noret_decl(f_1026)
563static void C_ccall f_1026(C_word c,C_word t0,C_word t1,...) C_noret;
564C_noret_decl(f_1026)
565static void C_ccall f_1026r(C_word t0,C_word t1,C_word t3) C_noret;
566C_noret_decl(f_1042)
567static void C_ccall f_1042(C_word c,C_word t0,C_word t1) C_noret;
568C_noret_decl(f_1038)
569static void C_ccall f_1038(C_word c,C_word t0,C_word t1) C_noret;
570C_noret_decl(f_1034)
571static void C_ccall f_1034(C_word c,C_word t0,C_word t1) C_noret;
572C_noret_decl(f_1003)
573static void C_ccall f_1003(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
574C_noret_decl(f_1003)
575static void C_ccall f_1003r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
576C_noret_decl(f_1007)
577static void C_ccall f_1007(C_word c,C_word t0,C_word t1) C_noret;
578C_noret_decl(f_1008)
579static void C_ccall f_1008(C_word c,C_word t0,C_word t1,...) C_noret;
580C_noret_decl(f_1008)
581static void C_ccall f_1008r(C_word t0,C_word t1,C_word t3) C_noret;
582C_noret_decl(f_1016)
583static void C_ccall f_1016(C_word c,C_word t0,C_word t1) C_noret;
584C_noret_decl(f_1000)
585static void C_ccall f_1000(C_word c,C_word t0,C_word t1,...) C_noret;
586C_noret_decl(f_997)
587static void C_ccall f_997(C_word c,C_word t0,C_word t1,...) C_noret;
588C_noret_decl(f_994)
589static void C_ccall f_994(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
590C_noret_decl(f_991)
591static void C_ccall f_991(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
592C_noret_decl(f_935)
593static void C_ccall f_935(C_word c,C_word t0,C_word t1,...) C_noret;
594C_noret_decl(f_935)
595static void C_ccall f_935r(C_word t0,C_word t1,C_word t3) C_noret;
596C_noret_decl(f_957)
597static void C_ccall f_957(C_word c,C_word t0,C_word t1,...) C_noret;
598C_noret_decl(f_957)
599static void C_ccall f_957r(C_word t0,C_word t1,C_word t3) C_noret;
600C_noret_decl(f_963)
601static void C_fcall f_963(C_word t0,C_word t1,C_word t2) C_noret;
602C_noret_decl(f_982)
603static void C_ccall f_982(C_word c,C_word t0,C_word t1) C_noret;
604C_noret_decl(f_943)
605static void C_ccall f_943(C_word c,C_word t0,C_word t1,...) C_noret;
606C_noret_decl(f_929)
607static void C_ccall f_929(C_word c,C_word t0,C_word t1,...) C_noret;
608C_noret_decl(f_889)
609static void C_ccall f_889(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
610C_noret_decl(f_891)
611static void C_ccall f_891(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
612C_noret_decl(f_897)
613static void C_fcall f_897(C_word t0,C_word t1,C_word t2) C_noret;
614C_noret_decl(f_916)
615static void C_ccall f_916(C_word c,C_word t0,C_word t1) C_noret;
616C_noret_decl(f_850)
617static void C_ccall f_850(C_word c,C_word t0,C_word t1,...) C_noret;
618C_noret_decl(f_850)
619static void C_ccall f_850r(C_word t0,C_word t1,C_word t3) C_noret;
620C_noret_decl(f_862)
621static void C_fcall f_862(C_word t0,C_word t1,C_word t2) C_noret;
622C_noret_decl(f_876)
623static void C_ccall f_876(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
624C_noret_decl(f_887)
625static void C_ccall f_887(C_word c,C_word t0,C_word t1) C_noret;
626C_noret_decl(f_884)
627static void C_ccall f_884(C_word c,C_word t0,C_word t1) C_noret;
628C_noret_decl(f_814)
629static void C_ccall f_814(C_word c,C_word t0,C_word t1,...) C_noret;
630C_noret_decl(f_814)
631static void C_ccall f_814r(C_word t0,C_word t1,C_word t3) C_noret;
632C_noret_decl(f_817)
633static void C_ccall f_817(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
634C_noret_decl(f_817)
635static void C_ccall f_817r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
636C_noret_decl(f_825)
637static void C_ccall f_825(C_word c,C_word t0,C_word t1,...) C_noret;
638C_noret_decl(f_825)
639static void C_ccall f_825r(C_word t0,C_word t1,C_word t3) C_noret;
640C_noret_decl(f_831)
641static void C_ccall f_831(C_word c,C_word t0,C_word t1) C_noret;
642C_noret_decl(f_839)
643static void C_ccall f_839(C_word c,C_word t0,C_word t1) C_noret;
644C_noret_decl(f_802)
645static void C_ccall f_802(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
646C_noret_decl(f_804)
647static void C_ccall f_804(C_word c,C_word t0,C_word t1,...) C_noret;
648C_noret_decl(f_804)
649static void C_ccall f_804r(C_word t0,C_word t1,C_word t3) C_noret;
650C_noret_decl(f_812)
651static void C_ccall f_812(C_word c,C_word t0,C_word t1) C_noret;
652C_noret_decl(f_794)
653static void C_ccall f_794(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
654C_noret_decl(f_796)
655static void C_ccall f_796(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
656C_noret_decl(f_771)
657static void C_ccall f_771(C_word c,C_word t0,C_word t1,...) C_noret;
658C_noret_decl(f_771)
659static void C_ccall f_771r(C_word t0,C_word t1,C_word t3) C_noret;
660C_noret_decl(f_784)
661static void C_ccall f_784(C_word c,C_word t0,C_word t1,...) C_noret;
662C_noret_decl(f_782)
663static void C_ccall f_782(C_word c,C_word t0,C_word t1,...) C_noret;
664C_noret_decl(f_734)
665static void C_ccall f_734(C_word c,C_word t0,C_word t1,...) C_noret;
666C_noret_decl(f_734)
667static void C_ccall f_734r(C_word t0,C_word t1,C_word t3) C_noret;
668C_noret_decl(f_736)
669static void C_ccall f_736(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
670C_noret_decl(f_742)
671static void C_fcall f_742(C_word t0,C_word t1,C_word t2) C_noret;
672C_noret_decl(f_752)
673static void C_ccall f_752(C_word c,C_word t0,C_word t1) C_noret;
674C_noret_decl(f_701)
675static void C_ccall f_701(C_word c,C_word t0,C_word t1,...) C_noret;
676C_noret_decl(f_701)
677static void C_ccall f_701r(C_word t0,C_word t1,C_word t3) C_noret;
678C_noret_decl(f_703)
679static void C_ccall f_703(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
680C_noret_decl(f_709)
681static void C_fcall f_709(C_word t0,C_word t1,C_word t2) C_noret;
682C_noret_decl(f_722)
683static void C_ccall f_722(C_word c,C_word t0,C_word t1) C_noret;
684C_noret_decl(f_693)
685static void C_ccall f_693(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
686C_noret_decl(f_695)
687static void C_ccall f_695(C_word c,C_word t0,C_word t1,...) C_noret;
688C_noret_decl(f_695)
689static void C_ccall f_695r(C_word t0,C_word t1,C_word t3) C_noret;
690C_noret_decl(f_690)
691static void C_ccall f_690(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
692
693C_noret_decl(trf_3768)
694static void C_fcall trf_3768(void *dummy) C_regparm C_noret;
695C_regparm static void C_fcall trf_3768(void *dummy){
696C_word t1=C_pick(0);
697C_word t0=C_pick(1);
698C_adjust_stack(-2);
699f_3768(t0,t1);}
700
701C_noret_decl(trf_3691)
702static void C_fcall trf_3691(void *dummy) C_regparm C_noret;
703C_regparm static void C_fcall trf_3691(void *dummy){
704C_word t2=C_pick(0);
705C_word t1=C_pick(1);
706C_word t0=C_pick(2);
707C_adjust_stack(-3);
708f_3691(t0,t1,t2);}
709
710C_noret_decl(trf_3605)
711static void C_fcall trf_3605(void *dummy) C_regparm C_noret;
712C_regparm static void C_fcall trf_3605(void *dummy){
713C_word t1=C_pick(0);
714C_word t0=C_pick(1);
715C_adjust_stack(-2);
716f_3605(t0,t1);}
717
718C_noret_decl(trf_3449)
719static void C_fcall trf_3449(void *dummy) C_regparm C_noret;
720C_regparm static void C_fcall trf_3449(void *dummy){
721C_word t1=C_pick(0);
722C_word t0=C_pick(1);
723C_adjust_stack(-2);
724f_3449(t0,t1);}
725
726C_noret_decl(trf_3463)
727static void C_fcall trf_3463(void *dummy) C_regparm C_noret;
728C_regparm static void C_fcall trf_3463(void *dummy){
729C_word t3=C_pick(0);
730C_word t2=C_pick(1);
731C_word t1=C_pick(2);
732C_word t0=C_pick(3);
733C_adjust_stack(-4);
734f_3463(t0,t1,t2,t3);}
735
736C_noret_decl(trf_3384)
737static void C_fcall trf_3384(void *dummy) C_regparm C_noret;
738C_regparm static void C_fcall trf_3384(void *dummy){
739C_word t3=C_pick(0);
740C_word t2=C_pick(1);
741C_word t1=C_pick(2);
742C_word t0=C_pick(3);
743C_adjust_stack(-4);
744f_3384(t0,t1,t2,t3);}
745
746C_noret_decl(trf_3288)
747static void C_fcall trf_3288(void *dummy) C_regparm C_noret;
748C_regparm static void C_fcall trf_3288(void *dummy){
749C_word t2=C_pick(0);
750C_word t1=C_pick(1);
751C_word t0=C_pick(2);
752C_adjust_stack(-3);
753f_3288(t0,t1,t2);}
754
755C_noret_decl(trf_3329)
756static void C_fcall trf_3329(void *dummy) C_regparm C_noret;
757C_regparm static void C_fcall trf_3329(void *dummy){
758C_word t1=C_pick(0);
759C_word t0=C_pick(1);
760C_adjust_stack(-2);
761f_3329(t0,t1);}
762
763C_noret_decl(trf_3156)
764static void C_fcall trf_3156(void *dummy) C_regparm C_noret;
765C_regparm static void C_fcall trf_3156(void *dummy){
766C_word t4=C_pick(0);
767C_word t3=C_pick(1);
768C_word t2=C_pick(2);
769C_word t1=C_pick(3);
770C_word t0=C_pick(4);
771C_adjust_stack(-5);
772f_3156(t0,t1,t2,t3,t4);}
773
774C_noret_decl(trf_3088)
775static void C_fcall trf_3088(void *dummy) C_regparm C_noret;
776C_regparm static void C_fcall trf_3088(void *dummy){
777C_word t5=C_pick(0);
778C_word t4=C_pick(1);
779C_word t3=C_pick(2);
780C_word t2=C_pick(3);
781C_word t1=C_pick(4);
782C_word t0=C_pick(5);
783C_adjust_stack(-6);
784f_3088(t0,t1,t2,t3,t4,t5);}
785
786C_noret_decl(trf_3020)
787static void C_fcall trf_3020(void *dummy) C_regparm C_noret;
788C_regparm static void C_fcall trf_3020(void *dummy){
789C_word t3=C_pick(0);
790C_word t2=C_pick(1);
791C_word t1=C_pick(2);
792C_word t0=C_pick(3);
793C_adjust_stack(-4);
794f_3020(t0,t1,t2,t3);}
795
796C_noret_decl(trf_2972)
797static void C_fcall trf_2972(void *dummy) C_regparm C_noret;
798C_regparm static void C_fcall trf_2972(void *dummy){
799C_word t2=C_pick(0);
800C_word t1=C_pick(1);
801C_word t0=C_pick(2);
802C_adjust_stack(-3);
803f_2972(t0,t1,t2);}
804
805C_noret_decl(trf_2844)
806static void C_fcall trf_2844(void *dummy) C_regparm C_noret;
807C_regparm static void C_fcall trf_2844(void *dummy){
808C_word t3=C_pick(0);
809C_word t2=C_pick(1);
810C_word t1=C_pick(2);
811C_word t0=C_pick(3);
812C_adjust_stack(-4);
813f_2844(t0,t1,t2,t3);}
814
815C_noret_decl(trf_2719)
816static void C_fcall trf_2719(void *dummy) C_regparm C_noret;
817C_regparm static void C_fcall trf_2719(void *dummy){
818C_word t5=C_pick(0);
819C_word t4=C_pick(1);
820C_word t3=C_pick(2);
821C_word t2=C_pick(3);
822C_word t1=C_pick(4);
823C_word t0=C_pick(5);
824C_adjust_stack(-6);
825f_2719(t0,t1,t2,t3,t4,t5);}
826
827C_noret_decl(trf_2752)
828static void C_fcall trf_2752(void *dummy) C_regparm C_noret;
829C_regparm static void C_fcall trf_2752(void *dummy){
830C_word t2=C_pick(0);
831C_word t1=C_pick(1);
832C_word t0=C_pick(2);
833C_adjust_stack(-3);
834f_2752(t0,t1,t2);}
835
836C_noret_decl(trf_2791)
837static void C_fcall trf_2791(void *dummy) C_regparm C_noret;
838C_regparm static void C_fcall trf_2791(void *dummy){
839C_word t1=C_pick(0);
840C_word t0=C_pick(1);
841C_adjust_stack(-2);
842f_2791(t0,t1);}
843
844C_noret_decl(trf_2737)
845static void C_fcall trf_2737(void *dummy) C_regparm C_noret;
846C_regparm static void C_fcall trf_2737(void *dummy){
847C_word t1=C_pick(0);
848C_word t0=C_pick(1);
849C_adjust_stack(-2);
850f_2737(t0,t1);}
851
852C_noret_decl(trf_2562)
853static void C_fcall trf_2562(void *dummy) C_regparm C_noret;
854C_regparm static void C_fcall trf_2562(void *dummy){
855C_word t3=C_pick(0);
856C_word t2=C_pick(1);
857C_word t1=C_pick(2);
858C_word t0=C_pick(3);
859C_adjust_stack(-4);
860f_2562(t0,t1,t2,t3);}
861
862C_noret_decl(trf_2508)
863static void C_fcall trf_2508(void *dummy) C_regparm C_noret;
864C_regparm static void C_fcall trf_2508(void *dummy){
865C_word t1=C_pick(0);
866C_word t0=C_pick(1);
867C_adjust_stack(-2);
868f_2508(t0,t1);}
869
870C_noret_decl(trf_2408)
871static void C_fcall trf_2408(void *dummy) C_regparm C_noret;
872C_regparm static void C_fcall trf_2408(void *dummy){
873C_word t3=C_pick(0);
874C_word t2=C_pick(1);
875C_word t1=C_pick(2);
876C_word t0=C_pick(3);
877C_adjust_stack(-4);
878f_2408(t0,t1,t2,t3);}
879
880C_noret_decl(trf_2296)
881static void C_fcall trf_2296(void *dummy) C_regparm C_noret;
882C_regparm static void C_fcall trf_2296(void *dummy){
883C_word t4=C_pick(0);
884C_word t3=C_pick(1);
885C_word t2=C_pick(2);
886C_word t1=C_pick(3);
887C_word t0=C_pick(4);
888C_adjust_stack(-5);
889f_2296(t0,t1,t2,t3,t4);}
890
891C_noret_decl(trf_2323)
892static void C_fcall trf_2323(void *dummy) C_regparm C_noret;
893C_regparm static void C_fcall trf_2323(void *dummy){
894C_word t2=C_pick(0);
895C_word t1=C_pick(1);
896C_word t0=C_pick(2);
897C_adjust_stack(-3);
898f_2323(t0,t1,t2);}
899
900C_noret_decl(trf_2276)
901static void C_fcall trf_2276(void *dummy) C_regparm C_noret;
902C_regparm static void C_fcall trf_2276(void *dummy){
903C_word t4=C_pick(0);
904C_word t3=C_pick(1);
905C_word t2=C_pick(2);
906C_word t1=C_pick(3);
907C_word t0=C_pick(4);
908C_adjust_stack(-5);
909f_2276(t0,t1,t2,t3,t4);}
910
911C_noret_decl(trf_2283)
912static void C_fcall trf_2283(void *dummy) C_regparm C_noret;
913C_regparm static void C_fcall trf_2283(void *dummy){
914C_word t1=C_pick(0);
915C_word t0=C_pick(1);
916C_adjust_stack(-2);
917f_2283(t0,t1);}
918
919C_noret_decl(trf_2192)
920static void C_fcall trf_2192(void *dummy) C_regparm C_noret;
921C_regparm static void C_fcall trf_2192(void *dummy){
922C_word t1=C_pick(0);
923C_word t0=C_pick(1);
924C_adjust_stack(-2);
925f_2192(t0,t1);}
926
927C_noret_decl(trf_2187)
928static void C_fcall trf_2187(void *dummy) C_regparm C_noret;
929C_regparm static void C_fcall trf_2187(void *dummy){
930C_word t2=C_pick(0);
931C_word t1=C_pick(1);
932C_word t0=C_pick(2);
933C_adjust_stack(-3);
934f_2187(t0,t1,t2);}
935
936C_noret_decl(trf_2182)
937static void C_fcall trf_2182(void *dummy) C_regparm C_noret;
938C_regparm static void C_fcall trf_2182(void *dummy){
939C_word t3=C_pick(0);
940C_word t2=C_pick(1);
941C_word t1=C_pick(2);
942C_word t0=C_pick(3);
943C_adjust_stack(-4);
944f_2182(t0,t1,t2,t3);}
945
946C_noret_decl(trf_2177)
947static void C_fcall trf_2177(void *dummy) C_regparm C_noret;
948C_regparm static void C_fcall trf_2177(void *dummy){
949C_word t4=C_pick(0);
950C_word t3=C_pick(1);
951C_word t2=C_pick(2);
952C_word t1=C_pick(3);
953C_word t0=C_pick(4);
954C_adjust_stack(-5);
955f_2177(t0,t1,t2,t3,t4);}
956
957C_noret_decl(trf_2148)
958static void C_fcall trf_2148(void *dummy) C_regparm C_noret;
959C_regparm static void C_fcall trf_2148(void *dummy){
960C_word t1=C_pick(0);
961C_word t0=C_pick(1);
962C_adjust_stack(-2);
963f_2148(t0,t1);}
964
965C_noret_decl(trf_2075)
966static void C_fcall trf_2075(void *dummy) C_regparm C_noret;
967C_regparm static void C_fcall trf_2075(void *dummy){
968C_word t1=C_pick(0);
969C_word t0=C_pick(1);
970C_adjust_stack(-2);
971f_2075(t0,t1);}
972
973C_noret_decl(trf_2070)
974static void C_fcall trf_2070(void *dummy) C_regparm C_noret;
975C_regparm static void C_fcall trf_2070(void *dummy){
976C_word t2=C_pick(0);
977C_word t1=C_pick(1);
978C_word t0=C_pick(2);
979C_adjust_stack(-3);
980f_2070(t0,t1,t2);}
981
982C_noret_decl(trf_2065)
983static void C_fcall trf_2065(void *dummy) C_regparm C_noret;
984C_regparm static void C_fcall trf_2065(void *dummy){
985C_word t3=C_pick(0);
986C_word t2=C_pick(1);
987C_word t1=C_pick(2);
988C_word t0=C_pick(3);
989C_adjust_stack(-4);
990f_2065(t0,t1,t2,t3);}
991
992C_noret_decl(trf_2060)
993static void C_fcall trf_2060(void *dummy) C_regparm C_noret;
994C_regparm static void C_fcall trf_2060(void *dummy){
995C_word t4=C_pick(0);
996C_word t3=C_pick(1);
997C_word t2=C_pick(2);
998C_word t1=C_pick(3);
999C_word t0=C_pick(4);
1000C_adjust_stack(-5);
1001f_2060(t0,t1,t2,t3,t4);}
1002
1003C_noret_decl(trf_2031)
1004static void C_fcall trf_2031(void *dummy) C_regparm C_noret;
1005C_regparm static void C_fcall trf_2031(void *dummy){
1006C_word t1=C_pick(0);
1007C_word t0=C_pick(1);
1008C_adjust_stack(-2);
1009f_2031(t0,t1);}
1010
1011C_noret_decl(trf_1838)
1012static void C_fcall trf_1838(void *dummy) C_regparm C_noret;
1013C_regparm static void C_fcall trf_1838(void *dummy){
1014C_word t5=C_pick(0);
1015C_word t4=C_pick(1);
1016C_word t3=C_pick(2);
1017C_word t2=C_pick(3);
1018C_word t1=C_pick(4);
1019C_word t0=C_pick(5);
1020C_adjust_stack(-6);
1021f_1838(t0,t1,t2,t3,t4,t5);}
1022
1023C_noret_decl(trf_1859)
1024static void C_fcall trf_1859(void *dummy) C_regparm C_noret;
1025C_regparm static void C_fcall trf_1859(void *dummy){
1026C_word t3=C_pick(0);
1027C_word t2=C_pick(1);
1028C_word t1=C_pick(2);
1029C_word t0=C_pick(3);
1030C_adjust_stack(-4);
1031f_1859(t0,t1,t2,t3);}
1032
1033C_noret_decl(trf_1709)
1034static void C_fcall trf_1709(void *dummy) C_regparm C_noret;
1035C_regparm static void C_fcall trf_1709(void *dummy){
1036C_word t3=C_pick(0);
1037C_word t2=C_pick(1);
1038C_word t1=C_pick(2);
1039C_word t0=C_pick(3);
1040C_adjust_stack(-4);
1041f_1709(t0,t1,t2,t3);}
1042
1043C_noret_decl(trf_1734)
1044static void C_fcall trf_1734(void *dummy) C_regparm C_noret;
1045C_regparm static void C_fcall trf_1734(void *dummy){
1046C_word t3=C_pick(0);
1047C_word t2=C_pick(1);
1048C_word t1=C_pick(2);
1049C_word t0=C_pick(3);
1050C_adjust_stack(-4);
1051f_1734(t0,t1,t2,t3);}
1052
1053C_noret_decl(trf_1668)
1054static void C_fcall trf_1668(void *dummy) C_regparm C_noret;
1055C_regparm static void C_fcall trf_1668(void *dummy){
1056C_word t2=C_pick(0);
1057C_word t1=C_pick(1);
1058C_word t0=C_pick(2);
1059C_adjust_stack(-3);
1060f_1668(t0,t1,t2);}
1061
1062C_noret_decl(trf_1608)
1063static void C_fcall trf_1608(void *dummy) C_regparm C_noret;
1064C_regparm static void C_fcall trf_1608(void *dummy){
1065C_word t1=C_pick(0);
1066C_word t0=C_pick(1);
1067C_adjust_stack(-2);
1068f_1608(t0,t1);}
1069
1070C_noret_decl(trf_1603)
1071static void C_fcall trf_1603(void *dummy) C_regparm C_noret;
1072C_regparm static void C_fcall trf_1603(void *dummy){
1073C_word t2=C_pick(0);
1074C_word t1=C_pick(1);
1075C_word t0=C_pick(2);
1076C_adjust_stack(-3);
1077f_1603(t0,t1,t2);}
1078
1079C_noret_decl(trf_1534)
1080static void C_fcall trf_1534(void *dummy) C_regparm C_noret;
1081C_regparm static void C_fcall trf_1534(void *dummy){
1082C_word t3=C_pick(0);
1083C_word t2=C_pick(1);
1084C_word t1=C_pick(2);
1085C_word t0=C_pick(3);
1086C_adjust_stack(-4);
1087f_1534(t0,t1,t2,t3);}
1088
1089C_noret_decl(trf_1569)
1090static void C_fcall trf_1569(void *dummy) C_regparm C_noret;
1091C_regparm static void C_fcall trf_1569(void *dummy){
1092C_word t2=C_pick(0);
1093C_word t1=C_pick(1);
1094C_word t0=C_pick(2);
1095C_adjust_stack(-3);
1096f_1569(t0,t1,t2);}
1097
1098C_noret_decl(trf_1538)
1099static void C_fcall trf_1538(void *dummy) C_regparm C_noret;
1100C_regparm static void C_fcall trf_1538(void *dummy){
1101C_word t1=C_pick(0);
1102C_word t0=C_pick(1);
1103C_adjust_stack(-2);
1104f_1538(t0,t1);}
1105
1106C_noret_decl(trf_1491)
1107static void C_fcall trf_1491(void *dummy) C_regparm C_noret;
1108C_regparm static void C_fcall trf_1491(void *dummy){
1109C_word t2=C_pick(0);
1110C_word t1=C_pick(1);
1111C_word t0=C_pick(2);
1112C_adjust_stack(-3);
1113f_1491(t0,t1,t2);}
1114
1115C_noret_decl(trf_1453)
1116static void C_fcall trf_1453(void *dummy) C_regparm C_noret;
1117C_regparm static void C_fcall trf_1453(void *dummy){
1118C_word t1=C_pick(0);
1119C_word t0=C_pick(1);
1120C_adjust_stack(-2);
1121f_1453(t0,t1);}
1122
1123C_noret_decl(trf_1334)
1124static void C_fcall trf_1334(void *dummy) C_regparm C_noret;
1125C_regparm static void C_fcall trf_1334(void *dummy){
1126C_word t3=C_pick(0);
1127C_word t2=C_pick(1);
1128C_word t1=C_pick(2);
1129C_word t0=C_pick(3);
1130C_adjust_stack(-4);
1131f_1334(t0,t1,t2,t3);}
1132
1133C_noret_decl(trf_1278)
1134static void C_fcall trf_1278(void *dummy) C_regparm C_noret;
1135C_regparm static void C_fcall trf_1278(void *dummy){
1136C_word t2=C_pick(0);
1137C_word t1=C_pick(1);
1138C_word t0=C_pick(2);
1139C_adjust_stack(-3);
1140f_1278(t0,t1,t2);}
1141
1142C_noret_decl(trf_1196)
1143static void C_fcall trf_1196(void *dummy) C_regparm C_noret;
1144C_regparm static void C_fcall trf_1196(void *dummy){
1145C_word t3=C_pick(0);
1146C_word t2=C_pick(1);
1147C_word t1=C_pick(2);
1148C_word t0=C_pick(3);
1149C_adjust_stack(-4);
1150f_1196(t0,t1,t2,t3);}
1151
1152C_noret_decl(trf_1217)
1153static void C_fcall trf_1217(void *dummy) C_regparm C_noret;
1154C_regparm static void C_fcall trf_1217(void *dummy){
1155C_word t4=C_pick(0);
1156C_word t3=C_pick(1);
1157C_word t2=C_pick(2);
1158C_word t1=C_pick(3);
1159C_word t0=C_pick(4);
1160C_adjust_stack(-5);
1161f_1217(t0,t1,t2,t3,t4);}
1162
1163C_noret_decl(trf_1146)
1164static void C_fcall trf_1146(void *dummy) C_regparm C_noret;
1165C_regparm static void C_fcall trf_1146(void *dummy){
1166C_word t3=C_pick(0);
1167C_word t2=C_pick(1);
1168C_word t1=C_pick(2);
1169C_word t0=C_pick(3);
1170C_adjust_stack(-4);
1171f_1146(t0,t1,t2,t3);}
1172
1173C_noret_decl(trf_1117)
1174static void C_fcall trf_1117(void *dummy) C_regparm C_noret;
1175C_regparm static void C_fcall trf_1117(void *dummy){
1176C_word t2=C_pick(0);
1177C_word t1=C_pick(1);
1178C_word t0=C_pick(2);
1179C_adjust_stack(-3);
1180f_1117(t0,t1,t2);}
1181
1182C_noret_decl(trf_1081)
1183static void C_fcall trf_1081(void *dummy) C_regparm C_noret;
1184C_regparm static void C_fcall trf_1081(void *dummy){
1185C_word t2=C_pick(0);
1186C_word t1=C_pick(1);
1187C_word t0=C_pick(2);
1188C_adjust_stack(-3);
1189f_1081(t0,t1,t2);}
1190
1191C_noret_decl(trf_963)
1192static void C_fcall trf_963(void *dummy) C_regparm C_noret;
1193C_regparm static void C_fcall trf_963(void *dummy){
1194C_word t2=C_pick(0);
1195C_word t1=C_pick(1);
1196C_word t0=C_pick(2);
1197C_adjust_stack(-3);
1198f_963(t0,t1,t2);}
1199
1200C_noret_decl(trf_897)
1201static void C_fcall trf_897(void *dummy) C_regparm C_noret;
1202C_regparm static void C_fcall trf_897(void *dummy){
1203C_word t2=C_pick(0);
1204C_word t1=C_pick(1);
1205C_word t0=C_pick(2);
1206C_adjust_stack(-3);
1207f_897(t0,t1,t2);}
1208
1209C_noret_decl(trf_862)
1210static void C_fcall trf_862(void *dummy) C_regparm C_noret;
1211C_regparm static void C_fcall trf_862(void *dummy){
1212C_word t2=C_pick(0);
1213C_word t1=C_pick(1);
1214C_word t0=C_pick(2);
1215C_adjust_stack(-3);
1216f_862(t0,t1,t2);}
1217
1218C_noret_decl(trf_742)
1219static void C_fcall trf_742(void *dummy) C_regparm C_noret;
1220C_regparm static void C_fcall trf_742(void *dummy){
1221C_word t2=C_pick(0);
1222C_word t1=C_pick(1);
1223C_word t0=C_pick(2);
1224C_adjust_stack(-3);
1225f_742(t0,t1,t2);}
1226
1227C_noret_decl(trf_709)
1228static void C_fcall trf_709(void *dummy) C_regparm C_noret;
1229C_regparm static void C_fcall trf_709(void *dummy){
1230C_word t2=C_pick(0);
1231C_word t1=C_pick(1);
1232C_word t0=C_pick(2);
1233C_adjust_stack(-3);
1234f_709(t0,t1,t2);}
1235
1236C_noret_decl(tr7)
1237static void C_fcall tr7(C_proc7 k) C_regparm C_noret;
1238C_regparm static void C_fcall tr7(C_proc7 k){
1239C_word t6=C_pick(0);
1240C_word t5=C_pick(1);
1241C_word t4=C_pick(2);
1242C_word t3=C_pick(3);
1243C_word t2=C_pick(4);
1244C_word t1=C_pick(5);
1245C_word t0=C_pick(6);
1246C_adjust_stack(-7);
1247(k)(7,t0,t1,t2,t3,t4,t5,t6);}
1248
1249C_noret_decl(tr5)
1250static void C_fcall tr5(C_proc5 k) C_regparm C_noret;
1251C_regparm static void C_fcall tr5(C_proc5 k){
1252C_word t4=C_pick(0);
1253C_word t3=C_pick(1);
1254C_word t2=C_pick(2);
1255C_word t1=C_pick(3);
1256C_word t0=C_pick(4);
1257C_adjust_stack(-5);
1258(k)(5,t0,t1,t2,t3,t4);}
1259
1260C_noret_decl(tr3)
1261static void C_fcall tr3(C_proc3 k) C_regparm C_noret;
1262C_regparm static void C_fcall tr3(C_proc3 k){
1263C_word t2=C_pick(0);
1264C_word t1=C_pick(1);
1265C_word t0=C_pick(2);
1266C_adjust_stack(-3);
1267(k)(3,t0,t1,t2);}
1268
1269C_noret_decl(tr4)
1270static void C_fcall tr4(C_proc4 k) C_regparm C_noret;
1271C_regparm static void C_fcall tr4(C_proc4 k){
1272C_word t3=C_pick(0);
1273C_word t2=C_pick(1);
1274C_word t1=C_pick(2);
1275C_word t0=C_pick(3);
1276C_adjust_stack(-4);
1277(k)(4,t0,t1,t2,t3);}
1278
1279C_noret_decl(tr2)
1280static void C_fcall tr2(C_proc2 k) C_regparm C_noret;
1281C_regparm static void C_fcall tr2(C_proc2 k){
1282C_word t1=C_pick(0);
1283C_word t0=C_pick(1);
1284C_adjust_stack(-2);
1285(k)(2,t0,t1);}
1286
1287C_noret_decl(tr2r)
1288static void C_fcall tr2r(C_proc2 k) C_regparm C_noret;
1289C_regparm static void C_fcall tr2r(C_proc2 k){
1290int n;
1291C_word *a,t2;
1292C_word t1=C_pick(0);
1293C_word t0=C_pick(1);
1294C_adjust_stack(-2);
1295n=C_rest_count(0);
1296a=C_alloc(n*3);
1297t2=C_restore_rest(a,n);
1298(k)(t0,t1,t2);}
1299
1300C_noret_decl(tr4r)
1301static void C_fcall tr4r(C_proc4 k) C_regparm C_noret;
1302C_regparm static void C_fcall tr4r(C_proc4 k){
1303int n;
1304C_word *a,t4;
1305C_word t3=C_pick(0);
1306C_word t2=C_pick(1);
1307C_word t1=C_pick(2);
1308C_word t0=C_pick(3);
1309C_adjust_stack(-4);
1310n=C_rest_count(0);
1311a=C_alloc(n*3);
1312t4=C_restore_rest(a,n);
1313(k)(t0,t1,t2,t3,t4);}
1314
1315C_noret_decl(tr3r)
1316static void C_fcall tr3r(C_proc3 k) C_regparm C_noret;
1317C_regparm static void C_fcall tr3r(C_proc3 k){
1318int n;
1319C_word *a,t3;
1320C_word t2=C_pick(0);
1321C_word t1=C_pick(1);
1322C_word t0=C_pick(2);
1323C_adjust_stack(-3);
1324n=C_rest_count(0);
1325a=C_alloc(n*3);
1326t3=C_restore_rest(a,n);
1327(k)(t0,t1,t2,t3);}
1328
1329C_noret_decl(tr2rv)
1330static void C_fcall tr2rv(C_proc2 k) C_regparm C_noret;
1331C_regparm static void C_fcall tr2rv(C_proc2 k){
1332int n;
1333C_word *a,t2;
1334C_word t1=C_pick(0);
1335C_word t0=C_pick(1);
1336C_adjust_stack(-2);
1337n=C_rest_count(0);
1338a=C_alloc(n+1);
1339t2=C_restore_rest_vector(a,n);
1340(k)(t0,t1,t2);}
1341
1342C_noret_decl(tr5rv)
1343static void C_fcall tr5rv(C_proc5 k) C_regparm C_noret;
1344C_regparm static void C_fcall tr5rv(C_proc5 k){
1345int n;
1346C_word *a,t5;
1347C_word t4=C_pick(0);
1348C_word t3=C_pick(1);
1349C_word t2=C_pick(2);
1350C_word t1=C_pick(3);
1351C_word t0=C_pick(4);
1352C_adjust_stack(-5);
1353n=C_rest_count(0);
1354a=C_alloc(n+1);
1355t5=C_restore_rest_vector(a,n);
1356(k)(t0,t1,t2,t3,t4,t5);}
1357
1358C_noret_decl(tr4rv)
1359static void C_fcall tr4rv(C_proc4 k) C_regparm C_noret;
1360C_regparm static void C_fcall tr4rv(C_proc4 k){
1361int n;
1362C_word *a,t4;
1363C_word t3=C_pick(0);
1364C_word t2=C_pick(1);
1365C_word t1=C_pick(2);
1366C_word t0=C_pick(3);
1367C_adjust_stack(-4);
1368n=C_rest_count(0);
1369a=C_alloc(n+1);
1370t4=C_restore_rest_vector(a,n);
1371(k)(t0,t1,t2,t3,t4);}
1372
1373C_noret_decl(tr3rv)
1374static void C_fcall tr3rv(C_proc3 k) C_regparm C_noret;
1375C_regparm static void C_fcall tr3rv(C_proc3 k){
1376int n;
1377C_word *a,t3;
1378C_word t2=C_pick(0);
1379C_word t1=C_pick(1);
1380C_word t0=C_pick(2);
1381C_adjust_stack(-3);
1382n=C_rest_count(0);
1383a=C_alloc(n+1);
1384t3=C_restore_rest_vector(a,n);
1385(k)(t0,t1,t2,t3);}
1386
1387/* toplevel */
1388static C_TLS int toplevel_initialized=0;
1389C_noret_decl(toplevel_trampoline)
1390static void C_fcall toplevel_trampoline(void *dummy) C_regparm C_noret;
1391C_regparm static void C_fcall toplevel_trampoline(void *dummy){
1392C_data_structures_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}
1393
1394void C_ccall C_data_structures_toplevel(C_word c,C_word t0,C_word t1){
1395C_word tmp;
1396C_word t2;
1397C_word t3;
1398C_word t4;
1399C_word t5;
1400C_word *a;
1401if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
1402else C_toplevel_entry(C_text("data_structures_toplevel"));
1403C_check_nursery_minimum(3);
1404if(!C_demand(3)){
1405C_save(t1);
1406C_reclaim((void*)toplevel_trampoline,NULL);}
1407toplevel_initialized=1;
1408if(!C_demand_2(1010)){
1409C_save(t1);
1410C_rereclaim2(1010*sizeof(C_word), 1);
1411t1=C_restore;}
1412a=C_alloc(3);
1413C_initialize_lf(lf,113);
1414lf[1]=C_decode_literal(C_heaptop,"\376B\000\000\033too many optional arguments");
1415lf[2]=C_h_intern(&lf[2],19,"\003sysundefined-value");
1416lf[3]=C_h_intern(&lf[3],8,"identity");
1417lf[4]=C_h_intern(&lf[4],7,"project");
1418lf[5]=C_h_intern(&lf[5],7,"conjoin");
1419lf[6]=C_h_intern(&lf[6],7,"disjoin");
1420lf[7]=C_h_intern(&lf[7],10,"constantly");
1421lf[8]=C_h_intern(&lf[8],4,"flip");
1422lf[9]=C_h_intern(&lf[9],10,"complement");
1423lf[10]=C_h_intern(&lf[10],7,"compose");
1424lf[11]=C_h_intern(&lf[11],6,"values");
1425lf[12]=C_h_intern(&lf[12],1,"o");
1426lf[13]=C_h_intern(&lf[13],7,"list-of");
1427lf[14]=C_h_intern(&lf[14],4,"noop");
1428lf[15]=C_h_intern(&lf[15],4,"each");
1429lf[16]=C_h_intern(&lf[16],4,"any\077");
1430lf[17]=C_h_intern(&lf[17],5,"none\077");
1431lf[18]=C_h_intern(&lf[18],7,"always\077");
1432lf[19]=C_h_intern(&lf[19],6,"never\077");
1433lf[20]=C_h_intern(&lf[20],12,"left-section");
1434lf[21]=C_h_intern(&lf[21],10,"\003sysappend");
1435lf[22]=C_h_intern(&lf[22],17,"\003syscheck-closure");
1436lf[23]=C_h_intern(&lf[23],7,"reverse");
1437lf[24]=C_h_intern(&lf[24],13,"right-section");
1438lf[25]=C_h_intern(&lf[25],5,"atom\077");
1439lf[26]=C_h_intern(&lf[26],5,"tail\077");
1440lf[27]=C_h_intern(&lf[27],11,"intersperse");
1441lf[28]=C_h_intern(&lf[28],7,"butlast");
1442lf[29]=C_h_intern(&lf[29],7,"flatten");
1443lf[30]=C_h_intern(&lf[30],4,"chop");
1444lf[31]=C_h_intern(&lf[31],9,"\003syserror");
1445lf[32]=C_decode_literal(C_heaptop,"\376B\000\000\030invalid numeric argument");
1446lf[33]=C_h_intern(&lf[33],4,"join");
1447lf[34]=C_h_intern(&lf[34],27,"\003sysnot-a-proper-list-error");
1448lf[35]=C_h_intern(&lf[35],8,"compress");
1449lf[36]=C_decode_literal(C_heaptop,"\376B\000\000%bad argument type - not a proper list");
1450lf[37]=C_h_intern(&lf[37],15,"\003syssignal-hook");
1451lf[38]=C_h_intern(&lf[38],11,"\000type-error");
1452lf[39]=C_h_intern(&lf[39],7,"shuffle");
1453lf[40]=C_h_intern(&lf[40],7,"\003sysmap");
1454lf[41]=C_h_intern(&lf[41],3,"cdr");
1455lf[42]=C_h_intern(&lf[42],5,"sort!");
1456lf[43]=C_h_intern(&lf[43],13,"alist-update!");
1457lf[44]=C_h_intern(&lf[44],4,"eqv\077");
1458lf[45]=C_h_intern(&lf[45],3,"eq\077");
1459lf[46]=C_h_intern(&lf[46],4,"assq");
1460lf[47]=C_h_intern(&lf[47],4,"assv");
1461lf[48]=C_h_intern(&lf[48],6,"equal\077");
1462lf[49]=C_h_intern(&lf[49],5,"assoc");
1463lf[50]=C_h_intern(&lf[50],9,"alist-ref");
1464lf[51]=C_h_intern(&lf[51],6,"rassoc");
1465lf[52]=C_h_intern(&lf[52],37,"\017data-structuresreverse-string-append");
1466lf[53]=C_h_intern(&lf[53],11,"make-string");
1467lf[54]=C_h_intern(&lf[54],18,"open-output-string");
1468lf[55]=C_h_intern(&lf[55],7,"display");
1469lf[56]=C_h_intern(&lf[56],6,"string");
1470lf[57]=C_h_intern(&lf[57],17,"get-output-string");
1471lf[58]=C_h_intern(&lf[58],8,"->string");
1472lf[59]=C_h_intern(&lf[59],14,"symbol->string");
1473lf[60]=C_h_intern(&lf[60],18,"\003sysnumber->string");
1474lf[61]=C_h_intern(&lf[61],13,"string-append");
1475lf[62]=C_h_intern(&lf[62],4,"conc");
1476lf[63]=C_h_intern(&lf[63],19,"\003syssubstring-index");
1477lf[64]=C_h_intern(&lf[64],15,"substring-index");
1478lf[65]=C_h_intern(&lf[65],22,"\003syssubstring-index-ci");
1479lf[66]=C_h_intern(&lf[66],18,"substring-index-ci");
1480lf[67]=C_h_intern(&lf[67],15,"string-compare3");
1481lf[68]=C_h_intern(&lf[68],18,"string-compare3-ci");
1482lf[69]=C_h_intern(&lf[69],15,"\003syssubstring=\077");
1483lf[70]=C_h_intern(&lf[70],11,"substring=\077");
1484lf[71]=C_h_intern(&lf[71],18,"\003syssubstring-ci=\077");
1485lf[72]=C_h_intern(&lf[72],14,"substring-ci=\077");
1486lf[73]=C_h_intern(&lf[73],12,"string-split");
1487lf[74]=C_decode_literal(C_heaptop,"\376B\000\000\003\011\012 ");
1488lf[75]=C_h_intern(&lf[75],13,"\003syssubstring");
1489lf[76]=C_h_intern(&lf[76],18,"string-intersperse");
1490lf[77]=C_decode_literal(C_heaptop,"\376B\000\000\000");
1491lf[78]=C_h_intern(&lf[78],19,"\003sysallocate-vector");
1492lf[79]=C_decode_literal(C_heaptop,"\376B\000\000\001 ");
1493lf[80]=C_h_intern(&lf[80],12,"list->string");
1494lf[81]=C_h_intern(&lf[81],16,"string-translate");
1495lf[82]=C_decode_literal(C_heaptop,"\376B\000\000\037invalid translation destination");
1496lf[83]=C_h_intern(&lf[83],17,"string-translate*");
1497lf[84]=C_h_intern(&lf[84],21,"\003sysfragments->string");
1498lf[85]=C_h_intern(&lf[85],11,"string-chop");
1499lf[86]=C_h_intern(&lf[86],12,"string-chomp");
1500lf[87]=C_decode_literal(C_heaptop,"\376B\000\000\001\012");
1501lf[88]=C_h_intern(&lf[88],7,"sorted\077");
1502lf[89]=C_h_intern(&lf[89],5,"merge");
1503lf[90]=C_h_intern(&lf[90],6,"merge!");
1504lf[91]=C_h_intern(&lf[91],12,"vector->list");
1505lf[92]=C_h_intern(&lf[92],4,"sort");
1506lf[93]=C_h_intern(&lf[93],12,"list->vector");
1507lf[94]=C_h_intern(&lf[94],6,"append");
1508lf[95]=C_h_intern(&lf[95],13,"binary-search");
1509lf[96]=C_h_intern(&lf[96],10,"make-queue");
1510lf[97]=C_h_intern(&lf[97],5,"queue");
1511lf[98]=C_h_intern(&lf[98],6,"queue\077");
1512lf[99]=C_h_intern(&lf[99],12,"queue-empty\077");
1513lf[100]=C_h_intern(&lf[100],11,"queue-first");
1514lf[101]=C_decode_literal(C_heaptop,"\376B\000\000\016queue is empty");
1515lf[102]=C_h_intern(&lf[102],10,"queue-last");
1516lf[103]=C_decode_literal(C_heaptop,"\376B\000\000\016queue is empty");
1517lf[104]=C_h_intern(&lf[104],10,"queue-add!");
1518lf[105]=C_h_intern(&lf[105],13,"queue-remove!");
1519lf[106]=C_decode_literal(C_heaptop,"\376B\000\000\016queue is empty");
1520lf[107]=C_h_intern(&lf[107],11,"queue->list");
1521lf[108]=C_h_intern(&lf[108],11,"list->queue");
1522lf[109]=C_h_intern(&lf[109],16,"queue-push-back!");
1523lf[110]=C_h_intern(&lf[110],21,"queue-push-back-list!");
1524lf[111]=C_h_intern(&lf[111],17,"register-feature!");
1525lf[112]=C_h_intern(&lf[112],15,"data-structures");
1526C_register_lf2(lf,113,create_ptable());
1527t2=C_mutate(&lf[0],lf[1]);
1528t3=*((C_word*)lf[2]+1);
1529t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_688,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
1530/* data-structures.scm: 91   register-feature! */
1531t5=*((C_word*)lf[111]+1);
1532((C_proc3)C_retrieve_proc(t5))(3,t5,t4,lf[112]);}
1533
1534/* k686 */
1535static void C_ccall f_688(C_word c,C_word t0,C_word t1){
1536C_word tmp;
1537C_word t2;
1538C_word t3;
1539C_word t4;
1540C_word t5;
1541C_word t6;
1542C_word t7;
1543C_word t8;
1544C_word t9;
1545C_word t10;
1546C_word t11;
1547C_word t12;
1548C_word t13;
1549C_word t14;
1550C_word t15;
1551C_word t16;
1552C_word t17;
1553C_word t18;
1554C_word t19;
1555C_word t20;
1556C_word t21;
1557C_word t22;
1558C_word t23;
1559C_word t24;
1560C_word t25;
1561C_word t26;
1562C_word t27;
1563C_word t28;
1564C_word t29;
1565C_word t30;
1566C_word t31;
1567C_word t32;
1568C_word t33;
1569C_word t34;
1570C_word t35;
1571C_word t36;
1572C_word t37;
1573C_word t38;
1574C_word t39;
1575C_word t40;
1576C_word t41;
1577C_word t42;
1578C_word t43;
1579C_word t44;
1580C_word t45;
1581C_word t46;
1582C_word t47;
1583C_word t48;
1584C_word t49;
1585C_word t50;
1586C_word t51;
1587C_word t52;
1588C_word t53;
1589C_word t54;
1590C_word t55;
1591C_word t56;
1592C_word t57;
1593C_word t58;
1594C_word t59;
1595C_word t60;
1596C_word t61;
1597C_word t62;
1598C_word t63;
1599C_word t64;
1600C_word t65;
1601C_word t66;
1602C_word t67;
1603C_word t68;
1604C_word t69;
1605C_word t70;
1606C_word t71;
1607C_word t72;
1608C_word t73;
1609C_word t74;
1610C_word t75;
1611C_word t76;
1612C_word t77;
1613C_word t78;
1614C_word t79;
1615C_word ab[213],*a=ab;
1616C_check_for_interrupt;
1617if(!C_stack_probe(&a)){
1618C_save_and_reclaim((void*)tr2,(void*)f_688,2,t0,t1);}
1619t2=C_mutate((C_word*)lf[3]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_690,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
1620t3=C_mutate((C_word*)lf[4]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_693,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp));
1621t4=C_mutate((C_word*)lf[5]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_701,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp));
1622t5=C_mutate((C_word*)lf[6]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_734,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
1623t6=C_mutate((C_word*)lf[7]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_771,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp));
1624t7=C_mutate((C_word*)lf[8]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_794,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp));
1625t8=C_mutate((C_word*)lf[9]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_802,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp));
1626t9=C_mutate((C_word*)lf[10]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_814,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp));
1627t10=C_mutate((C_word*)lf[12]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_850,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp));
1628t11=C_mutate((C_word*)lf[13]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_889,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp));
1629t12=C_mutate((C_word*)lf[14]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_929,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp));
1630t13=C_mutate((C_word*)lf[15]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_935,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp));
1631t14=C_mutate((C_word*)lf[16]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_991,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp));
1632t15=C_mutate((C_word*)lf[17]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_994,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp));
1633t16=C_mutate((C_word*)lf[18]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_997,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp));
1634t17=C_mutate((C_word*)lf[19]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1000,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp));
1635t18=C_mutate((C_word*)lf[20]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1003,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp));
1636t19=*((C_word*)lf[23]+1);
1637t20=C_mutate((C_word*)lf[24]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1018,a[2]=t19,a[3]=((C_word)li38),tmp=(C_word)a,a+=4,tmp));
1638t21=C_mutate((C_word*)lf[25]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1044,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp));
1639t22=C_mutate((C_word*)lf[26]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1047,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp));
1640t23=C_mutate((C_word*)lf[27]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1075,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp));
1641t24=C_mutate((C_word*)lf[28]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1108,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp));
1642t25=C_mutate((C_word*)lf[29]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1140,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp));
1643t26=*((C_word*)lf[23]+1);
1644t27=C_mutate((C_word*)lf[30]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1181,a[2]=t26,a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp));
1645t28=C_mutate((C_word*)lf[33]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1266,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp));
1646t29=C_mutate((C_word*)lf[35]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1325,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp));
1647t30=C_mutate((C_word*)lf[39]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1405,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp));
1648t31=C_mutate((C_word*)lf[43]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1446,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp));
1649t32=C_mutate((C_word*)lf[50]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1532,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp));
1650t33=C_mutate((C_word*)lf[51]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1656,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp));
1651t34=C_mutate((C_word*)lf[52]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1706,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp));
1652t35=*((C_word*)lf[54]+1);
1653t36=*((C_word*)lf[55]+1);
1654t37=*((C_word*)lf[56]+1);
1655t38=*((C_word*)lf[57]+1);
1656t39=C_mutate((C_word*)lf[58]+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1783,a[2]=t35,a[3]=t36,a[4]=t38,a[5]=t37,a[6]=((C_word)li72),tmp=(C_word)a,a+=7,tmp));
1657t40=*((C_word*)lf[61]+1);
1658t41=C_mutate((C_word*)lf[62]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1828,a[2]=t40,a[3]=((C_word)li73),tmp=(C_word)a,a+=4,tmp));
1659t42=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1838,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp);
1660t43=C_mutate((C_word*)lf[63]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1885,a[2]=t42,a[3]=((C_word)li77),tmp=(C_word)a,a+=4,tmp));
1661t44=C_mutate((C_word*)lf[65]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1894,a[2]=t42,a[3]=((C_word)li79),tmp=(C_word)a,a+=4,tmp));
1662t45=C_mutate((C_word*)lf[64]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1903,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp));
1663t46=C_mutate((C_word*)lf[66]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1931,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp));
1664t47=C_mutate((C_word*)lf[67]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1959,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp));
1665t48=C_mutate((C_word*)lf[68]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1990,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp));
1666t49=C_mutate((C_word*)lf[69]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2021,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp));
1667t50=C_mutate((C_word*)lf[70]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2058,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp));
1668t51=C_mutate((C_word*)lf[71]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2138,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp));
1669t52=C_mutate((C_word*)lf[72]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2175,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp));
1670t53=C_mutate((C_word*)lf[73]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2255,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp));
1671t54=C_mutate((C_word*)lf[76]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2390,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp));
1672t55=*((C_word*)lf[53]+1);
1673t56=*((C_word*)lf[80]+1);
1674t57=C_mutate((C_word*)lf[81]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2505,a[2]=t56,a[3]=t55,a[4]=((C_word)li108),tmp=(C_word)a,a+=5,tmp));
1675t58=C_mutate((C_word*)lf[83]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2707,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp));
1676t59=C_mutate((C_word*)lf[85]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2829,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp));
1677t60=C_mutate((C_word*)lf[86]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2893,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp));
1678t61=C_mutate((C_word*)lf[88]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2945,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp));
1679t62=C_mutate((C_word*)lf[89]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3054,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp));
1680t63=C_mutate((C_word*)lf[90]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3153,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp));
1681t64=C_mutate((C_word*)lf[42]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3285,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp));
1682t65=C_mutate((C_word*)lf[92]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3418,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp));
1683t66=*((C_word*)lf[93]+1);
1684t67=C_mutate((C_word*)lf[95]+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3445,a[2]=t66,a[3]=((C_word)li127),tmp=(C_word)a,a+=4,tmp));
1685t68=C_mutate((C_word*)lf[96]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3528,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp));
1686t69=C_mutate((C_word*)lf[98]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3534,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp));
1687t70=C_mutate((C_word*)lf[99]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3540,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp));
1688t71=C_mutate((C_word*)lf[100]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3553,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp));
1689t72=C_mutate((C_word*)lf[102]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3574,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp));
1690t73=C_mutate((C_word*)lf[104]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3595,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp));
1691t74=C_mutate((C_word*)lf[105]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3627,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp));
1692t75=C_mutate((C_word*)lf[107]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3663,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp));
1693t76=C_mutate((C_word*)lf[108]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3672,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp));
1694t77=C_mutate((C_word*)lf[109]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3726,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp));
1695t78=C_mutate((C_word*)lf[110]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3755,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp));
1696t79=((C_word*)t0)[2];
1697((C_proc2)(void*)(*((C_word*)t79+1)))(2,t79,C_SCHEME_UNDEFINED);}
1698
1699/* queue-push-back-list! in k686 */
1700static void C_ccall f_3755(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1701C_word tmp;
1702C_word t4;
1703C_word t5;
1704C_word t6;
1705C_word t7;
1706C_word t8;
1707C_word ab[4],*a=ab;
1708if(c!=4) C_bad_argc_2(c,4,t0);
1709C_check_for_interrupt;
1710if(!C_stack_probe(&a)){
1711C_save_and_reclaim((void*)tr4,(void*)f_3755,4,t0,t1,t2,t3);}
1712t4=(C_word)C_i_check_structure_2(t2,lf[97],lf[110]);
1713t5=(C_word)C_i_check_list_2(t3,lf[110]);
1714t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3765,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
1715t7=(C_word)C_slot(t2,C_fix(1));
1716/* data-structures.scm: 924  append */
1717t8=*((C_word*)lf[94]+1);
1718((C_proc4)(void*)(*((C_word*)t8+1)))(4,t8,t6,t3,t7);}
1719
1720/* k3763 in queue-push-back-list! in k686 */
1721static void C_ccall f_3765(C_word c,C_word t0,C_word t1){
1722C_word tmp;
1723C_word t2;
1724C_word t3;
1725C_word t4;
1726C_word t5;
1727C_word ab[8],*a=ab;
1728C_check_for_interrupt;
1729if(!C_stack_probe(&a)){
1730C_save_and_reclaim((void*)tr2,(void*)f_3765,2,t0,t1);}
1731t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3768,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
1732t3=(C_word)C_eqp(t1,C_SCHEME_END_OF_LIST);
1733if(C_truep(t3)){
1734t4=t2;
1735f_3768(t4,C_SCHEME_END_OF_LIST);}
1736else{
1737t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3782,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp);
1738t5=t2;
1739f_3768(t5,f_3782(t1));}}
1740
1741/* do604 in k3763 in queue-push-back-list! in k686 */
1742static C_word C_fcall f_3782(C_word t1){
1743C_word tmp;
1744C_word t2;
1745C_word t3;
1746C_word t4;
1747C_word t5;
1748C_word t6;
1749loop:
1750C_stack_check;
1751t2=(C_word)C_slot(t1,C_fix(1));
1752t3=(C_word)C_eqp(t2,C_SCHEME_END_OF_LIST);
1753if(C_truep(t3)){
1754return(t1);}
1755else{
1756t4=(C_word)C_slot(t1,C_fix(1));
1757t6=t4;
1758t1=t6;
1759goto loop;}}
1760
1761/* k3766 in k3763 in queue-push-back-list! in k686 */
1762static void C_fcall f_3768(C_word t0,C_word t1){
1763C_word tmp;
1764C_word t2;
1765C_word t3;
1766C_word *a;
1767t2=(C_word)C_i_setslot(((C_word*)t0)[4],C_fix(1),((C_word*)t0)[3]);
1768t3=((C_word*)t0)[2];
1769((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_i_setslot(((C_word*)t0)[4],C_fix(2),t1));}
1770
1771/* queue-push-back! in k686 */
1772static void C_ccall f_3726(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1773C_word tmp;
1774C_word t4;
1775C_word t5;
1776C_word t6;
1777C_word t7;
1778C_word t8;
1779C_word t9;
1780C_word t10;
1781C_word ab[3],*a=ab;
1782if(c!=4) C_bad_argc_2(c,4,t0);
1783C_check_for_interrupt;
1784if(!C_stack_probe(&a)){
1785C_save_and_reclaim((void*)tr4,(void*)f_3726,4,t0,t1,t2,t3);}
1786t4=(C_word)C_i_check_structure_2(t2,lf[97],lf[109]);
1787t5=(C_word)C_slot(t2,C_fix(1));
1788t6=(C_word)C_a_i_cons(&a,2,t3,t5);
1789t7=(C_word)C_i_setslot(t2,C_fix(1),t6);
1790t8=(C_word)C_slot(t2,C_fix(2));
1791t9=(C_word)C_eqp(C_SCHEME_END_OF_LIST,t8);
1792t10=t1;
1793((C_proc2)(void*)(*((C_word*)t10+1)))(2,t10,(C_truep(t9)?(C_word)C_i_setslot(t2,C_fix(2),t6):C_SCHEME_UNDEFINED));}
1794
1795/* list->queue in k686 */
1796static void C_ccall f_3672(C_word c,C_word t0,C_word t1,C_word t2){
1797C_word tmp;
1798C_word t3;
1799C_word t4;
1800C_word t5;
1801C_word t6;
1802C_word t7;
1803C_word t8;
1804C_word t9;
1805C_word ab[11],*a=ab;
1806if(c!=3) C_bad_argc_2(c,3,t0);
1807C_check_for_interrupt;
1808if(!C_stack_probe(&a)){
1809C_save_and_reclaim((void*)tr3,(void*)f_3672,3,t0,t1,t2);}
1810t3=(C_word)C_i_check_list_2(t2,lf[108]);
1811t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3683,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
1812t5=(C_word)C_eqp(t2,C_SCHEME_END_OF_LIST);
1813if(C_truep(t5)){
1814t6=t4;
1815f_3683(2,t6,C_SCHEME_END_OF_LIST);}
1816else{
1817t6=C_SCHEME_UNDEFINED;
1818t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
1819t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3691,a[2]=t2,a[3]=t7,a[4]=((C_word)li136),tmp=(C_word)a,a+=5,tmp));
1820t9=((C_word*)t7)[1];
1821f_3691(t9,t4,t2);}}
1822
1823/* do587 in list->queue in k686 */
1824static void C_fcall f_3691(C_word t0,C_word t1,C_word t2){
1825C_word tmp;
1826C_word t3;
1827C_word t4;
1828C_word t5;
1829C_word t6;
1830C_word t7;
1831C_word t8;
1832C_word ab[5],*a=ab;
1833C_check_for_interrupt;
1834if(!C_stack_probe(&a)){
1835C_save_and_reclaim((void*)trf_3691,NULL,3,t0,t1,t2);}
1836t3=(C_word)C_slot(t2,C_fix(1));
1837t4=(C_word)C_eqp(t3,C_SCHEME_END_OF_LIST);
1838if(C_truep(t4)){
1839t5=t1;
1840((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,t2);}
1841else{
1842t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3701,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
1843t6=(C_word)C_i_not((C_word)C_blockp(t2));
1844t7=(C_truep(t6)?t6:(C_word)C_i_not((C_word)C_pairp(t2)));
1845if(C_truep(t7)){
1846/* data-structures.scm: 900  ##sys#not-a-proper-list-error */
1847t8=*((C_word*)lf[34]+1);
1848((C_proc4)(void*)(*((C_word*)t8+1)))(4,t8,t5,((C_word*)t0)[2],lf[108]);}
1849else{
1850t8=t5;
1851f_3701(2,t8,C_SCHEME_UNDEFINED);}}}
1852
1853/* k3699 in do587 in list->queue in k686 */
1854static void C_ccall f_3701(C_word c,C_word t0,C_word t1){
1855C_word tmp;
1856C_word t2;
1857C_word t3;
1858C_word *a;
1859t2=(C_word)C_slot(((C_word*)t0)[4],C_fix(1));
1860t3=((C_word*)((C_word*)t0)[3])[1];
1861f_3691(t3,((C_word*)t0)[2],t2);}
1862
1863/* k3681 in list->queue in k686 */
1864static void C_ccall f_3683(C_word c,C_word t0,C_word t1){
1865C_word tmp;
1866C_word t2;
1867C_word ab[4],*a=ab;
1868C_check_for_interrupt;
1869if(!C_stack_probe(&a)){
1870C_save_and_reclaim((void*)tr2,(void*)f_3683,2,t0,t1);}
1871t2=((C_word*)t0)[3];
1872((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_a_i_record(&a,3,lf[97],((C_word*)t0)[2],t1));}
1873
1874/* queue->list in k686 */
1875static void C_ccall f_3663(C_word c,C_word t0,C_word t1,C_word t2){
1876C_word tmp;
1877C_word t3;
1878C_word t4;
1879C_word *a;
1880if(c!=3) C_bad_argc_2(c,3,t0);
1881C_check_for_interrupt;
1882if(!C_stack_probe(&a)){
1883C_save_and_reclaim((void*)tr3,(void*)f_3663,3,t0,t1,t2);}
1884t3=(C_word)C_i_check_structure_2(t2,lf[97],lf[107]);
1885t4=t1;
1886((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)C_slot(t2,C_fix(1)));}
1887
1888/* queue-remove! in k686 */
1889static void C_ccall f_3627(C_word c,C_word t0,C_word t1,C_word t2){
1890C_word tmp;
1891C_word t3;
1892C_word t4;
1893C_word t5;
1894C_word t6;
1895C_word t7;
1896C_word ab[5],*a=ab;
1897if(c!=3) C_bad_argc_2(c,3,t0);
1898C_check_for_interrupt;
1899if(!C_stack_probe(&a)){
1900C_save_and_reclaim((void*)tr3,(void*)f_3627,3,t0,t1,t2);}
1901t3=(C_word)C_i_check_structure_2(t2,lf[97],lf[105]);
1902t4=(C_word)C_slot(t2,C_fix(1));
1903t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3637,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
1904t6=(C_word)C_eqp(C_SCHEME_END_OF_LIST,t4);
1905if(C_truep(t6)){
1906/* data-structures.scm: 878  ##sys#error */
1907t7=*((C_word*)lf[31]+1);
1908((C_proc5)(void*)(*((C_word*)t7+1)))(5,t7,t5,lf[105],lf[106],t2);}
1909else{
1910t7=t5;
1911f_3637(2,t7,C_SCHEME_UNDEFINED);}}
1912
1913/* k3635 in queue-remove! in k686 */
1914static void C_ccall f_3637(C_word c,C_word t0,C_word t1){
1915C_word tmp;
1916C_word t2;
1917C_word t3;
1918C_word t4;
1919C_word t5;
1920C_word t6;
1921C_word *a;
1922t2=(C_word)C_slot(((C_word*)t0)[4],C_fix(1));
1923t3=(C_word)C_i_setslot(((C_word*)t0)[3],C_fix(1),t2);
1924t4=(C_word)C_eqp(C_SCHEME_END_OF_LIST,t2);
1925t5=(C_truep(t4)?(C_word)C_i_set_i_slot(((C_word*)t0)[3],C_fix(2),C_SCHEME_END_OF_LIST):C_SCHEME_UNDEFINED);
1926t6=((C_word*)t0)[2];
1927((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,(C_word)C_slot(((C_word*)t0)[4],C_fix(0)));}
1928
1929/* queue-add! in k686 */
1930static void C_ccall f_3595(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
1931C_word tmp;
1932C_word t4;
1933C_word t5;
1934C_word t6;
1935C_word t7;
1936C_word t8;
1937C_word t9;
1938C_word t10;
1939C_word ab[8],*a=ab;
1940if(c!=4) C_bad_argc_2(c,4,t0);
1941C_check_for_interrupt;
1942if(!C_stack_probe(&a)){
1943C_save_and_reclaim((void*)tr4,(void*)f_3595,4,t0,t1,t2,t3);}
1944t4=(C_word)C_i_check_structure_2(t2,lf[97],lf[104]);
1945t5=(C_word)C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
1946t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3605,a[2]=t1,a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
1947t7=(C_word)C_slot(t2,C_fix(1));
1948t8=(C_word)C_eqp(C_SCHEME_END_OF_LIST,t7);
1949if(C_truep(t8)){
1950t9=t6;
1951f_3605(t9,(C_word)C_i_setslot(t2,C_fix(1),t5));}
1952else{
1953t9=(C_word)C_slot(t2,C_fix(2));
1954t10=t6;
1955f_3605(t10,(C_word)C_i_setslot(t9,C_fix(1),t5));}}
1956
1957/* k3603 in queue-add! in k686 */
1958static void C_fcall f_3605(C_word t0,C_word t1){
1959C_word tmp;
1960C_word t2;
1961C_word t3;
1962C_word *a;
1963t2=(C_word)C_i_setslot(((C_word*)t0)[4],C_fix(2),((C_word*)t0)[3]);
1964t3=((C_word*)t0)[2];
1965((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,C_SCHEME_UNDEFINED);}
1966
1967/* queue-last in k686 */
1968static void C_ccall f_3574(C_word c,C_word t0,C_word t1,C_word t2){
1969C_word tmp;
1970C_word t3;
1971C_word t4;
1972C_word t5;
1973C_word t6;
1974C_word t7;
1975C_word ab[4],*a=ab;
1976if(c!=3) C_bad_argc_2(c,3,t0);
1977C_check_for_interrupt;
1978if(!C_stack_probe(&a)){
1979C_save_and_reclaim((void*)tr3,(void*)f_3574,3,t0,t1,t2);}
1980t3=(C_word)C_i_check_structure_2(t2,lf[97],lf[102]);
1981t4=(C_word)C_slot(t2,C_fix(2));
1982t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3584,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
1983t6=(C_word)C_eqp(C_SCHEME_END_OF_LIST,t4);
1984if(C_truep(t6)){
1985/* data-structures.scm: 859  ##sys#error */
1986t7=*((C_word*)lf[31]+1);
1987((C_proc5)(void*)(*((C_word*)t7+1)))(5,t7,t5,lf[102],lf[103],t2);}
1988else{
1989t7=t5;
1990f_3584(2,t7,C_SCHEME_UNDEFINED);}}
1991
1992/* k3582 in queue-last in k686 */
1993static void C_ccall f_3584(C_word c,C_word t0,C_word t1){
1994C_word tmp;
1995C_word t2;
1996C_word *a;
1997t2=((C_word*)t0)[3];
1998((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_slot(((C_word*)t0)[2],C_fix(0)));}
1999
2000/* queue-first in k686 */
2001static void C_ccall f_3553(C_word c,C_word t0,C_word t1,C_word t2){
2002C_word tmp;
2003C_word t3;
2004C_word t4;
2005C_word t5;
2006C_word t6;
2007C_word t7;
2008C_word ab[4],*a=ab;
2009if(c!=3) C_bad_argc_2(c,3,t0);
2010C_check_for_interrupt;
2011if(!C_stack_probe(&a)){
2012C_save_and_reclaim((void*)tr3,(void*)f_3553,3,t0,t1,t2);}
2013t3=(C_word)C_i_check_structure_2(t2,lf[97],lf[100]);
2014t4=(C_word)C_slot(t2,C_fix(1));
2015t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3563,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
2016t6=(C_word)C_eqp(C_SCHEME_END_OF_LIST,t4);
2017if(C_truep(t6)){
2018/* data-structures.scm: 848  ##sys#error */
2019t7=*((C_word*)lf[31]+1);
2020((C_proc5)(void*)(*((C_word*)t7+1)))(5,t7,t5,lf[100],lf[101],t2);}
2021else{
2022t7=t5;
2023f_3563(2,t7,C_SCHEME_UNDEFINED);}}
2024
2025/* k3561 in queue-first in k686 */
2026static void C_ccall f_3563(C_word c,C_word t0,C_word t1){
2027C_word tmp;
2028C_word t2;
2029C_word *a;
2030t2=((C_word*)t0)[3];
2031((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_slot(((C_word*)t0)[2],C_fix(0)));}
2032
2033/* queue-empty? in k686 */
2034static void C_ccall f_3540(C_word c,C_word t0,C_word t1,C_word t2){
2035C_word tmp;
2036C_word t3;
2037C_word t4;
2038C_word t5;
2039C_word *a;
2040if(c!=3) C_bad_argc_2(c,3,t0);
2041C_check_for_interrupt;
2042if(!C_stack_probe(&a)){
2043C_save_and_reclaim((void*)tr3,(void*)f_3540,3,t0,t1,t2);}
2044t3=(C_word)C_i_check_structure_2(t2,lf[97],lf[99]);
2045t4=(C_word)C_slot(t2,C_fix(1));
2046t5=t1;
2047((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,(C_word)C_eqp(C_SCHEME_END_OF_LIST,t4));}
2048
2049/* queue? in k686 */
2050static void C_ccall f_3534(C_word c,C_word t0,C_word t1,C_word t2){
2051C_word tmp;
2052C_word t3;
2053C_word *a;
2054if(c!=3) C_bad_argc_2(c,3,t0);
2055C_check_for_interrupt;
2056if(!C_stack_probe(&a)){
2057C_save_and_reclaim((void*)tr3,(void*)f_3534,3,t0,t1,t2);}
2058t3=t1;
2059((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_i_structurep(t2,lf[97]));}
2060
2061/* make-queue in k686 */
2062static void C_ccall f_3528(C_word c,C_word t0,C_word t1){
2063C_word tmp;
2064C_word t2;
2065C_word ab[4],*a=ab;
2066if(c!=2) C_bad_argc_2(c,2,t0);
2067C_check_for_interrupt;
2068if(!C_stack_probe(&a)){
2069C_save_and_reclaim((void*)tr2,(void*)f_3528,2,t0,t1);}
2070t2=t1;
2071((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_a_i_record(&a,3,lf[97],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST));}
2072
2073/* binary-search in k686 */
2074static void C_ccall f_3445(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
2075C_word tmp;
2076C_word t4;
2077C_word t5;
2078C_word t6;
2079C_word t7;
2080C_word ab[11],*a=ab;
2081if(c!=4) C_bad_argc_2(c,4,t0);
2082C_check_for_interrupt;
2083if(!C_stack_probe(&a)){
2084C_save_and_reclaim((void*)tr4,(void*)f_3445,4,t0,t1,t2,t3);}
2085t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
2086t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3449,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
2087if(C_truep((C_word)C_i_pairp(((C_word*)t4)[1]))){
2088t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3523,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
2089/* data-structures.scm: 805  list->vector */
2090t7=((C_word*)t0)[2];
2091((C_proc3)C_retrieve_proc(t7))(3,t7,t6,((C_word*)t4)[1]);}
2092else{
2093t6=t5;
2094f_3449(t6,(C_word)C_i_check_vector_2(((C_word*)t4)[1],lf[95]));}}
2095
2096/* k3521 in binary-search in k686 */
2097static void C_ccall f_3523(C_word c,C_word t0,C_word t1){
2098C_word tmp;
2099C_word t2;
2100C_word t3;
2101C_word *a;
2102t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,t1);
2103t3=((C_word*)t0)[2];
2104f_3449(t3,t2);}
2105
2106/* k3447 in binary-search in k686 */
2107static void C_fcall f_3449(C_word t0,C_word t1){
2108C_word tmp;
2109C_word t2;
2110C_word t3;
2111C_word t4;
2112C_word t5;
2113C_word t6;
2114C_word ab[8],*a=ab;
2115C_check_for_interrupt;
2116if(!C_stack_probe(&a)){
2117C_save_and_reclaim((void*)trf_3449,NULL,2,t0,t1);}
2118t2=(C_word)C_block_size(((C_word*)((C_word*)t0)[4])[1]);
2119if(C_truep((C_word)C_fixnum_greaterp(t2,C_fix(0)))){
2120t3=C_SCHEME_UNDEFINED;
2121t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
2122t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3463,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word)li126),tmp=(C_word)a,a+=6,tmp));
2123t6=((C_word*)t4)[1];
2124f_3463(t6,((C_word*)t0)[2],C_fix(0),t2);}
2125else{
2126t3=((C_word*)t0)[2];
2127((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,C_SCHEME_FALSE);}}
2128
2129/* loop in k3447 in binary-search in k686 */
2130static void C_fcall f_3463(C_word t0,C_word t1,C_word t2,C_word t3){
2131C_word tmp;
2132C_word t4;
2133C_word t5;
2134C_word t6;
2135C_word t7;
2136C_word t8;
2137C_word t9;
2138C_word ab[7],*a=ab;
2139C_check_for_interrupt;
2140if(!C_stack_probe(&a)){
2141C_save_and_reclaim((void*)trf_3463,NULL,4,t0,t1,t2,t3);}
2142t4=(C_word)C_fixnum_difference(t3,t2);
2143t5=(C_word)C_fixnum_divide(t4,C_fix(2));
2144t6=(C_word)C_fixnum_plus(t2,t5);
2145t7=(C_word)C_slot(((C_word*)((C_word*)t0)[4])[1],t6);
2146t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3473,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t6,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
2147/* data-structures.scm: 813  proc */
2148t9=((C_word*)t0)[2];
2149((C_proc3)C_retrieve_proc(t9))(3,t9,t8,t7);}
2150
2151/* k3471 in loop in k3447 in binary-search in k686 */
2152static void C_ccall f_3473(C_word c,C_word t0,C_word t1){
2153C_word tmp;
2154C_word t2;
2155C_word t3;
2156C_word t4;
2157C_word t5;
2158C_word *a;
2159t2=(C_word)C_eqp(t1,C_fix(0));
2160if(C_truep(t2)){
2161t3=((C_word*)t0)[6];
2162((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,((C_word*)t0)[5]);}
2163else{
2164if(C_truep((C_word)C_fixnum_lessp(t1,C_fix(0)))){
2165t3=(C_word)C_eqp(((C_word*)t0)[4],((C_word*)t0)[5]);
2166if(C_truep(t3)){
2167t4=((C_word*)t0)[6];
2168((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,C_SCHEME_FALSE);}
2169else{
2170/* data-structures.scm: 815  loop */
2171t4=((C_word*)((C_word*)t0)[3])[1];
2172f_3463(t4,((C_word*)t0)[6],((C_word*)t0)[2],((C_word*)t0)[5]);}}
2173else{
2174t3=(C_word)C_eqp(((C_word*)t0)[2],((C_word*)t0)[5]);
2175if(C_truep(t3)){
2176t4=((C_word*)t0)[6];
2177((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,C_SCHEME_FALSE);}
2178else{
2179/* data-structures.scm: 816  loop */
2180t4=((C_word*)((C_word*)t0)[3])[1];
2181f_3463(t4,((C_word*)t0)[6],((C_word*)t0)[5],((C_word*)t0)[4]);}}}}
2182
2183/* sort in k686 */
2184static void C_ccall f_3418(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
2185C_word tmp;
2186C_word t4;
2187C_word t5;
2188C_word t6;
2189C_word t7;
2190C_word ab[11],*a=ab;
2191if(c!=4) C_bad_argc_2(c,4,t0);
2192C_check_for_interrupt;
2193if(!C_stack_probe(&a)){
2194C_save_and_reclaim((void*)tr4,(void*)f_3418,4,t0,t1,t2,t3);}
2195if(C_truep((C_word)C_i_vectorp(t2))){
2196t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3432,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
2197t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3436,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
2198/* data-structures.scm: 795  vector->list */
2199t6=*((C_word*)lf[91]+1);
2200((C_proc3)(void*)(*((C_word*)t6+1)))(3,t6,t5,t2);}
2201else{
2202t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3443,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
2203/* data-structures.scm: 796  append */
2204t5=*((C_word*)lf[94]+1);
2205((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t4,t2,C_SCHEME_END_OF_LIST);}}
2206
2207/* k3441 in sort in k686 */
2208static void C_ccall f_3443(C_word c,C_word t0,C_word t1){
2209C_word tmp;
2210C_word t2;
2211C_word *a;
2212/* data-structures.scm: 796  sort! */
2213t2=*((C_word*)lf[42]+1);
2214((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2215
2216/* k3434 in sort in k686 */
2217static void C_ccall f_3436(C_word c,C_word t0,C_word t1){
2218C_word tmp;
2219C_word t2;
2220C_word *a;
2221/* data-structures.scm: 795  sort! */
2222t2=*((C_word*)lf[42]+1);
2223((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2224
2225/* k3430 in sort in k686 */
2226static void C_ccall f_3432(C_word c,C_word t0,C_word t1){
2227C_word tmp;
2228C_word t2;
2229C_word *a;
2230/* data-structures.scm: 795  list->vector */
2231t2=*((C_word*)lf[93]+1);
2232((C_proc3)(void*)(*((C_word*)t2+1)))(3,t2,((C_word*)t0)[2],t1);}
2233
2234/* sort! in k686 */
2235static void C_ccall f_3285(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
2236C_word tmp;
2237C_word t4;
2238C_word t5;
2239C_word t6;
2240C_word t7;
2241C_word t8;
2242C_word t9;
2243C_word t10;
2244C_word t11;
2245C_word t12;
2246C_word ab[17],*a=ab;
2247if(c!=4) C_bad_argc_2(c,4,t0);
2248C_check_for_interrupt;
2249if(!C_stack_probe(&a)){
2250C_save_and_reclaim((void*)tr4,(void*)f_3285,4,t0,t1,t2,t3);}
2251t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
2252t5=C_SCHEME_UNDEFINED;
2253t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
2254t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3288,a[2]=t4,a[3]=t6,a[4]=t3,a[5]=((C_word)li122),tmp=(C_word)a,a+=6,tmp));
2255if(C_truep((C_word)C_i_vectorp(((C_word*)t4)[1]))){
2256t8=(C_word)C_i_vector_length(((C_word*)t4)[1]);
2257t9=((C_word*)t4)[1];
2258t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3375,a[2]=t8,a[3]=t6,a[4]=t1,a[5]=t9,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
2259/* data-structures.scm: 778  vector->list */
2260t11=*((C_word*)lf[91]+1);
2261((C_proc3)(void*)(*((C_word*)t11+1)))(3,t11,t10,((C_word*)t4)[1]);}
2262else{
2263t8=(C_word)C_i_length(((C_word*)t4)[1]);
2264/* data-structures.scm: 784  step */
2265t9=((C_word*)t6)[1];
2266f_3288(t9,t1,t8);}}
2267
2268/* k3373 in sort! in k686 */
2269static void C_ccall f_3375(C_word c,C_word t0,C_word t1){
2270C_word tmp;
2271C_word t2;
2272C_word t3;
2273C_word t4;
2274C_word ab[4],*a=ab;
2275C_check_for_interrupt;
2276if(!C_stack_probe(&a)){
2277C_save_and_reclaim((void*)tr2,(void*)f_3375,2,t0,t1);}
2278t2=C_mutate(((C_word *)((C_word*)t0)[6])+1,t1);
2279t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3382,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
2280/* data-structures.scm: 779  step */
2281t4=((C_word*)((C_word*)t0)[3])[1];
2282f_3288(t4,t3,((C_word*)t0)[2]);}
2283
2284/* k3380 in k3373 in sort! in k686 */
2285static void C_ccall f_3382(C_word c,C_word t0,C_word t1){
2286C_word tmp;
2287C_word t2;
2288C_word t3;
2289C_word t4;
2290C_word t5;
2291C_word ab[7],*a=ab;
2292C_check_for_interrupt;
2293if(!C_stack_probe(&a)){
2294C_save_and_reclaim((void*)tr2,(void*)f_3382,2,t0,t1);}
2295t2=C_SCHEME_UNDEFINED;
2296t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
2297t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3384,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word)li123),tmp=(C_word)a,a+=5,tmp));
2298t5=((C_word*)t3)[1];
2299f_3384(t5,((C_word*)t0)[2],t1,C_fix(0));}
2300
2301/* do538 in k3380 in k3373 in sort! in k686 */
2302static void C_fcall f_3384(C_word t0,C_word t1,C_word t2,C_word t3){
2303C_word tmp;
2304C_word t4;
2305C_word t5;
2306C_word t6;
2307C_word t7;
2308C_word t8;
2309C_word t9;
2310C_word t10;
2311C_word t11;
2312C_word *a;
2313loop:
2314a=C_alloc(4);
2315C_check_for_interrupt;
2316if(!C_stack_probe(a)){
2317C_save_and_reclaim((void*)trf_3384,NULL,4,t0,t1,t2,t3);}
2318if(C_truep((C_word)C_i_nullp(t2))){
2319t4=t1;
2320((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,((C_word*)t0)[3]);}
2321else{
2322t4=(C_word)C_i_car(t2);
2323t5=(C_word)C_i_vector_set(((C_word*)t0)[3],t3,t4);
2324t6=(C_word)C_i_cdr(t2);
2325t7=(C_word)C_a_i_plus(&a,2,t3,C_fix(1));
2326t9=t1;
2327t10=t6;
2328t11=t7;
2329t1=t9;
2330t2=t10;
2331t3=t11;
2332goto loop;}}
2333
2334/* step in sort! in k686 */
2335static void C_fcall f_3288(C_word t0,C_word t1,C_word t2){
2336C_word tmp;
2337C_word t3;
2338C_word t4;
2339C_word t5;
2340C_word t6;
2341C_word t7;
2342C_word t8;
2343C_word t9;
2344C_word t10;
2345C_word t11;
2346C_word t12;
2347C_word t13;
2348C_word t14;
2349C_word t15;
2350C_word ab[16],*a=ab;
2351C_check_for_interrupt;
2352if(!C_stack_probe(&a)){
2353C_save_and_reclaim((void*)trf_3288,NULL,3,t0,t1,t2);}
2354if(C_truep((C_word)C_i_greaterp(t2,C_fix(2)))){
2355t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3298,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
2356C_quotient(4,0,t3,t2,C_fix(2));}
2357else{
2358if(C_truep((C_word)C_i_nequalp(t2,C_fix(2)))){
2359t3=(C_word)C_i_car(((C_word*)((C_word*)t0)[2])[1]);
2360t4=(C_word)C_i_cadr(((C_word*)((C_word*)t0)[2])[1]);
2361t5=((C_word*)((C_word*)t0)[2])[1];
2362t6=(C_word)C_i_cddr(((C_word*)((C_word*)t0)[2])[1]);
2363t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6);
2364t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3329,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
2365t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3339,a[2]=t3,a[3]=t8,a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
2366/* data-structures.scm: 763  less? */
2367t10=((C_word*)t0)[4];
2368((C_proc4)C_retrieve_proc(t10))(4,t10,t9,t4,t3);}
2369else{
2370if(C_truep((C_word)C_i_nequalp(t2,C_fix(1)))){
2371t3=((C_word*)((C_word*)t0)[2])[1];
2372t4=(C_word)C_i_cdr(((C_word*)((C_word*)t0)[2])[1]);
2373t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
2374t6=(C_word)C_i_set_cdr(t3,C_SCHEME_END_OF_LIST);
2375t7=t1;
2376((C_proc2)(void*)(*((C_word*)t7+1)))(2,t7,t3);}
2377else{
2378t3=t1;
2379((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,C_SCHEME_END_OF_LIST);}}}}
2380
2381/* k3337 in step in sort! in k686 */
2382static void C_ccall f_3339(C_word c,C_word t0,C_word t1){
2383C_word tmp;
2384C_word t2;
2385C_word t3;
2386C_word t4;
2387C_word *a;
2388if(C_truep(t1)){
2389t2=(C_word)C_i_set_car(((C_word*)t0)[5],((C_word*)t0)[4]);
2390t3=(C_word)C_i_cdr(((C_word*)t0)[5]);
2391t4=((C_word*)t0)[3];
2392f_3329(t4,(C_word)C_i_set_car(t3,((C_word*)t0)[2]));}
2393else{
2394t2=((C_word*)t0)[3];
2395f_3329(t2,C_SCHEME_UNDEFINED);}}
2396
2397/* k3327 in step in sort! in k686 */
2398static void C_fcall f_3329(C_word t0,C_word t1){
2399C_word tmp;
2400C_word t2;
2401C_word t3;
2402C_word t4;
2403C_word *a;
2404t2=(C_word)C_i_cdr(((C_word*)t0)[3]);
2405t3=(C_word)C_i_set_cdr(t2,C_SCHEME_END_OF_LIST);
2406t4=((C_word*)t0)[2];
2407((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,((C_word*)t0)[3]);}
2408
2409/* k3296 in step in sort! in k686 */
2410static void C_ccall f_3298(C_word c,C_word t0,C_word t1){
2411C_word tmp;
2412C_word t2;
2413C_word t3;
2414C_word ab[7],*a=ab;
2415C_check_for_interrupt;
2416if(!C_stack_probe(&a)){
2417C_save_and_reclaim((void*)tr2,(void*)f_3298,2,t0,t1);}
2418t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3301,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
2419/* data-structures.scm: 754  step */
2420t3=((C_word*)((C_word*)t0)[2])[1];
2421f_3288(t3,t2,t1);}
2422
2423/* k3299 in k3296 in step in sort! in k686 */
2424static void C_ccall f_3301(C_word c,C_word t0,C_word t1){
2425C_word tmp;
2426C_word t2;
2427C_word t3;
2428C_word t4;
2429C_word ab[9],*a=ab;
2430C_check_for_interrupt;
2431if(!C_stack_probe(&a)){
2432C_save_and_reclaim((void*)tr2,(void*)f_3301,2,t0,t1);}
2433t2=(C_word)C_a_i_minus(&a,2,((C_word*)t0)[6],((C_word*)t0)[5]);
2434t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3307,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
2435/* data-structures.scm: 756  step */
2436t4=((C_word*)((C_word*)t0)[2])[1];
2437f_3288(t4,t3,t2);}
2438
2439/* k3305 in k3299 in k3296 in step in sort! in k686 */
2440static void C_ccall f_3307(C_word c,C_word t0,C_word t1){
2441C_word tmp;
2442C_word t2;
2443C_word *a;
2444/* data-structures.scm: 757  merge! */
2445t2=*((C_word*)lf[90]+1);
2446((C_proc5)(void*)(*((C_word*)t2+1)))(5,t2,((C_word*)t0)[4],((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2447
2448/* merge! in k686 */
2449static void C_ccall f_3153(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2450C_word tmp;
2451C_word t5;
2452C_word t6;
2453C_word t7;
2454C_word t8;
2455C_word t9;
2456C_word t10;
2457C_word t11;
2458C_word ab[13],*a=ab;
2459if(c!=5) C_bad_argc_2(c,5,t0);
2460C_check_for_interrupt;
2461if(!C_stack_probe(&a)){
2462C_save_and_reclaim((void*)tr5,(void*)f_3153,5,t0,t1,t2,t3,t4);}
2463t5=C_SCHEME_UNDEFINED;
2464t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
2465t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3156,a[2]=t4,a[3]=t6,a[4]=((C_word)li120),tmp=(C_word)a,a+=5,tmp));
2466if(C_truep((C_word)C_i_nullp(t2))){
2467t8=t1;
2468((C_proc2)(void*)(*((C_word*)t8+1)))(2,t8,t3);}
2469else{
2470if(C_truep((C_word)C_i_nullp(t3))){
2471t8=t1;
2472((C_proc2)(void*)(*((C_word*)t8+1)))(2,t8,t2);}
2473else{
2474t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3235,a[2]=t6,a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
2475t9=(C_word)C_i_car(t3);
2476t10=(C_word)C_i_car(t2);
2477/* data-structures.scm: 731  less? */
2478t11=t4;
2479((C_proc4)C_retrieve_proc(t11))(4,t11,t8,t9,t10);}}}
2480
2481/* k3233 in merge! in k686 */
2482static void C_ccall f_3235(C_word c,C_word t0,C_word t1){
2483C_word tmp;
2484C_word t2;
2485C_word t3;
2486C_word t4;
2487C_word t5;
2488C_word t6;
2489C_word t7;
2490C_word t8;
2491C_word ab[8],*a=ab;
2492C_check_for_interrupt;
2493if(!C_stack_probe(&a)){
2494C_save_and_reclaim((void*)tr2,(void*)f_3235,2,t0,t1);}
2495if(C_truep(t1)){
2496t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3238,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
2497t3=(C_word)C_i_cdr(((C_word*)t0)[4]);
2498if(C_truep((C_word)C_i_nullp(t3))){
2499t4=t2;
2500f_3238(2,t4,(C_word)C_i_set_cdr(((C_word*)t0)[4],((C_word*)t0)[3]));}
2501else{
2502t4=(C_word)C_i_cdr(((C_word*)t0)[4]);
2503/* data-structures.scm: 734  loop */
2504t5=((C_word*)((C_word*)t0)[2])[1];
2505f_3156(t5,t2,((C_word*)t0)[4],((C_word*)t0)[3],t4);}}
2506else{
2507t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3258,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
2508t3=(C_word)C_i_cdr(((C_word*)t0)[3]);
2509if(C_truep((C_word)C_i_nullp(t3))){
2510t4=t2;
2511f_3258(2,t4,(C_word)C_i_set_cdr(((C_word*)t0)[3],((C_word*)t0)[4]));}
2512else{
2513t4=(C_word)C_i_cdr(((C_word*)t0)[3]);
2514/* data-structures.scm: 739  loop */
2515t5=((C_word*)((C_word*)t0)[2])[1];
2516f_3156(t5,t2,((C_word*)t0)[3],t4,((C_word*)t0)[4]);}}}
2517
2518/* k3256 in k3233 in merge! in k686 */
2519static void C_ccall f_3258(C_word c,C_word t0,C_word t1){
2520C_word tmp;
2521C_word t2;
2522C_word *a;
2523t2=((C_word*)t0)[3];
2524((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,((C_word*)t0)[2]);}
2525
2526/* k3236 in k3233 in merge! in k686 */
2527static void C_ccall f_3238(C_word c,C_word t0,C_word t1){
2528C_word tmp;
2529C_word t2;
2530C_word *a;
2531t2=((C_word*)t0)[3];
2532((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,((C_word*)t0)[2]);}
2533
2534/* loop in merge! in k686 */
2535static void C_fcall f_3156(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2536C_word tmp;
2537C_word t5;
2538C_word t6;
2539C_word t7;
2540C_word t8;
2541C_word ab[7],*a=ab;
2542C_check_for_interrupt;
2543if(!C_stack_probe(&a)){
2544C_save_and_reclaim((void*)trf_3156,NULL,5,t0,t1,t2,t3,t4);}
2545t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3163,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t1,a[5]=t4,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
2546t6=(C_word)C_i_car(t4);
2547t7=(C_word)C_i_car(t3);
2548/* data-structures.scm: 716  less? */
2549t8=((C_word*)t0)[2];
2550((C_proc4)C_retrieve_proc(t8))(4,t8,t5,t6,t7);}
2551
2552/* k3161 in loop in merge! in k686 */
2553static void C_ccall f_3163(C_word c,C_word t0,C_word t1){
2554C_word tmp;
2555C_word t2;
2556C_word t3;
2557C_word t4;
2558C_word t5;
2559C_word t6;
2560C_word t7;
2561C_word t8;
2562C_word *a;
2563if(C_truep(t1)){
2564t2=(C_word)C_i_set_cdr(((C_word*)t0)[6],((C_word*)t0)[5]);
2565t3=(C_word)C_i_cdr(((C_word*)t0)[5]);
2566if(C_truep((C_word)C_i_nullp(t3))){
2567t4=((C_word*)t0)[4];
2568((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)C_i_set_cdr(((C_word*)t0)[5],((C_word*)t0)[3]));}
2569else{
2570t4=(C_word)C_i_cdr(((C_word*)t0)[5]);
2571/* data-structures.scm: 721  loop */
2572t5=((C_word*)((C_word*)t0)[2])[1];
2573f_3156(t5,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[3],t4);}}
2574else{
2575t2=(C_word)C_i_set_cdr(((C_word*)t0)[6],((C_word*)t0)[3]);
2576t3=(C_word)C_i_cdr(((C_word*)t0)[3]);
2577if(C_truep((C_word)C_i_nullp(t3))){
2578t4=((C_word*)t0)[4];
2579((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)C_i_set_cdr(((C_word*)t0)[3],((C_word*)t0)[5]));}
2580else{
2581t4=(C_word)C_i_cdr(((C_word*)t0)[3]);
2582/* data-structures.scm: 727  loop */
2583t5=((C_word*)((C_word*)t0)[2])[1];
2584f_3156(t5,((C_word*)t0)[4],((C_word*)t0)[3],t4,((C_word*)t0)[5]);}}}
2585
2586/* merge in k686 */
2587static void C_ccall f_3054(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
2588C_word tmp;
2589C_word t5;
2590C_word t6;
2591C_word t7;
2592C_word t8;
2593C_word t9;
2594C_word t10;
2595C_word t11;
2596C_word t12;
2597C_word ab[7],*a=ab;
2598if(c!=5) C_bad_argc_2(c,5,t0);
2599C_check_for_interrupt;
2600if(!C_stack_probe(&a)){
2601C_save_and_reclaim((void*)tr5,(void*)f_3054,5,t0,t1,t2,t3,t4);}
2602if(C_truep((C_word)C_i_nullp(t2))){
2603t5=t1;
2604((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,t3);}
2605else{
2606if(C_truep((C_word)C_i_nullp(t3))){
2607t5=t1;
2608((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,t2);}
2609else{
2610t5=(C_word)C_i_car(t2);
2611t6=(C_word)C_i_cdr(t2);
2612t7=(C_word)C_i_car(t3);
2613t8=(C_word)C_i_cdr(t3);
2614t9=C_SCHEME_UNDEFINED;
2615t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
2616t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3088,a[2]=t4,a[3]=t10,a[4]=((C_word)li118),tmp=(C_word)a,a+=5,tmp));
2617t12=((C_word*)t10)[1];
2618f_3088(t12,t1,t5,t6,t7,t8);}}}
2619
2620/* loop in merge in k686 */
2621static void C_fcall f_3088(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
2622C_word tmp;
2623C_word t6;
2624C_word t7;
2625C_word ab[8],*a=ab;
2626C_check_for_interrupt;
2627if(!C_stack_probe(&a)){
2628C_save_and_reclaim((void*)trf_3088,NULL,6,t0,t1,t2,t3,t4,t5);}
2629t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3095,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t1,a[5]=t3,a[6]=t2,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
2630/* data-structures.scm: 699  less? */
2631t7=((C_word*)t0)[2];
2632((C_proc4)C_retrieve_proc(t7))(4,t7,t6,t4,t2);}
2633
2634/* k3093 in loop in merge in k686 */
2635static void C_ccall f_3095(C_word c,C_word t0,C_word t1){
2636C_word tmp;
2637C_word t2;
2638C_word t3;
2639C_word t4;
2640C_word t5;
2641C_word t6;
2642C_word t7;
2643C_word t8;
2644C_word t9;
2645C_word t10;
2646C_word ab[20],*a=ab;
2647C_check_for_interrupt;
2648if(!C_stack_probe(&a)){
2649C_save_and_reclaim((void*)tr2,(void*)f_3095,2,t0,t1);}
2650if(C_truep(t1)){
2651if(C_truep((C_word)C_i_nullp(((C_word*)t0)[7]))){
2652t2=(C_word)C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[5]);
2653t3=((C_word*)t0)[4];
2654((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_cons(&a,2,((C_word*)t0)[3],t2));}
2655else{
2656t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3115,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
2657t3=(C_word)C_i_car(((C_word*)t0)[7]);
2658t4=(C_word)C_i_cdr(((C_word*)t0)[7]);
2659/* data-structures.scm: 702  loop */
2660t5=((C_word*)((C_word*)t0)[2])[1];
2661f_3088(t5,t2,((C_word*)t0)[6],((C_word*)t0)[5],t3,t4);}}
2662else{
2663if(C_truep((C_word)C_i_nullp(((C_word*)t0)[5]))){
2664t2=(C_word)C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[7]);
2665t3=((C_word*)t0)[4];
2666((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_cons(&a,2,((C_word*)t0)[6],t2));}
2667else{
2668t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3143,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
2669t3=(C_word)C_i_car(((C_word*)t0)[5]);
2670t4=(C_word)C_i_cdr(((C_word*)t0)[5]);
2671/* data-structures.scm: 706  loop */
2672t5=((C_word*)((C_word*)t0)[2])[1];
2673f_3088(t5,t2,t3,t4,((C_word*)t0)[3],((C_word*)t0)[7]);}}}
2674
2675/* k3141 in k3093 in loop in merge in k686 */
2676static void C_ccall f_3143(C_word c,C_word t0,C_word t1){
2677C_word tmp;
2678C_word t2;
2679C_word ab[3],*a=ab;
2680C_check_for_interrupt;
2681if(!C_stack_probe(&a)){
2682C_save_and_reclaim((void*)tr2,(void*)f_3143,2,t0,t1);}
2683t2=((C_word*)t0)[3];
2684((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_a_i_cons(&a,2,((C_word*)t0)[2],t1));}
2685
2686/* k3113 in k3093 in loop in merge in k686 */
2687static void C_ccall f_3115(C_word c,C_word t0,C_word t1){
2688C_word tmp;
2689C_word t2;
2690C_word ab[3],*a=ab;
2691C_check_for_interrupt;
2692if(!C_stack_probe(&a)){
2693C_save_and_reclaim((void*)tr2,(void*)f_3115,2,t0,t1);}
2694t2=((C_word*)t0)[3];
2695((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_a_i_cons(&a,2,((C_word*)t0)[2],t1));}
2696
2697/* sorted? in k686 */
2698static void C_ccall f_2945(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
2699C_word tmp;
2700C_word t4;
2701C_word t5;
2702C_word t6;
2703C_word t7;
2704C_word t8;
2705C_word t9;
2706C_word t10;
2707C_word t11;
2708C_word t12;
2709C_word t13;
2710C_word ab[16],*a=ab;
2711if(c!=4) C_bad_argc_2(c,4,t0);
2712C_check_for_interrupt;
2713if(!C_stack_probe(&a)){
2714C_save_and_reclaim((void*)tr4,(void*)f_2945,4,t0,t1,t2,t3);}
2715if(C_truep((C_word)C_i_nullp(t2))){
2716t4=t1;
2717((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,C_SCHEME_TRUE);}
2718else{
2719if(C_truep((C_word)C_i_vectorp(t2))){
2720t4=(C_word)C_i_vector_length(t2);
2721if(C_truep((C_word)C_i_less_or_equalp(t4,C_fix(1)))){
2722t5=t1;
2723((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,C_SCHEME_TRUE);}
2724else{
2725t5=C_SCHEME_UNDEFINED;
2726t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
2727t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2972,a[2]=t3,a[3]=t2,a[4]=t6,a[5]=t4,a[6]=((C_word)li115),tmp=(C_word)a,a+=7,tmp));
2728t8=((C_word*)t6)[1];
2729f_2972(t8,t1,C_fix(1));}}
2730else{
2731t4=(C_word)C_i_car(t2);
2732t5=(C_word)C_i_cdr(t2);
2733t6=C_SCHEME_UNDEFINED;
2734t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
2735t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3020,a[2]=t3,a[3]=t7,a[4]=((C_word)li116),tmp=(C_word)a,a+=5,tmp));
2736t9=((C_word*)t7)[1];
2737f_3020(t9,t1,t4,t5);}}}
2738
2739/* loop in sorted? in k686 */
2740static void C_fcall f_3020(C_word t0,C_word t1,C_word t2,C_word t3){
2741C_word tmp;
2742C_word t4;
2743C_word t5;
2744C_word t6;
2745C_word t7;
2746C_word ab[5],*a=ab;
2747C_check_for_interrupt;
2748if(!C_stack_probe(&a)){
2749C_save_and_reclaim((void*)trf_3020,NULL,4,t0,t1,t2,t3);}
2750t4=(C_word)C_i_nullp(t3);
2751if(C_truep(t4)){
2752t5=t1;
2753((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,t4);}
2754else{
2755t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3048,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
2756t6=(C_word)C_i_car(t3);
2757/* data-structures.scm: 682  less? */
2758t7=((C_word*)t0)[2];
2759((C_proc4)C_retrieve_proc(t7))(4,t7,t5,t6,t2);}}
2760
2761/* k3046 in loop in sorted? in k686 */
2762static void C_ccall f_3048(C_word c,C_word t0,C_word t1){
2763C_word tmp;
2764C_word t2;
2765C_word t3;
2766C_word t4;
2767C_word *a;
2768if(C_truep(t1)){
2769t2=((C_word*)t0)[4];
2770((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_FALSE);}
2771else{
2772t2=(C_word)C_i_car(((C_word*)t0)[3]);
2773t3=(C_word)C_i_cdr(((C_word*)t0)[3]);
2774/* data-structures.scm: 683  loop */
2775t4=((C_word*)((C_word*)t0)[2])[1];
2776f_3020(t4,((C_word*)t0)[4],t2,t3);}}
2777
2778/* do485 in sorted? in k686 */
2779static void C_fcall f_2972(C_word t0,C_word t1,C_word t2){
2780C_word tmp;
2781C_word t3;
2782C_word t4;
2783C_word t5;
2784C_word t6;
2785C_word t7;
2786C_word t8;
2787C_word ab[10],*a=ab;
2788C_check_for_interrupt;
2789if(!C_stack_probe(&a)){
2790C_save_and_reclaim((void*)trf_2972,NULL,3,t0,t1,t2);}
2791t3=(C_word)C_i_nequalp(t2,((C_word*)t0)[5]);
2792t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2982,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
2793if(C_truep(t3)){
2794t5=t4;
2795f_2982(2,t5,t3);}
2796else{
2797t5=(C_word)C_i_vector_ref(((C_word*)t0)[3],t2);
2798t6=(C_word)C_a_i_minus(&a,2,t2,C_fix(1));
2799t7=(C_word)C_i_vector_ref(((C_word*)t0)[3],t6);
2800/* data-structures.scm: 676  less? */
2801t8=((C_word*)t0)[2];
2802((C_proc4)C_retrieve_proc(t8))(4,t8,t4,t5,t7);}}
2803
2804/* k2980 in do485 in sorted? in k686 */
2805static void C_ccall f_2982(C_word c,C_word t0,C_word t1){
2806C_word tmp;
2807C_word t2;
2808C_word t3;
2809C_word ab[4],*a=ab;
2810C_check_for_interrupt;
2811if(!C_stack_probe(&a)){
2812C_save_and_reclaim((void*)tr2,(void*)f_2982,2,t0,t1);}
2813if(C_truep(t1)){
2814t2=((C_word*)t0)[5];
2815((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_i_nequalp(((C_word*)t0)[4],((C_word*)t0)[3]));}
2816else{
2817t2=(C_word)C_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(1));
2818t3=((C_word*)((C_word*)t0)[2])[1];
2819f_2972(t3,((C_word*)t0)[5],t2);}}
2820
2821/* string-chomp in k686 */
2822static void C_ccall f_2893(C_word c,C_word t0,C_word t1,C_word t2,...){
2823C_word tmp;
2824C_word t3;
2825va_list v;
2826C_word *a,c2=c;
2827C_save_rest(t2,c2,3);
2828if(c<3) C_bad_min_argc_2(c,3,t0);
2829C_check_for_interrupt;
2830if(!C_demand(c*C_SIZEOF_PAIR+4)){
2831C_save_and_reclaim((void*)tr3r,(void*)f_2893r,3,t0,t1,t2);}
2832else{
2833a=C_alloc((c-3)*3);
2834t3=C_restore_rest(a,C_rest_count(0));
2835f_2893r(t0,t1,t2,t3);}}
2836
2837static void C_ccall f_2893r(C_word t0,C_word t1,C_word t2,C_word t3){
2838C_word tmp;
2839C_word t4;
2840C_word t5;
2841C_word t6;
2842C_word *a=C_alloc(4);
2843t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2897,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
2844if(C_truep((C_word)C_i_nullp(t3))){
2845t5=t4;
2846f_2897(2,t5,lf[87]);}
2847else{
2848t5=(C_word)C_i_cdr(t3);
2849if(C_truep((C_word)C_i_nullp(t5))){
2850t6=t4;
2851f_2897(2,t6,(C_word)C_i_car(t3));}
2852else{
2853/* ##sys#error */
2854t6=*((C_word*)lf[31]+1);
2855((C_proc4)(void*)(*((C_word*)t6+1)))(4,t6,t4,lf[0],t3);}}}
2856
2857/* k2895 in string-chomp in k686 */
2858static void C_ccall f_2897(C_word c,C_word t0,C_word t1){
2859C_word tmp;
2860C_word t2;
2861C_word t3;
2862C_word t4;
2863C_word t5;
2864C_word t6;
2865C_word t7;
2866C_word t8;
2867C_word t9;
2868C_word *a;
2869t2=(C_word)C_i_check_string_2(((C_word*)t0)[3],lf[86]);
2870t3=(C_word)C_i_check_string_2(t1,lf[86]);
2871t4=(C_word)C_block_size(((C_word*)t0)[3]);
2872t5=(C_word)C_block_size(t1);
2873t6=(C_word)C_fixnum_difference(t4,t5);
2874t7=(C_word)C_fixnum_greater_or_equal_p(t4,t5);
2875t8=(C_truep(t7)?(C_word)C_substring_compare(((C_word*)t0)[3],t1,t6,C_fix(0),t5):C_SCHEME_FALSE);
2876if(C_truep(t8)){
2877/* data-structures.scm: 643  ##sys#substring */
2878t9=*((C_word*)lf[75]+1);
2879((C_proc5)(void*)(*((C_word*)t9+1)))(5,t9,((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0),t6);}
2880else{
2881t9=((C_word*)t0)[2];
2882((C_proc2)(void*)(*((C_word*)t9+1)))(2,t9,((C_word*)t0)[3]);}}
2883
2884/* string-chop in k686 */
2885static void C_ccall f_2829(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
2886C_word tmp;
2887C_word t4;
2888C_word t5;
2889C_word t6;
2890C_word t7;
2891C_word t8;
2892C_word t9;
2893C_word t10;
2894C_word ab[8],*a=ab;
2895if(c!=4) C_bad_argc_2(c,4,t0);
2896C_check_for_interrupt;
2897if(!C_stack_probe(&a)){
2898C_save_and_reclaim((void*)tr4,(void*)f_2829,4,t0,t1,t2,t3);}
2899t4=(C_word)C_i_check_string_2(t2,lf[85]);
2900t5=(C_word)C_i_check_exact_2(t3,lf[85]);
2901t6=(C_word)C_block_size(t2);
2902t7=C_SCHEME_UNDEFINED;
2903t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
2904t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2844,a[2]=t8,a[3]=t2,a[4]=t3,a[5]=((C_word)li112),tmp=(C_word)a,a+=6,tmp));
2905t10=((C_word*)t8)[1];
2906f_2844(t10,t1,t6,C_fix(0));}
2907
2908/* loop in string-chop in k686 */
2909static void C_fcall f_2844(C_word t0,C_word t1,C_word t2,C_word t3){
2910C_word tmp;
2911C_word t4;
2912C_word t5;
2913C_word t6;
2914C_word t7;
2915C_word t8;
2916C_word ab[10],*a=ab;
2917C_check_for_interrupt;
2918if(!C_stack_probe(&a)){
2919C_save_and_reclaim((void*)trf_2844,NULL,4,t0,t1,t2,t3);}
2920if(C_truep((C_word)C_fixnum_less_or_equal_p(t2,C_fix(0)))){
2921t4=t1;
2922((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,C_SCHEME_END_OF_LIST);}
2923else{
2924if(C_truep((C_word)C_fixnum_less_or_equal_p(t2,((C_word*)t0)[4]))){
2925t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2864,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
2926t5=(C_word)C_fixnum_plus(t3,t2);
2927/* data-structures.scm: 629  ##sys#substring */
2928t6=*((C_word*)lf[75]+1);
2929((C_proc5)(void*)(*((C_word*)t6+1)))(5,t6,t4,((C_word*)t0)[3],t3,t5);}
2930else{
2931t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2875,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
2932t5=(C_word)C_fixnum_plus(t3,((C_word*)t0)[4]);
2933/* data-structures.scm: 630  ##sys#substring */
2934t6=*((C_word*)lf[75]+1);
2935((C_proc5)(void*)(*((C_word*)t6+1)))(5,t6,t4,((C_word*)t0)[3],t3,t5);}}}
2936
2937/* k2873 in loop in string-chop in k686 */
2938static void C_ccall f_2875(C_word c,C_word t0,C_word t1){
2939C_word tmp;
2940C_word t2;
2941C_word t3;
2942C_word t4;
2943C_word t5;
2944C_word ab[4],*a=ab;
2945C_check_for_interrupt;
2946if(!C_stack_probe(&a)){
2947C_save_and_reclaim((void*)tr2,(void*)f_2875,2,t0,t1);}
2948t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2879,a[2]=t1,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
2949t3=(C_word)C_fixnum_difference(((C_word*)t0)[5],((C_word*)t0)[4]);
2950t4=(C_word)C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]);
2951/* data-structures.scm: 630  loop */
2952t5=((C_word*)((C_word*)t0)[2])[1];
2953f_2844(t5,t2,t3,t4);}
2954
2955/* k2877 in k2873 in loop in string-chop in k686 */
2956static void C_ccall f_2879(C_word c,C_word t0,C_word t1){
2957C_word tmp;
2958C_word t2;
2959C_word ab[3],*a=ab;
2960C_check_for_interrupt;
2961if(!C_stack_probe(&a)){
2962C_save_and_reclaim((void*)tr2,(void*)f_2879,2,t0,t1);}
2963t2=((C_word*)t0)[3];
2964((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_a_i_cons(&a,2,((C_word*)t0)[2],t1));}
2965
2966/* k2862 in loop in string-chop in k686 */
2967static void C_ccall f_2864(C_word c,C_word t0,C_word t1){
2968C_word tmp;
2969C_word t2;
2970C_word ab[3],*a=ab;
2971C_check_for_interrupt;
2972if(!C_stack_probe(&a)){
2973C_save_and_reclaim((void*)tr2,(void*)f_2864,2,t0,t1);}
2974t2=((C_word*)t0)[2];
2975((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_a_i_list(&a,1,t1));}
2976
2977/* string-translate* in k686 */
2978static void C_ccall f_2707(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
2979C_word tmp;
2980C_word t4;
2981C_word t5;
2982C_word t6;
2983C_word t7;
2984C_word t8;
2985C_word t9;
2986C_word t10;
2987C_word ab[9],*a=ab;
2988if(c!=4) C_bad_argc_2(c,4,t0);
2989C_check_for_interrupt;
2990if(!C_stack_probe(&a)){
2991C_save_and_reclaim((void*)tr4,(void*)f_2707,4,t0,t1,t2,t3);}
2992t4=(C_word)C_i_check_string_2(t2,lf[83]);
2993t5=(C_word)C_i_check_list_2(t3,lf[83]);
2994t6=(C_word)C_block_size(t2);
2995t7=C_SCHEME_UNDEFINED;
2996t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
2997t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2719,a[2]=t3,a[3]=t8,a[4]=t2,a[5]=t6,a[6]=((C_word)li110),tmp=(C_word)a,a+=7,tmp));
2998/* data-structures.scm: 618  collect */
2999t10=((C_word*)t8)[1];
3000f_2719(t10,t1,C_fix(0),C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);}
3001
3002/* collect in string-translate* in k686 */
3003static void C_fcall f_2719(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
3004C_word tmp;
3005C_word t6;
3006C_word t7;
3007C_word t8;
3008C_word t9;
3009C_word t10;
3010C_word t11;
3011C_word t12;
3012C_word t13;
3013C_word ab[25],*a=ab;
3014C_check_for_interrupt;
3015if(!C_stack_probe(&a)){
3016C_save_and_reclaim((void*)trf_2719,NULL,6,t0,t1,t2,t3,t4,t5);}
3017t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
3018if(C_truep((C_word)C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[5]))){
3019t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2733,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
3020t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2737,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
3021if(C_truep((C_word)C_fixnum_greaterp(t2,t3))){
3022t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2747,a[2]=t6,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
3023/* data-structures.scm: 600  ##sys#substring */
3024t10=*((C_word*)lf[75]+1);
3025((C_proc5)(void*)(*((C_word*)t10+1)))(5,t10,t9,((C_word*)t0)[4],t3,t2);}
3026else{
3027t9=t8;
3028f_2737(t9,((C_word*)t6)[1]);}}
3029else{
3030t7=C_SCHEME_UNDEFINED;
3031t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
3032t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2752,a[2]=t8,a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=t4,a[8]=t2,a[9]=((C_word)li109),tmp=(C_word)a,a+=10,tmp));
3033t10=((C_word*)t8)[1];
3034f_2752(t10,t1,((C_word*)t0)[2]);}}
3035
3036/* loop in collect in string-translate* in k686 */
3037static void C_fcall f_2752(C_word t0,C_word t1,C_word t2){
3038C_word tmp;
3039C_word t3;
3040C_word t4;
3041C_word t5;
3042C_word t6;
3043C_word t7;
3044C_word t8;
3045C_word t9;
3046C_word t10;
3047C_word t11;
3048C_word t12;
3049C_word t13;
3050C_word t14;
3051C_word t15;
3052C_word *a;
3053loop:
3054a=C_alloc(12);
3055C_check_for_interrupt;
3056if(!C_stack_probe(a)){
3057C_save_and_reclaim((void*)trf_2752,NULL,3,t0,t1,t2);}
3058if(C_truep((C_word)C_i_nullp(t2))){
3059t3=(C_word)C_fixnum_plus(((C_word*)t0)[8],C_fix(1));
3060t4=(C_word)C_fixnum_plus(((C_word*)t0)[7],C_fix(1));
3061/* data-structures.scm: 604  collect */
3062t5=((C_word*)((C_word*)t0)[6])[1];
3063f_2719(t5,t1,t3,((C_word*)t0)[5],t4,((C_word*)((C_word*)t0)[4])[1]);}
3064else{
3065t3=(C_word)C_i_car(t2);
3066t4=(C_word)C_i_car(t3);
3067t5=(C_word)C_i_string_length(t4);
3068t6=(C_word)C_i_cdr(t3);
3069if(C_truep((C_word)C_substring_compare(((C_word*)t0)[3],t4,((C_word*)t0)[8],C_fix(0),t5))){
3070t7=(C_word)C_fixnum_plus(((C_word*)t0)[8],t5);
3071t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2791,a[2]=t7,a[3]=t1,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=t6,tmp=(C_word)a,a+=8,tmp);
3072if(C_truep((C_word)C_fixnum_greaterp(((C_word*)t0)[8],((C_word*)t0)[5]))){
3073t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2817,a[2]=t8,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
3074/* data-structures.scm: 612  ##sys#substring */
3075t10=*((C_word*)lf[75]+1);
3076((C_proc5)(void*)(*((C_word*)t10+1)))(5,t10,t9,((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[8]);}
3077else{
3078t9=t8;
3079f_2791(t9,C_SCHEME_UNDEFINED);}}
3080else{
3081t7=(C_word)C_i_cdr(t2);
3082/* data-structures.scm: 617  loop */
3083t14=t1;
3084t15=t7;
3085t1=t14;
3086t2=t15;
3087goto loop;}}}
3088
3089/* k2815 in loop in collect in string-translate* in k686 */
3090static void C_ccall f_2817(C_word c,C_word t0,C_word t1){
3091C_word tmp;
3092C_word t2;
3093C_word t3;
3094C_word t4;
3095C_word ab[3],*a=ab;
3096C_check_for_interrupt;
3097if(!C_stack_probe(&a)){
3098C_save_and_reclaim((void*)tr2,(void*)f_2817,2,t0,t1);}
3099t2=(C_word)C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[3])[1]);
3100t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
3101t4=((C_word*)t0)[2];
3102f_2791(t4,t3);}
3103
3104/* k2789 in loop in collect in string-translate* in k686 */
3105static void C_fcall f_2791(C_word t0,C_word t1){
3106C_word tmp;
3107C_word t2;
3108C_word t3;
3109C_word t4;
3110C_word t5;
3111C_word ab[3],*a=ab;
3112C_check_for_interrupt;
3113if(!C_stack_probe(&a)){
3114C_save_and_reclaim((void*)trf_2791,NULL,2,t0,t1);}
3115t2=(C_word)C_i_string_length(((C_word*)t0)[7]);
3116t3=(C_word)C_fixnum_plus(((C_word*)t0)[6],t2);
3117t4=(C_word)C_a_i_cons(&a,2,((C_word*)t0)[7],((C_word*)((C_word*)t0)[5])[1]);
3118/* data-structures.scm: 613  collect */
3119t5=((C_word*)((C_word*)t0)[4])[1];
3120f_2719(t5,((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[2],t3,t4);}
3121
3122/* k2745 in collect in string-translate* in k686 */
3123static void C_ccall f_2747(C_word c,C_word t0,C_word t1){
3124C_word tmp;
3125C_word t2;
3126C_word ab[3],*a=ab;
3127C_check_for_interrupt;
3128if(!C_stack_probe(&a)){
3129C_save_and_reclaim((void*)tr2,(void*)f_2747,2,t0,t1);}
3130t2=((C_word*)t0)[3];
3131f_2737(t2,(C_word)C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]));}
3132
3133/* k2735 in collect in string-translate* in k686 */
3134static void C_fcall f_2737(C_word t0,C_word t1){
3135C_word tmp;
3136C_word t2;
3137C_word *a;
3138/* data-structures.scm: 598  reverse */
3139t2=*((C_word*)lf[23]+1);
3140((C_proc3)(void*)(*((C_word*)t2+1)))(3,t2,((C_word*)t0)[2],t1);}
3141
3142/* k2731 in collect in string-translate* in k686 */
3143static void C_ccall f_2733(C_word c,C_word t0,C_word t1){
3144C_word tmp;
3145C_word t2;
3146C_word *a;
3147/* data-structures.scm: 596  ##sys#fragments->string */
3148t2=*((C_word*)lf[84]+1);
3149((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[3],((C_word*)t0)[2],t1);}
3150
3151/* string-translate in k686 */
3152static void C_ccall f_2505(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,...){
3153C_word tmp;
3154C_word t4;
3155va_list v;
3156C_word *a,c2=c;
3157C_save_rest(t3,c2,4);
3158if(c<4) C_bad_min_argc_2(c,4,t0);
3159C_check_for_interrupt;
3160if(!C_demand(c*C_SIZEOF_PAIR+18)){
3161C_save_and_reclaim((void*)tr4r,(void*)f_2505r,4,t0,t1,t2,t3);}
3162else{
3163a=C_alloc((c-4)*3);
3164t4=C_restore_rest(a,C_rest_count(0));
3165f_2505r(t0,t1,t2,t3,t4);}}
3166
3167static void C_ccall f_2505r(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
3168C_word tmp;
3169C_word t5;
3170C_word t6;
3171C_word t7;
3172C_word t8;
3173C_word t9;
3174C_word *a=C_alloc(18);
3175t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2508,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp);
3176t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2542,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
3177if(C_truep((C_word)C_charp(t3))){
3178t7=t6;
3179f_2542(2,t7,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2682,a[2]=t3,a[3]=((C_word)li107),tmp=(C_word)a,a+=4,tmp));}
3180else{
3181if(C_truep((C_word)C_i_pairp(t3))){
3182t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2699,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
3183/* data-structures.scm: 554  list->string */
3184t8=((C_word*)t0)[2];
3185((C_proc3)C_retrieve_proc(t8))(3,t8,t7,t3);}
3186else{
3187t7=(C_word)C_i_check_string_2(t3,lf[81]);
3188/* data-structures.scm: 557  instring */
3189f_2508(t6,t3);}}}
3190
3191/* k2697 in string-translate in k686 */
3192static void C_ccall f_2699(C_word c,C_word t0,C_word t1){
3193C_word tmp;
3194C_word t2;
3195C_word *a;
3196/* data-structures.scm: 554  instring */
3197f_2508(((C_word*)t0)[2],t1);}
3198
3199/* f_2682 in string-translate in k686 */
3200static void C_ccall f_2682(C_word c,C_word t0,C_word t1,C_word t2){
3201C_word tmp;
3202C_word t3;
3203C_word *a;
3204if(c!=3) C_bad_argc_2(c,3,t0);
3205C_check_for_interrupt;
3206if(!C_stack_probe(&a)){
3207C_save_and_reclaim((void*)tr3,(void*)f_2682,3,t0,t1,t2);}
3208t3=t1;
3209((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_eqp(t2,((C_word*)t0)[2]));}
3210
3211/* k2540 in string-translate in k686 */
3212static void C_ccall f_2542(C_word c,C_word t0,C_word t1){
3213C_word tmp;
3214C_word t2;
3215C_word t3;
3216C_word t4;
3217C_word t5;
3218C_word ab[6],*a=ab;
3219C_check_for_interrupt;
3220if(!C_stack_probe(&a)){
3221C_save_and_reclaim((void*)tr2,(void*)f_2542,2,t0,t1);}
3222t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2545,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t1,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
3223if(C_truep((C_word)C_i_pairp(((C_word*)t0)[3]))){
3224t3=(C_word)C_slot(((C_word*)t0)[3],C_fix(0));
3225if(C_truep((C_word)C_charp(t3))){
3226t4=t2;
3227f_2545(2,t4,t3);}
3228else{
3229if(C_truep((C_word)C_i_pairp(t3))){
3230/* data-structures.scm: 562  list->string */
3231t4=((C_word*)t0)[2];
3232((C_proc3)C_retrieve_proc(t4))(3,t4,t2,t3);}
3233else{
3234t4=(C_word)C_i_check_string_2(t3,lf[81]);
3235t5=t2;
3236f_2545(2,t5,t3);}}}
3237else{
3238t3=t2;
3239f_2545(2,t3,C_SCHEME_FALSE);}}
3240
3241/* k2543 in k2540 in string-translate in k686 */
3242static void C_ccall f_2545(C_word c,C_word t0,C_word t1){
3243C_word tmp;
3244C_word t2;
3245C_word t3;
3246C_word t4;
3247C_word t5;
3248C_word t6;
3249C_word t7;
3250C_word ab[8],*a=ab;
3251C_check_for_interrupt;
3252if(!C_stack_probe(&a)){
3253C_save_and_reclaim((void*)tr2,(void*)f_2545,2,t0,t1);}
3254t2=(C_word)C_i_stringp(t1);
3255t3=(C_truep(t2)?(C_word)C_block_size(t1):C_SCHEME_FALSE);
3256t4=(C_word)C_i_check_string_2(((C_word*)t0)[5],lf[81]);
3257t5=(C_word)C_block_size(((C_word*)t0)[5]);
3258t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2557,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=t5,tmp=(C_word)a,a+=8,tmp);
3259/* data-structures.scm: 569  make-string */
3260t7=((C_word*)t0)[2];
3261((C_proc3)C_retrieve_proc(t7))(3,t7,t6,t5);}
3262
3263/* k2555 in k2543 in k2540 in string-translate in k686 */
3264static void C_ccall f_2557(C_word c,C_word t0,C_word t1){
3265C_word tmp;
3266C_word t2;
3267C_word t3;
3268C_word t4;
3269C_word t5;
3270C_word ab[12],*a=ab;
3271C_check_for_interrupt;
3272if(!C_stack_probe(&a)){
3273C_save_and_reclaim((void*)tr2,(void*)f_2557,2,t0,t1);}
3274t2=C_SCHEME_UNDEFINED;
3275t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
3276t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2562,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word)li106),tmp=(C_word)a,a+=10,tmp));
3277t5=((C_word*)t3)[1];
3278f_2562(t5,((C_word*)t0)[2],C_fix(0),C_fix(0));}
3279
3280/* loop in k2555 in k2543 in k2540 in string-translate in k686 */
3281static void C_fcall f_2562(C_word t0,C_word t1,C_word t2,C_word t3){
3282C_word tmp;
3283C_word t4;
3284C_word t5;
3285C_word t6;
3286C_word ab[10],*a=ab;
3287C_check_for_interrupt;
3288if(!C_stack_probe(&a)){
3289C_save_and_reclaim((void*)trf_2562,NULL,4,t0,t1,t2,t3);}
3290if(C_truep((C_word)C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[8]))){
3291if(C_truep((C_word)C_fixnum_lessp(t3,t2))){
3292/* data-structures.scm: 573  ##sys#substring */
3293t4=*((C_word*)lf[75]+1);
3294((C_proc5)(void*)(*((C_word*)t4+1)))(5,t4,t1,((C_word*)t0)[7],C_fix(0),t3);}
3295else{
3296t4=t1;
3297((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,((C_word*)t0)[7]);}}
3298else{
3299t4=(C_word)C_subchar(((C_word*)t0)[6],t2);
3300t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2581,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=t3,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[5],tmp=(C_word)a,a+=10,tmp);
3301/* data-structures.scm: 576  from */
3302t6=((C_word*)t0)[2];
3303((C_proc3)C_retrieve_proc(t6))(3,t6,t5,t4);}}
3304
3305/* k2579 in loop in k2555 in k2543 in k2540 in string-translate in k686 */
3306static void C_ccall f_2581(C_word c,C_word t0,C_word t1){
3307C_word tmp;
3308C_word t2;
3309C_word t3;
3310C_word t4;
3311C_word t5;
3312C_word t6;
3313C_word t7;
3314C_word t8;
3315C_word t9;
3316C_word t10;
3317C_word t11;
3318C_word t12;
3319C_word t13;
3320C_word t14;
3321C_word *a;
3322t2=t1;
3323if(C_truep(t2)){
3324t3=((C_word*)t0)[9];
3325if(C_truep(t3)){
3326if(C_truep((C_word)C_charp(((C_word*)t0)[9]))){
3327t4=(C_word)C_setsubchar(((C_word*)t0)[8],((C_word*)t0)[7],((C_word*)t0)[9]);
3328t5=(C_word)C_fixnum_plus(((C_word*)t0)[6],C_fix(1));
3329t6=(C_word)C_fixnum_plus(((C_word*)t0)[7],C_fix(1));
3330/* data-structures.scm: 583  loop */
3331t7=((C_word*)((C_word*)t0)[5])[1];
3332f_2562(t7,((C_word*)t0)[4],t5,t6);}
3333else{
3334if(C_truep((C_word)C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[3]))){
3335/* data-structures.scm: 585  ##sys#error */
3336t4=*((C_word*)lf[31]+1);
3337((C_proc6)(void*)(*((C_word*)t4+1)))(6,t4,((C_word*)t0)[4],lf[81],lf[82],((C_word*)t0)[6],((C_word*)t0)[9]);}
3338else{
3339t4=(C_word)C_setsubchar(((C_word*)t0)[8],((C_word*)t0)[7],(C_word)C_subchar(((C_word*)t0)[9],t1));
3340t5=(C_word)C_fixnum_plus(((C_word*)t0)[6],C_fix(1));
3341t6=(C_word)C_fixnum_plus(((C_word*)t0)[7],C_fix(1));
3342/* data-structures.scm: 588  loop */
3343t7=((C_word*)((C_word*)t0)[5])[1];
3344f_2562(t7,((C_word*)t0)[4],t5,t6);}}}
3345else{
3346t4=(C_word)C_fixnum_plus(((C_word*)t0)[6],C_fix(1));
3347/* data-structures.scm: 580  loop */
3348t5=((C_word*)((C_word*)t0)[5])[1];
3349f_2562(t5,((C_word*)t0)[4],t4,((C_word*)t0)[7]);}}
3350else{
3351t3=(C_word)C_setsubchar(((C_word*)t0)[8],((C_word*)t0)[7],((C_word*)t0)[2]);
3352t4=(C_word)C_fixnum_plus(((C_word*)t0)[6],C_fix(1));
3353t5=(C_word)C_fixnum_plus(((C_word*)t0)[7],C_fix(1));
3354/* data-structures.scm: 579  loop */
3355t6=((C_word*)((C_word*)t0)[5])[1];
3356f_2562(t6,((C_word*)t0)[4],t4,t5);}}
3357
3358/* instring in string-translate in k686 */
3359static void C_fcall f_2508(C_word t1,C_word t2){
3360C_word tmp;
3361C_word t3;
3362C_word t4;
3363C_word ab[5],*a=ab;
3364C_check_for_interrupt;
3365if(!C_stack_probe(&a)){
3366C_save_and_reclaim((void*)trf_2508,NULL,2,t1,t2);}
3367t3=(C_word)C_block_size(t2);
3368t4=t1;
3369((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2513,a[2]=t2,a[3]=t3,a[4]=((C_word)li104),tmp=(C_word)a,a+=5,tmp));}
3370
3371/* f_2513 in instring in string-translate in k686 */
3372static void C_ccall f_2513(C_word c,C_word t0,C_word t1,C_word t2){
3373C_word tmp;
3374C_word t3;
3375C_word t4;
3376C_word ab[6],*a=ab;
3377if(c!=3) C_bad_argc_2(c,3,t0);
3378C_check_for_interrupt;
3379if(!C_stack_probe(&a)){
3380C_save_and_reclaim((void*)tr3,(void*)f_2513,3,t0,t1,t2);}
3381t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2519,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li103),tmp=(C_word)a,a+=6,tmp);
3382t4=t1;
3383((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,f_2519(t3,C_fix(0)));}
3384
3385/* loop */
3386static C_word C_fcall f_2519(C_word t0,C_word t1){
3387C_word tmp;
3388C_word t2;
3389C_word t3;
3390C_word t4;
3391C_word t5;
3392loop:
3393C_stack_check;
3394if(C_truep((C_word)C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[4]))){
3395return(C_SCHEME_FALSE);}
3396else{
3397t2=(C_word)C_eqp(((C_word*)t0)[3],(C_word)C_subchar(((C_word*)t0)[2],t1));
3398if(C_truep(t2)){
3399return(t1);}
3400else{
3401t3=(C_word)C_fixnum_plus(t1,C_fix(1));
3402t5=t3;
3403t1=t5;
3404goto loop;}}}
3405
3406/* string-intersperse in k686 */
3407static void C_ccall f_2390(C_word c,C_word t0,C_word t1,C_word t2,...){
3408C_word tmp;
3409C_word t3;
3410va_list v;
3411C_word *a,c2=c;
3412C_save_rest(t2,c2,3);
3413if(c<3) C_bad_min_argc_2(c,3,t0);
3414C_check_for_interrupt;
3415if(!C_demand(c*C_SIZEOF_PAIR+4)){
3416C_save_and_reclaim((void*)tr3r,(void*)f_2390r,3,t0,t1,t2);}
3417else{
3418a=C_alloc((c-3)*3);
3419t3=C_restore_rest(a,C_rest_count(0));
3420f_2390r(t0,t1,t2,t3);}}
3421
3422static void C_ccall f_2390r(C_word t0,C_word t1,C_word t2,C_word t3){
3423C_word tmp;
3424C_word t4;
3425C_word t5;
3426C_word t6;
3427C_word *a=C_alloc(4);
3428t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2394,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
3429if(C_truep((C_word)C_i_nullp(t3))){
3430t5=t4;
3431f_2394(2,t5,lf[79]);}
3432else{
3433t5=(C_word)C_i_cdr(t3);
3434if(C_truep((C_word)C_i_nullp(t5))){
3435t6=t4;
3436f_2394(2,t6,(C_word)C_i_car(t3));}
3437else{
3438/* ##sys#error */
3439t6=*((C_word*)lf[31]+1);
3440((C_proc4)(void*)(*((C_word*)t6+1)))(4,t6,t4,lf[0],t3);}}}
3441
3442/* k2392 in string-intersperse in k686 */
3443static