eval.c

Scheme跨平台编译器

static C_char C_TLS li255[] C_aligned={C_lihdr(0,0,14),40,105,110,105,116,98,32,104,116,49,49,49,51,41,0,0};
static C_char C_TLS li256[] C_aligned={C_lihdr(0,0,19),40,101,120,105,115,116,115,63,32,102,110,97,109,101,49,49,50,50,41,0,0,0,0,0};
static C_char C_TLS li257[] C_aligned={C_lihdr(0,0,25),40,116,101,115,116,50,32,102,110,97,109,101,49,49,51,52,32,108,115,116,49,49,51,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li258[] C_aligned={C_lihdr(0,0,16),40,116,101,115,116,32,102,110,97,109,101,49,49,51,55,41};
static C_char C_TLS li259[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,112,97,116,104,115,49,49,52,48,41};
static C_char C_TLS li260[] C_aligned={C_lihdr(0,0,72),40,35,35,115,121,115,35,114,101,115,111,108,118,101,45,105,110,99,108,117,100,101,45,102,105,108,101,110,97,109,101,32,102,110,97,109,101,49,49,50,53,32,112,114,101,102,101,114,45,115,111,117,114,99,101,49,49,50,54,32,46,32,103,49,49,50,52,49,49,50,55,41};
static C_char C_TLS li261[] C_aligned={C_lihdr(0,0,14),40,100,111,49,49,53,48,32,105,49,49,53,50,41,0,0};
static C_char C_TLS li262[] C_aligned={C_lihdr(0,0,14),40,115,112,97,99,101,115,32,110,49,49,52,57,41,0,0};
static C_char C_TLS li263[] C_aligned={C_lihdr(0,0,24),40,100,105,115,112,108,97,121,45,114,106,32,120,49,49,53,54,32,119,49,49,53,55,41};
static C_char C_TLS li264[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,100,105,115,112,108,97,121,45,116,105,109,101,115,32,105,110,102,111,49,49,54,49,41,0,0};
static C_char C_TLS li265[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,115,121,110,116,97,120,45,101,114,114,111,114,45,104,111,111,107,32,46,32,97,114,103,115,49,49,55,49,41,0,0,0,0};
static C_char C_TLS li266[] C_aligned={C_lihdr(0,0,26),40,103,101,116,45,108,105,110,101,45,110,117,109,98,101,114,32,115,101,120,112,49,49,55,50,41,0,0,0,0,0,0};
static C_char C_TLS li267[] C_aligned={C_lihdr(0,0,13),40,101,114,114,32,109,115,103,49,49,57,51,41,0,0,0};
static C_char C_TLS li268[] C_aligned={C_lihdr(0,0,29),40,116,101,115,116,32,120,49,49,57,48,32,112,114,101,100,49,49,57,49,32,109,115,103,49,49,57,50,41,0,0,0};
static C_char C_TLS li269[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,120,49,50,48,48,41,0,0,0,0};
static C_char C_TLS li270[] C_aligned={C_lihdr(0,0,20),40,108,97,109,98,100,97,45,108,105,115,116,63,32,120,49,49,57,54,41,0,0,0,0};
static C_char C_TLS li271[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char C_TLS li272[] C_aligned={C_lihdr(0,0,20),40,112,114,111,112,101,114,45,108,105,115,116,63,32,120,49,50,48,55,41,0,0,0,0};
static C_char C_TLS li273[] C_aligned={C_lihdr(0,0,20),40,100,111,49,50,50,48,32,120,49,50,50,50,32,110,49,50,50,51,41,0,0,0,0};
static C_char C_TLS li274[] C_aligned={C_lihdr(0,0,13),40,97,56,57,48,51,32,120,49,50,51,48,41,0,0,0};
static C_char C_TLS li275[] C_aligned={C_lihdr(0,0,13),40,97,56,57,53,55,32,121,49,50,51,49,41,0,0,0};
static C_char C_TLS li276[] C_aligned={C_lihdr(0,0,18),40,119,97,108,107,32,120,49,50,49,52,32,112,49,50,49,53,41,0,0,0,0,0,0};
static C_char C_TLS li277[] C_aligned={C_lihdr(0,0,57),40,35,35,115,121,115,35,99,104,101,99,107,45,115,121,110,116,97,120,32,105,100,49,49,56,50,32,101,120,112,49,49,56,51,32,112,97,116,49,49,56,52,32,46,32,99,117,108,112,114,105,116,49,49,56,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li278[] C_aligned={C_lihdr(0,0,7),40,97,57,48,53,54,41,0};
static C_char C_TLS li279[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,114,101,112,108,45,112,114,105,110,116,45,104,111,111,107,32,120,49,51,54,50,32,112,111,114,116,49,51,54,51,41,0,0};
static C_char C_TLS li280[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,114,101,97,100,45,112,114,111,109,112,116,45,104,111,111,107,41};
static C_char C_TLS li281[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,108,101,97,114,45,116,114,97,99,101,45,98,117,102,102,101,114,41,0,0,0,0,0,0};
static C_char C_TLS li282[] C_aligned={C_lihdr(0,0,17),40,97,57,48,57,52,32,103,49,51,55,57,49,51,56,48,41,0,0,0,0,0,0,0};
static C_char C_TLS li283[] C_aligned={C_lihdr(0,0,18),40,119,114,105,116,101,45,101,114,114,32,120,115,49,51,55,56,41,0,0,0,0,0,0};
static C_char C_TLS li284[] C_aligned={C_lihdr(0,0,26),40,97,57,49,54,50,32,109,115,103,49,51,57,57,32,46,32,97,114,103,115,49,52,48,48,41,0,0,0,0,0,0};
static C_char C_TLS li285[] C_aligned={C_lihdr(0,0,7),40,97,57,49,52,57,41,0};
static C_char C_TLS li286[] C_aligned={C_lihdr(0,0,7),40,97,57,50,53,49,41,0};
static C_char C_TLS li287[] C_aligned={C_lihdr(0,0,17),40,97,57,49,49,53,32,103,49,51,56,52,49,51,56,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li288[] C_aligned={C_lihdr(0,0,13),40,97,57,50,57,57,32,118,49,52,50,53,41,0,0,0};
static C_char C_TLS li289[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,118,97,114,115,49,52,50,51,32,117,49,52,50,52,41,0,0,0};
static C_char C_TLS li290[] C_aligned={C_lihdr(0,0,20),40,97,57,50,54,48,32,46,32,114,101,115,117,108,116,49,52,50,49,41,0,0,0,0};
static C_char C_TLS li291[] C_aligned={C_lihdr(0,0,7),40,97,57,51,57,56,41,0};
static C_char C_TLS li292[] C_aligned={C_lihdr(0,0,13),40,97,57,51,57,50,32,99,49,52,49,50,41,0,0,0};
static C_char C_TLS li293[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
static C_char C_TLS li294[] C_aligned={C_lihdr(0,0,7),40,97,57,50,49,52,41,0};
static C_char C_TLS li295[] C_aligned={C_lihdr(0,0,7),40,97,57,52,48,57,41,0};
static C_char C_TLS li296[] C_aligned={C_lihdr(0,0,6),40,114,101,112,108,41,0,0};
static C_char C_TLS li297[] C_aligned={C_lihdr(0,0,38),40,100,101,102,105,110,101,45,114,101,97,100,101,114,45,99,116,111,114,32,115,112,101,99,49,52,53,50,32,112,114,111,99,49,52,53,51,41,0,0};
static C_char C_TLS li298[] C_aligned={C_lihdr(0,0,5),40,101,114,114,41,0,0,0};
static C_char C_TLS li299[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,49,52,53,56,32,112,111,114,116,49,52,53,57,41};
static C_char C_TLS li300[] C_aligned={C_lihdr(0,0,7),40,97,57,53,52,52,41,0};
static C_char C_TLS li301[] C_aligned={C_lihdr(0,0,14),40,97,57,53,51,56,32,101,120,49,52,56,54,41,0,0};
static C_char C_TLS li302[] C_aligned={C_lihdr(0,0,7),40,97,57,53,54,51,41,0};
static C_char C_TLS li303[] C_aligned={C_lihdr(0,0,7),40,97,57,53,55,53,41,0};
static C_char C_TLS li304[] C_aligned={C_lihdr(0,0,19),40,97,57,53,54,57,32,46,32,103,49,52,56,52,49,52,57,48,41,0,0,0,0,0};
static C_char C_TLS li305[] C_aligned={C_lihdr(0,0,7),40,97,57,53,53,55,41,0};
static C_char C_TLS li306[] C_aligned={C_lihdr(0,0,17),40,97,57,53,51,50,32,103,49,52,56,51,49,52,56,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li307[] C_aligned={C_lihdr(0,0,20),40,114,117,110,45,115,97,102,101,32,116,104,117,110,107,49,52,56,50,41,0,0,0,0};
static C_char C_TLS li308[] C_aligned={C_lihdr(0,0,31),40,115,116,111,114,101,45,114,101,115,117,108,116,32,120,49,52,57,50,32,114,101,115,117,108,116,49,52,57,51,41,0};
static C_char C_TLS li309[] C_aligned={C_lihdr(0,0,7),40,97,57,53,57,54,41,0};
static C_char C_TLS li310[] C_aligned={C_lihdr(0,0,15),40,67,72,73,67,75,69,78,95,121,105,101,108,100,41,0};
static C_char C_TLS li311[] C_aligned={C_lihdr(0,0,7),40,97,57,54,48,56,41,0};
static C_char C_TLS li312[] C_aligned={C_lihdr(0,0,33),40,67,72,73,67,75,69,78,95,101,118,97,108,32,101,120,112,49,52,57,55,32,114,101,115,117,108,116,49,52,57,56,41,0,0,0,0,0,0,0};
static C_char C_TLS li313[] C_aligned={C_lihdr(0,0,7),40,97,57,54,50,55,41,0};
static C_char C_TLS li314[] C_aligned={C_lihdr(0,0,40),40,67,72,73,67,75,69,78,95,101,118,97,108,95,115,116,114,105,110,103,32,115,116,114,49,53,48,49,32,114,101,115,117,108,116,49,53,48,50,41};
static C_char C_TLS li315[] C_aligned={C_lihdr(0,0,34),40,115,116,111,114,101,45,115,116,114,105,110,103,32,98,117,102,115,105,122,101,49,53,48,55,32,98,117,102,49,53,48,56,41,0,0,0,0,0,0};
static C_char C_TLS li316[] C_aligned={C_lihdr(0,0,7),40,97,57,54,54,51,41,0};
static C_char C_TLS li317[] C_aligned={C_lihdr(0,0,52),40,67,72,73,67,75,69,78,95,101,118,97,108,95,116,111,95,115,116,114,105,110,103,32,101,120,112,49,53,49,49,32,98,117,102,49,53,49,50,32,98,117,102,115,105,122,101,49,53,49,51,41,0,0,0,0};
static C_char C_TLS li318[] C_aligned={C_lihdr(0,0,7),40,97,57,54,57,50,41,0};
static C_char C_TLS li319[] C_aligned={C_lihdr(0,0,59),40,67,72,73,67,75,69,78,95,101,118,97,108,95,115,116,114,105,110,103,95,116,111,95,115,116,114,105,110,103,32,115,116,114,49,53,49,57,32,98,117,102,49,53,50,48,32,98,117,102,115,105,122,101,49,53,50,49,41,0,0,0,0,0};
static C_char C_TLS li320[] C_aligned={C_lihdr(0,0,7),40,97,57,55,50,54,41,0};
static C_char C_TLS li321[] C_aligned={C_lihdr(0,0,44),40,67,72,73,67,75,69,78,95,97,112,112,108,121,32,102,117,110,99,49,53,50,55,32,97,114,103,115,49,53,50,56,32,114,101,115,117,108,116,49,53,50,57,41,0,0,0,0};
static C_char C_TLS li322[] C_aligned={C_lihdr(0,0,7),40,97,57,55,52,50,41,0};
static C_char C_TLS li323[] C_aligned={C_lihdr(0,0,63),40,67,72,73,67,75,69,78,95,97,112,112,108,121,95,116,111,95,115,116,114,105,110,103,32,102,117,110,99,49,53,51,51,32,97,114,103,115,49,53,51,52,32,98,117,102,49,53,51,53,32,98,117,102,115,105,122,101,49,53,51,54,41,0};
static C_char C_TLS li324[] C_aligned={C_lihdr(0,0,7),40,97,57,55,55,49,41,0};
static C_char C_TLS li325[] C_aligned={C_lihdr(0,0,33),40,67,72,73,67,75,69,78,95,114,101,97,100,32,115,116,114,49,53,52,51,32,114,101,115,117,108,116,49,53,52,52,41,0,0,0,0,0,0,0};
static C_char C_TLS li326[] C_aligned={C_lihdr(0,0,7),40,97,57,55,57,51,41,0};
static C_char C_TLS li327[] C_aligned={C_lihdr(0,0,22),40,67,72,73,67,75,69,78,95,108,111,97,100,32,115,116,114,49,53,52,56,41,0,0};
static C_char C_TLS li328[] C_aligned={C_lihdr(0,0,47),40,67,72,73,67,75,69,78,95,103,101,116,95,101,114,114,111,114,95,109,101,115,115,97,103,101,32,98,117,102,49,53,53,49,32,98,117,102,115,105,122,101,49,53,53,50,41,0};
static C_char C_TLS li329[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,109,97,107,101,45,108,97,109,98,100,97,45,105,110,102,111,32,115,116,114,49,53,53,55,41};
static C_char C_TLS li330[] C_aligned={C_lihdr(0,0,16),40,97,57,56,49,56,32,102,111,114,109,49,52,56,49,41};
static C_char C_TLS li331[] C_aligned={C_lihdr(0,0,16),40,97,57,56,50,52,32,102,111,114,109,49,52,56,48,41};
static C_char C_TLS li332[] C_aligned={C_lihdr(0,0,13),40,97,57,56,52,51,32,120,49,52,55,56,41,0,0,0};
static C_char C_TLS li333[] C_aligned={C_lihdr(0,0,17),40,97,57,56,51,48,32,46,32,105,100,115,49,52,55,55,41,0,0,0,0,0,0,0};
static C_char C_TLS li334[] C_aligned={C_lihdr(0,0,25),40,101,120,112,97,110,100,32,110,97,109,101,49,52,55,48,32,118,97,108,49,52,55,49,41,0,0,0,0,0,0,0};
static C_char C_TLS li335[] C_aligned={C_lihdr(0,0,27),40,97,57,56,52,57,32,104,101,97,100,49,52,54,55,32,46,32,98,111,100,121,49,52,54,56,41,0,0,0,0,0};
static C_char C_TLS li336[] C_aligned={C_lihdr(0,0,7),40,97,57,57,57,49,41,0};
static C_char C_TLS li337[] C_aligned={C_lihdr(0,0,11),40,101,114,114,32,120,49,51,52,51,41,0,0,0,0,0};
static C_char C_TLS li338[] C_aligned={C_lihdr(0,0,13),40,116,101,115,116,32,102,120,49,51,52,52,41,0,0,0};
static C_char C_TLS li339[] C_aligned={C_lihdr(0,0,14),40,97,49,48,49,54,53,32,120,49,51,53,52,41,0,0};
static C_char C_TLS li340[] C_aligned={C_lihdr(0,0,16),40,101,120,112,97,110,100,32,99,108,115,49,51,53,51,41};
static C_char C_TLS li341[] C_aligned={C_lihdr(0,0,19),40,97,57,57,57,52,32,99,108,97,117,115,101,115,49,51,52,48,41,0,0,0,0,0};
static C_char C_TLS li342[] C_aligned={C_lihdr(0,0,14),40,97,49,48,50,52,48,32,120,49,51,51,57,41,0,0};
static C_char C_TLS li343[] C_aligned={C_lihdr(0,0,18),40,119,97,108,107,32,120,49,51,49,51,32,110,49,51,49,52,41,0,0,0,0,0,0};
static C_char C_TLS li344[] C_aligned={C_lihdr(0,0,19),40,119,97,108,107,49,32,120,49,51,49,53,32,110,49,51,49,54,41,0,0,0,0,0};
static C_char C_TLS li345[] C_aligned={C_lihdr(0,0,16),40,115,105,109,112,108,105,102,121,32,120,49,51,50,53,41};
static C_char C_TLS li346[] C_aligned={C_lihdr(0,0,17),40,97,49,48,50,53,48,32,102,111,114,109,49,51,48,57,41,0,0,0,0,0,0,0};
static C_char C_TLS li347[] C_aligned={C_lihdr(0,0,14),40,97,49,48,53,57,54,32,98,49,51,48,53,41,0,0};
static C_char C_TLS li348[] C_aligned={C_lihdr(0,0,14),40,97,49,48,54,52,51,32,98,49,51,48,51,41,0,0};
static C_char C_TLS li349[] C_aligned={C_lihdr(0,0,41),40,97,49,48,53,52,50,32,98,105,110,100,105,110,103,115,49,50,57,57,32,116,101,115,116,49,51,48,48,32,46,32,98,111,100,121,49,51,48,49,41,0,0,0,0,0,0,0};
static C_char C_TLS li350[] C_aligned={C_lihdr(0,0,14),40,97,49,48,55,48,55,32,98,49,50,57,53,41,0,0};
static C_char C_TLS li351[] C_aligned={C_lihdr(0,0,14),40,97,49,48,55,50,49,32,98,49,50,57,52,41,0,0};
static C_char C_TLS li352[] C_aligned={C_lihdr(0,0,17),40,97,49,48,54,54,49,32,102,111,114,109,49,50,57,49,41,0,0,0,0,0,0,0};
static C_char C_TLS li353[] C_aligned={C_lihdr(0,0,15),40,101,120,112,97,110,100,32,98,115,49,50,56,55,41,0};
static C_char C_TLS li354[] C_aligned={C_lihdr(0,0,17),40,97,49,48,55,51,49,32,102,111,114,109,49,50,56,51,41,0,0,0,0,0,0,0};
static C_char C_TLS li355[] C_aligned={C_lihdr(0,0,14),40,97,49,48,56,54,49,32,120,49,50,56,48,41,0,0};
static C_char C_TLS li356[] C_aligned={C_lihdr(0,0,20),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,49,50,55,55,41,0,0,0,0};
static C_char C_TLS li357[] C_aligned={C_lihdr(0,0,17),40,97,49,48,55,56,52,32,102,111,114,109,49,50,55,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li358[] C_aligned={C_lihdr(0,0,20),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,49,50,54,52,41,0,0,0,0};
static C_char C_TLS li359[] C_aligned={C_lihdr(0,0,17),40,97,49,48,56,56,55,32,98,111,100,121,49,50,54,50,41,0,0,0,0,0,0,0};
static C_char C_TLS li360[] C_aligned={C_lihdr(0,0,17),40,97,49,49,48,56,52,32,98,111,100,121,49,50,53,55,41,0,0,0,0,0,0,0};
static C_char C_TLS li361[] C_aligned={C_lihdr(0,0,17),40,97,49,49,49,50,55,32,98,111,100,121,49,50,53,51,41,0,0,0,0,0,0,0};
static C_char C_TLS li362[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,102,111,114,109,49,50,52,51,41,0};
static C_char C_TLS li363[] C_aligned={C_lihdr(0,0,17),40,97,49,49,49,53,53,32,102,111,114,109,49,50,52,49,41,0,0,0,0,0,0,0};
static C_char C_TLS li364[] C_aligned={C_lihdr(0,0,16),40,45,62,115,116,114,105,110,103,32,120,49,48,51,56,41};
static C_char C_TLS li365[] C_aligned={C_lihdr(0,0,23),40,97,49,49,50,53,56,32,115,112,101,99,49,48,51,49,32,95,49,48,51,50,41,0};
static C_char C_TLS li366[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,105,100,115,49,48,50,55,41,0,0};
static C_char C_TLS li367[] C_aligned={C_lihdr(0,0,25),40,97,49,49,51,55,57,32,115,112,101,99,49,48,50,52,32,111,108,100,49,48,50,53,41,0,0,0,0,0,0,0};
static C_char C_TLS li368[] C_aligned={C_lihdr(0,0,13),40,97,49,49,52,54,54,32,120,56,53,55,41,0,0,0};
static C_char C_TLS li369[] C_aligned={C_lihdr(0,0,16),40,97,49,49,52,55,50,32,103,56,53,53,56,53,54,41};
static C_char C_TLS li370[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,51,52,41};
static C_char C_TLS li371[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,52,52,41};
static C_char C_TLS li372[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,53,48,41};
static C_char C_TLS li373[] C_aligned={C_lihdr(0,0,22),40,97,49,49,53,50,50,32,120,54,55,55,32,46,32,101,110,118,54,55,56,41,0,0};
static C_char C_TLS li374[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};


/* from ##sys#clear-trace-buffer in k9063 in k9041 in k9037 in k9034 in k9031 in k9028 in k9025 in k9022 in k9019 in k9016 in k9013 in k9010 in k9007 in k8317 in k8313 in k8310 in k8306 in k7971 in k7913 in k7910 in k7184 in k6831 in k6824 in k6819 in k6283 in k6203 in k6104 in k1783 in k1734 in k1731 */
static C_word C_fcall stub1367(C_word C_buf) C_regparm;
C_regparm static C_word C_fcall stub1367(C_word C_buf){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
C_clear_trace_buffer();
return C_r;}

C_noret_decl(C_eval_toplevel)
C_externexport void C_ccall C_eval_toplevel(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_1733)
static void C_ccall f_1733(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_1736)
static void C_ccall f_1736(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_1785)
static void C_ccall f_1785(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_11523)
static void C_ccall f_11523(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
C_noret_decl(f_11523)
static void C_ccall f_11523r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
C_noret_decl(f_11527)
static void C_fcall f_11527(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11551)
static void C_ccall f_11551(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_11545)
static void C_ccall f_11545(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_11535)
static void C_ccall f_11535(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_11533)
static void C_ccall f_11533(C_word c,C_word t0,C_word t1) C_noret;
C_noret_decl(f_6106)
static void C_ccall f_6106(C_word c,C_word t0,C_word t1) C_noret;